CTITLEARSBF  -- SUBTRACT TWO REAL ARRAYS                                00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR                 STU NELAN                                  00020000
CA    DESIGNER               STU NELAN                                  00030000
CA    LANGUAGE               FORTRAN                                    00040002
CA    SYSTEM                 IBM AND CRAY                               00050002
CA    WRITTEN                07-09-84                                   00060000
C     REVISED                07-11-86 ESN. FOR USE ON THE IBM.          00070002
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARSBF  (A, B, C, N)                                          00100000
CA         INPUT   A = REAL ARRAY                                   R4  00110000
CA         INPUT   B = REAL ARRAY                                   R4  00120000
CA         OUTPUT  C = REAL ARRAY                                   R4  00130000
CA         INPUT   N = NUMBER OF ELEMENTS IN EACH ARRAY A, B, C     I4  00140000
CA                                                                      00150000
CA                                                                      00160000
CA       ARSBF PERFORMS C(I) = A(I) - B(I) FOR N REAL ELEMENTS.         00170000
CAEND                                                                   00180000
      SUBROUTINE ARSBF  (A, B, C, N)                                    00190000
C                                                                       00200000
      REAL  A  (N)                                                      00210000
      REAL  B  (N)                                                      00220000
      REAL  C  (N)                                                      00230000
C                                                                       00240000
          DO 10  I = 1,N                                                00250000
          C(I) = A(I) - B(I)                                            00260000
   10     CONTINUE                                                      00270000
C                                                                       00280000
      RETURN                                                            00290000
C                                                                       00300002
      END                                                               00310000