Symbol Description Uses
r8seg 157


File Line number Procedure Code
./pkg/fizhi/fizhi_readwrite_vegtiles.F 131 FIZHI_WRITE_VEGTILES 
        r8seg(n) = ctmt(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 134 FIZHI_WRITE_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 136 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=1) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 139 FIZHI_WRITE_VEGTILES 
        r8seg(n) = xxmt(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 142 FIZHI_WRITE_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 144 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=2) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 147 FIZHI_WRITE_VEGTILES 
        r8seg(n) = yymt(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 150 FIZHI_WRITE_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 152 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=3) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 155 FIZHI_WRITE_VEGTILES 
        r8seg(n) = zetamt(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 158 FIZHI_WRITE_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 160 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=4) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 165 FIZHI_WRITE_VEGTILES 
         r8seg(n) = xlmt(n,k,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 168 FIZHI_WRITE_VEGTILES 
        call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 171 FIZHI_WRITE_VEGTILES 
        write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 176 FIZHI_WRITE_VEGTILES 
         r8seg(n) = khmt(n,k,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 179 FIZHI_WRITE_VEGTILES 
        call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 182 FIZHI_WRITE_VEGTILES 
        write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 187 FIZHI_WRITE_VEGTILES 
         r8seg(n) = tke(n,k,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 190 FIZHI_WRITE_VEGTILES 
        call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 193 FIZHI_WRITE_VEGTILES 
        write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 198 FIZHI_WRITE_VEGTILES 
        r8seg(n) = tcanopy(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 201 FIZHI_WRITE_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 204 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 207 FIZHI_WRITE_VEGTILES 
        r8seg(n) = tdeep(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 210 FIZHI_WRITE_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 213 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 216 FIZHI_WRITE_VEGTILES 
        r8seg(n) = ecanopy(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 219 FIZHI_WRITE_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 222 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 225 FIZHI_WRITE_VEGTILES 
        r8seg(n) = swetshal(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 228 FIZHI_WRITE_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 231 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 234 FIZHI_WRITE_VEGTILES 
        r8seg(n) = swetroot(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 237 FIZHI_WRITE_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 240 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 243 FIZHI_WRITE_VEGTILES 
        r8seg(n) = swetdeep(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 246 FIZHI_WRITE_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 249 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 252 FIZHI_WRITE_VEGTILES 
        r8seg(n) = snodep(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 255 FIZHI_WRITE_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 258 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 261 FIZHI_WRITE_VEGTILES 
        r8seg(n) = capac(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 264 FIZHI_WRITE_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 267 FIZHI_WRITE_VEGTILES 
       write(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 324 FIZHI_READ_VEGTILES 
      Real*8 r8seg(nchp)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 387 FIZHI_READ_VEGTILES 
       read(iunit,rec=1) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 389 FIZHI_READ_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 392 FIZHI_READ_VEGTILES 
        ctmt(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 395 FIZHI_READ_VEGTILES 
       read(iunit,rec=2) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 397 FIZHI_READ_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 400 FIZHI_READ_VEGTILES 
        xxmt(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 403 FIZHI_READ_VEGTILES 
       read(iunit,rec=3) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 405 FIZHI_READ_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 408 FIZHI_READ_VEGTILES 
        yymt(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 411 FIZHI_READ_VEGTILES 
       read(iunit,rec=4) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 413 FIZHI_READ_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 416 FIZHI_READ_VEGTILES 
        zetamt(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 422 FIZHI_READ_VEGTILES 
        read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 424 FIZHI_READ_VEGTILES 
        call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 427 FIZHI_READ_VEGTILES 
         xlmt(n,k,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 433 FIZHI_READ_VEGTILES 
        read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 435 FIZHI_READ_VEGTILES 
        call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 438 FIZHI_READ_VEGTILES 
         khmt(n,k,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 444 FIZHI_READ_VEGTILES 
        read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 446 FIZHI_READ_VEGTILES 
        call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 449 FIZHI_READ_VEGTILES 
         tke(n,k,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 455 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 457 FIZHI_READ_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 460 FIZHI_READ_VEGTILES 
        tcanopy(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 464 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 466 FIZHI_READ_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 469 FIZHI_READ_VEGTILES 
        tdeep(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 473 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 475 FIZHI_READ_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 478 FIZHI_READ_VEGTILES 
        ecanopy(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 482 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 484 FIZHI_READ_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 487 FIZHI_READ_VEGTILES 
        swetshal(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 491 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 493 FIZHI_READ_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 496 FIZHI_READ_VEGTILES 
        swetroot(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 500 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 502 FIZHI_READ_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 505 FIZHI_READ_VEGTILES 
        swetdeep(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 509 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 511 FIZHI_READ_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 514 FIZHI_READ_VEGTILES 
        snodep(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 518 FIZHI_READ_VEGTILES 
       read(iunit,rec=irec) r8seg
./pkg/fizhi/fizhi_readwrite_vegtiles.F 520 FIZHI_READ_VEGTILES 
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 523 FIZHI_READ_VEGTILES 
        capac(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 52 FIZHI_WRITE_VEGTILES 
      Real*8 r8seg(nchp)
./pkg/mdsio/mdsio_gl.F 1046 MDSREADFIELD_2D_GL 
            read(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl.F 1048 MDSREADFIELD_2D_GL 
            call MDS_BYTESWAPR8( sNx, r8seg )
./pkg/mdsio/mdsio_gl.F 1051 MDSREADFIELD_2D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 1053 MDSREADFIELD_2D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 1243 MDSWRITEFIELD_2D_GL 
      Real*8 r8seg(sNx)
./pkg/mdsio/mdsio_gl.F 1457 MDSWRITEFIELD_2D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 1459 MDSWRITEFIELD_2D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 1467 MDSWRITEFIELD_2D_GL 
            call MDS_BYTESWAPR8( sNx, r8seg )
./pkg/mdsio/mdsio_gl.F 1469 MDSWRITEFIELD_2D_GL 
            write(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl.F 285 MDSREADFIELD_3D_GL 
            read(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl.F 287 MDSREADFIELD_3D_GL 
            call MDS_BYTESWAPR8( sNx, r8seg )
./pkg/mdsio/mdsio_gl.F 290 MDSREADFIELD_3D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 292 MDSREADFIELD_3D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 481 MDSWRITEFIELD_3D_GL 
      Real*8 r8seg(sNx)
./pkg/mdsio/mdsio_gl.F 694 MDSWRITEFIELD_3D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 696 MDSWRITEFIELD_3D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 704 MDSWRITEFIELD_3D_GL 
            call MDS_BYTESWAPR8( sNx, r8seg )
./pkg/mdsio/mdsio_gl.F 706 MDSWRITEFIELD_3D_GL 
            write(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl.F 77 MDSREADFIELD_3D_GL 
      Real*8 r8seg(sNx)
./pkg/mdsio/mdsio_gl.F 838 MDSREADFIELD_2D_GL 
      Real*8 r8seg(sNx)
./pkg/mdsio/mdsio_gl_slice.F 188 MDSREADFIELD_XZ_GL 
            read(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl_slice.F 190 MDSREADFIELD_XZ_GL 
            call MDS_BYTESWAPR8( sNx, r8seg )
./pkg/mdsio/mdsio_gl_slice.F 193 MDSREADFIELD_XZ_GL 
             call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 195 MDSREADFIELD_XZ_GL 
             call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 304 MDSREADFIELD_YZ_GL 
      Real*8 r8seg(sNy)
./pkg/mdsio/mdsio_gl_slice.F 415 MDSREADFIELD_YZ_GL 
            read(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl_slice.F 417 MDSREADFIELD_YZ_GL 
            call MDS_BYTESWAPR8( sNy, r8seg )
./pkg/mdsio/mdsio_gl_slice.F 420 MDSREADFIELD_YZ_GL 
             call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 422 MDSREADFIELD_YZ_GL 
             call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 543 MDSWRITEFIELD_XZ_GL 
      Real*8 r8seg(sNx)
./pkg/mdsio/mdsio_gl_slice.F 626 MDSWRITEFIELD_XZ_GL 
             call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 628 MDSWRITEFIELD_XZ_GL 
             call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 636 MDSWRITEFIELD_XZ_GL 
            call MDS_BYTESWAPR8( sNx, r8seg )
./pkg/mdsio/mdsio_gl_slice.F 638 MDSWRITEFIELD_XZ_GL 
            write(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl_slice.F 76 MDSREADFIELD_XZ_GL 
      Real*8 r8seg(sNx)
./pkg/mdsio/mdsio_gl_slice.F 771 MDSWRITEFIELD_YZ_GL 
      Real*8 r8seg(sNy)
./pkg/mdsio/mdsio_gl_slice.F 854 MDSWRITEFIELD_YZ_GL 
             call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 856 MDSWRITEFIELD_YZ_GL 
             call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 864 MDSWRITEFIELD_YZ_GL 
            call MDS_BYTESWAPR8( sNy, r8seg )
./pkg/mdsio/mdsio_gl_slice.F 866 MDSWRITEFIELD_YZ_GL 
            write(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_read_section.F 243 MDS_READ_SEC_XZ 
            READ(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_read_section.F 245 MDS_READ_SEC_XZ 
            CALL MDS_BYTESWAPR8( sNx, r8seg )
./pkg/mdsio/mdsio_read_section.F 249 MDS_READ_SEC_XZ 
     &                             r8seg,fldRS )
./pkg/mdsio/mdsio_read_section.F 252 MDS_READ_SEC_XZ 
     &                             r8seg,fldRL )
./pkg/mdsio/mdsio_read_section.F 364 MDS_READ_SEC_YZ 
      Real*8 r8seg(sNy)
./pkg/mdsio/mdsio_read_section.F 521 MDS_READ_SEC_YZ 
            READ(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_read_section.F 523 MDS_READ_SEC_YZ 
            CALL MDS_BYTESWAPR8( sNy, r8seg )
./pkg/mdsio/mdsio_read_section.F 527 MDS_READ_SEC_YZ 
     &                             r8seg,fldRS )
./pkg/mdsio/mdsio_read_section.F 530 MDS_READ_SEC_YZ 
     &                             r8seg,fldRL )
./pkg/mdsio/mdsio_read_section.F 87 MDS_READ_SEC_XZ 
      Real*8 r8seg(sNx)
./pkg/mdsio/mdsio_write_section.F 216 MDS_WRITE_SEC_XZ 
     &                             r8seg,fldRS )
./pkg/mdsio/mdsio_write_section.F 219 MDS_WRITE_SEC_XZ 
     &                             r8seg,fldRL )
./pkg/mdsio/mdsio_write_section.F 227 MDS_WRITE_SEC_XZ 
            CALL MDS_BYTESWAPR8( sNx, r8seg )
./pkg/mdsio/mdsio_write_section.F 229 MDS_WRITE_SEC_XZ 
            WRITE(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_write_section.F 347 MDS_WRITE_SEC_YZ 
      Real*8 r8seg(sNy)
./pkg/mdsio/mdsio_write_section.F 469 MDS_WRITE_SEC_YZ 
     &                             r8seg,fldRS )
./pkg/mdsio/mdsio_write_section.F 472 MDS_WRITE_SEC_YZ 
     &                             r8seg,fldRL )
./pkg/mdsio/mdsio_write_section.F 480 MDS_WRITE_SEC_YZ 
            CALL MDS_BYTESWAPR8( sNy, r8seg )
./pkg/mdsio/mdsio_write_section.F 482 MDS_WRITE_SEC_YZ 
            WRITE(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_write_section.F 93 MDS_WRITE_SEC_XZ 
      Real*8 r8seg(sNx)
./pkg/atm_ocn_coupler/set_runoffmap.F 25 SET_RUNOFFMAP 
      Real*8  r8seg(3)
./pkg/atm_ocn_coupler/set_runoffmap.F 67 SET_RUNOFFMAP 
         READ(88,rec=iRec) r8seg
./pkg/atm_ocn_coupler/set_runoffmap.F 68 SET_RUNOFFMAP 
         tmpfld(1,n)=r8seg(1)
./pkg/atm_ocn_coupler/set_runoffmap.F 69 SET_RUNOFFMAP 
         tmpfld(2,n)=r8seg(2)
./pkg/atm_ocn_coupler/set_runoffmap.F 70 SET_RUNOFFMAP 
         tmpfld(3,n)=r8seg(3)