(Продолжение изменены!
Ay / л
ГОСТ25645./J9—S6)
■
С
ССЧИТЫВАНИЕ МОДЕ
Л
ЬНЫХ ТАБ
Л
ИЦ Д
Л
ЯМИНИМУМА
С
2OPEN (I. FILE- MOD MIN-. FORM=’FORMATTED)
DO III) 1=1.21
DO - 120 J—1.36
l>0READ (1, .) <ELM(I. J. K). K=I.I8)
110CONTINUE
CLOSE (1)
GOTO 33
c
СВВОД ГЕОГРАФИЧЕСКИХ КООРДИНАТ
33WRITE (*. 3)
^FORMAT (IX. ВВЕДИТЕ ВЫСОТУ (КМ). ШИРОТУ. ДО
Л
ГОТУ*/
&
(ДИАПАЗОН ВЫСОТ 350-1000 KMV)
READ (...) ALT. LAT. LON
IF(LON.GT ISO) LON=LON-360.
DO 4 1=1.19
IF (LAT LE GLAT(I)) GOTO 6
)
4CONTINUE
6
00 5.1=4.37
IF (LON.LE GLON(J)) GOTO 7
5CONTINUE
7DO 8 IJ=1.7
DO 9 IK -1.3
IKK=(IK-I).7+IJ
9B(IK)-ELM(IKK. J-l, 1-1)
CALL LAGRIB. ALT. FLUX)
8FLL(IJ)-FLUX
C
СВЫВОД НА ТЕ PMИНА
Л
WRITE!,, 100) ALT. LAT. LON. EN. FLL
100FORMAT (IX. / ВЫСОТА -. F50.0. KM. \
&
ШИРОТА \ F6.0. •ДО
Л
ГОТА-, F6.0./IX, ЭНЕРГИЯ (
kc
V)-, 4X.7F8.0.
& /.IX. • ПОТОКИ Э
Л
ЕКТРОНОВ’.2Х,7(1 PE7.0,1X)./U,-(l/C M ’2 O’)
GOTO 33
STOP
END
SUBROUTINE LAGRIB.ALT, FLUX)
C
СИНТЕРПО
Л
ЯЦИЯ ПО
Л
ИНОМОМ
Л
АГРАНЖА
REAL В(3)Д<3)
DATA A/350.. 500.800./
S**D
IF (ALT EQ A ll» THEN
/
Продалженке ем с 16))
162