itor.F

Go to the documentation of this file.

      SUBROUTINE itor(INT_V, REAL_V, N)
!
!**** SUBROUTINE itor - To convert from INTEGER to 64-bit REAL
!
!        S.Saarinen     ECMWF     27/6/95
!
!**   INTERFACE
!     ---------
!
!        CALL itor(int_v, real_v, n)
!     WHERE:
!           int_v  = Integer vector (INPUT) of n elements:
!                    Only 32-bit range is accepted i.e.
!                    [-2147483648 ... 2147483647] which is the same as
!                    [-2**31 ... 2**31 - 1]
!           real_v = 64-bit REAL-vector (OUTPUT) of n elements
!                    each holding one integer value after conversion
!           n      = length of the vectors
!
!
!-----------------------------------------------------------------------
!
      USE parkind1, ONLY : jpim
      IMPLICIT NONE
      INTEGER(KIND=JPIM) :: N
!-- The following MUST be 64-bit REALs [i.e. REAL(8) on Fortran-90]
      REAL(KIND=8) :: REAL_V(n)
      INTEGER(KIND=JPIM) :: INT_V(n)
      INTEGER(KIND=JPIM) :: I

      DO i=1,n
         real_v(i) = min(max(-2147483647_jpim,int_v(i)),2147483647_jpim)
      ENDDO

      RETURN
      ENDSUBROUTINE itor