SUBROUTINE PASS1  
    
      INTEGER     RCOUNT
      INTEGER     RTYPE 
      INTEGER     RSTYPE
      INTEGER     RTMAX 
      INTEGER     RSZMAX
      INTEGER     RECORD (41)   
      INTEGER     RSIZE 
      INTEGER     RSIZES (20)   
      INTEGER ICLP02
      COMMON      /RECORD/ RCOUNT   
      COMMON      /RECORD/ RTYPE
      COMMON      /RECORD/ RSTYPE   
      COMMON      /RECORD/ RTMAX
      COMMON      /RECORD/ RSZMAX   
      COMMON      /RECORD/ RECORD   
      COMMON      /RECORD/ RSIZE
      COMMON      /RECORD/ RSIZES   
      COMMON     /RECORD/ ICLP02
    
      INTEGER     ECODE 
      INTEGER     CMCHAN
      INTEGER     RBCHAN
      INTEGER     OBCHAN
      INTEGER     MPCHAN
      INTEGER     DBCHAN
      INTEGER     TTYIN 
      INTEGER     TTYOUT
      COMMON      /IODEFN/ ECODE
      COMMON      /IODEFN/ CMCHAN   
      COMMON      /IODEFN/ RBCHAN   
      COMMON      /IODEFN/ OBCHAN   
      COMMON      /IODEFN/ MPCHAN   
      COMMON      /IODEFN/ DBCHAN   
      COMMON      /IODEFN/ TTYIN
      COMMON      /IODEFN/ TTYOUT   
    
      INTEGER     CMFILE (16)   
      INTEGER     RBFILE (16)   
      INTEGER     OBFILE (16)   
      INTEGER     MPFILE (16)   
      INTEGER     DBFILE (16)   
      INTEGER     TIFILE (3)
      INTEGER ICLP03
      COMMON      /FILES / CMFILE   
      COMMON      /FILES / RBFILE   
      COMMON      /FILES / OBFILE   
      COMMON      /FILES / MPFILE   
      COMMON      /FILES / DBFILE   
      COMMON      /FILES / TIFILE   
      COMMON      /FILES / ICLP03   
      LOGICAL     ERX, EOF, KEYWD   
      INTEGER     I, DUMMY  
C     WRITE (DBCHAN, 1) 
C    1FORMAT (' ENTER PASS1')   
      CONTINUE  
13000 CONTINUE  
    
      CALL GETFL (ERX, EOF) 
      IF (ERX) GO TO 9998   
      IF (EOF) GO TO 9999   
      IF (.NOT. (KEYWD(DUMMY)))GO TO 13002  
    
      CALL SETKEY   
      GO TO 13000   
    
13002 CONTINUE  
    
      CALL OPENF (RBCHAN, RBFILE, ECODE)
      IF (.NOT. (ECODE.NE.1))GO TO 13004
    
      CALL ERROR(3) 
      GO TO 13000   
    
13004 CONTINUE  
    
C     WRITE (DBCHAN, 2) (RBFILE(I),I=1,7)   
C    2FORMAT (' IN PASS1 AFTER OPEN ', 7A2) 
      CONTINUE  
13006 CONTINUE  
    
      CALL GRCORD (ERX, EOF)
      IF (ERX) GO TO 9996   
      IF (EOF) GO TO 9997   
      IF (RTYPE .NE. 3) CALL CHCKER 
C     WRITE (DBCHAN, 3) RTYPE, RSTYPE   
C    3FORMAT (' IN PASS1; RTYPE= ', I6, '  RSTYPE= ', I6)   
      GOTO (100,200,300,400,500,600,700,800,900,1000,1100,1200,1300,1400
     1,1500,1600,1700,1800,1900,2000)  RTYPE
  100 CALL T01P1
      GO TO 13006   
    
  200 CALL T02P1
      GO TO 13006   
    
  300 CALL T03P1
      GO TO 13006   
    
  400 CALL T04P1
      GO TO 13006   
    
  500 CALL T05P1
      GO TO 13006   
    
  600 CALL T06P1
      GO TO 13006   
    
  700 CALL T07P1
      GO TO 13006   
    
  800 CALL T08P1
      GO TO 13006   
    
  900 CALL T09P1
      GO TO 13006   
    
 1000 CALL T10P1
      GO TO 13006   
    
 1100 CALL T11P1
      GO TO 13006   
    
 1200 CALL T12P1
      GO TO 13006   
    
 1300 CALL T13P1
      GO TO 13006   
    
 1400 CALL T14P1
      GO TO 13006   
    
 1500 CALL T15P1
      GO TO 13006   
    
 1600 CALL T16P1
      GO TO 13006   
    
 1700 CALL T17P1
      GO TO 13006   
    
 1800 CALL T18P1
      GO TO 13006   
    
 1900 CALL T19P1
      GO TO 13006   
    
 2000 CALL T20P1
      GO TO 13006   
    
 9996 CONTINUE  
      CALL ERROR (7)
 9997 CONTINUE  
      CALL CLOSF (RBCHAN, ECODE)
      IF (ECODE.NE.1) CALL ERROR (3)
      GO TO 13000   
    
 9998 CONTINUE  
 9999 CONTINUE  
C     WRITE (DBCHAN, 4) 
C    4FORMAT (' EXIT PASS1')
      RETURN
      END