C CALCULATE ALTITUDE SUBROUTINE ALT(H,H0) INTEGER Z IF(ABS(H-H0).LT.100.0)GO TO 100 Z=H0/150 IF(Z.GE.1)GO TO 30 Z=1 30 CALL VERTCL(7,1,3,33,Z) Z=H/150 IF(Z.GE.1)GO TO 50 Z=1 50 CALL VERT(7,1,3,33,Z) 100 RETURN END