175affc3bSjeremylt!----------------------------------------------------------------------- 275affc3bSjeremylt program test 31f9a83abSJed Brown implicit none 4ec3da8bcSJed 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) 18*13a7d540SJeremy L Thompson call ceedqfunctionsetnumviewtabs(qf_mass,1,err) 19*13a7d540SJeremy L Thompson call ceedqfunctionview(qf_mass,err) 2075affc3bSjeremylt 2175affc3bSjeremylt call ceedqfunctiondestroy(qf_setup,err) 2275affc3bSjeremylt call ceedqfunctiondestroy(qf_mass,err) 2375affc3bSjeremylt call ceeddestroy(ceed,err) 2475affc3bSjeremylt end 2575affc3bSjeremylt!----------------------------------------------------------------------- 26