18980d4a7Sjeremylt!----------------------------------------------------------------------- 28980d4a7Sjeremylt program test 31f9a83abSJed Brown implicit none 4ec3da8bcSJed Brown include 'ceed/fortran.h' 58980d4a7Sjeremylt 68980d4a7Sjeremylt integer ceed,err 78980d4a7Sjeremylt integer b 88980d4a7Sjeremylt 98980d4a7Sjeremylt character arg*32 108980d4a7Sjeremylt 118980d4a7Sjeremylt call getarg(1,arg) 128980d4a7Sjeremylt 138980d4a7Sjeremylt call ceedinit(trim(arg)//char(0),ceed,err) 148980d4a7Sjeremylt call ceedbasiscreatetensorh1lagrange(ceed,1,1,4,4,ceed_gauss_lobatto,b,& 158980d4a7Sjeremylt & err) 168980d4a7Sjeremylt call ceedbasisview(b,err) 178980d4a7Sjeremylt call ceedbasisdestroy(b,err) 188980d4a7Sjeremylt 198980d4a7Sjeremylt call ceedbasiscreatetensorh1lagrange(ceed,1,1,4,4,ceed_gauss,b,err) 208980d4a7Sjeremylt call ceedbasisview(b,err) 21*13a7d540SJeremy L Thompson call ceedbasissetnumviewtabs(b,1,err) 22*13a7d540SJeremy L Thompson call ceedbasisview(b,err) 238980d4a7Sjeremylt call ceedbasisdestroy(b,err) 24*13a7d540SJeremy L Thompson 258980d4a7Sjeremylt call ceeddestroy(ceed,err) 268980d4a7Sjeremylt 278980d4a7Sjeremylt end 288980d4a7Sjeremylt!----------------------------------------------------------------------- 29