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