• 検索結果がありません。

Uυ-qdCL -NLR@正目UMnuu-I

5 8 D D  

a '  

a ュ

a w

 

pb 

FORTRAN  OKITAC  4500 

STATE 問 ENT Li

I  NE  N O .  

RE 了 υR 付

MM内

) 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制川υ府側川阿川似内74MMMknRυ耐刈、,M同船内加川νKM刊船内gJvtiM川内υd

d@(*

, ,

E19.

,5/J

FM'FJRU93''''Mg''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,、Auwnu'AUwznυ'A川wnυ3an汽,、τιLJ5V05DoshυL}D5D05DAEE Lo/OZOO@2uzoo-zw=LDIDO@2w=02W34=zUAOld-O}llolD}Z202D}A3{4404D550D5)}NNoclfllad‑‑=l=lull‑‑l=JFLIN‑‑=l=Jlzl==lJJTAR --日='il'liEllav--l''TU

Y ( i 1 5 5 1 5 5 l E 5 5 1 5 5 5 1 J N T D  

EOF5口{口口WCwloW口凶{OI口口W口湖{OMDuww{fDENK竹内υ'iMnnυQUμnνnununuuvnυnυnunυnuAnuF」ハυnunυnυnuAnνnununυnu内山MUM-AMnFQnEL

9220020Z40

0 1 1 2 2 3 4 4 5 5 5   1 l i l

‑ 1 1 1 1 1   C  i234567890I234567B90123456789012345678901E34 

0onMOonuAUDI--Ill--112222222222333334333344444nunuハυAUハUnununυnunU内υnυnunUハununvnvnυUハυnunuハυ門unυパUハυハunυハνnuハunuAυUV内υnuAυVハυハυハ》nu内υnuU内U内υnυυ門UAυnυUU門UunununuUυnvAυハUnυnV内υハυnu《υUAUハunυυnuハUAVハυ《UnυU《υハunU《υ

0012 

*車 JAC 白日 i JAC 巴 0010 JAC00020  JAC 巴 0030 PAGE  SOURCE PR 司 GRAM LIST 

nu  

必吟

@ {  

‑nu 

⑨円。

。,@ }  

・口@d仏守

@<

p@l 

a .. QU 

.a9 

) . }  

ηuM-A-a'@ハU

v e 4 D  

‑(M 

,

a-V4

AMneυ

.,

N

(・1VYAm‑nu 

B

‑ 4  

口@'NfLeハUmU《ハ-AMyi

J

@ ( 5  

AMnfi 

‑ E  

FE

N e N Q  

YA4・門UnY

T‑ュ

υ-SE UM1nm白に」わり-MUU--AJ・門υnυ

a ュ

m ュ

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 '+ 

DO  110  J=JE.  N 

110 VN 口 '<MD=VN 口ぇ MD+2..0DO ホ A(, 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\lD

IFlAB5(A(IP ,I O)) .LT. VN 口氏州)己口 了司 15 凶 ICH=l

FLAMDA=‑A( lP. 10) 

FM U;:: ( A ( I P 

,

‑A 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

,

IF( 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) ヱ VI1P

C 口 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

,

A( IP

,

I 1=8IP( 1) 

162 A([O

,

!)=B!O(!)

14 口 C 口 N

I N UE  130 C 白川 TINUE

IF( 15WlCH  .NE.  1)  15WICH=0  G 口 丁目 125  170 IF(VN 口 RM .GT. FN 口R 州}

180 D 口 190 ! = 1

,

D 自 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

,

MAXJI

A( MAXJ ,何 AXJI=W51 DO  196  j=l

,

W5!=V(Jd)  V ( j

,

(J

,

AX J 

196 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)( ヨ民成主)(」一一主)

ーミli

PAGE 

ネホ 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  

υ

r u 

白m・・

dハ》川判t

、,Ft門unu

4QFj  ' X N N )   K A O O J  

,KMH、,,

A J E E 6 1   f r b r u p E {  

5NNEEA日口AAE'本ANHYHivlyv

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本NAVVLN/NN-刊@本XSX5*MmSX5本@})ネ,,剛警⑮本9AEAR9iMEAD門事'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,EIAJXX1本KAXXX}*1PALDAEEE*111{KUXW(=JJXネ(二AIlx*=(=EtZ2UUU*2Z口{112Z5〈KJNA*4A1xz一一A*5A}Mnza-A*)58D-A)Z)NNN*

l)iA==lISA--=IM*12JAV}阿キ1=IJV}阿キIBlJZ=12JIllTAIl--XXA2XXTI*v'M511*v''51J9A,Lv,,TTT*({VAA{VAAN{511R(〈本SKKRtt山本I(I{5LLNNN*XXDIM-M33FiMMOFホロE({XXX*口E〈{XXX字〈F口{白FE〈内υ(白内V白山専υildDPIJ口ヨlot--CIDQAAJJJ*DRAATA--*AiOAnu-RAACCC*ホ本宮城1245*68200*1*1*1山手il22lネ本命令*キ

PptwpFU

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代

G

T

A u n  

nHけ門υn汽fuA

E Y  

nOR}RRpR門門尺代)

M例いn内、,、,《Mハパりuw.AAM州円、,、,A1VMvυv?γVMwwr、〉Jυν、,Vuw.げ凶vE?ιA7ι4&υu》膨,Vv、,NNω吋吋DRF5与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''JTiTIv'xiTU{川内tsJJ(M刊本{N5IYA(NTnuoUFυ同』1DELI,、Vハ門ν*口口問卜内υFdF{{XUCLMDICTADRAAJC本白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ハUunv円い》門υMVAunvX問問MnMXXTmMunMTT

UOワロ巴UU*白CCCC巴町

5 0  

L'A

C L '  

5 2 0  

剖川川内υnMVフ』t -vtvhnVA7411v

FU ph rU  

7i9《UM

Aハハut

2.M刊,‘号、,

M刊、dハυ

' A 1 4  

fuN山マフ4e'

TL

<

O A E 7 4  

F5N'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 (  

aaFru@γj'v・内N-A門戸トyi・、Jυ・口FVMM1

@ N U ' 4 A X  

--au・、,,川汁

@'NOOL

,

‑ X 2 4 E }   -M'(

<

30

EFG5z

‑ T H T 5 ' (  

INAOEN-CRMA

.,,

JCAE 6 M L N M h  

‑EO'avxx @γ4J、,、,

-iNOG-,

x24N??4.,,rF、門Uハv

u

‑ M P G 1 1 4   d B E U T 1 5 {  

@TASix@eionpLur じに-NGNE

N e I N I C R N  

Ta'''piU

T

@ I  

HUSMd内U-mufL州川R-M日E日・問UuuaυU74Jpi、円υυ

14rL更J

F M  

<.0 

刊日的河田切∞日初日刊目的初回開∞印日山初刊目的羽田叩∞mmm拍目的mm叩叩ωmm刊Doooool--11Ill--2222222222333333333344444υnvnvハUハυnunυハununununUunυハVAUUハ)ハνVυAU《U《υAUハUunUハUnvハUハUnvAUnuUUυ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γTTTTTTTψTTTTTTTTTTTTTTTTTTTTTγl引υHUUいUUUUHUHυUUいUυHUUυUHUUUHUHυuuuuuuhUHUHυHUHυ川UHUけUUUHUUUUUNUHUHU川UHVHUいUHunmonDE6505CυυC口口の口出町内UOCO目白白白内V口口自白巴白白の白内U自白

