1144df584Sjeremylt!----------------------------------------------------------------------- 2144df584Sjeremylt program test 3*1f9a83abSJed Brown implicit none 4144df584Sjeremylt include 'ceedf.h' 5144df584Sjeremylt 6144df584Sjeremylt integer ceed,err 7144df584Sjeremylt integer b 8144df584Sjeremylt integer p,q 9144df584Sjeremylt 10144df584Sjeremylt character arg*32 11144df584Sjeremylt 12144df584Sjeremylt call getarg(1,arg) 13144df584Sjeremylt 14144df584Sjeremylt call ceedinit(trim(arg)//char(0),ceed,err) 15144df584Sjeremylt call ceedbasiscreatetensorh1lagrange(ceed,3,1,4,5,ceed_gauss_lobatto,b,& 16144df584Sjeremylt & err) 17144df584Sjeremylt 18144df584Sjeremylt call ceedbasisgetnumnodes(b,p,err) 19144df584Sjeremylt call ceedbasisgetnumquadraturepoints(b,q,err) 20144df584Sjeremylt 21144df584Sjeremylt 22144df584Sjeremylt if (p .NE. 64) then 23144df584Sjeremylt! LCOV_EXCL_START 24144df584Sjeremylt write(*,*) 'Error ',p,' != 64 ' 25144df584Sjeremylt! LCOV_EXCL_STOP 26144df584Sjeremylt endif 27144df584Sjeremylt if (q .NE. 125) then 28144df584Sjeremylt! LCOV_EXCL_START 29144df584Sjeremylt write(*,*) 'Error ',q,' != 125 ' 30144df584Sjeremylt! LCOV_EXCL_STOP 31144df584Sjeremylt endif 32144df584Sjeremylt 33144df584Sjeremylt call ceedbasisdestroy(b,err) 34144df584Sjeremylt call ceeddestroy(ceed,err) 35144df584Sjeremylt 36144df584Sjeremylt end 37144df584Sjeremylt!----------------------------------------------------------------------- 38