С. 30 ГОСТ 25645.115—84
DO 10 1=1,28
IF (АР LE.PAP(I+1)) GOTO 1
DKP = DKP+D
10 CONTINUE
1 A=PAP(I+1)—PAP (I)
B= AP—PAP(I)
C= B/A
KP= DKP+D*C
RETURN
END
BLOCK DATA
IMPLICIT REAL*8(A—H, O—Z)
COMMON/QKOEF/Q(26,3)/YEAR/P(38)
COMMON/UKOEF/U (8,4), GR, WZ
DATA U/O.DO, 20.DO, 60.D0, 100.DO, 150.DO, 300.D0, 60O.D0, 900.D0,
* 1.238D0, .09013DO, .31043D—3, .53675D—6, .20078D—8, .1866ID—10,
* 11273D—12, .56916D—14, .90764D—1, .16739D0, .12376D0, .17527D0,
* .40825D—1, .19885D—1, .14474D—1, .39247D—2, —.20452D—2,
* .62669D—3, —.68999D—3, .1287D—2, .10167D—3, .97266D—5, .15127D—4,
* O.DO/
DATA
R/^.028D0, —.045D0, —.047DO, —.035D0, —.OllODO, 0.022D0, .057D0, .09D0,
* .114D0, .125D0, .118D0, .096DO, .06DO, .018DO, —O37D0, —.086DO, —.128D0,
* —.162D0, —.185D0, — 199D0, —.202DO,—.193D0, —.173D0;— 14D0 —
—.096D0,
* —042D0, 0.015D0, 07D0, .115D0, .144D0, .159D0, 145|D0, H2D0, 084D0,
* .044D0, .006DO, —.023DO, —.04D0/
END
(Измененная редакция, Изм.
Л& 1).