Title / Description
Code 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
Author
Highlight as C C++ CSS Clojure Delphi ERb Groovy (beta) HAML HTML JSON Java JavaScript PHP Plain text Python Ruby SQL XML YAML diff code
1.1.2
1.1.2