>>

1 1   { (   M M  

nM川内代mu門UM河川吋

x x  

M

n「EMJ4吻V

396'

, A } )   γa7A72& ι

R“ハn,白弘、f

D

? X V X  

M川守i.,ヲa'

,

rj+FlLfU,,rgrtνU5NNu例川川吋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-(5X}XN)N

.,,51)'1・・'口NK})M1Gl'JE+K58T5RF5)5{11E9{iq')FL)1{R))){[EGIC/II'ATT-MM-E20HZD25C46KGェL・・225ヱ{一→Ra--=RP-一一(D2J5(OO(T131)WIXIAG--UL6p161γ66TAgPPI-==TErueNP9UNRR''RCUUE(})5e@ETXRU6口臼60C966AJZEI口口-U6XK81Diu-L4=GDDtR5{1+5((7l+30+RRON3AV(34CCN4)NR5EG=ET--5EEl5511667ZI--SNlMHIIDE--12fulNTDR770+III1M1NTOWA=NNTKLN-(RI--=RI--~DK==(一四{(IN==ξDC{{NfI口(ベパFUQ一向U505RRl=5EdFIFFO(U5DSNNddFFDF(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υυHUUHUHυHUHUHUHUHυHUHU川UHUHUHUHUHUHUHUHUO口口口口口門口ウ口町口口口白白白白白白何百戸口白内U白内U口口百

U

I E   A H n k  

J代内υFし仰向

F 、J

n u  

viAMTlbAU

A E  

lM門「tunω門ハυR1uav

f L V A  

、,unnυ81nて1A'd,、,FLPV《,rnK50/

4・auPιv叫ぺ,@ra内U川門oounTie-t・FRJ

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  

H2RF口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ハミdd''

}{XAio,26

xlNruTECL1・M}[AATH、,HEAavOEE}EiTEEA3/9TMX2

7 I l k

‑ I A i u n c

* i / 1 1 R 9 E  

I'{5DXN}'4'H口''-〉'I'DN,mIx-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+F3BAYVDN5+t6{N6)NNTTTTTT15511回目T=1・lSN1MHIlLIRAAAAAAGITa--)}TDUWART'TUMHMHMMnMH=冊一二〈=TAINZ2EDNINTR、unRRRRB

I5FLDFl(白{口S5DNd(OELODED自由NIDi-DlixruxcwDXDXCDVCRFFFFFFE

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

VAUUAι73Uυunu

T 0 0 0 0 0 1 2 3 4  

AM門ハUMM刈川内州内ハυununvTlnumUUmUunvυハυnV

5 T m M H M T T T T  

A幽門MHMnMHMnAMnA内仇ハAMT'υu門いVUTiv-??γ2wゃ5CCCC5555

5 O  

L

関連したドキュメント