1!----------------------------------------------------------------------- 2 program test 3 4 include 'ceedf.h' 5 6 integer ceed,err 7 integer b 8 9 character arg*32 10 11 call getarg(1,arg) 12 13 call ceedinit(trim(arg)//char(0),ceed,err) 14 call ceedbasiscreatetensorh1lagrange(ceed,1,1,4,4,ceed_gauss_lobatto,b,& 15 & err) 16 call ceedbasisview(b,err) 17 call ceedbasisdestroy(b,err) 18 19 call ceedbasiscreatetensorh1lagrange(ceed,1,1,4,4,ceed_gauss,b,err) 20 call ceedbasisview(b,err) 21 call ceedbasisdestroy(b,err) 22 call ceeddestroy(ceed,err) 23 24 end 25!----------------------------------------------------------------------- 26