Symbol Description Uses
cfile3 60


File Line number Procedure Code
./pkg/ctrl/ctrl_set_pack_xy.F 121 CTRL_SET_PACK_XY 
         write(cfile3(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_set_pack_xy.F 126 CTRL_SET_PACK_XY 
            write(cfile3(1:80),'(a,I3.3,a,I4.4,a)')
./pkg/ctrl/ctrl_set_pack_xy.F 133 CTRL_SET_PACK_XY 
            write(cfile3(1:80),'(a,I3.3,a,I4.4,a)')
./pkg/ctrl/ctrl_set_pack_xy.F 143 CTRL_SET_PACK_XY 
         open( cunit3, file=cfile3, status='unknown',
./pkg/ctrl/ctrl_set_pack_xy.F 402 CTRL_SET_PACK_XY 
      character*(80) cfile2, cfile3
./pkg/ctrl/ctrl_set_pack_xy.F 436 CTRL_SET_PACK_XY 
         write(cfile3(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_set_pack_xy.F 440 CTRL_SET_PACK_XY 
            write(cfile3(1:80),'(2a)') fname(1:il),'.pack_ctrl_dim'
./pkg/ctrl/ctrl_set_pack_xy.F 443 CTRL_SET_PACK_XY 
            write(cfile3(1:80),'(2a)') fname(1:il),'.pack_grad_dim'
./pkg/ctrl/ctrl_set_pack_xy.F 503 CTRL_SET_PACK_XY 
      call WRITE_REC_3D_RL( cfile3, ctrlprec,
./pkg/ctrl/ctrl_set_pack_xy.F 71 CTRL_SET_PACK_XY 
      character*(80) cfile2, cfile3
./pkg/ctrl/ctrl_set_pack_xyz.F 131 CTRL_SET_PACK_XYZ 
         write(cfile3(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_set_pack_xyz.F 136 CTRL_SET_PACK_XYZ 
            write(cfile3(1:80),'(a,I3.3,a,I4.4,a)')
./pkg/ctrl/ctrl_set_pack_xyz.F 143 CTRL_SET_PACK_XYZ 
            write(cfile3(1:80),'(a,I3.3,a,I4.4,a)')
./pkg/ctrl/ctrl_set_pack_xyz.F 153 CTRL_SET_PACK_XYZ 
         open( cunit3, file=cfile3, status='unknown',
./pkg/ctrl/ctrl_set_pack_xyz.F 317 CTRL_SET_PACK_XYZ 
      character*(80) cfile2, cfile3
./pkg/ctrl/ctrl_set_pack_xyz.F 351 CTRL_SET_PACK_XYZ 
         write(cfile3(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_set_pack_xyz.F 355 CTRL_SET_PACK_XYZ 
            write(cfile3(1:80),'(2a)') fname(1:il),'.pack_ctrl_dim'
./pkg/ctrl/ctrl_set_pack_xyz.F 358 CTRL_SET_PACK_XYZ 
            write(cfile3(1:80),'(2a)') fname(1:il),'.pack_grad_dim'
./pkg/ctrl/ctrl_set_pack_xyz.F 422 CTRL_SET_PACK_XYZ 
      call WRITE_REC_3D_RL( cfile3, ctrlprec,
./pkg/ctrl/ctrl_set_pack_xyz.F 77 CTRL_SET_PACK_XYZ 
      character*(80) cfile2, cfile3
./pkg/ctrl/ctrl_set_pack_xz.F 138 CTRL_SET_PACK_XZ 
         write(cfile3(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_set_pack_xz.F 143 CTRL_SET_PACK_XZ 
            write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')
./pkg/ctrl/ctrl_set_pack_xz.F 150 CTRL_SET_PACK_XZ 
            write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')
./pkg/ctrl/ctrl_set_pack_xz.F 160 CTRL_SET_PACK_XZ 
         open( cunit3, file=cfile3, status='unknown',
./pkg/ctrl/ctrl_set_pack_xz.F 67 CTRL_SET_PACK_XZ 
      character*(80) cfile2, cfile3
./pkg/ctrl/ctrl_set_pack_yz.F 138 CTRL_SET_PACK_YZ 
         write(cfile3(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_set_pack_yz.F 143 CTRL_SET_PACK_YZ 
            write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')
./pkg/ctrl/ctrl_set_pack_yz.F 150 CTRL_SET_PACK_YZ 
            write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')
./pkg/ctrl/ctrl_set_pack_yz.F 160 CTRL_SET_PACK_YZ 
         open( cunit3, file=cfile3, status='unknown',
./pkg/ctrl/ctrl_set_pack_yz.F 67 CTRL_SET_PACK_YZ 
      character*(80) cfile2, cfile3
./pkg/ctrl/ctrl_set_unpack_xy.F 122 CTRL_SET_UNPACK_XY 
         write(cfile3(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_set_unpack_xy.F 127 CTRL_SET_UNPACK_XY 
            write(cfile3(1:80),'(a,I3.3,a,I4.4,a)')
./pkg/ctrl/ctrl_set_unpack_xy.F 134 CTRL_SET_UNPACK_XY 
            write(cfile3(1:80),'(a,I3.3,a,I4.4,a)')
./pkg/ctrl/ctrl_set_unpack_xy.F 144 CTRL_SET_UNPACK_XY 
         open( cunit3, file=cfile3, status='unknown',
./pkg/ctrl/ctrl_set_unpack_xy.F 436 CTRL_SET_UNPACK_XY 
      character*(80) cfile2, cfile3
./pkg/ctrl/ctrl_set_unpack_xy.F 470 CTRL_SET_UNPACK_XY 
         write(cfile3(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_set_unpack_xy.F 474 CTRL_SET_UNPACK_XY 
            write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_ctrl_dim'
./pkg/ctrl/ctrl_set_unpack_xy.F 477 CTRL_SET_UNPACK_XY 
            write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_grad_dim'
./pkg/ctrl/ctrl_set_unpack_xy.F 611 CTRL_SET_UNPACK_XY 
      call WRITE_REC_3D_RL( cfile3, ctrlprec,
./pkg/ctrl/ctrl_set_unpack_xy.F 72 CTRL_SET_UNPACK_XY 
      character*(80) cfile2, cfile3
./pkg/ctrl/ctrl_set_unpack_xyz.F 140 CTRL_SET_UNPACK_XYZ 
         write(cfile3(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_set_unpack_xyz.F 145 CTRL_SET_UNPACK_XYZ 
            write(cfile3(1:80),'(a,I3.3,a,I4.4,a)')
./pkg/ctrl/ctrl_set_unpack_xyz.F 152 CTRL_SET_UNPACK_XYZ 
            write(cfile3(1:80),'(a,I3.3,a,I4.4,a)')
./pkg/ctrl/ctrl_set_unpack_xyz.F 162 CTRL_SET_UNPACK_XYZ 
         open( cunit3, file=cfile3, status='unknown',
./pkg/ctrl/ctrl_set_unpack_xyz.F 346 CTRL_SET_UNPACK_XYZ 
      character*(80) cfile2, cfile3
./pkg/ctrl/ctrl_set_unpack_xyz.F 380 CTRL_SET_UNPACK_XYZ 
         write(cfile3(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_set_unpack_xyz.F 384 CTRL_SET_UNPACK_XYZ 
            write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_ctrl_dim'
./pkg/ctrl/ctrl_set_unpack_xyz.F 387 CTRL_SET_UNPACK_XYZ 
            write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_grad_dim'
./pkg/ctrl/ctrl_set_unpack_xyz.F 524 CTRL_SET_UNPACK_XYZ 
      call WRITE_REC_3D_RL( cfile3, ctrlprec,
./pkg/ctrl/ctrl_set_unpack_xyz.F 79 CTRL_SET_UNPACK_XYZ 
      character*(80) cfile2, cfile3
./pkg/ctrl/ctrl_set_unpack_xz.F 143 CTRL_SET_UNPACK_XZ 
         write(cfile3(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_set_unpack_xz.F 148 CTRL_SET_UNPACK_XZ 
            write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')
./pkg/ctrl/ctrl_set_unpack_xz.F 155 CTRL_SET_UNPACK_XZ 
            write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')
./pkg/ctrl/ctrl_set_unpack_xz.F 165 CTRL_SET_UNPACK_XZ 
         open( cunit3, file=cfile3, status='unknown',
./pkg/ctrl/ctrl_set_unpack_xz.F 76 CTRL_SET_UNPACK_XZ 
      character*(80) cfile2, cfile3
./pkg/ctrl/ctrl_set_unpack_yz.F 143 CTRL_SET_UNPACK_YZ 
         write(cfile3(1:80),'(80a)') ' '
./pkg/ctrl/ctrl_set_unpack_yz.F 148 CTRL_SET_UNPACK_YZ 
            write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')
./pkg/ctrl/ctrl_set_unpack_yz.F 155 CTRL_SET_UNPACK_YZ 
            write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')
./pkg/ctrl/ctrl_set_unpack_yz.F 165 CTRL_SET_UNPACK_YZ 
         open( cunit3, file=cfile3, status='unknown',
./pkg/ctrl/ctrl_set_unpack_yz.F 76 CTRL_SET_UNPACK_YZ 
      character*(80) cfile2, cfile3