************************************************************************        
************************************************************************        
                                                                                
      PROGRAM TEST                                                              
************************************************************************        
*                                                                      *        
*  GIFALL/CATPAS                                                       *        
*                                                                      *        
************************************************** 24.05.94 ** DBB *****        
                                                                                
      IMPLICIT NONE                                                             
                                                                                
*-----------------------------------------------------------------------        
*  VARIABLEN-DEKLARATIONEN                                                      
*-----------------------------------------------------------------------        
      INTEGER      DUMMY                                                        
      INTEGER      RET                                                          
                                                                                
*-----------------------------------------------------------------------        
*  PROGRAMM-RUMPF                                                               
*-----------------------------------------------------------------------        
      RET = 0                                                                   
*                                                CATGEO-ENV. AUFBAUEN           
      CALL CATGEO                                                               
*                                                ANMELDUNG AN CATIA             
      CALL GLOGON ('DEFAULT ',                                                  
     -             'MASTER  ',                                                  
     -             'DBB     ',                                                  
     -             '4626    ',                                                  
     -             'XXXXXXXX', RET, *998)                                       
      WRITE (6,*) 'TEST   : GLOGON'                                             
*                                                MODELFILE ALLOKIEREN           
      CALL GIFALL ('MODEL   ', 'MB5     ', 'SHR',                               
     -              DUMMY, RET, *998)                                           
*                                                MODELSIZE LESEN                
      WRITE (6,*) 'TEST   : GIFALL'                                             
*                                                MODELFILE DEALLOKIEREN         
      CALL GIFRES ('MB5     ',                                                  
     -              RET, *998)                                                  
      WRITE (6,*) 'TEST   : GIFRES'                                             
                                                                                
*-----------------------------------------------------------------------        
                                                                                
************************************************************************        
      STOP                                                                      
*                                                FEHLERBEHANDLUNG               
* 997 CALL GIFRES ('MB5     ', DUMMY, *998)                                     
  998 CALL GILERR (RET)                                                         
  999 STOP 8                                                                    
                                                                                
      END