Symbol Description Uses
wei3d 8



File Line number Procedure Code
./pkg/ctrl/ctrl_set_pack_xyz.F 290 CTRL_SET_PACK_XYZ
      _RL wei3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy)
./pkg/ctrl/ctrl_set_pack_xyz.F 309 CTRL_SET_PACK_XYZ
      call ACTIVE_READ_XYZ(weighttype, wei3d, 1,
./pkg/ctrl/ctrl_set_pack_xyz.F 362 CTRL_SET_PACK_XYZ
     &              * sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_pack_xyz.F 370 CTRL_SET_PACK_XYZ
     &              / sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xyz.F 318 CTRL_SET_UNPACK_XYZ
      _RL wei3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy)
./pkg/ctrl/ctrl_set_unpack_xyz.F 337 CTRL_SET_UNPACK_XYZ
      call ACTIVE_READ_XYZ(weighttype, wei3d, 1,
./pkg/ctrl/ctrl_set_unpack_xyz.F 463 CTRL_SET_UNPACK_XYZ
     &              / sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xyz.F 471 CTRL_SET_UNPACK_XYZ
     &              * sqrt(wei3d(i,j,k,bi,bj))