| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
2517 |
TABLUP |
_RL x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2 |
|
./pkg/fizhi/fizhi_lwrad.F |
2562 |
TABLUP |
bb = coef2(ip,iw+1,nn)*(1.-fp)+coef2(ip+1,iw+1,nn)*fp |
|
./pkg/fizhi/fizhi_lwrad.F |
2563 |
TABLUP |
t1 = ba*(1.-fw) + bb*fw |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
14 |
NO PROCEDURE |
LOGICAL FUNCTION QUADROOT(aa,bb,cc,xx) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
22 |
NO PROCEDURE |
_RL aa,bb,cc |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
29 |
NO PROCEDURE |
b0 = abs(bb) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
31 |
NO PROCEDURE |
sq = bb * bb - 4. _d 0 * aa * cc |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
41 |
NO PROCEDURE |
xx(1) = - bb + sq |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
42 |
NO PROCEDURE |
xx(2) = - bb - sq |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
61 |
NO PROCEDURE |
xx(1) = - cc / bb |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
62 |
NO PROCEDURE |
xx(2) = - cc / bb |