CTITLEDECOM1 -- FIRST PART OF TRID-SOLVER (DECOMA/SOLVEA)               00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR               STU NELAN                                    00020000
CA    DESIGNER             L.B. LIN                                     00030000
CA    LANGUAGE             FORTRAN                                      00040000
CA    SYSTEM               IBM (SEE CRAY)                               00050000
CA    WRITTEN              01-23-85                                     00060000
C     REVISED              MM-DD-YY                                     00070000
C     REVISED              04-20-90 LWC CHANGED NAME FROM DECOMA FOR    00070000
CA                                  UNICOS CONVERSION.                  00200000
CA                                                                      00210000
CA    CALL DECOM1 (D, L, U, N)                                          00220000
CA                                                                      00210000
CA         INPUT      D = DIAGONAL VECTOR OF THE TRID SYSTEM        R4  00250000
CA         INPUT      L = LOWER OFF-DIAGONAL VECTOR                 R4  00270000
CA         INPUT      U = UPPER OFF-DIAGONAL VECTOR                 R4  00270000
CA         INPUT      N = NUMBER OF ELEMENTS IN D                   I4  00280000
CA                                                                      00550000
CA                                                                      00560000
CA    FIRST PART OF THE VECTORIZED TRID SOLVER (DECOMP/SOLVE)           00580000
CA                                                                      00580000
CA    THE IBM VERSION OF THIS ROUTINE IS DUMMIED OUT, SINCE THE         00570000
CA    VECTORIZED SOLVER IS FOR CRAY ONLY.                               00580000
CA                                                                      00580000
C     EJECT                                                             00590000
C                                                                       00600000
      SUBROUTINE DECOM1 (D,L,U,N)
      RETURN
      END