CTITLE SAANSTA - SET COLOR LOOK-UP TABLE
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CABS  SAANSTA -  SET COLOR LOOK-UP TABLE
C
C     SUBROUTINE SAANSTA (NTABL)
C
C     COPYRIGHT ATLANTIC RICHFIELD COMPANY 1989.
C
C     ALL RIGHTS RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,
C     REPRODUCED, OR  TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE
C     PRIOR CONSENT OF ATLANTIC RICHFIELD COMPANY.
C
C
CA    DESIGNER             C. J. SICKING
CA    AUTHOR               C. J. SICKING
CA    LANGUAGE             VS FORTRAN
CA    SYSTEM               IBM
CA    WRITTEN              01-10-86
CA
CA    PURPOSE OF PROGRAM:
CA
CA    THIS SUBROUTINE FILLS THE LOOKUP TABLE FOR COLOR CODES
C
C***************************************************************
C                                                              *
C  SUBROUTINES AND FUNCTIONS CALLED FROM THIS ROUTINE          *
C                                                              *
C  NO SUBROUTINES OR FUNCTIONS CALLED FROM THIS PROGRAM UNIT   *
C                                                              *
C***************************************************************
CA
CA
CA    ARGUMENTS:
CA
CA
CA    NTABL        OUTPUT         INTEGER ARRAY CONTAINING THE COLOR
CA                                CODES USED BY THE PROCESS.
CA
CA    EJECT
CAEND
C***********************************************************************
C
      SUBROUTINE SAANSTA(NTABL)
C
      DIMENSION NTABL(*)
C
      NTABL(111) = 1
      NTABL(112) = 2
      NTABL(113) = 3
      NTABL(114) = 4
      NTABL(121) = 5
      NTABL(122) = 6
      NTABL(123) = 7
      NTABL(124) = 8
      NTABL(131) = 9
      NTABL(132) = 10
      NTABL(133) = 11
      NTABL(134) = 12
      NTABL(141) = 13
      NTABL(142) = 14
      NTABL(143) = 15
      NTABL(144) = 16
      NTABL(211) = 17
      NTABL(212) = 18
      NTABL(213) = 19
      NTABL(214) = 20
      NTABL(221) = 21
      NTABL(222) = 22
      NTABL(223) = 23
      NTABL(224) = 24
      NTABL(231) = 25
      NTABL(232) = 26
      NTABL(233) = 27
      NTABL(234) = 28
      NTABL(241) = 29
      NTABL(242) = 30
      NTABL(243) = 31
      NTABL(244) = 32
      NTABL(311) = 33
      NTABL(312) = 34
      NTABL(313) = 35
      NTABL(314) = 36
      NTABL(321) = 37
      NTABL(322) = 38
      NTABL(323) = 39
      NTABL(324) = 40
      NTABL(331) = 41
      NTABL(332) = 42
      NTABL(333) = 43
      NTABL(334) = 44
      NTABL(341) = 45
      NTABL(342) = 46
      NTABL(343) = 47
      NTABL(344) = 48
      NTABL(411) = 49
      NTABL(412) = 50
      NTABL(413) = 51
      NTABL(414) = 52
      NTABL(421) = 53
      NTABL(422) = 54
      NTABL(423) = 55
      NTABL(424) = 56
      NTABL(431) = 57
      NTABL(432) = 58
      NTABL(433) = 59
      NTABL(434) = 60
      NTABL(441) = 61
      NTABL(442) = 62
      NTABL(443) = 63
      NTABL(444) = 64
      RETURN
      END