C CALCULATE RATE OF CLIMB SUBROUTINE CLIMB(V1,V9) INTEGER Z IF(ABS(V1-V9).LT.1.6)GO TO 100 Z=(V9+25)/1.5 IF(Z.GE.1)GO TO 30 Z=1 30 CALL VERTCL(18,1,3,33,Z) Z=(V1+25)/1.5 IF(Z.GE.1)GO TO 50 Z=1 50 CALL VERT(18,1,3,33,Z) 100 RETURN END