CTITLEFLFIX  -- CONVERT A REAL ARRAY TO AN INTEGER ARRAY                00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
C                                                                       00020000
CA    AUTHOR                 R. KNIGHT                                  00030004
CA    DESIGNER               R. KNIGHT                                  00040000
CA    LANGUAGE               FORTRAN                                    00050000
CA    SYSTEM                 IBM AND CRAY                               00060004
CA    WRITTEN                04-25-85                                   00070000
C     REVISED                07-11-86 ESN. FOR USE ON THE IBM.          00080004
C                                                                       00090000
CA                                                                      00100000
CA                                                                      00110000
CA    CALL FLFIX  ( A, IB, N )                                          00120000
CA                                                                      00130000
CA         A      = REAL ARRAY                                      R8  00140000
CA         IB     = INTEGER ARRAY                                   I8  00150000
CA         N      = NUMBER OF ELEMENTS IN A AND IB                  I8  00160000
CA                                                                      00170000
CA                                                                      00180000
CA    THIS ROUTINE CONVERTS THE N REAL ELEMENTS IN A TO INTEGER         00190000
CA    AND STORES THE RESULT IN IB; IB(I) BECOMES THE INTEGER            00200000
CA    NEAREST THE VALUE OF A(I).  A AND IB CAN BE THE SAME ARRAY.       00210001
CA    THIS ROUTINE IS THE ANALOGUE OF FLFIX, AN ENTRY IN S1ATP,         00220000
CA    IN THE IBM SPARC LIBRARY.                                         00230000
CAEND                                                                   00240000
C                                                                       00250000
      SUBROUTINE FLFIX  ( A, IB, N )                                    00260000
C                                                                       00270000
      REAL      A( 2)                                                   00280000
      INTEGER  IB( 2)                                                   00290000
      INTEGER   N                                                       00300000
C                                                                       00310000
      IF ( N.LE.0 ) RETURN                                              00320000
C                                                                       00330000
      DO 100 I = 1, N                                                   00340000
      IB(I)    = A(I)                                                   00350003
  100 CONTINUE                                                          00360000
C                                                                       00370000
      RETURN                                                            00380000
C                                                                       00390001
      END                                                               00400000