175affc3bSjeremylt!----------------------------------------------------------------------- 275affc3bSjeremylt program test 31f9a83abSJed Brown implicit none 4*ec3da8bcSJed Brown include 'ceed/fortran.h' 575affc3bSjeremylt 675affc3bSjeremylt integer ceed,err 775affc3bSjeremylt integer qf_setup,qf_mass 875affc3bSjeremylt character arg*32 975affc3bSjeremylt 1075affc3bSjeremylt call getarg(1,arg) 1175affc3bSjeremylt call ceedinit(trim(arg)//char(0),ceed,err) 1275affc3bSjeremylt 1375affc3bSjeremylt call ceedqfunctioncreateinteriorbyname(ceed,'Mass1DBuild',qf_setup,err) 1475affc3bSjeremylt call ceedqfunctioncreateinteriorbyname(ceed,'MassApply',qf_mass,err) 1575affc3bSjeremylt 1675affc3bSjeremylt call ceedqfunctionview(qf_setup,err) 1775affc3bSjeremylt call ceedqfunctionview(qf_mass,err) 1875affc3bSjeremylt 1975affc3bSjeremylt call ceedqfunctiondestroy(qf_setup,err) 2075affc3bSjeremylt call ceedqfunctiondestroy(qf_mass,err) 2175affc3bSjeremylt call ceeddestroy(ceed,err) 2275affc3bSjeremylt end 2375affc3bSjeremylt!----------------------------------------------------------------------- 24