************************************************************************        
************************************************************************        
                                                                                
      SUBROUTINE LOGNAME (RET, *)                                               
************************************************************************        
*                                                                      *        
*  Test : Protokollieren von ModellNamen auf Datei                     *        
*                                                                      *        
************************************************************************        
*                                                           *          *        
*  . AUTOR : DBb                                            *          *        
*    FIRMA : MRO                                            *          *        
*    TEL.  : 069/8305-3377                                  * 15.04.02 *        
*                                                           *          *        
*  . PROGRAMMIERSPRACHE : FORTRAN                           *          *        
*                                                           *          *        
************************************************** 15.04.02 ** DBb *****        
                                                                                
      IMPLICIT NONE                                                             
                                                                                
*-----------------------------------------------------------------------        
*  PARAMETER-DEKLARATIONEN                                                      
*-----------------------------------------------------------------------        
                                                                                
*-----------------------------------------------------------------------        
*  VARIABLEN-DEKLARATIONEN                                                      
*-----------------------------------------------------------------------        
      CHARACTER*200 DUMMY200
      CHARACTER*8   FILE
      CHARACTER*80  TITLE
      INTEGER*4     RET
                                                                                
*-----------------------------------------------------------------------        
*  PROGRAMM-RUMPF                                                               
*-----------------------------------------------------------------------        
*     WRITE(6,*) 'LOGNAME:'
      RET = 0                                                                   
                                                                                
*-----------------------------------------------------------------------        
*  AUFTRAG AUSFÜHREN                                                            
*-----------------------------------------------------------------------        
*                                                ModellNamen ermitteln
      CALL GIMNAM (1,
     -             FILE, TITLE, RET, *998)                                   
*                                                ModellNamen schreiben
      WRITE (DUMMY200, '(3A)')
     -      'echo "', TITLE, '">> logname.log'
      CALL SYSTEM (DUMMY200)
                                                                                
************************************************************************        
      RETURN                                                                    
*                                                FEHLERBEHANDLUNG               
  998 CONTINUE
  999 RETURN 1                                                                  
                                                                                
      END