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 1083 MDSREADFIELD_2D_GL 
            read(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl.F 1085 MDSREADFIELD_2D_GL 
            call MDS_BYTESWAPR8( sNx, r8seg )
./pkg/mdsio/mdsio_gl.F 1089 MDSREADFIELD_2D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 1092 MDSREADFIELD_2D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 1282 MDSWRITEFIELD_2D_GL 
      Real*8 r8seg(sNx)
./pkg/mdsio/mdsio_gl.F 1508 MDSWRITEFIELD_2D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 1511 MDSWRITEFIELD_2D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 1519 MDSWRITEFIELD_2D_GL 
            call MDS_BYTESWAPR8( sNx, r8seg )
./pkg/mdsio/mdsio_gl.F 1521 MDSWRITEFIELD_2D_GL 
            write(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl.F 296 MDSREADFIELD_3D_GL 
            read(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl.F 298 MDSREADFIELD_3D_GL 
            call MDS_BYTESWAPR8( sNx, r8seg )
./pkg/mdsio/mdsio_gl.F 302 MDSREADFIELD_3D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 305 MDSREADFIELD_3D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 494 MDSWRITEFIELD_3D_GL 
      Real*8 r8seg(sNx)
./pkg/mdsio/mdsio_gl.F 719 MDSWRITEFIELD_3D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 722 MDSWRITEFIELD_3D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 730 MDSWRITEFIELD_3D_GL 
            call MDS_BYTESWAPR8( sNx, r8seg )
./pkg/mdsio/mdsio_gl.F 732 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 864 MDSREADFIELD_2D_GL 
      Real*8 r8seg(sNx)
./pkg/mdsio/mdsio_gl_slice.F 199 MDSREADFIELD_XZ_GL 
            read(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl_slice.F 201 MDSREADFIELD_XZ_GL 
            call MDS_BYTESWAPR8( sNx, r8seg )
./pkg/mdsio/mdsio_gl_slice.F 205 MDSREADFIELD_XZ_GL 
             call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 208 MDSREADFIELD_XZ_GL 
             call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 317 MDSREADFIELD_YZ_GL 
      Real*8 r8seg(sNy)
./pkg/mdsio/mdsio_gl_slice.F 439 MDSREADFIELD_YZ_GL 
            read(dUnit,rec=irec) r8seg
./pkg/mdsio/mdsio_gl_slice.F 441 MDSREADFIELD_YZ_GL 
            call MDS_BYTESWAPR8( sNy, r8seg )
./pkg/mdsio/mdsio_gl_slice.F 445 MDSREADFIELD_YZ_GL 
             call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 448 MDSREADFIELD_YZ_GL 
             call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 569 MDSWRITEFIELD_XZ_GL 
      Real*8 r8seg(sNx)
./pkg/mdsio/mdsio_gl_slice.F 664 MDSWRITEFIELD_XZ_GL 
             call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 667 MDSWRITEFIELD_XZ_GL 
             call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 675 MDSWRITEFIELD_XZ_GL 
            call MDS_BYTESWAPR8( sNx, r8seg )
./pkg/mdsio/mdsio_gl_slice.F 677 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 810 MDSWRITEFIELD_YZ_GL 
      Real*8 r8seg(sNy)
./pkg/mdsio/mdsio_gl_slice.F 905 MDSWRITEFIELD_YZ_GL 
             call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 908 MDSWRITEFIELD_YZ_GL 
             call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 916 MDSWRITEFIELD_YZ_GL 
            call MDS_BYTESWAPR8( sNy, r8seg )
./pkg/mdsio/mdsio_gl_slice.F 918 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 34 SET_RUNOFFMAP 
      Real*8  r8seg(3)
./pkg/atm_ocn_coupler/set_runoffmap.F 79 SET_RUNOFFMAP 
         READ(88,rec=iRec) r8seg
./pkg/atm_ocn_coupler/set_runoffmap.F 80 SET_RUNOFFMAP 
         tmpfld(1,n) = r8seg(1)
./pkg/atm_ocn_coupler/set_runoffmap.F 81 SET_RUNOFFMAP 
         tmpfld(2,n) = r8seg(2)
./pkg/atm_ocn_coupler/set_runoffmap.F 82 SET_RUNOFFMAP 
         tmpfld(3,n) = r8seg(3)