C      N0DMP     DUMP ROUTINE FOR FILE CONTROL AND BUFFERS ASSOCIATED WITH
        SUBROUTINE N0DMP(B,IFJ,$)
        INCLUDE FORENV
        INCLUDE EXOTIC
        INCLUDE FORCR
      COMPILER (GEN=NOTRA)
        DATA IFLZ/0/
      INTEGER  NAME(2) / 2*-1/
        DIMENSION B(1)
         COMMON/FILTZZ/IB,IB2(20)
        COMMON /POOLZZ/PZZ(1)
      DEFINE  JB2(I)=IB2(I)
      DEFINE  QZZ(I)=PZZ(I)
        IF(IFLZ.NE.0)    GO TO 100
        IFLZ=IFJ
        IF(CUSFL.NE.0)    RETURN    @ NO DUMPS IF SET
        WRITE(6,5000)   (I,B(I+1),B(I+13),B(I+29),I=0,15)
5000     FORMAT(///'0', 'N0DMP INVOKED'//'0',9X,'B',13X,'A' 13X,'R'/
     1   (I8,2X,3(O12,2X)))
       IFN=H1(IB)    @ NUMBER OF INTERNAL FILES
       IFL=H2(IB)   @ LENGTH OF INTERNAL FILE TABLE
C       PRINT FILE TABLES
        DO 10 J=1,IFN
      NAME(1) = IB2(J)
10      CALL SNAP(LOC(JB2(4+IFN+(J-1)*IFL)),IFL,NAME)
C        PRINT FIRST SET BUFFERS
       IPL=H2(IB2(IFN+1))     @ LENGTH OF FIRST TYPE BUFFER

      IPN = H1(IB2(IFN+1))        @ NUMBER OF FIRST TYPE BUFFER
        DO 20 J=1,IPN
   20 CALL SNAP (LOC(QZZ(IPL*(J-1)+1)),IPL,'POOL')
       IYL=H2(IB2(IFN+3))         @ LENGTH OF THIRD TYPE BUFFER
        IYN=H1(IB2(IFN+3))       @ NUMBER OF THIRD TYPE BUFFER
        DO     50     J=1,IYN
        EXTERNAL POOL3
50      CALL SNAP(LOC(POOL3)+IYL*(J-1),IYL,'POOL3')
       RETURN
100    WRITE(6,9000)
        RETURN 3
9000    FORMAT ('  INTERNAL IO ERRORS PREVENT COMPILATION  ')
        END
