CTITLEARREVF -- REVERSE THE SIGNS OF ELEMENTS IN A REAL ARRAY           00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR                 FRANCIS COLLINS                            00020002
CA    DESIGNER               FRANCIS COLLINS                            00030002
CA    LANGUAGE               FORTRAN                                    00040002
CA    SYSTEM                 IBM AND CRAY                               00050002
CA    WRITTEN                08-26-81                                   00060000
C     REVISED                07-11-86 ESN. FOR USE ON THE IBM.          00070002
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARREVF (A, B, N)                                             00100000
CA         INPUT   A = REAL ARRAY                                   R4  00110000
CA         OUTPUT  B = REAL ARRAY                                   R4  00120000
CA         INPUT   N = NUMBER OF ELEMENTS IN EACH ARRAY A AND B     I4  00130000
CA                                                                      00140000
CA                                                                      00150000
CA       ARREVF REVERSES THE ALGEBRAIC SIGN OF THE N SINGLE-WORD        00160000
CA       ELEMENTS IN A AND STORES THE REVERSED ELEMENTS IN B. TO        00170000
CA       REVERSE COMPLEX ARRAYS, USE A DOUBLE N.  A AND B MAY BE        00180000
CA       THE SAME ARRAY.                                                00190000
CAEND                                                                   00200000
      SUBROUTINE ARREVF (A, B, N)                                       00210000
C                                                                       00220000
      REAL  A  (N)                                                      00230000
      REAL  B  (N)                                                      00240000
C                                                                       00250000
          DO 10  I = 1, N                                               00260000
          B(I) = -A(I)                                                  00270000
   10     CONTINUE                                                      00280000
C                                                                       00290000
      RETURN                                                            00300000
C                                                                       00310002
      END                                                               00320000