Textos de Apoio (pdf)

ITTC – Recommended
Procedures
Performance, Propulsion
1978 ITTC Performance Prediction
Method
7.5 – 02
03 – 01.4
Page 24 of 31
Effective Date
1999
Revision
00
C
C RESULTS PAGE 3
C
30 CONTINUE
DCFC=DELCFC*1000.0
IF(IC.EQ.1) WRITE(6,620) DCFC,DELWC
IF(IC.NE.1) WRITE (6,619) CP,CN
WRITE(6,617)
DO 31 I=1,NOSP
WRITE(6,618) VS(I),APDT(I),BPDT(I),ANT(I),BNT(I)
31 CONTINUE
....40 RETURN
END
C
C
*****************************************************************************************************
***
C
C IRAT= 0 INTERPOLATION WITH A 2:ND DEGREE POLYNOMIAL
C = 1 INTERPOLATION WITH A RATIONAL FUNCTION OF 2:ND DEGREE
C X = ARGUMENT ARRAY
C Y = VALUE ARRAY
C N = NUMBER OF ARGUMENTS
C EX = ARGUMENT
C IFEL = ERROR RETURN CODE
C
C
*****************************************************************************************************
***
C
REAL FUNCTION APOL(IRAT,X,Y,N,EX,IFEL)
DIMENSION X(1),Y(1)
C
C CHECK NUMBER OF POINTS > 2
C
IFEL=0
IF(X(1).GT.X(N)) GOTO 2
IF(X(1).GT.EX.OR.X(N).LT.EX) GOTO 7
DO 1 I=1,N
L=1
IF(EX-X(I)) 4,4,1
1 CONTINUE
GOTO 4
2 CONTINUE
IF(X(1).LT.EX.OR.X(N).GT.EX) GOTO 7
DO 3 I=1,N
L=I
IF(EX-X(I)) 3,4,4