Symbol Description Uses
loc_size 6


File Line number Procedure Code
./pkg/mdsio/mdsio_writevec_loc.F 117 MDS_WRITEVEC_LOC 
        IF ( nSize.GT.loc_size ) THEN
./pkg/mdsio/mdsio_writevec_loc.F 125 MDS_WRITEVEC_LOC 
     &      ' MDS_WRITEVEC_LOC: exceeds buffer size=', loc_size
./pkg/mdsio/mdsio_writevec_loc.F 82 MDS_WRITEVEC_LOC 
      INTEGER loc_size
./pkg/mdsio/mdsio_writevec_loc.F 83 MDS_WRITEVEC_LOC 
      PARAMETER( loc_size = Nx+Ny+Nr )
./pkg/mdsio/mdsio_writevec_loc.F 84 MDS_WRITEVEC_LOC 
      Real*4 r4seg(loc_size)
./pkg/mdsio/mdsio_writevec_loc.F 85 MDS_WRITEVEC_LOC 
      Real*8 r8seg(loc_size)