| File |
Line number |
Procedure |
Code |
|
./lsopt/lsline.F |
129 |
LSLINE |
call SIMUL( indic, nn, xdiff, fnew, gg ) |
|
./lsopt/lsline.F |
131 |
LSLINE |
fp = DDOT( nn, dd, 1, gg, 1 ) |
|
./lsopt/lsline.F |
57 |
LSLINE |
double precision xx(nn), dd(nn), gg(nn), xdiff(nn) |
|
./lsopt/lsline.F |
8 |
LSLINE |
& , dd, gg, xx, xdiff |
|
./pkg/fizhi/fizhi_lwrad.F |
1116 |
IRRAD |
gg=(g1+g2+g3)/(w1+w2+w3) |
|
./pkg/fizhi/fizhi_lwrad.F |
1121 |
IRRAD |
ff=0.5+(0.3739+(0.0076+0.1185*gg)*gg)*gg |
|
./pkg/fizhi/fizhi_lwrad.F |
621 |
IRRAD |
_RL w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2 |
|
./lsopt/lsopt_top.F |
261 |
LSOPT_TOP |
print *, 'pathei-lsopt xx(1), gg(1) ', xx(1), gg(1) |
|
./lsopt/lsopt_top.F |
263 |
LSOPT_TOP |
call SIMUL( indic, nn, xx, ff, gg ) |
|
./lsopt/lsopt_top.F |
266 |
LSOPT_TOP |
print *, 'pathei: nach simul: xx(1), gg(1) = ', xx(1), gg(1) |
|
./lsopt/lsopt_top.F |
276 |
LSOPT_TOP |
call DOSTORE( nn, gg, .true., 2 ) |
|
./lsopt/lsopt_top.F |
282 |
LSOPT_TOP |
call LSWRI( isize, iiter, nn, xx, gg, lphprint ) |
|
./lsopt/lsopt_top.F |
287 |
LSOPT_TOP |
gnorm0 = DNRM2( nn, gg, 1 ) |
|
./lsopt/lsopt_top.F |
2 |
LSOPT_TOP |
subroutine LSOPT_TOP( nn, xx, ff, gg, simul, optline |
|
./lsopt/lsopt_top.F |
354 |
LSOPT_TOP |
call DOSTORE( nn, gg, .false., 2 ) |
|
./lsopt/lsopt_top.F |
406 |
LSOPT_TOP |
gold(i) = gg(i) |
|
./lsopt/lsopt_top.F |
423 |
LSOPT_TOP |
& , gg, dd, xx, xdiff |
|
./lsopt/lsopt_top.F |
442 |
LSOPT_TOP |
& , dd, gg, xx, xdiff |
|
./lsopt/lsopt_top.F |
451 |
LSOPT_TOP |
call DOSTORE( nn, gg, .true., 2 ) |
|
./lsopt/lsopt_top.F |
453 |
LSOPT_TOP |
call LSWRI( isize, iiter, nn, xx, gg, lphprint ) |
|
./lsopt/lsopt_top.F |
456 |
LSOPT_TOP |
gnorm = DNRM2( nn, gg, 1 ) |
|
./lsopt/lsopt_top.F |
498 |
LSOPT_TOP |
gold(i) = gg(i)-gold(i) |
|
./lsopt/lsopt_top.F |
605 |
LSOPT_TOP |
& , gg, dd, xx, xdiff |
|
./lsopt/lsopt_top.F |
60 |
LSOPT_TOP |
double precision xx(nn), ff, gg(nn), epsx, fmin, epsg |
|
./lsopt/lsopt_top.F |
634 |
LSOPT_TOP |
$ , ' norm of g...................', DNRM2( nn, gg, 1 ) |
|
./lsopt/lswri.F |
23 |
LSWRI |
real*4 xx(NN), gg(NN) |
|
./lsopt/lswri.F |
2 |
LSWRI |
subroutine LSWRI( isize, phniter, NN, xx, gg, lphprint ) |
|
./lsopt/lswri.F |
52 |
LSWRI |
write(95,REC=phniter+1) gg |
|
./lsopt/lsupdxx.F |
102 |
LSUPDXX |
dotdg = DDOT( nn, dd, 1, gg, 1 ) |
|
./lsopt/lsupdxx.F |
39 |
LSUPDXX |
double precision gg(nn), dd(nn), xx(nn), xdiff(nn) |
|
./lsopt/lsupdxx.F |
6 |
LSUPDXX |
& , gg, dd, xx, xdiff |
|
./lsopt/lsupdxx.F |
71 |
LSUPDXX |
dd(i) = -gg(i)*preco |
|
./lsopt/lsupdxx.F |
86 |
LSUPDXX |
dd(i) = -gg(i) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
64 |
CTRL_SET_PACK_YZ |
_RL gg |
|
./pkg/ctrl/ctrl_obcsvol.F |
71 |
CTRL_OBCSVOL |
_RL gg |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
72 |
CTRL_SET_UNPACK_XZ |
_RL gg |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
72 |
CTRL_SET_UNPACK_YZ |
_RL gg |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
134 |
CTRL_MASK_SET_YZ |
gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
139 |
CTRL_MASK_SET_YZ |
call ACTIVE_WRITE_YZ_LOC( fname, gg, iobcs, 0, mythid, dummy) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
60 |
CTRL_MASK_SET_YZ |
_RL gg (1-oly:sny+oly,nr,nsx,nsy) |
|
./pkg/ctrl/ctrl_volflux.F |
75 |
CTRL_VOLFLUX |
_RL gg |
|
./pkg/ctrl/ctrl_obcsbal.F |
74 |
CTRL_OBCSBAL |
_RL gg |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
64 |
CTRL_SET_PACK_XZ |
_RL gg |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
133 |
CTRL_MASK_SET_XZ |
gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
138 |
CTRL_MASK_SET_XZ |
call ACTIVE_WRITE_XZ_LOC( fname, gg, iobcs, 0, mythid, dummy ) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
60 |
CTRL_MASK_SET_XZ |
_RL gg (1-olx:snx+olx,nr,nsx,nsy) |