1*75affc3bSjeremylt!----------------------------------------------------------------------- 2*75affc3bSjeremylt program test 3*75affc3bSjeremylt 4*75affc3bSjeremylt include 'ceedf.h' 5*75affc3bSjeremylt 6*75affc3bSjeremylt integer ceed,err 7*75affc3bSjeremylt integer qf_setup,qf_mass 8*75affc3bSjeremylt character arg*32 9*75affc3bSjeremylt 10*75affc3bSjeremylt call getarg(1,arg) 11*75affc3bSjeremylt call ceedinit(trim(arg)//char(0),ceed,err) 12*75affc3bSjeremylt 13*75affc3bSjeremylt call ceedqfunctioncreateinteriorbyname(ceed,'Mass1DBuild',qf_setup,err) 14*75affc3bSjeremylt call ceedqfunctioncreateinteriorbyname(ceed,'MassApply',qf_mass,err) 15*75affc3bSjeremylt 16*75affc3bSjeremylt call ceedqfunctionview(qf_setup,err) 17*75affc3bSjeremylt call ceedqfunctionview(qf_mass,err) 18*75affc3bSjeremylt 19*75affc3bSjeremylt call ceedqfunctiondestroy(qf_setup,err) 20*75affc3bSjeremylt call ceedqfunctiondestroy(qf_mass,err) 21*75affc3bSjeremylt call ceeddestroy(ceed,err) 22*75affc3bSjeremylt end 23*75affc3bSjeremylt!----------------------------------------------------------------------- 24