1!----------------------------------------------------------------------- 2 program test 3 implicit none 4 include 'ceed/fortran.h' 5 6 integer ceed,err 7 integer b 8 integer p,q 9 10 character arg*32 11 12 call getarg(1,arg) 13 14 call ceedinit(trim(arg)//char(0),ceed,err) 15 call ceedbasiscreatetensorh1lagrange(ceed,3,1,4,5,ceed_gauss_lobatto,b,& 16 & err) 17 18 call ceedbasisgetnumnodes(b,p,err) 19 call ceedbasisgetnumquadraturepoints(b,q,err) 20 21 if (p .NE. 64) then 22! LCOV_EXCL_START 23 write(*,*) 'Error ',p,' != 64 ' 24! LCOV_EXCL_STOP 25 endif 26 if (q .NE. 125) then 27! LCOV_EXCL_START 28 write(*,*) 'Error ',q,' != 125 ' 29! LCOV_EXCL_STOP 30 endif 31 32 call ceedbasisdestroy(b,err) 33 call ceeddestroy(ceed,err) 34 35 end 36!----------------------------------------------------------------------- 37