Textos de Apoio (pdf)

ITTC – Recommended
Procedures
Performance, Propulsion
1978 ITTC Performance Prediction
Method
7.5 – 02
03 – 01.4
Page 19 of 31
Effective Date
1999
Revision
00
C
C
C
C
CALL IP
RETURN FOR NEW INPUT
DO 20 I=1,2
FILE1(I)=FILE(I)
MODLS1(I)=MODELS(I)
20 MODELP1(I)=MODELP(I)
SCALE1=SCALE
GOTO 1000
C
100 CONTINUE
DO 110 I=1,2
FILE(I)=FILE1(I)
MODELS(I)=MODLS1(I)
110 MODELP(I)=MODLP1(I)
SCALE=SCALE1
C
CALL ANLSYS
C
C
C
C
RETURN FOR NEW INPUT
GOTO 1000
999 STOP
END
C