THE SUBROUTINES AND FUNCTIONS CALLED ARE:

        SUBROUTINE ADRIN                                                         
       SUBROUTINE VISSER                                                         
       SUBROUTINE GOBWIL                                                         
       SUBROUTINE LOUER                                                          
       SUBROUTINE LOUERM                                                         
       SUBROUTINE TAUPIN                                                         
         SUBROUTINE WERNER                                                       
0 THE FOLLOWING CALLS ARE FROM THE MAIN ROUTINE

       IF( IANS .EQ. 1 )CALL GOBWIL                                              
       IF( IANS .EQ. 1 )CALL VISSER                                              
       IF( IANS .EQ. 1 )CALL LOUER                                               
       IF( IANS .EQ. 1 )CALL LOUERM                                              
       IF( IANS .EQ. 1 )CALL TAUPIN                                              
       IF( IANS .EQ. 1 )CALL WERNER                                              
 2400  	CALL LOCATE(NFIL,LOC)                                                    
       CALL EXIT                                                                 

0 ****** THE FOLLOWING CALLS ARE FROM: 
  SUBROUTINE ADRIN                                                 
 C  FLLLCES88N1 0 9LNMSMTA.R,LCIINNLNE, C C1C C CMC5-xDll:1TIT[   CFC5dNACFC5IT'I
 dX4I 1:s 1 ECe  ST U=CRC5 )UKTN I CFC=LCCC=5(CICIIA IACOC55COCIA4 A4C C1I12 12EI
 CRCmCRCTCITXL2 T2 C C  HEM )uUT  LCBPCN1 ICTC   T	SCCCINDNHP2NCECONaae CDCLVNt
 goSe KANK62g0ICIIAAND,2 2I  ,I0E3  ,C0DT BCCCINDNHP2NCSCLGN(  KANK0OCIA)E0 2I  
 SI0E3  SC0 T OC CNNDNHP2NCECLLNa tr h  KANK0OCIACHN0trl0o(0XXX=10hI(  0h:I  0h:
 I  0h:I  0h:I    27A T NDI0LT UCECINDNHP2NCECLLN)  KANK0OCIACHN0trl0o(0XXX=1 DB
 4.N)I3,LT UCFCINDNHP2NCDCLTNtea  KANK0XACIAAUTFERLHILOEIOIT T PSF*NCA TEW TR* C