C------------------------------------
C     2D ARRAY
C------------------------------------
      REAL CA(3), CB(1000,3), DIST
      NATOM=100
C------------------------------------
      READ(*,*) (CA(J),J=1,3)
C----------------------------------------
      DO I=1,NATOM
      READ(*,*) (CB(I,J),J=1,3)
      ENDDO
C-----------------------------------------
      DO I=1,NATOM
      DIST=SQRT((CA(1)-CB(I,1))**2 + (CA(2)
     1 -CB(I,2))**2 + (CA(3)-CB(I,3))**2 )
      WRITE(*,100) I, DIST
      ENDDO

 100  FORMAT(I5,3X,F10.3)

      STOP
      END

~

~

