152bfb9bbSJeremy L Thompson!----------------------------------------------------------------------- 252bfb9bbSJeremy L Thompson! 352bfb9bbSJeremy L Thompson! Header with common subroutine 452bfb9bbSJeremy L Thompson! 552bfb9bbSJeremy L Thompson include 't320-basis-f.h' 652bfb9bbSJeremy L Thompson!----------------------------------------------------------------------- 752bfb9bbSJeremy L Thompson program test 81f9a83abSJed Brown implicit none 9ec3da8bcSJed Brown include 'ceed/fortran.h' 1052bfb9bbSJeremy L Thompson 1152bfb9bbSJeremy L Thompson integer ceed,err 1252bfb9bbSJeremy L Thompson integer p,q,d 1352bfb9bbSJeremy L Thompson parameter(p=6) 1452bfb9bbSJeremy L Thompson parameter(q=4) 1552bfb9bbSJeremy L Thompson parameter(d=2) 1652bfb9bbSJeremy L Thompson 1752bfb9bbSJeremy L Thompson real*8 qref(d*q) 1852bfb9bbSJeremy L Thompson real*8 qweight(q) 1952bfb9bbSJeremy L Thompson real*8 interp(p*q) 2052bfb9bbSJeremy L Thompson real*8 grad(d*p*q) 2152bfb9bbSJeremy L Thompson 2252bfb9bbSJeremy L Thompson integer b 2352bfb9bbSJeremy L Thompson 2452bfb9bbSJeremy L Thompson character arg*32 2552bfb9bbSJeremy L Thompson 2652bfb9bbSJeremy L Thompson call getarg(1,arg) 2752bfb9bbSJeremy L Thompson 2852bfb9bbSJeremy L Thompson call ceedinit(trim(arg)//char(0),ceed,err) 2952bfb9bbSJeremy L Thompson 3052bfb9bbSJeremy L Thompson call buildmats(qref,qweight,interp,grad) 3152bfb9bbSJeremy L Thompson 3252bfb9bbSJeremy L Thompson call ceedbasiscreateh1(ceed,ceed_triangle,1,p,q,interp,grad,qref,qweight,& 3352bfb9bbSJeremy L Thompson & b,err) 3452bfb9bbSJeremy L Thompson call ceedbasisview(b,err) 35*13a7d540SJeremy L Thompson call ceedbasissetnumviewtabs(b,1,err) 36*13a7d540SJeremy L Thompson call ceedbasisview(b,err) 3752bfb9bbSJeremy L Thompson 3852bfb9bbSJeremy L Thompson call ceedbasisdestroy(b,err) 3952bfb9bbSJeremy L Thompson call ceeddestroy(ceed,err) 4052bfb9bbSJeremy L Thompson 4152bfb9bbSJeremy L Thompson end 4252bfb9bbSJeremy L Thompson!----------------------------------------------------------------------- 43