CTITLEARSBFC -- SUBTRACT A REAL CONSTANT FROM A REAL ARRAY              00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR        STU NELAN                                           00020000
CA    DESIGNER      STU NELAN                                           00030000
CA    LANGUAGE      FORTRAN                                             00040002
CA    LANGUAGE      IBM AND CRAY                                        00050002
CA    WRITTEN       11-18-81                                            00060000
C     REVISED       07-11-86 ESN. FOR USE ON THE IBM.                   00070002
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARSBFC (A, B, C, N)                                          00100000
CA          INPUT   A = REAL ARRAY                                  R4  00110000
CA          OUTPUT  B = REAL ARRAY                                  R4  00120000
CA          INPUT   C = REAL CONSTANT                               R4  00130000
CA          INPUT   N = NUMBER OF ELEMENTS IN EACH ARRAY A AND B    I4  00140000
CA                                                                      00150000
CA                                                                      00160000
CA       ARSBFC PERFORMS B(I) = A(I) - C FOR N REAL ELEMENTS.           00170000
CA       A AND B MAY BE THE SAME ARRAY.                                 00180000
C                                                                       00190000
      SUBROUTINE ARSBFC (A, B, C, N)                                    00200000
C                                                                       00210000
      REAL    A(1)                                                      00220000
      REAL    B(1)                                                      00230000
C                                                                       00240000
      DO 10 I = 1, N                                                    00250000
   10 B(I) = A(I) - C                                                   00260000
C                                                                       00270002
      RETURN                                                            00280000
C                                                                       00290002
      END                                                               00300000