x84.F

Go to the documentation of this file.

C> @file
C> @brief Encode one or more 8-byte integer values as 4-byte integer
C> values.
C>
C> @author J. Woollen @date 2022-10-12
 
C> Encode one or more 8-byte integer values as 4-byte integer
C> values.
C>
C> @note IIN8 and IOUT4 may be the same array.
C>
C> @param[in] IIN8 - integer(*): Value(s) encoded as 8-byte integers
C> @param[out] IOUT4 - integer(*): Value(s) from IIN8 now re-encoded as 4-byte integers
C> @param[in] NVAL - integer: Number of values in IIN8 to be re-encoded
C>
C> @author J. Woollen @date 2022-10-12
 
        SUBROUTINE x84(IIN8,IOUT4,NVAL)
 
        INTEGER   IIN8(*),IOUT4(*)
 
C       Call subroutine WRDLEN, in case it hasn't already been called.
 
        CALL wrdlen
 
C       ILO points to the first byte of the low-order (i.e. least
C       significant) 4-byte integer word within an 8-byte integer word.
 
#ifdef BIG_ENDIAN
        ilo=5
#else
        ilo=1
#endif
 
C       Re-encode the 8-byte values as 4-byte values.
 
        DO k = 1, nval
          l=2*k-1
          CALL mvb(iin8(l),ilo,itmp,1,4)
          iout4(k)=itmp
        END DO
 
        RETURN
        END