| File |
Line number |
Procedure |
Code |
|
./optim/optim_readdata.F |
352 |
OPTIM_READDATA |
read( funit ) filek |
|
./pkg/ctrl/ctrl.h |
180 |
NO PROCEDURE |
& filek, |
|
./pkg/ctrl/ctrl.h |
200 |
NO PROCEDURE |
integer filek |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
198 |
CTRL_SET_UNPACK_XY |
read(cunit) filek |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
199 |
CTRL_SET_UNPACK_XY |
if (filek .NE. 1) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
201 |
CTRL_SET_UNPACK_XY |
& filek, 1 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
308 |
CTRL_SET_UNPACK_XY |
read(cunit) filek |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
309 |
CTRL_SET_UNPACK_XY |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
311 |
CTRL_SET_UNPACK_XY |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
505 |
CTRL_SET_UNPACK_XY |
read(cunit) filek |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
511 |
CTRL_SET_UNPACK_XY |
if (filek .NE. 1) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
513 |
CTRL_SET_UNPACK_XY |
& filek, 1 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
221 |
CTRL_SET_UNPACK_XYZ |
read(cunit) filek |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
222 |
CTRL_SET_UNPACK_XYZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
224 |
CTRL_SET_UNPACK_XYZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
414 |
CTRL_SET_UNPACK_XYZ |
read(cunit) filek |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
420 |
CTRL_SET_UNPACK_XYZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
422 |
CTRL_SET_UNPACK_XYZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
213 |
CTRL_SET_UNPACK_XZ |
read(cunit) filek |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
214 |
CTRL_SET_UNPACK_XZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
216 |
CTRL_SET_UNPACK_XZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
300 |
CTRL_SET_UNPACK_XZ |
read(cunit) filek |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
301 |
CTRL_SET_UNPACK_XZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
303 |
CTRL_SET_UNPACK_XZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
213 |
CTRL_SET_UNPACK_YZ |
read(cunit) filek |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
214 |
CTRL_SET_UNPACK_YZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
216 |
CTRL_SET_UNPACK_YZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
300 |
CTRL_SET_UNPACK_YZ |
read(cunit) filek |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
301 |
CTRL_SET_UNPACK_YZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
303 |
CTRL_SET_UNPACK_YZ |
& filek, k |