1!----------------------------------------------------------------------- 2! 3! Header with common subroutine 4! 5 include 't320-basis-f.h' 6!----------------------------------------------------------------------- 7 program test 8 implicit none 9 include 'ceed/fortran.h' 10 11 integer ceed,err 12 integer p,q,d 13 parameter(p=6) 14 parameter(q=4) 15 parameter(d=2) 16 17 real*8 qref(d*q) 18 real*8 qweight(q) 19 real*8 interp(p*q) 20 real*8 grad(d*p*q) 21 22 integer b 23 24 character arg*32 25 26 call getarg(1,arg) 27 28 call ceedinit(trim(arg)//char(0),ceed,err) 29 30 call buildmats(qref,qweight,interp,grad) 31 32 call ceedbasiscreateh1(ceed,ceed_triangle,1,p,q,interp,grad,qref,qweight,& 33 & b,err) 34 call ceedbasisview(b,err) 35 call ceedbasissetnumviewtabs(b,1,err) 36 call ceedbasisview(b,err) 37 38 call ceedbasisdestroy(b,err) 39 call ceeddestroy(ceed,err) 40 41 end 42!----------------------------------------------------------------------- 43