1!----------------------------------------------------------------------- 2! 3! Header with QFunctions 4! 5 include 't401-qfunction-f.h' 6!----------------------------------------------------------------------- 7 program test 8 implicit none 9 include 'ceedf.h' 10 11 integer ceed,err 12 integer qf_setup,qf_mass 13 character arg*32 14 15! LCOV_EXCL_START 16 external setup,mass 17! LCOV_EXCL_STOP 18 19 call getarg(1,arg) 20 call ceedinit(trim(arg)//char(0),ceed,err) 21 22 call ceedqfunctioncreateinterior(ceed,1,setup,& 23 &SOURCE_DIR& 24 &//'t400-qfunction.h:setup'//char(0),qf_setup,err) 25 call ceedqfunctionaddinput(qf_setup,'w', 1,ceed_eval_weight,err) 26 call ceedqfunctionaddoutput(qf_setup,'qdata',1,ceed_eval_none,err) 27 28 call ceedqfunctioncreateinterior(ceed,1,mass,& 29 &SOURCE_DIR& 30 &//'t400-qfunction.h:mass'//char(0),qf_mass,err) 31 call ceedqfunctionaddinput(qf_mass,'qdata',1,ceed_eval_none,err) 32 call ceedqfunctionaddinput(qf_mass,'u',1,ceed_eval_interp,err) 33 call ceedqfunctionaddoutput(qf_mass,'v',1,ceed_eval_interp,err) 34 35 call ceedqfunctionview(qf_setup,err) 36 call ceedqfunctionview(qf_mass,err) 37 38 call ceedqfunctiondestroy(qf_setup,err) 39 call ceedqfunctiondestroy(qf_mass,err) 40 call ceeddestroy(ceed,err) 41 end 42!----------------------------------------------------------------------- 43