*COMDECK ALOUTINFO
      SUBROUTINE OUTINFO(I) 
C 
C 
C 
C        THIS ROUTINE OUTPUTS A LIST OF DELETED TOPHATS IF REQUESTED
C        BY THE USER, ONE PER CALL.  ENTER WITH I EQUAL TO THE
C        INDEX TO MODTABL FOR THE ENTRY OF THE TOPHAT BEING DELETED.
C 
C 
*CALL ALCOMMON
      DATA INIT /1/ 
C 
C 
C        RETURN IF NOTHING IS REQUESTED.
C 
      IF (RPTGEN .OR. .NOT.INPRPT) RETURN 
C 
C        OTHERWISE, OUTPUT A HEADING IF ONE HAS NOT BEEN CREATED, 
C        AND PRINT THE TOPHAT MODULE NAME.
C 
      GO TO (5,20), INIT
    5 INIT = 2
      WRITE (LIST,10) 
   10 FORMAT (*1DELETED TOPHAT MODULE LIST*//)
   20 WRITE (LIST,25) MODTABL(1,I)
   25 FORMAT (5X,A6)
      RETURN
      END 
C 
C 
