*COMDECK ALOUTIDIR
      SUBROUTINE OUTIDIR
C 
C 
C 
C        THIS ROUTINE LISTS A COPY OF THE INPUT DIRECTIVES IF 
C        ONE IS REQUIRED. 
C 
C 
*CALL ALCOMMON
      DATA SWITCH /1/ 
C 
C 
C 
C        RETURN IF NOT REQUESTED. 
C 
      IF (.NOT.INPRPT) RETURN 
C 
C        OTHERWISE, OUTPUT A HEADER IF NONE HAS BEEN WRITTEN YET, THEN
C        THE INPUT DIRECTIVE. 
C 
      GO TO (10,20), SWITCH 
   10 SWITCH = 2
      WRITE (LIST,15) 
   15 FORMAT(*1AUTOLINK INPUT DIRECTIVES LIST*//) 
   20 WRITE (LIST,30) CARD
   30 FORMAT (1X,90R1)
      RETURN
      END 
C 
C 
