      SUBROUTINE PDEGN(NEW7)
C SUBROUTINE TO PRINT OUT DEPENDENT PARAMETER INFORMATION IF A NEW
C  DEPENDENCY LIST HAS BEEN READ IN OR IF THE DEPENDENCY RELATION, 
C  BEING NONLINEAR, ARE SUBJECT TO CHANGE FROM ONE CYCLE TO THE NEXT.
C
      INCLUDE 'RFINE.PRM'
      INCLUDE 'D.INC'
      INCLUDE 'CNSTRS.INC'
      INCLUDE 'XPAR.INC'
      INCLUDE 'E.INC'
      DIMENSION ITEM(4,5),FACTOR(5) 
C
      INCLUDE 'SHIFT.INC'
C
   10 FORMAT('0DEPENDENT PARAMETER INFORMATION')
   12 FORMAT(1X,5(4I3,1X,E10.4)) 
C
      IF(NEW7.GT.0)GO TO 310
      DO 300 I=1,NPAR 
      IF(I1(IPAR(I)).NE.0)GO TO 310
  300 CONTINUE
      RETURN
  310 WRITE(IOUT,10)
      I=0
      L=0
      NPRINT=0
  320 I=I+1
      IF(I.GT.NDEGN)GO TO 340
      M=2*I-1
      IF(AA(M+1).EQ.0.0)GO TO 320
      L=L+1
      IF(L.LE.5)GO TO 330
      WRITE(IOUT,12)((ITEM(K,L),K=1,4),FACTOR(L),L=1,5)
	NPRINT=NPRINT+5
	IF(NPRINT.GE.100)GO TO 350
      L=1
  330 ITEM(1,L)=I3(KDEGN(M))
      ITEM(2,L)=I4(KDEGN(M))
      ITEM(3,L)=I1(KDEGN(M))
      ITEM(4,L)=I2(KDEGN(M))
      FACTOR(L)=AA(M+1)
      GO TO 320
  340 WRITE(IOUT,12)((ITEM(K,J),K=1,4),FACTOR(J),J=1,L)
      RETURN
  350	WRITE(IOUT,14)
   14	FORMAT(' FIRST 100 CONSTRAINTS PRINTED')
	RETURN
      END 
