1!----------------------------------------------------------------------- 2 program test 3 4 include 'ceedf.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 22 if (p .NE. 64) then 23! LCOV_EXCL_START 24 write(*,*) 'Error ',p,' != 64 ' 25! LCOV_EXCL_STOP 26 endif 27 if (q .NE. 125) then 28! LCOV_EXCL_START 29 write(*,*) 'Error ',q,' != 125 ' 30! LCOV_EXCL_STOP 31 endif 32 33 call ceedbasisdestroy(b,err) 34 call ceeddestroy(ceed,err) 35 36 end 37!----------------------------------------------------------------------- 38