This preview shows page 1. Sign up to view the full content.
Unformatted text preview: point?" READ(*,*)x2, y2, z2 distance = SQRT(diff(x1,x2)*diff(y1,y2)*diff(z1,z2)) WRITE(*,*)"The distance between your two points is ",distance END PROGRAM REAL FUNCTION diff(a,b) IMPLICIT NONE REAL,INTENT(IN)::a,b diff = (b-a)**2 END FUNCTION...
View Full Document
This note was uploaded on 07/22/2010 for the course MAE 112 taught by Professor Freeh during the Spring '10 term at North Country Community College.
- Spring '10