C
C $Id: chkres.F,v 1.2 1998/07/16 16:39:30 jjv5 Exp arjan $
C
C------------------------------------------------------------------------
      SUBROUTINE CHKRES
C
C     FINDS MIN AND MAX INTER-ATOMIC DISTANCES FOR EACH RESIDUE
C-RDC C     AND WRITES THEM TO THE MAIN OUTPUT FILE.
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
#include "divcon.dim"
#include "divcon.h"
C
C
C-RDC       WRITE(IOUT,'(//" RESULTS FROM CHKRES",
C-RDC      .             //17X,"MINIMUM",24X,"MAXIMUM",
C-RDC      .              /" RESIDUE",9X,"DISTANCE",23X,"DISTANCE"/)')
C
      DO 100 IRES=1,NRES
        DMIN = 9999.0D0
        DMAX = 0.0D0
        IMIN = 0
        JMIN = 0
        IMAX = 0
        JMAX = 0
        I1 = IRPNT(IRES)
        I2 = IRPNT(IRES+1)-1
        DO 50 I=I1,I2
          IF(I.EQ.I1) GO TO 50
          DO 40 J=I1,I-1
            DIJ = DSQRT((XYZ(1,I)-XYZ(1,J))**2
     .          +       (XYZ(2,I)-XYZ(2,J))**2
     .          +       (XYZ(3,I)-XYZ(3,J))**2)
            IF(DIJ.LT.DMIN)THEN
              DMIN = DIJ
              IMIN = I
              JMIN = J
            ENDIF
            IF(DIJ.GT.DMAX)THEN
              DMAX = DIJ
              IMAX = I
              JMAX = J
            ENDIF
 40       CONTINUE
 50     CONTINUE
C-RDC         WRITE(IOUT,'(2X,I4,6X,"R(",I4,",",I4,") =",F8.3,
C-RDC      .                     9X,"R(",I4,",",I4,") =",F8.3)')
C-RDC      .        IRES,IMIN,JMIN,DMIN,IMAX,JMAX,DMAX
 100  CONTINUE
      RETURN
      END