175affc3bSjeremylt!----------------------------------------------------------------------- 2*752c3701SJeremy L Thompson! 3*752c3701SJeremy L Thompson! Header with QFunctions 4*752c3701SJeremy L Thompson! 5*752c3701SJeremy L Thompson include 't401-qfunction-f.h' 675affc3bSjeremylt!----------------------------------------------------------------------- 775affc3bSjeremylt program test 81f9a83abSJed Brown implicit none 975affc3bSjeremylt include 'ceedf.h' 1075affc3bSjeremylt 1175affc3bSjeremylt integer ceed,err 1275affc3bSjeremylt integer qf_setup,qf_mass 1375affc3bSjeremylt character arg*32 1475affc3bSjeremylt 15f1a4e9feSjeremylt! LCOV_EXCL_START 1675affc3bSjeremylt external setup,mass 17f1a4e9feSjeremylt! LCOV_EXCL_STOP 1875affc3bSjeremylt 1975affc3bSjeremylt call getarg(1,arg) 2075affc3bSjeremylt call ceedinit(trim(arg)//char(0),ceed,err) 2175affc3bSjeremylt 2275affc3bSjeremylt call ceedqfunctioncreateinterior(ceed,1,setup,& 2375affc3bSjeremylt &SOURCE_DIR& 2475affc3bSjeremylt &//'t400-qfunction.h:setup'//char(0),qf_setup,err) 2584e209c4Sjeremylt call ceedqfunctionaddinput(qf_setup,'w', 1,ceed_eval_weight,err) 2684e209c4Sjeremylt call ceedqfunctionaddoutput(qf_setup,'qdata',1,ceed_eval_none,err) 2775affc3bSjeremylt 2875affc3bSjeremylt call ceedqfunctioncreateinterior(ceed,1,mass,& 2975affc3bSjeremylt &SOURCE_DIR& 3075affc3bSjeremylt &//'t400-qfunction.h:mass'//char(0),qf_mass,err) 3184e209c4Sjeremylt call ceedqfunctionaddinput(qf_mass,'qdata',1,ceed_eval_none,err) 3275affc3bSjeremylt call ceedqfunctionaddinput(qf_mass,'u',1,ceed_eval_interp,err) 3375affc3bSjeremylt call ceedqfunctionaddoutput(qf_mass,'v',1,ceed_eval_interp,err) 3475affc3bSjeremylt 3575affc3bSjeremylt call ceedqfunctionview(qf_setup,err) 3675affc3bSjeremylt call ceedqfunctionview(qf_mass,err) 3775affc3bSjeremylt 3875affc3bSjeremylt call ceedqfunctiondestroy(qf_setup,err) 3975affc3bSjeremylt call ceedqfunctiondestroy(qf_mass,err) 4075affc3bSjeremylt call ceeddestroy(ceed,err) 4175affc3bSjeremylt end 4275affc3bSjeremylt!----------------------------------------------------------------------- 43