Uυ-qdCL 口-NLR@正目白U・Mn川uu-I口
5 8 D D
a '
a ュ
a w
‑
‑
pb
FORTRAN OKITAC 4500
STATE 問 ENT Li
I NE N O .
RE 了 υR 付
] M川M内
) 7 ' ) } ' i d l J v w s d i d V 9 R V ' '
K K 9 k l
,
}({A{<
QU、,、,AMmauMMAmva
,、@;J》宅A*ネ't本宇只d
1 0 9 5 ) } [ } ) } M W
ロυ創刊eJ制川υ府側川阿川似内74M司M川M内knRυ耐刈、,M同船内加川νKM刊船内gJvtiM川内υ、d
d@(*
, ,
E19.
,5/J
FM'FJ』RU93''''M内g''TAF4u-aav,.591・'9eiu例,、』F,、
AIL(iJIll
<
lll'KAIl---{11{DlJN JzaT-F9zz=Blzz=vlJ=
<
===B12=A(z'E JRTAI‑‑dlOK+51JOK+SIA‑‑49K+Rdido‑ATTlIG 、,ハu,、nυ、Auwnu'AUwznυ'A川wnυ3an汽,、τιLJ5V05DoshυL}D5D05DAEE Lo,/OZOO@2u腕zoo-zw=LDIDO@2w=0・2W34=zUAOld-O}llolD}Z202D}A3{4404D〉5日50D5)}NNoclfllad‑‑=l=lull‑‑l=JFLIN‑‑=l=Jlzl==lJJTAR --日='il'li,Ellav--l''TU
Y ( i 1 5 5 1 5 5 l E 5 5 1 5 5 5 1 J N T D
EOF5口{口口WCwlo司W口凶{OI口口W口湖{OMDuww口{fDENK竹内υ'iMnnυQU内μnνnununuuvnυnυnunυnuA内nuF」ハυnunυnυnuA内nνnununυnu内山MUM-AMnFしQnEL
92白20020Z40
0 1 1 2 2 3 4 4 5 5 5 1 l i l
‑
‑ 1 1 1 1 1 C i234567890I234567B90123456789012345678901E34
0口onMOonuAUDI--Ill--11222222222233333弐4333344444nunuハυAUハUnununυnunU内υnυnunUハununvnvnυハUハυnunuハυ門unυパUハυハunυハνnuハunuAυハUV内υnuAυハVハυハυハ》nu内υnuハU内U内υnυハυ門UAυnυ《UハU門UハunununuハU《υnvAυハUnυnV内υハυnu《υハUAUハunυハυnuハUAVハυ《UnυハU《υハunU《υ
0012
*車 JAC 白日 i JAC 巴 0010 JAC00020 JAC 巴 0030 PAGE SOURCE PR 司 GRAM LIST
7
nu
必吟
@ {
‑nu
‑
⑨円。
‑
@
。,@ }
・口@d仏守
@<
働p@l
a .. QU
.a9 v
) . }
組ηuM刈-A吋-aヲ'@ハU
v e 4 D
‑(M
,
a-V4
AMne門υ
.,
N
(・1VYAm‑nu
B
‑ 4
口@'NfLeハUmU《ハ-AM可yi
J
@ ( 5
‑AMnfi
‑ E
F。E
N e N Q
YA4・門UnY
T‑ュ
υ-SE 門U・M川1しnm白に」わり日-MUU--A口三J・門υnυa ュ
‑
m ュ
e piM
F 弓 RTRAN ロ KITAC 4500 STATEMENT LIN[ ND 圃
→ヤ淋判手怒川紅内向 J》「帯周パ判。日刊叫んに山 vdJTt 戸川吋 (HH)( 主将浦ぎ)(コ一義)
()l JA 亡白 0050
JACQ0060 JACQOO‑'O JAC00080 JAC00090 JACQ0100 JAC口 0110 JAC00120 JAC 白 0130 JAC00140 JACQO!50 JAC 口 0160 JACQ0170 JAC 口 0180 JAC00190 JAC00200 JAC00210 JAC00220 JAC 口 0230 JAC00240 JAC 巴 0250 JAC00260 JAC の 0270 JACQ028。
JAC 口 0290 JAC(う 0300 JACQ0310 JAC00320 JAC00330 JAC00340 JAC00350 JAC00360 JACC0370 jAC 司 0380 JACロ 0390 JAC00400 JAC00410 JAC 口 0420 JAC00430 JACOO440 jAC 巴 0450 JAC00460 JAC00470 JAC00480 JAC 白 0490
。口 100 ;::1? 付 口百 101 j::: 1 ! 斗 101 V( 1, j)=O.
100 V( 1 d ) "=1 $ NI ヱ刊ー l VN 口 R 阿 0=0.
DO 110 1 = 1. N 1 JE:: t '+ 1
DO 110 J=JE. N
110 VN 口 '<MD=VN 口ぇ MD+2..0DO ホ A(1 , J) 家 A( 1 ~ j ) lF(VNOR 何 o .LE. O.ODO) GO T ワ VNORM=DS 日同了( VNOR 例 0)
FN 自白阿 =VN 白只河本 5.0E-5 15WICH=O
120 VNORM=VNORM/Fl 司 AT{ 川) 125 0目 130 IQ=2~ 吋
lPEND=l 口付 1
D 口 140 lP:::::l
,
IPEF\lDIFlAB5(A(IP ,I O)) .LT. VN 口氏州)己口 了司 15 凶 ICH=l
FLAMDA=‑A( lP. 10)
FM U;:: ( A ( I P
,
1 P ) ‑A ( I Q., 1 Q ),
/2"口問 EGA=51GN(1, .FMU) 本 FI_AMDA/5 口 RT(F 門 u キ FMUφFLA~, DA 字 FLAMDA) W51=1. 情。判 EGA キロ MEGA
1 F( 凶 SI .LE. 0.) W52=1.
IFlWSl .GT. 0.) W52=1.+50RT(W511 SINF= 自 MEGA/50RT( 凶 52+ レJ52)
5INFF=SINF キ 51NF C05F=5 口 RT(1.‑SINFF) 口口 150 1 = 1
,
NIF( I.EQ.IP .自尺. 1.E 口 .10) G 口 TO 152 巳 IP{1 )=A{ 1 tI Pl*C 口 SF‑Al 1 , 1 口}キ 5lNF
日 IO(I)=All.IP).5INF.All.10) 字 C 閉 5F 152 VIIP =VII ,J P)*C05F-VII ,J O) 事 SINF
V( 1 ~IO)=V( 1
,
IP)*SINF+V( I , IO)*( 口 5F 150 V(ldP) ヱ VI1PC 口 SFF=C 口 SF 本 C05F SINC05=SINF 水C 門 SF
自 IP( IP)=AIIP ,r P) ホ E 口 SFF+AIIQ
,
1 白), SINFF 四 2. 本 A( IP.IO)*SINC 口 5 BI Q( 1 口}エ AI1 P. 1 P) ホ 51NFF+A( 1 口,I Q) ネ CðSFF+2ø 本 A( 1ρ ,r 白、本 5INC 口5 B lP( 1 口 )=(A( IPdP) 時 A1 ! O .r口) )ネ S1NC05 今 A(IP.IO)*(CaSFF‑5INFF) 邑 1Q( IP)= 日 1PI 1 Q)DO 160 101. N AI I']P )=BIP( 1) 160 A( I, ]O)=BIQll)
180
140 0001
0002 0003 口 004 0005 0006 00 口 7 0008 0009 0010 0011 0012 0013 0014 0015 0016 0017 0018 0 口 19 002 口 0021 0022 0023 0024 0025 0026 0027 0028 0029 0030 0031 003 之 口 033 0034 0035 0036 0037 0038 0039 0040 0041 0042 0043 0044 0045 0046 0047 0048 0049 0050
よ品
。、
き
て〉占
区]6. てコ
菜料叫以内師時何邸宅出惑江
0013
JACa0500 JACQ0510 JAC 巴 0520 JAC00530 JAC 口 0540 JAC00550 JAC 口 0560 JACQ0570 JACQ0580 JAC00590 JACQ0600 JAC 口 0610 JAC口 0620 JAC00630 JACM640 JAC 口 0650 JACo0660 JAC口 0670 JAC 口 0680 JACM690 JAC00700 JAC口 0710 JACa0720 JACQ0730 JAC口 0740 JAC 口 0750 ρAG 王 50UR CE PROGR A 門L1 5T
170
120
194 192 T 巴
TO TO T 口 GQ
G 口
G 口 GO FOえ TRAN
Dロ 162 1 = 1
,
NA( IP
,
I 1=8IP( 1)162 A([O
,
!)=B!O(!)14 口 C 口 N
r
I N UE 130 C 白川 TINUEIF( 15WlCH .NE. 1) 15WICH=0 G 口 丁目 125 170 IF(VN 口 RM .GT. FN 口R 州}
180 D 口 190 ! = 1
,
N 1D 自 192 j=l
,
N I F( J • EO. 1) IF(AMAX .GE. A(J,
J))194 A 問 AX=A(j ,j) MAX J=J 192 CONTINUE
W51=A(! , j ) A(]
,
!)=A(MAXJ,
MAXJIA( MAXJ ,何 AXJI=W51 DO 196 j=l
,
NW5!=V(Jd) V ( j
,
1 1 = V (J,
M AX J 1196 V(J ヲ門 AXJ)= 凶 51 190 CONTINUE
RETURN END 口 KITAC 4500 5TATE 阿 ENT L1NE N 口⑨
0051 0052 0053 0054 日 055 0056 0057 0058 0059 0060 凸 061 0062 0063 0064 0065 0066 0067 0068 0069 0070 0 口 71 0072 0073 0074 0075
0076
渋谷山中
0014
主/鴻
UH怒釘、司郎総菜
JUu口、叫ん叱有4栄町(HH)( ヨ民成主)(」一一主)
ーミliPAGE
ネホ E 己 U EQU 0010 E 口 U 0020 E 口 U 0030 EOU 0040 EOU 0050 EOU 0060 EQU 0070 EOU 0080 EOU 0090 E 口 U 0100
, 0 リ 0110 F 口 U 0120 EOU 0130 EOU 0140 E 口 U 0150 E 口 U 0160 EQU 0170 EOU 0180 E 臼 U 019臼 EOU 0200 EQU 0210 E 口 U 0220 E 0230 EOU 0240 E 0250 EQU 0260 EQU 0270 EQU 0280 EOU 0290 EQU 0300 E 臼 U 0310 E 口 U 0320 E 口 U 0330 E 口 U 0340 EOU 0350 E 口 U 0360 EOU 0370 EQU 0380 EQU 0390 主臼 υ 0400 E 口 U 0410 EQU 0420 E 口 U 0430 EQU 0440 E 口 U 0450 EOU 0460 EOU 0470 E 己 U 0480 0490 SOURCE PRQGRAM LI5T
F 口 RTRAN OKITAC 4500 STATEMUJT LlI N 巨 NO.
SUBROUTINE EOU(
A, NVAR.
NVARY, * )
仁 .. ... . .~ .. . .. c e .. ., ..~ ... ..,.
. . . " . . . . . . . . " . . . . . . .
"・・@・ ø.".... ・・..・・ e ・・・DIMENSI 口 N A(40 , 4 口 )1 jX(40)
, IX(40)
12
16
TQ
T r
m U
T
内υ
r u
}
ー
白m・・
、dハ》川判t」
、,Ft門unu
、4・Q寸Fしj ' X N N ) K A O O J
,KMH、,,
A J E E 6 1 f r b r u p E {
5・NNEEA日口AAE'本ANHYH凶ivlyv
R R R A C R F U R S R V R R 5
QAAA--A)A)ωAIAAE
A V V V E V J V X T V O r V V R
vvNM151本N'V)V本NAV〕VキLN/NN-ホ刊@本XSX5*MmSX5本@})ネ,,剛警⑮本9AEAR泳9iMEAD門事'lue,)9Jキ'111ぅ口*11dMHR1MHVA山本1),R}門V八本}l,lI)l'也事
12〕-一一一V)Eネ=J1=IIJ*=lkziJlmv=I=lzL救=11Jklive*J'(){{ヱ*K,{)〈(之本@1J(L.,J〈*
l,p,EホIAJXX1本KAXXX}*1PA臼LDAEEE*111{KUXW(=・JJXネ(二AIlx*=(=EtZ2UUU*2Z口{112Z5〈KJNA*4A1xz一一A*5A}Mnza-A*)58〉D-A)Z)NNN*
l〉)iA==lISA--=IM*12JAV}阿キ1=IJV}阿キIBlJZ=12JIllキTAIl--XXA2XXTI*v'M門511*v''51J宇9A,Lv,,TTT*({VAA{VAAN{キ511R(〈本SKKRtt山本I(I{5LLNNN*百XXDIM-M33FiMMOFホロE({XXX*口E〈{XXX字〈F口{白FE〈内υ(白内V白山専門υildDPIJ口ヨlot--ぜCIホDQAAJJJ*DRAATA--*AiOAnu-RA臼ACCC*ホ本宮城12ホ4怠5*68200*1*1*1山手il22lネ本命令*キ
Pしptwp」FU
GC
REγU 宍 N
20
民 EARRANGE ON C 口 L.
OU 丁目
G 口 0001
0002 0003 0004 0 司 05 0006 0007 0008 0009 0010 0011 0012 0013 0014 0015 QOl 0017 0018 0019 0020 0021 0022 0023 0024 0025 0026 0027 0 口 28 0029 0030 0031 0032 0033 0034 0035 0 口 36 0037 0038 0039 0040 0041 0042 0043 臼 044 0045 0046 0047 0048 0049 005 ワ
品
。。
き ーコ づ 区16.
学円減町民訴航空冷嘉子
0015
EOU 0500 E 口 U 0510 E 口 U 0520 EOU 0530 EQ じ 0540 E 口 U 0550 EQυ0560 EOU 0570 王 OU 0580 EOU 0590 EOU 0600 .暢制限---ー由自国帥島嶋崎冊目 置司ー--ー⑤也帽暢-~--白 EQU 0610 EOU 0620 EOU 0630 EOU 0640 EOU 0650 EOU 0660 cou 0670 E 口 U 0680 EQU 0690 EOU 0700 E 口 U 口 710 E 口 U 0720 EOU 口 730 正日 U 0740 PAGE SOU只 CE PR 口 GRA 阿Ll ST
OKITAC 4500 5TATEMENT
@ M刊門υn代N 門
rζ G白
川T
A u n
nHけ門υn汽fuA門
E Y
Rω民nOR円}RRpR門門尺代)
《M例いn内、,、,《Mハパりuw.A門AM州円、,、,A門1VMv曹υv?ムγよVMwwr、〉Jυν、,Vuw.げ凶vE?ιAゐ7ι4&υu》膨,Vv、,NNω吋吋DR円F5与Tlι品牟卒NNNV5I
‑
‑ x E {
*
‑ e 5 E (
,,GE'JRX*'avaE-宮内RX17SELl)9=J*lTAEL-、,xzI
==E@=I」}ヱ*zz・・2JI〉=
IJJ'(V>*1JJ9(J3 )
E V J A S V E
* ) E V I A
‑ ' V E
JU5{ZR5U*JU5[=V5υ 。ltNRZA)XRN*01{NR2A)50nNN33xIX3=iJXI也事44XIX4=JRXIRJTJv''JTホiTIv'xiTU{川内tsJJ(M刊本{N〈5IYA(NTnuo門UF内υ同』1DELI,、Vハ門ν*口口問卜内υFdF仁{{X門UCLM川口DICTADRAAJC本白DTACIDRAAICRE本
l z o
* 1 2 0 3 3 3
* 4 4 4
合み r u
: 50
40 JXRSV=J
TO
IXRSV=J (ュ口 F 口 RTRAN
LJNE NO.
00 号 i 0052 0053 0054 0055 0056 0057 0058 0059 0060 0061 0062 0063 0064 0065 0066 0067 0068 0069 0070 0071 0072 0073 0074 0075
瀦ωO日中
挙対立爆続同戦薬
uu。口、台市川父、dd刑罰ヰハロ)(ヨ尚埼 )T 一)(」一一議)
0016
X O D 1 2 3 D D T 0 0 0 0 0 1 2
HUnu州内U刈制問M川ハUハU門unv円い》門υ門M門VAunvX問問MnM刊XXTmM門unMTT
泳UOワロ巴UU*白CCCC巴町
}
5 0
』L宅'A
C L '
5 2 0
剖川川内υnMVフ』t、 -vt、vhnVAパ7411v
FU ph rU
7i、9《UM内
Aハハut」
む2.,M刊,‘号、,
M刊、dハυ
' A 1 4
fuN山マフ4e'
TL
<
O A E 7 4
Fし5N'KM司角Mnuv
・9了t
@圃曹、ι'ベザ.,‑AHDl)
‑ T 2 0
・A(aV4
@DE}
,
‑ N H O O )
‑ F A 2 4 0
・N〈〈4
@ 9 X L H (
aaハFru門@γj'にv・内N-A門戸トyi・、J門υ・口FハVMM1
@ N U ' 4 A X
--au・、,,川汁
@'NOOL
,
‑ X 2 4 E } -M'(
<
30
・EFG5z
‑ T H T 5 ' (
・INAOEN-CRM川A
.,,
JCAE 6 M L N M h
‑EO'avxx @γ4にJ、,、,
-iNOG-,
x・24N??4.,,r、F、門Uハv
u
‑ M P G 1 1 4 d B E U T 1 5 {
@T口ASix@eionpL内ur、 じに-NGN只E
N e I N I C R N
Tよa'''pi円U
T
@ I
HUSMぺFζくd内U-mufL州川R-M日E日・問U門uua門υ門U74にJ・pi、円υ内υ
・14フrL更J
•
‑
@ F M
品
<.0
刊日的河田切∞日初日刊目的初回開∞印日山初刊目的羽田叩∞mmm拍目的mm叩叩ωmm刊Doooool--11Ill--ゐ2222222222333333333344444ハυnvnvハUハυnunυハununununUハunυハVAUハUハ)ハνハVハυAU《U《υAUハUハunUハUnvハUハUnvAUnuハUハUハυnυ八Uハいv
x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x
TTTTTγTγ了T〒TTTTTTψTTTTTTTT了TTTTTTTTTTTTTγl引υHUいUいUUUいUHUHυUUいU川υHUUυいUHUUUHUHυuuuuuuhUHUHυHUHυ川UHUけUUUHUUUUUNUHUHU川UHVHUいUHunmonDE6505C門υ門υC口口の口出町内UOCO目白白白内V口口自白巴白白の白内U自白
>>
1 1 { ( M M
nM川内代mu門UM河川吋
x x
'
} K { M川n内「Et M円J4吻Vハ
3白9,6'
, A } ) γa7A72& ι
R“ハn,白弘、f
D
? X V X
八M川守i.,ヲa'
,
rj+FlL」fU,,rgrt門ν門U5村NNu例川川吋1'崎千,、A,
} T a } K
E--<
。}+4(M09
0 2 F 3 5 9 A 3 9 1 + H 1 5 1 N 1 9
FN門Ul--LU門(R(ECNidcvsd口
T ' i T
=
= T T
1JPコ、,、J、,、d r、内Uγιγ490ハUdRSnNH弐口{〈013口
G R 5 C R f u X X 6 6 G G
。。本D,,
CR
>
C66
cl}(
<
,歌+KEE
} 1 F ) ( T T X 1 1 H I N
‑
‑ i r b
,
+N}(AARRTL
)11FF(E})〉EITEEF仁川開WA〉口
2 } ( H H i l l K 2 2 1 1 A i m
‑ } E 2 5
-HNNi-(5口X}XN)N
.,,51)'1・・'口N・9ω,K})M1・Gl'JE+K58口T5RF5)5{11E9{iq')FL〈)1{R))){[口EGIC/II'ATT-ムMM-E20・HZD25C46KGェL・・22キ5ヱ{一→Ra--=RP-一一口(D2J5(OO(T131)WIXIAG--口UL6pア161白γ66TAgPPI-==TErueN口P9UN,RR''RC口UUE(})5e@ETXRU6口臼60C966AJZEI口口-U6XK81Diu-L4=GDDtR5{巴1+5((7l+30+RR白ON3AV(3〈4四CCN・4)NR5EG=ET--5二EEl5511667ZI--SNlMHIIDE--12ful丁N同TD凶R770+III1M1N〉TOWA同=NNTK,LN-(RI--=RI--~DK==(一四{(IN==ξDC{{NfI口(ベパF門UQ一向U505口RRl=ご5EdFIFFO(門U5DSN口NddFFDF口(SF口
uwicwruuwDWCwwikklIDI‑‑iGXCHWDWXDXDNilclDVN1D
0 0 0 0 4 2 6 8 0 4 0 1 2 3 3 3 3 3 4 4 1 1 i 1 1 1 1 1 1 1
PAGE 5 白 URCE PROGRAM LI5T
FORTR AN 口 KITAC 4500
5TA 了 E 門 ENT
C LlNE NO.
0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 ワ 012 0013 0014 0015 0016 0017 0018 0019 0020 0021 0022 0023 0024 0025 0026 0027 0028 0029 003 口 口031 0032 0033 0034 0035 0036 0037 0038 0039 0040 0041 0042 0043 0044 0045 0046 0047 0048 0049 0050
LlNE N 口 e 0051 0052 0053 0054 0055 0.056 0057 0058 0059 0060 0061 0062 0063 0064 0065 0066 0067 0068 0069 0070 0071 0072 0073 0074 0075 0076 0077 0078 0079 0080
0 凸 81
図 6. つづき 印。
OKITAC 4500 F 口 RTRAN 5 口 URCE PR 口 GRA門Ll ST STATEMENT
PAGE 0017
nvnuハυnununUAυハunυハununυAUハυnu《Uハυハυ《υnuハUnVAυハUハununununuハυハυ
5678901234567890123456789012345 4444455555555556666666666777??7
nunυハunVAU《υ門υハUハUnuハυハU内υ《νハunvハ》ハvnu《》《υ門unununvハυハυハυハ》《υハυ
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
けυUUHU川υ日υけUHυHU川UHυ川υHU什UHUHυHUHUHUHUHυHUHU川UHUHUHUHUHUHUHUHUO口口口口口門口ウ口町口口口白白白白白白何百戸口白内U白内U口口百
什Ui
I E A H n k
J代内υFし仰向
F 、J
n u
viAM川TlbAU門
A E
l」M門「tunω門ハυR1・門uav
f L V A
、,unnυ空81nて1A'd,、,FLPしV《,rnK50/司
、4・au『Pιv叫ぺ,@ra内U川門oounTie-t・F十RJ
T'''
U 5 z x L e 5 3
AU向Unυ門U'A40
5 5 1 1
?
@ l F T Y O
E a v A R Z
H2R口F〉口TG26
T E N E ュ
UOγ190
: L I A 6 2
内UスザAハ?lF」、spec
ruVAuntLO,
L 8 R 2 X
FNE,oEO )
L E R x c z
knnυrUDハミdにd''
}{XAio,26
xlNruTEC問L1・M川}[AATH、,HEAavOEE}EiTEEA3/9TMいX2
7 I l k
‑ I A i u n c
* i / 1 1 R 9 E
I'{5DXN}本'4'H口''-〉'I'DN,mIホx-X4N82
'A?K555RF53'{*D8o,HAI
l){10)IC/111M門*2Fzxz''=krb=LL42*5={23、l/'/31xxkty--'5I}MIx-OH/=/2・'96TA-Ill-同ZN7/un//X13RPUG-Et}】EXE3/l//自/2AJ4Ei〈・U8xkoIUz--uf{,i〈,{tsT+F3BAYV口DN5+t6{N6)NNTTTTTT15511回目T=1・lSN1MHIlLIRAAAAAAGITa--)}TDUWART'TU門MHMHMいMnMH=冊一二〈=TAINZ2EDNINTR、unRRRRB
I口5FLDFl(白{口S口5例DNd口(OELODED自由NIDi-DlixruxcwD凶XDXCDVCRFFFFFFE
1 1
64B口22090Z4680
5 5 5 6 5 6 5 9 0 G O O G ュ
‑ l i l 1 1 1 9 6 6 6 6 6 6
品弁叫神州円相蹄結型消同選時
事専吋叫ωC日ヨ
lINE NO.
0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 0012 0013 0014 0015 0016 0017 0018 0019 0020 0021 0022 0023 0024 0025 0026 0027 口 028 0029 0030 0031 0032 0033 0034 0035 0036 0037 0038 0039 0040 0041 0042 0043 0044 0045 0046 0047 0048 0 口 49 0050
白 KITAC 4500 FORTRAN SOURCE PROGRA 刊し1ST PAGξ0018
5TATEME 川 T
VAハUハU,Aヲι73ハUハυハunu
T 0 0 0 0 0 1 2 3 4
AM門ハUM附M刈川内州内ハυハununvTlnumU内UmU門unvハυハυnV
5 T m M H M T T T T
A幽門MHMnMHMnAMnA内仇ハAM門ホT'内υ門u門いV門UTiv-??γ2wゃ5CCCC5555
}
5 O