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