CTITLEFIXFL  -- CONVERT A INTEGER ARRAY TO A REAL ARRAY                 00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
C                                                                       00020000
CA    AUTHOR             R. KNIGHT                                      00030002
CA    DESIGNER           R. KNIGHT                                      00040002
CA    LANGUAGE           FORTRAN                                        00050002
CA    SYSTEM             IBM AND CRAY                                   00060002
CA    WRITTEN            04-25-85                                       00070002
C     REVISED            07-11-86 ESN. FOR USE ON THE IBM.              00080002
CA                                                                      00090000
CA                                                                      00100000
CA    CALL FIXFL  ( IA, B, N )                                          00110000
CA                                                                      00120000
CA         IA     = INTEGER ARRAY                                   I8  00130000
CA          B     = REAL    ARRAY                                   R8  00140000
CA          N     = NUMBER OF ELEMENTS IN IA AND B                  I8  00150000
CA                                                                      00160000
CA                                                                      00170000
CA    THIS ROUTINE CONVERTS THE N INTEGER ELEMENTS IN IA TO             00180000
CA    FLOATING POINT (REAL) AND STORES THEM IN B.  IA AND B             00190000
CA    CAN BE THE SAME ARRAY.                                            00200002
CA    THIS ROUTINE IS THE ANALOGUE OF FIXFL, AN ENTRY IN S1ATP,         00210000
CA    IN THE IBM SPARC LIBRARY.                                         00220000
CAEND                                                                   00230000
C                                                                       00240000
      SUBROUTINE FIXFL  ( IA, B, N )                                    00250000
C                                                                       00260000
      INTEGER  IA( 2)                                                   00270000
      REAL      B( 2)                                                   00280000
      INTEGER   N                                                       00290000
C                                                                       00300000
      IF ( N.LE.0 ) RETURN                                              00310000
C                                                                       00320000
      DO 100 I = 1, N                                                   00330000
      B(I)    = FLOAT( IA(I) )                                          00340000
  100 CONTINUE                                                          00350000
C                                                                       00360000
      RETURN                                                            00370000
C                                                                       00380002
      END                                                               00390000