CTITLEARREVI -- REVERSE THE SIGNS OF ELEMENTS IN A INTEGER ARRAY        00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR                 STU NELAN                                  00020000
CA    DESIGNER               STU NELAN                                  00030000
CA    LANGUAGE               FORTRAN                                    00040001
CA    SYSTEM                 IBM AND CRAY                               00050001
CA    WRITTEN                02-13-86                                   00060000
C     REVISED                07-11-86 ESN. FOR USE ON THE IBM.          00070001
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARREVI (IA, IB, N)                                           00100000
CA         INPUT   IA = INTEGER ARRAY                               I4  00110000
CA         OUTPUT  IB = INTEGER ARRAY                               I4  00120000
CA         INPUT    N = NUMBER OF ELEMENTS IN EACH ARRAY IA AND IB  I4  00130000
CA                                                                      00140000
CA                                                                      00150000
CA       ARREVI REVERSES THE ALGEBRAIC SIGN OF THE N SINGLE-WORD        00160000
CA       ELEMENTS IN IA AND STORES THE REVERSED ELEMENTS IN IB.         00170000
CA       IA AND IB MAY BE THE SAME ARRAY.                               00180000
CAEND                                                                   00190000
      SUBROUTINE ARREVI (IA, IB, N)                                     00200000
C                                                                       00210000
      INTEGER IA (N)                                                    00220000
      INTEGER IB (N)                                                    00230000
C                                                                       00240000
          DO 10  I = 1, N                                               00250000
          IB(I) = -IA(I)                                                00260000
   10     CONTINUE                                                      00270000
C                                                                       00280000
      RETURN                                                            00290000
C                                                                       00300001
      END                                                               00310000