C*	FUNCTION STATEMENT  -  UNDFUN
C
C
      SUBROUTINE FUNCWR
      COMMON/FUNCT/ NFUNC,NFUNCT,BSUBNM(6),BFUNCT(6,50)
      COMMON/OUTPUT/ NTOUT
      BYTE BFUNCT, BSUBNM
      DATA NTTY/ 5/
C
      WRITE(NTOUT, 1010)
 1010 FORMAT('0', 'FUNCTION REFERENCES')
      DO 50 J = 1,NFUNC
      IF (BFUNCT(1,J) .EQ. 0) GOTO 50
      WRITE(NTOUT, 1020) (BFUNCT(I,J), I = 1,6)
   50 CONTINUE
 1020 FORMAT(' ', 3X,6A1)
      RETURN
      END