CTITLEARFLP  -- FLIP AN ARRAY END-FOR-END                               00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR         STU NELAN                                          00020000
CA    DESIGNER       STU NELAN                                          00030000
CA    LANGUAGE       FORTRAN                                            00040000
CA    SYSTEM         IBM AND CRAY                                       00050000
CA    WRITTEN        02-12-86                                           00060000
C     REVISED        07-11-86 ESN. FOR USE ON THE IBM.                  00070000
C     REVISED        06-05-87 PKC. FIXED FOR ODD LENGTH ARRAYS.         00071001
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARFLP (A, B, N)                                              00100000
CA          INPUT   A = REAL OR INTEGER ARRAY                 I4 OR R4  00110000
CA          OUTPUT  B = REAL OR INTEGER ARRAY                 I4 OR R4  00120000
CA          INPUT   N = NUMBER OF ELEMENTS IN EACH ARRAY A AND B    I4  00130000
CA                                                                      00140000
CA                                                                      00150000
CA       ARFLP FLIPS THE N SINGLE-WORD ELEMENTS OF A, END-FOR-END, AND  00160000
CA       STORES THE RESULT IN B. THE ARRAY B MAY BE THE SAME AS A.      00170000
CA       ARFLP MAY NOT BE USED FOR COMPLEX ARRAYS.                      00180000
CAEND                                                                   00190000
      SUBROUTINE ARFLP  (A, B, N)                                       00200000
C                                                                       00210000
      INTEGER  A  (1)                                                   00220000
      INTEGER  B  (1)                                                   00230000
C                                                                       00240000
      IF (N .LE. 1) GO TO                                           50  00250000
C                                                                       00260000
      NH = N / 2                                                        00270000
      IF (NH*2 .NE. N) NH = NH + 1                                      00271000
C                                                                       00272000
          DO 20  I = 1, NH                                              00280000
          ITEMP    = A(I)                                               00290000
          B(I)     = A(N-I+1)                                           00300000
          B(N-I+1) = ITEMP                                              00310000
   20     CONTINUE                                                      00320000
C                                                                       00330000
   50 RETURN                                                            00340000
      END                                                               00350000