*COMDECK ALOUTPASS
      SUBROUTINE OUTPASS
C 
C 
C 
C        THIS ROUTINE IS USED TO OUTPUT THE PASSIVE DIRECTIVES
C        AS THEY ARE READ, IF REQUESTED BY THE USER.
C 
C 
*CALL ALCOMMON
C 
C        RETURN IF NO LISTING REQUESTED.
C 
      IF (.NOT.OUTDIRD) GO TO 20
      WRITE (DIRUNIT,10) (CARD(I),I=1,80) 
   10 FORMAT (80R1) 
   20 WRITE (TMPUNIT,10) (CARD(I),I=1,80) 
      TMPDATA = .TRUE.
      RETURN
      END 
C 
C 
