read_long.f

Go to the documentation of this file.

        subroutine read_long(data,loc,con,raw)
 
c $header$
c $log$
c
c  this subroutine converts the floating point value data from a signed 4-byte
c  integer using the conversion specification CON and the location specified 
c  by loc in the array raw
c  
c  april 3, 1995 by frederick s. patt, gsc
c
c modification history
c
c  changed integer*1 to byte for Sun OS compatibility, B. A. Franz,
c  gac, november 14, 1997.
 
 
        real*4 con(2)
        integer*4 loc(2)
        integer*4 itmp4
        byte temp4(4)
        byte raw(*)
        equivalence(itmp4,temp4)
        
        data = 0.0
#ifdef LINUX
        do j=1,4
          temp4(j) = raw(loc(1)+4-j) 
        end do
#else
        do j=1,4
          temp4(j) = raw(loc(1)+j-1) 
        end do
#endif
        data = itmp4*con(1) + con(2)
        return
        end