1!----------------------------------------------------------------------- 2 program test 3 implicit none 4 include 'ceed/fortran.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 ceedbasissetnumviewtabs(b,1,err) 22 call ceedbasisview(b,err) 23 call ceedbasisdestroy(b,err) 24 25 call ceeddestroy(ceed,err) 26 27 end 28!----------------------------------------------------------------------- 29