read_short.f

Go to the documentation of this file.

        subroutine read_short(data,loc,con,raw)
 
c $header$
c $log$
c
c  this subroutine converts the floating point value data from a signed 2-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*2 itmp2
        byte temp2(2)
        byte raw(*)
        equivalence(itmp2,temp2)
        
        data = 0.0
#ifdef LINUX
        do j=1,2
          temp2(j) = raw(loc(1)+2-j) 
        end do
#else
        do j=1,2
          temp2(j) = raw(loc(1)+j-1) 
        end do
#endif
        data = itmp2*con(1) + con(2)
        return
        end