| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd.F |
206 |
ADMTLM_DSVD |
integer l, ilinsysinfo, ii, jj |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
201 |
CTRL_SET_PACK_YZ |
ii=mod((i-1)*nr*sny+(k-1)*sny+j-1,snx)+1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
209 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
217 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
225 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
237 |
CTRL_SET_PACK_YZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
322 |
CTRL_SET_PACK_YZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
53 |
CTRL_SET_PACK_YZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
183 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
265 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
273 |
CTRL_SET_UNPACK_XY |
do ii = 1, cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
274 |
CTRL_SET_UNPACK_XY |
cbuff(ii) = cbuffGlobal(ii) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
50 |
CTRL_SET_UNPACK_XY |
integer ii |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
204 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
270 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
49 |
CTRL_SET_PACK_XY |
integer ii |
|
./pkg/ctrl/ctrl_set_fname.F |
40 |
CTRL_SET_FNAME |
integer ii |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
190 |
CTRL_SET_UNPACK_XZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
265 |
CTRL_SET_UNPACK_XZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
52 |
CTRL_SET_UNPACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_pack.F |
67 |
CTRL_PACK |
integer ii |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
190 |
CTRL_SET_UNPACK_YZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
198 |
CTRL_SET_UNPACK_YZ |
ii=mod((i-1)*nr*sny+(k-1)*sny+j-1,snx)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
203 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
206 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
207 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
215 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
264 |
CTRL_SET_UNPACK_YZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
52 |
CTRL_SET_UNPACK_YZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
204 |
CTRL_SET_UNPACK_XYZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
50 |
CTRL_SET_UNPACK_XYZ |
integer ii |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
228 |
CTRL_SET_PACK_XYZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
50 |
CTRL_SET_PACK_XYZ |
integer ii |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
233 |
CTRL_SET_PACK_XZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
315 |
CTRL_SET_PACK_XZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
53 |
CTRL_SET_PACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_unpack.F |
70 |
CTRL_UNPACK |
integer ii |