part1b - WRITE&quot&quot DO h=0,40000,2000...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
PROGRAM part1b IMPLICIT NONE REAL::G=6.672E-11,M=5.98E+24,R=6371000,gravity INTEGER::h WRITE(*,100)'Height','Accel.' 100 FORMAT(A8,3x,A8) WRITE(*,100)'(km)','(m/s^2)'
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: WRITE(*,*) "--------------------" DO h=0,40000,2000 gravity=-G*(M/(R + (1000*h))**2) WRITE(*,200)h,gravity END DO 200 FORMAT (I8,3x,F8.4) END PROGRAM...
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.

Ask a homework question - tutors are online