C
C     BASIC: Interatomic Distance Measurement 
C
      REAL CA(3), CB(3), DIST
C------------------------------------
      READ(*,*) (CA(J),J=1,3)
      READ(*,*) (CB(J),J=1,3)
C-----------------------------------------
      DIST=SQRT((CA(1)-CB(1))**2 + (CA(2)
     1 -CB(2))**2 + (CA(3)-CB(3))**2 )
C-----------------------------------------
      WRITE(*,100) DIST
 100  FORMAT('  DISTANCE IS = ',3X,F10.3)

      STOP
      END