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