1144df584Sjeremylt!----------------------------------------------------------------------- 2144df584Sjeremylt program test 31f9a83abSJed Brown implicit none 4*ec3da8bcSJed Brown include 'ceed/fortran.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 if (p .NE. 64) then 22144df584Sjeremylt! LCOV_EXCL_START 23144df584Sjeremylt write(*,*) 'Error ',p,' != 64 ' 24144df584Sjeremylt! LCOV_EXCL_STOP 25144df584Sjeremylt endif 26144df584Sjeremylt if (q .NE. 125) then 27144df584Sjeremylt! LCOV_EXCL_START 28144df584Sjeremylt write(*,*) 'Error ',q,' != 125 ' 29144df584Sjeremylt! LCOV_EXCL_STOP 30144df584Sjeremylt endif 31144df584Sjeremylt 32144df584Sjeremylt call ceedbasisdestroy(b,err) 33144df584Sjeremylt call ceeddestroy(ceed,err) 34144df584Sjeremylt 35144df584Sjeremylt end 36144df584Sjeremylt!----------------------------------------------------------------------- 37