! Fortran EXAMPLE: Find 3D distance between points
! Compile with:  f77 -o Apostasi Apostasi.f
! Execute with:  ./Apostasi



!PROGRAM xwrikiapostasi
      IMPLICIT NONE
      REAL:: X1, Y1, Z1, X2, Y2, Z2, L, F
      WRITE(*,*) 'Dwse Syntetagmenes tou Simeiou 1 (X,Y,Z):'
      READ(*,*) X1, Y1, Z1
      WRITE(*,*) 'Dwse Syntetagmenes tou Simeiou 2 (X,Y,Z):'
      READ(*,*) X2, Y2, Z2
      !
      F = SQRT((X2-X1)**2+(Y2-Y1)**2+(Z2-Z1)**2)
      !
      WRITE(*,*) 'H Apostasi twn 2 simeiwn Einai:', L
      END