>>356
とりあえず、DO, IF文と配列を使う演習問題風にするとこうかな？
後は自分で（）の中を書き足して下さい。

PROGRAM HOGE
PARAMETER (RO=1000.,PI=3.141593,G=9.8)
REAL H(N),A1(N),PX(N),PZ(N),XC(N),ZC(N)
(BとDを入力)
DO 100 I=(N回まわす)
H(I)=I*0.2
IF (0≦H(I)≦1) THEN
(0≦h≦1のときの計算)
ELSE IF (1≦H(I)≦2) THEN
(1＜h≦2のときの計算)
ELSE IF (2≦H(I)≦3) THEN
(2＜h≦3のときの計算)
END IF
100 CONTINUE
WRITE(*,'(6A12)') 'H','A1','PX','PZ','ZC','XC'
(表を出力)
STOP
END

FORTRAN77って ELSEIF 使えたっけ？