C
C $Id: bleng.F,v 1.2 1998/07/16 16:39:23 jjv5 Exp arjan $
C
C------------------------------------------------------------------------
      SUBROUTINE BLENG(XYZ,I,IA,RLENG)
C
C     COMPUTES THE BOND LENGTH IN ANGSTROMS BETWEEN ATOMS I AND IA.
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION XYZ(3,*)
      XA = XYZ(1,I) - XYZ(1,IA)
      YA = XYZ(2,I) - XYZ(2,IA)
      ZA = XYZ(3,I) - XYZ(3,IA)
      RLENG = DSQRT(XA*XA + YA*YA + ZA*ZA)
      RETURN
      END