teste

Ruby code posted
created at 20 Oct 13:31, updated at 20 Oct 13:33

Edit | Back 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
  DO FLAPINDEX=1,NUMFLAPS

    CALL SetFlaps(FLAPINDEX, FLAP)

    DO CONFIGINDEX=1,NUMCONFIG

      CALL GetAttcs(CONFIGINDEX,ATTCSFLAG)

      DO ATTCSINDEX = ATTCSFLAG,1

        CALL SetAttcs(ATTCSINDEX,ATTCS)

        DO RWYCONDINDEX=1,NUMRWYCONDITION

          CALL SetRwyCond(RWYCONDINDEX,RWYCONDITION)

          CALL SetConfig(CONFIGINDEX,THRUSTNAME)

          CALL GetTableName(THRUSTNAME,RWYCONDITION,ATTCS,
     +        FLAP,TABLENAME,TABLENAME2,TABLENAME3,TABLENAME4)

              IF (CALCULATE.EQ..TRUE.) THEN

            CALL CalcWeightCorrTable(REFWEIGHT,REFINDEX,TABLENAME)

            CALL CalcHpOATtable(TABLENAME)

                CALL CalcSlopeCorrTable(TABLENAME)

                CALL CalcWindCorrTable(TABLENAME)

              END IF

          CALL WriteHeader(THRUSTNAME,RWYCONDITION,ATTCS,FLAP)

          CALL WriteV1(TABLENAME,THRUSTNAME,RWYCONDITION,ATTCS,FLAP)

              CALL WRITELOG(THRUSTNAME,RWYCONDITION,ATTCS,FLAP)

        END DO


        CALL WriteVR(TABLENAME2,THRUSTNAME,RWYCONDITION,ATTCS,FLAP)

      END DO


    END DO

    CALL WriteV2(TABLENAME3,THRUSTNAME,RWYCONDITION,ATTCS,FLAP)

  END DO

  CALL WriteVFS(TABLENAME4,THRUSTNAME,RWYCONDITION,ATTCS,FLAP)
  READ(*,*)


  END
1.19 KB in 3 ms with coderay