Symbol Description Uses
filek 30



File Line number Procedure Code
./optim/optim_readdata.F 302 OPTIM_READDATA
                              read( funit ) filek
./pkg/ctrl/ctrl.h 170 NO PROCEDURE
     &        filek,
./pkg/ctrl/ctrl.h 190 NO PROCEDURE
      integer        filek
./pkg/ctrl/ctrl_set_unpack_xy.F 184 CTRL_SET_UNPACK_XY
               read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xy.F 185 CTRL_SET_UNPACK_XY
               if (filek .NE. 1) then
./pkg/ctrl/ctrl_set_unpack_xy.F 187 CTRL_SET_UNPACK_XY
     &                 filek, 1
./pkg/ctrl/ctrl_set_unpack_xy.F 292 CTRL_SET_UNPACK_XY
               read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xy.F 293 CTRL_SET_UNPACK_XY
               if (filek .NE. k) then
./pkg/ctrl/ctrl_set_unpack_xy.F 295 CTRL_SET_UNPACK_XY
     &                 filek, k
./pkg/ctrl/ctrl_set_unpack_xy.F 484 CTRL_SET_UNPACK_XY
          read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xy.F 490 CTRL_SET_UNPACK_XY
          if (filek .NE. 1) then
./pkg/ctrl/ctrl_set_unpack_xy.F 492 CTRL_SET_UNPACK_XY
     &                 filek, 1
./pkg/ctrl/ctrl_set_unpack_xyz.F 204 CTRL_SET_UNPACK_XYZ
               read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xyz.F 205 CTRL_SET_UNPACK_XYZ
               if (filek .NE. k) then
./pkg/ctrl/ctrl_set_unpack_xyz.F 207 CTRL_SET_UNPACK_XYZ
     &                 filek, k
./pkg/ctrl/ctrl_set_unpack_xyz.F 396 CTRL_SET_UNPACK_XYZ
          read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xyz.F 402 CTRL_SET_UNPACK_XYZ
          if (filek .NE. k) then
./pkg/ctrl/ctrl_set_unpack_xyz.F 404 CTRL_SET_UNPACK_XYZ
     &                 filek, k
./pkg/ctrl/ctrl_set_unpack_xz.F 233 CTRL_SET_UNPACK_XZ
                  read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xz.F 234 CTRL_SET_UNPACK_XZ
                  if (filek .NE. k) then
./pkg/ctrl/ctrl_set_unpack_xz.F 236 CTRL_SET_UNPACK_XZ
     &                    filek, k
./pkg/ctrl/ctrl_set_unpack_xz.F 323 CTRL_SET_UNPACK_XZ
               read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_xz.F 324 CTRL_SET_UNPACK_XZ
               if (filek .NE. k) then
./pkg/ctrl/ctrl_set_unpack_xz.F 326 CTRL_SET_UNPACK_XZ
     &                 filek, k
./pkg/ctrl/ctrl_set_unpack_yz.F 233 CTRL_SET_UNPACK_YZ
                  read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_yz.F 234 CTRL_SET_UNPACK_YZ
                  if (filek .NE. k) then
./pkg/ctrl/ctrl_set_unpack_yz.F 236 CTRL_SET_UNPACK_YZ
     &                    filek, k
./pkg/ctrl/ctrl_set_unpack_yz.F 321 CTRL_SET_UNPACK_YZ
               read(cunit) filek
./pkg/ctrl/ctrl_set_unpack_yz.F 322 CTRL_SET_UNPACK_YZ
               if (filek .NE. k) then
./pkg/ctrl/ctrl_set_unpack_yz.F 324 CTRL_SET_UNPACK_YZ
     &                 filek, k