1 SUBROUTINE MAIN02 2C 3C*** SUBSONIC GROUND EFFECTS DATA EXECUTIVE 4C 5 COMMON /FLGTCD/ FLC(93), STMACH, TSMACH, TR 6 COMMON /FLAPIN/ F(116) 7 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF 8C 9C*** FLAP AND GROUND HEIGHT LOOPS 10C 11 NGR = FLC(63)+0.5 12 NFP = F(16)+0.5 13 IF(NFP .EQ. 0)NFP=1 14C 15C THIS WAS DONE IN CASE NFP=0, WITH FTN 77 (V) LOOP DOES NOT EXECUTE 16C 17 DO 1020 NF=1,NFP 18 DO 1010 IG=1,NGR 19 CALL M11O13 20 CALL M12O14 21 1010 CONTINUE 22 1020 CONTINUE 23 RETURN 24 END 25