CTITLESOLV1 -- SECOND 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 SOLVEA FOR    00070000
CA                                  UNICOS CONVERSION.                  00200000
CA                                                                      00210000
CA    CALL SOLV1 (D, L, U, X, 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         OUTPUT     X = SOLUTION OF THE TRID SYSTEM               R4  00270000
CA         INPUT      N = NUMBER OF ELEMENTS IN D                   I4  00280000
CA                                                                      00550000
CA                                                                      00560000
CA    SECOND 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 SOLV1(D,L,U,X,N)
      RETURN
      END