File |
Line number |
Procedure |
Code |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
31 |
GAD_PPM_P3E_R |
_RL ftmp |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
46 |
GAD_PPM_P3E_R |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
47 |
GAD_PPM_P3E_R |
floc(-2) = ftmp |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
48 |
GAD_PPM_P3E_R |
& + mloc(-2)*(fbar(ir-2)-ftmp) |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
52 |
GAD_PPM_P3E_R |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
53 |
GAD_PPM_P3E_R |
floc(+1) = ftmp |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
54 |
GAD_PPM_P3E_R |
& + mloc(+1)*(fbar(ir+1)-ftmp) |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
31 |
GAD_PPM_P3E_X |
_RL ftmp |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
46 |
GAD_PPM_P3E_X |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
47 |
GAD_PPM_P3E_X |
floc(-2) = ftmp |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
48 |
GAD_PPM_P3E_X |
& + mloc(-2)*(fbar(ix-2)-ftmp) |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
52 |
GAD_PPM_P3E_X |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
53 |
GAD_PPM_P3E_X |
floc(+1) = ftmp |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
54 |
GAD_PPM_P3E_X |
& + mloc(+1)*(fbar(ix+1)-ftmp) |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
31 |
GAD_PPM_P3E_Y |
_RL ftmp |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
47 |
GAD_PPM_P3E_Y |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
48 |
GAD_PPM_P3E_Y |
floc(-2) = ftmp |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
49 |
GAD_PPM_P3E_Y |
& + mloc(-2)*(fbar(iy-2)-ftmp) |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
53 |
GAD_PPM_P3E_Y |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
54 |
GAD_PPM_P3E_Y |
floc(+1) = ftmp |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
55 |
GAD_PPM_P3E_Y |
& + mloc(+1)*(fbar(iy+1)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
32 |
GAD_PQM_P5E_R |
_RL ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
48 |
GAD_PQM_P5E_R |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
49 |
GAD_PQM_P5E_R |
floc(-2) = ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
50 |
GAD_PQM_P5E_R |
& + mloc(-2)*(fbar(ir-2)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
51 |
GAD_PQM_P5E_R |
ftmp = 2. _d 0 * floc(-2) - floc(-1) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
52 |
GAD_PQM_P5E_R |
floc(-3) = ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
53 |
GAD_PQM_P5E_R |
& + mloc(-3)*(fbar(ir-3)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
58 |
GAD_PQM_P5E_R |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
59 |
GAD_PQM_P5E_R |
floc(+1) = ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
60 |
GAD_PQM_P5E_R |
& + mloc(+1)*(fbar(ir+1)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
61 |
GAD_PQM_P5E_R |
ftmp = 2. _d 0 * floc(+1) - floc(+0) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
62 |
GAD_PQM_P5E_R |
floc(+2) = ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
63 |
GAD_PQM_P5E_R |
& + mloc(+2)*(fbar(ir+2)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
32 |
GAD_PQM_P5E_X |
_RL ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
48 |
GAD_PQM_P5E_X |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
49 |
GAD_PQM_P5E_X |
floc(-2) = ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
50 |
GAD_PQM_P5E_X |
& + mloc(-2)*(fbar(ix-2)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
51 |
GAD_PQM_P5E_X |
ftmp = 2. _d 0 * floc(-2) - floc(-1) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
52 |
GAD_PQM_P5E_X |
floc(-3) = ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
53 |
GAD_PQM_P5E_X |
& + mloc(-3)*(fbar(ix-3)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
58 |
GAD_PQM_P5E_X |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
59 |
GAD_PQM_P5E_X |
floc(+1) = ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
60 |
GAD_PQM_P5E_X |
& + mloc(+1)*(fbar(ix+1)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
61 |
GAD_PQM_P5E_X |
ftmp = 2. _d 0 * floc(+1) - floc(+0) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
62 |
GAD_PQM_P5E_X |
floc(+2) = ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
63 |
GAD_PQM_P5E_X |
& + mloc(+2)*(fbar(ix+2)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
32 |
GAD_PQM_P5E_Y |
_RL ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
49 |
GAD_PQM_P5E_Y |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
50 |
GAD_PQM_P5E_Y |
floc(-2) = ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
51 |
GAD_PQM_P5E_Y |
& + mloc(-2)*(fbar(iy-2)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
52 |
GAD_PQM_P5E_Y |
ftmp = 2. _d 0 * floc(-2) - floc(-1) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
53 |
GAD_PQM_P5E_Y |
floc(-3) = ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
54 |
GAD_PQM_P5E_Y |
& + mloc(-3)*(fbar(iy-3)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
59 |
GAD_PQM_P5E_Y |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
60 |
GAD_PQM_P5E_Y |
floc(+1) = ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
61 |
GAD_PQM_P5E_Y |
& + mloc(+1)*(fbar(iy+1)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
62 |
GAD_PQM_P5E_Y |
ftmp = 2. _d 0 * floc(+1) - floc(+0) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
63 |
GAD_PQM_P5E_Y |
floc(+2) = ftmp |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
64 |
GAD_PQM_P5E_Y |
& + mloc(+2)*(fbar(iy+2)-ftmp) |