FORTRAN ‡W at TECH
[2ch|¥Menu]
1:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 17:13:35
FORTRAN‘‡ƒXƒŒƒbƒh‚Å‚·B
FORTRAN77/90/95/2003, HPF“™AFORTRAN‘S”ʂɊւ·‚é˜b‘è‚ð‘‚«ž‚ñ‚ʼnº‚³‚¢B

EFORTRANŠÖ˜Aî•ñ
‚š–ñ‘©‚Ÿ‚ªA‚Ü‚ž‚ÍŽ©•ª‚Å’²‚ׂ悀
URLØÝž(www.google.co.jp)

x86‚Å“®ì‚·‚éFortranƒRƒ“ƒpƒCƒ‰
URLØÝž(www.nminoru.jp)

The Fortran Company
URLØÝž(www.fortran.com)
Polyhedron Software
URLØÝž(www.polyhedron.co.uk)
Google Directory - Fortran
URLØÝž(directory.google.com)

E‘OƒXƒŒ
FORTRAN III
œÚØÝž(tech”Â)
FORTRAN II
œÚØÝž(tech”Â)
Fortran
œÚØÝž(tech”Â)


2:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 17:14:45
EƒtƒŠ[^–³—¿•]‰¿”ł̃Rƒ“ƒpƒCƒ‰
The G95 project iFortran95j
URLØÝž(www.g95.org)
GCC (g77) i¡‚̂Ƃ±‚ë FORTRAN77j
URLØÝž(gcc.gnu.org)
Salford FTN77/95 Personal Edition iFortran77/95, Windows, —v“o˜^j
URLØÝž(www.salfordsoftware.co.uk)
FTN77/95‚̃Cƒ“ƒXƒg[ƒ‹•û–@
URLØÝž(www.coastal-env.k.u-tokyo.ac.jp)
the F Programming Language iFortran90‚̃TƒuƒZƒbƒg, Win/Linux/Solarisj
URLØÝž(www.fortran.com)
Open Watcom Fortran Compiler iFORTRAN77j
URLØÝž(www.openwatcom.org)
Intel Fortran Compiler iFortran95, –³—¿•]‰¿”Å(Win)^”ñ€—pƒo[ƒWƒ‡ƒ“(Linux), —v“o˜^j
URLØÝž(www.xlsoft.com)
Lahey/Fujitsu Fortran iŠúŒÀ•t‚«ƒgƒ‰ƒCƒAƒ‹”ł͏I—¹‚µ‚œ–Í—lj
URLØÝž(www.lahey.com)

EƒhƒLƒ…ƒƒ“ƒg
Compaq Visual Fortran ƒIƒ“ƒ‰ƒCƒ“EƒhƒLƒ…ƒƒ“ƒg
URLØÝž(www.xlsoft.com)
Intel Fortran Compiler “ú–{Œê”Ń}ƒjƒ…ƒAƒ‹‚̃_ƒEƒ“ƒ[ƒh i—v“o˜^j
URLØÝž(www.xlsoft.com)
•xŽm’ÊFortranƒIƒ“ƒ‰ƒCƒ“ƒ}ƒjƒ…ƒAƒ‹
URLØÝž(www.cc.nao.ac.jp)

FORTRAN77 standard
URLØÝž(www.swcp.com)
URLØÝž(www.fortran.com)

JISƒf[ƒ^ƒx[ƒX
URLØÝž(www.jisc.go.jp)

3:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 17:48:19
@@R^l l@ƒj|Ɓ@@@@@@@@@@ ,.€-''"..;:;:;:;:;:;:;:... `'R€
@@i@@@iP@@Pj@@@@@ ^....:::;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;.....R€^PPPP_^
@@@P@@ P@@@@@@@@ iQ;;€:Q;€;Q;€;€;€€š¯.;:;:;:;:;: /@@‹»@@F@@@@ ŒN
@,.€-„Ÿ-- €.,_@@@@@,€@@|@@@@@@,,,,,,@@/ ;:;:;:;:;:;: |@@ –¡ @ O@@@ @ F
@@@@@@@@@@M`''--ƒC ,j,€,! '''''@@@@@@@@_ ;;;;;;;;;_|@@ ‚ª @ R@@@ @ F
@@@@@@@@@@@@@ S°'Þ |ËÆÆƒ…@¬Æ,ƒjƒj€„ r;; / _|@@ ‚ @@T
@@@@ @ Ɂ@l@ ʁ@ l@S ƒgƒC M!Þlj_j@@ '@iØ__, M@ }ii l f'ār @ ‚é@@R
@@@ _,,.ƒm@_É / É ƒm@ƒmÉ!_˜Š@| @ l@@@M " '''@@ }ii ØÉ |@@ ‚Ì @ A@@|_QQ
@@@@@ ƒm@,€š'-z=F [_@@ .l!@.{@@@A@@@@ š!ii;}' É|@@ ‚©@@ N @ |
@@@-]''Þ_ƒm ,ƒm@ 'Þ (¿ @ R@@ {!@Þ°<Ü'@@@@ ,Ði;i;}°'Þ |@@ ‚ˁ@@ @ @ |
@@€ ƒBƒb„f¢@@_,,“ñ-@@ R.@ }i€@ -==-'@@Øiii; @ |@@ H@@ @ @ |
@ @M§Tk!|@@@@@@@r ,_Ɂ@_É}lli,@@-r=]@@,i;llilili|@@ „ QQQQ_^MR€
@@ @ Þ€R`!@ l@@@Q _£@^/@'}llli,@,;i|i;,@,,ii;ilililll'ÞØ ^ P l l@@@@@@,€ ''ÜށRA
@@@@ `Ä.€!@ lj@@iQ_lA/@ | @ ÞÄ!llllllllllliillllllllÂÞ_€-ށ@ @ /,l l@@ @ @ /
@@@@@l@ÞāA@@@@@t'Þ | @ |@@| |€'lÄllÄllÄ "L@@@ ^/ l l @ @ @ /
@@ ,šA‰»§ ',_ @ @ @ l@r@ | @ | | Þ€ /^È@@@ ^ /@ l l@@@@ l
i’Ü(i€`°'Œ ',@M''t]--'ŒrÄ€ | @ | |. Vʜc È@ ^@@@@|_L€@@i@|@^
PPPMN`''[--ÆL_@@@`!€ `!@lP`''„š--„š'-'Þ-„Ÿc''"L_,, š|@@l@|/
@@@@@@@@@@@ úh@@ R M ', | ‚nM`''„Ÿ„Ÿc'''"L @‚n',Þ:€ @l@|^


4:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 18:34:32
‹@ŽíˆË‘¶•¶ŽšŽg‚€‚ȃ{ƒPŽž‚¹‚ë

5:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 19:07:04
>>4
‚«‚œ‚ˁ[ŒŸ—tŽg‚€‚È•³–ì˜YI

Ž€‚ˁI


6:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 19:30:21
”’lÏ•ª‚ªŽg‚Š‚éƒtƒŠ[‚̐”’lŒvŽZƒ‰ƒCƒuƒ‰ƒŠ‚ ‚è‚Ü‚¹‚ñ‚©H

7:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 19:58:47
>>6
NetLib‚Ö’rB‚U‚UŽž‘ã‚Ì‚à‚Ì‚ª‚²‚Ü‚ñ‚Æ‚ ‚邺B

8:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 20:01:14
IMSL‚ª‚ ‚é‚ñ‚¶‚á‚ˁH

9:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 20:02:08
>>8
IMSL‚Í—L—¿ƒpƒbƒP[ƒWƒ\ƒtƒg‚Ÿ‚ŒB


10:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 20:08:40
IMSL‚Í10–œˆÈã‚·‚é—\ŠŽ

LAPACK‚ɐϕª‚͂ӂ­‚Ü‚ê‚Ä‚š‚ç‚ñ‚́H

11:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 20:08:54
ƒRƒ“ƒpƒCƒ‰‚æ‚荂‚¢EEE

12:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 20:10:38
‚±‚̃XƒŒ‚̃GƒLƒXƒp[ƒg‚œ‚¿‚Í—L—¿ƒpƒbƒP[ƒW‚Æ‚©Žg‚Á‚Ä‚š‚ç‚ê‚é‚̂ł·‚©H

13:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 20:13:17
>>7
Netlibs‚Á‚œ‚ª”‚ª‘œ‚·‚¬‚ĉœ‚ª‚È‚ñ‚Ÿ‚©‚í‚©‚ç‚È‚¢B
‚±‚ê‚ð‚Ç‚€Žg‚Š‚Î‚¢‚¢‚©‚·‚ç‚í‚©‚ç‚È‚¢B
Œ©‚œŠŽ‚¶ƒvƒƒOƒ‰ƒ€’P‘Ì‚ª—Ž‚Á‚±‚¿‚Ä‚¢‚邟‚¯‚É‚µ‚©Œ©‚Š‚È‚¢‚ª
‚Ç‚€‚â‚Á‚Ä‚Á‚Ä‚±‚ê‚ðŒÄ‚яo‚µ‚ÄŽg‚€‚ñ‚Ÿ‚ë‚€‚©B

14:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 20:32:24
>>10
LAPACK‚ÍŒ³XALINPACK{EISPACK‚ŁA‚»‚ꂌ‚ê–§s—ñ‚̐üŒ`•û’öŽ®‚ƌŗL’l–â‘è‚Ì
ƒ‹[ƒ`ƒ“W‚Ȃ̂Őϕª‚ÍŽå‘è‚©‚çŠO‚ê‚Ä‚¢‚邯Žv‚€B

LINPACKAEISPACK‚Í‚U‚O”N‘ã‚̕ĉp‚̍‘‰ÆƒvƒƒWƒFƒNƒg‚Ÿ‚Á‚œ‚æ‚€‚É‹L‰¯‚µ‚Ä‚¢‚éi‹L‰¯žB–†‚—jB
LAPACK‚ÍŠî–{“I‚É‚»‚ê‚ð‚V‚V‰»‚µ‚ÄBLAS‚̏ã‚É“ˆê‰»‚µAˆê•”ƒAƒ‹ƒSƒŠƒYƒ€‚ð‰ü—ǁEŠg[‚µ‚œ
‚à‚Ì‚Ÿ‚ë‚€B‚»‚̕ӂ̌oˆÜ‚⏇˜‚͂悭‚í‚©‚ñ‚ˁB


>>13
NetLib‚Ƃ͂»‚€‚¢‚€‚Æ‚±‚낟‚—@šº‚̐ςà‚Á‚œ“y‘ Œ©‚œ‚¢‚È‚à‚ñ‚ŸB
Œ‹‹ÇA–c‘å‚·‚¬‚ĉœ‚ª—~‚µ‚¢‚©•ª‚©‚Á‚ĂȂ¢‚ÆŽg‚Š‚È‚¢‚—

NumericalRecipes‚̃y[ƒW‚֍s‚Á‚Ă݂é‚Ì‚ª‹g‚©‚à‚µ‚ê‚È‚¢B
‚Ƃ肠‚Š‚žê–副“I‚ɂ̓xƒXƒg‚Å–³‚¢‚É‚µ‚ëA‘fl‚ª”nŽ­‚ÈŠO‚ê‚ðˆø‚©‚³‚ê‚邱‚Ƃ͖³‚¢‚Í‚žB
‚œ‚Ÿ–{”ł̃\[ƒX‚Í‚µ‚΂µ‚ÎBug“ü‚è‚Ȃ̂ł߂­‚ç‚ß‚Á‚Û‚€Žg‚€‚Ì‚ÍÔ³Þ§œ
—L—¿ƒ\[ƒX‚Í’Œ‚Á‚Ä‚¢‚œ‚è‚·‚é‚—

15:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 21:19:12
‰SŽÒ‚Í•xŽm’ʂ̃Tƒuƒ‹[ƒ`ƒ“•t‚«ƒRƒ“ƒpƒCƒ‰”ƒ‚€‚Ì‚ªbest‚¶‚á‚ˁH
“ïˆÕ“x‚à—\ŽZ‚à

16:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 21:25:25
Intel Math Kernel Library‚Åok


17:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 21:36:09
MKL‚Á‚Đϕªƒ‹[ƒ`ƒ““ü‚Á‚Ä‚é‚́H

18:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/12 21:39:47
‘œ•ª‚È‚¢

‚Æ‚¢‚€‚©AƒtƒŠ[‚Å—L–Œ‚Ç‚±‚ë‚̃pƒbƒP[ƒW‚ɂ͐ϕªƒ‹[ƒ`ƒ“‚Í–³‚¢—\ŠŽ

19:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/13 19:48:52
ˆÈ‰º‚̃vƒƒOƒ‰ƒ€‚ðŽÀs‚·‚邯A
Œ‹‰Ê‚ª
1016010618
‚ƂȂè‚Ü‚·B
‚È‚º‚Å‚µ‚å‚€‚©H–󂪕ª‚©‚è‚Ü‚¹‚ñ
ŠÂ‹«‚Íg95@cygwin‚Å‚·B

program Interpolation
print *,Lorentz(1.5)

end program Interpolation

real function Lorentz(x)
real :: x
Lorentz = 1/(1+25*x*x)
return
end

20:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/13 20:30:25
ƒƒCƒ“ƒvƒƒOƒ‰ƒ€‚ÉLorentz‚ÌŒ^’è‹`‚ª‚È‚¢‚©‚çintegerˆµ‚¢‚³‚ê‚Ä‚ñ‚¶‚á‚ˁ[‚́H


21:19
06/11/13 21:30:09
implicit none‚Å‰ðŒˆ‚µ‚Ü‚µ‚œB
‚PŽžŠÔ‚àŽžŠÔ‚ðH‚¢‚Ü‚µ‚œB


22:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/14 00:43:00
Ž©—R‘Ž®‚ŏ‘‚­‚È‚çŠÖ”EƒTƒuƒ‹[ƒ`ƒ“‚Í“à•”Žè‘±‚«‚É‚·‚é‚©AMODULE‚É‚·‚é‚©
INTERFACEéŒŸ‚µ‚Ä‚©‚çŽg‚š‚€B

23:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/14 01:07:20
>>20,22
‚ª³‚µ‚¢B

>>19‚Í‚ ‚Ü‚è‚É’†“r”Œ’[B‚«‚Á‚¿‚è‚ÆŒµŠi‚ÈF90Ž®‚ŏ‘‚­‚©AF77Ž®‚ɈÖق̌^‚ðŽç‚é‚ׂ«B


24:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/14 02:41:24
INTEL@FORTRAN—p‚ÌBLAS/LAPACK‚Ÿ‚ªAAMD‚Ìcore-math-library‚ÉWindows—p‚à‚€‚‚³‚ê‚Ä‚¢‚éB
Ì‚ÍLinux—p‚̈ꕔƒ‹[ƒ`ƒ“‚Ÿ‚¯‚Ÿ‚Á‚œ‚ªA‚¢‚Ü‚â‘Sƒ‹[ƒ`ƒ“‚ð–Ô—…‚µ‚œ‚æ‚€‚ŸB

˜R‚ê‚ÍAMD‚Ȃ̂ŁA’N‚©IntelChip‚Å‚àŽg‚Š‚é‚©ŽŽ‚µ‚Ä‚­‚êB

URLØÝž(developer.amd.com)


25:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/14 15:36:00
fortran’†‚Å‘Œ‚Ìexe‚ðŽÀs‚Å‚«‚邿‚€‚É‚·‚é‚ɂ͂ǂ€‚µ‚œ‚ç—Ç‚¢‚Å‚·‚©H
fortran‚ōì‚ç‚ꂜexe‚È‚ñ‚Ÿ‚¯‚ǃ\[ƒX‚­‚Á‚‚¯‚é‚Ì‚ª‚ß‚ñ‚Ç‚­‚³‚¢‚ñ‚ŁEEE‚—

26:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/14 16:32:26
>>23
FORTRAN(90)‚̏‘Ð‚ŁA’è”Ô‚Ì•š‚Á‚Ä‚ ‚è‚Ü‚·‚©H

27:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/14 16:53:09
‚±‚ê‚©‚çƒtƒH[ƒgƒ‰ƒ“‚ð•׋­‚·‚é‚̂ł·‚ªA
‚ƂĂà‰ð‚è‚â‚·‚¢“ü–发‚ð‹³‚Š‚Ä‚¢‚Ÿ‚œ‚¯‚Ü‚¹‚ñ‚©H
ƒvƒƒOƒ‰ƒ~ƒ“ƒOŽ©‘́A‚ ‚Ü‚èŒoŒ±‚ª‚ ‚è‚Ü‚¹‚ñB
‚b‚ð­‚µ‚â‚è‚Ü‚µ‚œB
‚æ‚낵‚­‚šŠè‚¢‚µ‚Ü‚·B

28:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/14 18:18:30
‚˜‚Ì’l‚ðA1,10,100,1000,10000,100000,1000000‚̏‡‚É•Ï‚Š‚Ä
‚»‚̏í—p‘ΐ”AŽ©‘R‘ΐ”‚Ì’l‚ðŒvŽZ‚µ‚Ä•\ŽŠ‚·‚éƒvƒƒOƒ‰ƒ€‚ðì‚ê

‚Æ‚¢‚€‰Û‘肪o‚œ‚̂ł·‚ªƒTƒbƒpƒŠ•ª‚©‚è‚Ü‚¹‚ñB
‚Ç‚€‚©‚š—Í“Y‚Š‚­‚Ÿ‚³‚¢B

29:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/14 20:51:20
>>24
Core Duo‚ł಺޲À
32bit ifort”ł̓Vƒ“ƒOƒ‹ƒvƒƒZƒbƒT—p‚ɍœK‰»‚³‚ê‚Ä‚¢‚é‚Ý‚œ‚¢‚Ÿ‚ª
SSE/SSE2‚ªŽg‚Š‚ê‚ÎIntel CPU‚Å‚àOK‚̂悀‚ŸB

>>25
SYSTEM ‚Æ‚©‚»‚ñ‚ÈŠŽ‚¶‚̊֐”‚È‚èƒTƒuƒ‹[ƒ`ƒ“‚Ȃ肪—pˆÓ‚³‚ê‚Ä‚¢‚éi‚±‚Æ‚ª‘œ‚¢jB

>>28
X ‚Ì’l‚ð 1 ‚É•Ï‚Š‚éiX ‚É 1 ‚ð‘ã“ü‚·‚éj
X = 1.

X ‚̏í—p‘ΐ”‚ðŒvŽZ‚µ‚Ä Y ‚É‘ã“ü‚·‚é
Y = LOG10(X)

X ‚ÌŽ©‘R‘ΐ”‚ðŒvŽZ‚µ‚Ä Z ‚É‘ã“ü‚·‚é
Z = LOG(X)

X, Y, Z ‚Ì’l‚ð‡‚É•\ŽŠ‚·‚é
WRITE(*,*) X, Y, Z

30:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/14 23:23:10
”{ž“xŽÀ”‚Æ4”{ž“xŽÀ”‚ł͎Às‘¬“x‚͕ςí‚Á‚Ä‚µ‚Ü‚¢‚Ü‚·‚©H

31:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/14 23:28:24
>>30
Ž€‚ʂقLjႀB@
”{ž“x‚܂ł͐”’l‰‰ŽZƒvƒƒZƒbƒT‚̏•‚¯‚Ńn[ƒhƒEƒFƒA‰‰ŽZ‚·‚邪A
‚S”{ž“x‚̓\ƒtƒgƒEƒFƒA‚Å•‚“®¬”“_‰‰ŽZ‚ð‚·‚é‚̂Œx‚­‚È‚éB

‚U‚SBitCPU‚È‚çŽáбó‹µ‚͉ü‘P‚·‚邪–{Ž¿‚É‚š‚¢‚Ä‚Í•Ï‚í‚ç‚È‚¢B
DEC‚̃Aƒ‹ƒtƒ@[CPU‚Í‚S”{ž“x‚à”÷–­‚É‘‚©‚Á‚œ‚ªA“ÁŽê‚È–œ—߃Zƒbƒg‚ª‚ ‚Á‚œ‚œ‚߂炵‚­A
‚U‚SbitCPU‚Ÿ‚©‚ç‚Æ‚¢‚Á‚Ă悭‚È‚é‚킯‚Å‚à‚È‚¢‚æ‚€‚ŸB

32:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/14 23:31:25
>>29
DO•¶‚ŏ‘‚©‚È‚¢‚Æ‚¢‚¯‚È‚¢‚̂ł·‚ª
‚Ç‚€‚·‚ê‚΂¢‚¢‚ñ‚Å‚µ‚å‚€‚©EE

33:30
06/11/15 00:03:03
>>31
Ú‚µ‚¢Úœ»ÝžœI

34:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/15 00:35:58
>>26
Žc”O‚È‚ª‚ç‚ ‚܂肢‚¢–{‚Í–³‚¢B

¡AŽè‚É“ü‚è‚â‚·‚¢‚̂͂±‚êB
URLØÝž(www.amazon.co.jp)
‚µ‚©‚µA‚e‚V‚V‚Ì•È‚ðˆø‚«‚ž‚Á‚Ä‚¢‚āA‚ ‚܂肢‚¢‘‚«•û‚ð‚µ‚Ä‚¢‚È‚¢B
’˜ŽÒ‚Í‹ž‘å‚Ì‚š‚Á‚³‚ñ‚炵‚­A‚v‚d‚a‚Å“¯“™‚Ì“à—e‚Ì‚à‚Ì‚ðŒ©‚ç‚ê‚éB
ƒAƒhƒŒƒX‚̓Aƒ}ƒ]ƒ“‚̃Œƒrƒ…[‚ɏ‘‚¢‚Ä‚ ‚éB

‰pŒê‚ł悯‚ê‚΁A‚±‚̕ӂƂ©A
URLØÝž(www.lahey.com)
‚±‚̕ӂ̂d‚“‚“‚…‚Ž‚”‚‰‚‚Œ ‚e‚‚’‚”‚’‚‚Ž‚ ‚œ‚肪ŠwK—pƒTƒuƒZƒbƒg‚ɂȂÁ‚Ä‚¢‚āAƒˆ‚e‚X‚O‚ðŠw‚ׂéB
URLØÝž(www.fortran.com)

‚µ‚©‚µAŒ»ŽÀ¢ŠE‚ł͂e‚V‚Vƒ\[ƒX‚ª‚ ‚Ó‚ê‚Ä‚¢‚é‚̂Ŕ÷–­‚ł͂ ‚éB
ŽÀÛã‹L‚Ì‚à‚̂͋³ˆç—p‚Æ‚µ‚Ä‚à‚Í‚â‚ç‚È‚©‚Á‚œB


35:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/15 00:43:57
>>32
@@@PROGRAM chinpopo
@@@DO 10 i = 0, 6
@@@ x = 10.0**REAL(i)
y = LOG10(x)
z = LOG(x)
WRITE(6, *) INT(x), y, z
10 CONTINUE
@@@END
>>35

36:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/15 14:47:06
@@complex(8) c

‚É‚š‚¢‚ÄC

@@c=(0.d0, 0.d0)

‚Æ‚µ‚ú‰»‚·‚é‚Ì‚àC

@@c=0.d0

‚Æ‚µ‚ú‰»‚·‚é‚Ì‚à‘S‚­“¯‚¶‚±‚ƂȂ̂ł·‚©H

37:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/15 17:59:05
DO•¶‚ðŽg—p‚µ‚āCx‚Ì’l‚ðC1,10,100,1000,10000,100000,1000000 ‚̏‡‚É•Ï‚Š‚Ä
‚»‚̏í—p‘ΐ”‚š‚æ‚ÑŽ©‘R‘ΐ”‚Ì’l‚ð ŒvŽZ‚µ‚Ä•\ŽŠ‚·‚éƒvƒƒOƒ‰ƒ€‚ðì‚êD
‚È‚šCŒvŽZŒ‹‰Ê‚͏‘Ž®‚ÌŽw’è‚ð‚µ‚ÄCx, log10(x), log(x) ‚̏‡‚É•\Œ`Ž®‚Å•\ŽŠ‚·‚邱‚ƁD
‚Ü‚œCŒvŽZŒ‹‰Ê‚ª®”‚ƂȂé‚à‚̂͐®”Œ^(In)CŽÀ”‚ƂȂé‚à‚͎̂À”Œ^(Fn.m)‚Ü‚œ‚ÍŽw”Œ^(En.m)‚ŏo—Í‚·‚邱‚ƁD
program report5
implicit none
integer :: x
real :: y,z

write (*,*) 'x='
read (*,*) x,log(x),log10(x)

do 10 i = 0.6

x=10.0**real(i)

y=log(x)

z=log10(x)

write (6,)

end do
stop

end program report5

‰œˆ‚ª‚š‚©‚µ‚¢‚ñ‚Å‚µ‚å‚€‚©?

38:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/15 18:31:55
>>37
read (*,*) x,log(x),log10(x)
‚Ç‚±‚É“ü‚ꂜ‚¢‚́H
‚œ‚Ô‚ñA‚»‚ÌŒŠ‚¶‚á‚È‚¢‚í‚æ

39:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/15 19:20:43
>>37
>read (*,*) x,log(x),log10(x)
>do 10 i = 0.6
>x=10.0**real(i)
>y=log(x)
>z=log10(x)
>write (6,)
‚±‚±‚ç•Ó‚ªŠÔˆá‚Á‚Ä‚éB
‚Ç‚±‚ªŠÔˆá‚¢‚Ȃ̂©‚í‚©‚ç‚È‚¢‚Æ‚«‚́A‚Ƃ肠‚Š‚žƒRƒ“ƒpƒCƒ‰—l‚Ƀ\[ƒX‚ð“n‚µ‚Ä
•¶‹å‚ðŒŸ‚í‚ꂜ‚Æ‚±‚ë‚ðã‚©‚珇‚É’Œ‚µ‚Ä‚¢‚­‚Ì‚à‚P‚‚̎肟B


‚Ÿ‚ê‚©‚­‚Ÿ‚·‚ê‚ÌŽŸƒXƒŒ—§‚ĂĂ­‚êB

40:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/15 23:55:01
>>37
>>35‚ð‚à‚€‚¢‚Á‚Ø‚ñŒ©‚ëI

>>39
d•¡ƒXƒŒ‚ðƒNƒ_ƒXƒŒ‚É‚·‚é‚©H


41:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/17 00:48:27
>>40
ƒ^ƒCƒgƒ‹ˆê‚Ÿ‚©‚獬—‚µ‚»‚€‚—

42:37
06/11/17 10:16:25
>>35
WRITE (6,*) ‚ª•ª‚©‚è‚Ü‚¹‚ñ
>>37‚Ì–â‘è‚̏‘Ž®‚ÌŽw’è‚Í‚±‚ê‚Å‚¢‚¢‚ñ‚Å‚µ‚å‚€‚©

43:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/17 11:23:12
WRITE(6,@'(I10, F15.7, F15.7)') x, y, z

‚à‚€­‚µ‹³‰È‘‰ÅII

‚±‚ñ‚ÈŠŽ‚¶‚Å‚—

44:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/17 12:00:23
>>37 ‚ª‚ñ‚΂Á‚œ‚¯‚Ǐ‘Ž®‚ª‚€‚Ü‚­‚¢‚©‚È‚©‚Á‚œBƒSƒƒ“
c DO•¶‚ðŽg—p‚µ‚āCx‚Ì’l‚ðC
c 1,10,100,1000,10000,100000,1000000 ‚̏‡‚É•Ï‚Š‚Ä
c ‚»‚̏í—p‘ΐ”‚š‚æ‚ÑŽ©‘R‘ΐ”‚Ì’l‚ð ŒvŽZ‚µ‚Ä•\ŽŠ‚·‚é
c ŒvŽZŒ‹‰Ê‚͏‘Ž®‚ÌŽw’è‚ð‚µ‚ÄCx, log10(x), log(x) ‚̏‡‚É
c ŒvŽZŒ‹‰Ê‚ª®”‚ƂȂé‚à‚̂͐®”Œ^(In)C
c ŽÀ”‚ƂȂé‚à‚͎̂À”Œ^(Fn.m)‚Ü‚œ‚ÍŽw”Œ^(En.m)‚ŏo—́D
Program report5
Implicit none
INTEGER i
REAL x

do i = 0, 6
x = 10.0**i
write(*, *) aint(x), log10(x), log(x)
end do

stop
end
c ŽÀsŒ‹‰Ê
c 1.00000 0.000000E+00 0.000000E+00
c 10.0000 1.00000 2.30259
c 100.000 2.00000 4.60517
c 1000.00 3.00000 6.90776
c 10000.0 4.00000 9.21034
c 100000. 5.00000 11.5129
c 0.100000E+07 6.00000 13.8155

45:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/17 12:28:48
program report5
implicit none
integer :: x
real :: y,z

write (*,*) 'x='
DO 10 i = 0, 6

x = 10.0**REAL(i)
y = LOG10(x)
z = LOG(x)

WRITE(6,@'(I10, F15.7, F15.7)') x, y, z
10 CONTINUE

END do
stop

end program report5
‚±‚€‚Å‚·‚©?

46:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/17 17:12:34
Program report5
Implicit none
real :: i,x

do i=0, 6
x=10.0**i

write(*, '(i7, f15.7 f15.7)') x, log10(x), log(x)
end do

stop
end
Œ‹‰Ê
******* 0.0000000 0.0000000
******* 1.0000000 2.3025851
******* 2.0000000 4.6051702
******* 3.0000000 6.9077554
******* 4.0000000 9.2103405
******* 5.0000000 11.5129251
******* 6.0000000 13.8155107


‚š‚©‚°‚³‚܂ł±‚±‚܂ŏo—ˆ‚œ‚ñ‚Å‚·‚ªA‚Ç‚€‚µ‚Ä‚à*******‚ªo‚Ä‚µ‚Ü‚¢‚Ü‚·„ƒ


47:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/17 19:09:14
>>46
u•ϐ”‚ÌŒ^v‚ðÄ•׋­‚µ‚Ä‚©‚ço’Œ‚µ‚Ä‚±‚¢B

48:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/18 00:05:43
>>46
write(*, '(i7, f15.7 f15.7)') x, log10(x), log(x)
@@@«
write(*, '(f15.7, f15.7 f15.7)') x, log10(x), log(x)

‚É‚µ‚Ă݂悀EEE
x‚Íreal‚Ő錟‚³‚ê‚Ă邩‚çformat‚𐮐”•\ŽŠ‚ÉŽw’è‚·‚邱‚Ƃ͂ł«‚È‚¢D

49:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/18 00:44:07
>>48
>>37‚Ì–â‘è‚ð“Ç‚ÞŠŽ‚¶‚ł́A
write(*, '(i7, f15.7 f15.7)') int(x), log10(x), log(x)
‚ð—\Šú‚µ‚Ä‚¢‚邯Žv‚í‚ê‚éB

>>46‚Í‚à‚€­‚µ–á‚Á‚œ‰ñ“š—á‚ð‚æ‚­‹á–¡‚µ‚ë‚—

50:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/18 01:00:15
‚o‚•‚‹‚‰‚v‚‰‚‹‚‰@‚‚­‚Á‚Ă݂œ
URLØÝž(www.moecity.jp)

‚—‚‰‚‹‚‰‚æ‚­’m‚ç‚È‚¢BŽ©—R‚ÉŽg‚Á‚Ă݂Ă­‚êB


51:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/18 19:42:09
f90ƒXƒ^ƒCƒ‹‚ÅŠw‚ׂ邢‚¢•¶‘‚Í‚ ‚è‚Ü‚¹‚ñ‚©‚ˁB
‰pŒê‚©“ú–{Œê‚Å‚šŠè‚¢

52:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/18 20:03:11
>>51
Fortran •W€ƒR[ƒfƒBƒ“ƒOƒ‹[ƒ‹
URLØÝž(www.mri-jma.go.jp)

European Standards For Writing and Documenting Exchangeable Fortran 90 Code
URLØÝž(www.meto.gov.uk)

ã‚̘a–ó
URLØÝž(www.mri-jma.go.jp)

53:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/18 21:18:26
>>52
„„§‚·‚鏑‚«•û real:: x(n), y(n)
„x(1:n) = y(1:n)
„
„
„~„§‚µ‚È‚¢‘‚«•û x(:) = y(:) ‚Ü‚œ‚Í x = y

‚±‚ê‚Í‚©‚Ȃ肀‚»L‚¢‚ÆŽv‚€B
‚˜‚™@‚̏ꍇ‚ƈá‚Á‚āAƒRƒƒ“Žw’èŽq‚ðŽg‚€‚ƁA‚¢‚Á‚œ‚ñˆÃ‚ɃRƒ“ƒpƒCƒ‰‚ª
ƒeƒ“ƒ|ƒ‰ƒŠ”z—ñ‚ɃRƒs[‚·‚é‚̂łœ‚¢‚Ä‚¢—]•ª‚ÈŽžŠÔ‚ª‚©‚©‚éB


‚µ‚©‚µ˜R‚ꂪ‹^–â‚ÉŽv‚€‚̂́AF77‚ł͕ϐ”‚Æ”z—ñ‚É“¯‚¶–Œ‘O‚ðA‚ÆA(10)‚ðŽw’è‚Å‚«‚Ä
•Ê•š‚Ɉµ‚í‚ê‚é—l‚É‹KŠi‚ÅŒˆ‚Ü‚Á‚Ä‚¢‚œ‚ÆŽv‚€‚Ì‚Ÿ‚ªAF90‚Å–µ‚‚ª‹N‚«‚È‚¢‚Ì‚©EEE

‚»‚ê‚Æ‚àA‚±‚ê‚ÍJIS‹KŠi‚Ÿ‚¯‚ÅANSI‚âMIL‚ł͈á‚Á‚Ä‚¢‚œ‚Ì‚©H


54:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/18 22:09:41
>>53
REAL A
DIMENSION A(10)
DO 10 I=1,10
A(I) = REAL(I)
10 CONTINUE
A = 1.23
WRITE(*,*) A
WRITE(*,*) (A(I), I=1,10)
END

‹KŠiã‚Ç‚€‚È‚Á‚Ä‚œ‚©‚Í’m‚ç‚È‚¢‚ª g77‚Ÿ‚Æ
A = 1.23
‚Ì•”•ª‚ŃRƒ“ƒpƒCƒ‹ƒGƒ‰[‚ɂȂÁ‚œB

g95‚ł́i“–‘Rj

55:54
06/11/18 22:12:21
~ g95‚ł́i“–‘Rj
› g95‚ł́i“–‘Rj A ‚Í”z—ñ‘S‘̂ƉðŽß‚³‚ꂜB

56:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/18 23:02:07
>>54
‚»‚€‚¶‚á‚È‚­‚Ä
REAL A, A(10)
‚ª‰Â”\‚Ÿ‚Á‚œ‚ÆŽv‚€B


57:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/19 00:16:02
hoge.f: In program `MAIN__':
hoge.f:1:
@@@@ REAL A,A(10)
@@@@@@@@@1 2
Invalid declaration of or reference to symbol `a' at (2) [initially seen at (1)]


58:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/19 01:39:12
‚œ‚µ‚©•ϐ”–Œ‚Æ”z—ñ–Œ‚Í‹KŠiã‚Ì’è‹`‚Å‚Í•Ê•š‚Ÿ‚Á‚œ‹L‰¯‚ª‚ ‚éB

ŽÀÛ‚̃Rƒ“ƒpƒCƒ‰‚łǂ€‚È‚Á‚Ä‚¢‚œ‚©‚Í’m‚ç‚ñB





59:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/20 08:30:40
Fortran90‚È‚ñ‚Å‚·‚ªC

integer a(1:100)=0

‚Ý‚œ‚ȏ‰Šú‰»‚ÌŽd•û‚͂悭‚â‚é‚ñ‚Å‚·‚©H

60:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/20 08:32:30
~‚Ý‚œ‚È
›‚Ý‚œ‚¢‚È

orz

61:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/20 09:01:16
>>60
‚æ‚­‚â‚éB
‚µ‚©‚µ‚»‚̏‰Šú‰»‚ÍƒŠƒ“ƒNEƒ[ƒhŽž‚ɍs‚í‚ê‚é‚à‚̂Ȃ̂ŁA
ŽÀss‚Åa(1:100)=0‚Ə‘‚­‚̂Ƃ͔÷–­‚ɈႀB



62:59
06/11/20 15:25:10
>>61
Úœ‚ ‚肪‚Æ‚€

63:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/20 17:30:12
integer a(1:100)=0
ª‚±‚ê‚Á‚Ä’Ê‚éH

integer::@‚¶‚á‚È‚¢‚Æ’Ê‚ç‚È‚©‚Á‚œ‹C‚ªB


64:Ž¿–â1/3
06/11/20 18:45:56
ŠgŽU•û’öŽ®‚Ì‹«ŠE’l–â‘è‚ðƒIƒCƒ‰[—z‰ð–@‚Å‰ð‚­‚œ‚ß‚Ì
ŽQlƒvƒƒOƒ‰ƒ€‚Æ‚¢‚€‚à‚Ì‚ª‹³‰È‘‚É‚ ‚èA‚܂킵‚œ‚̂ł·‚ª
error‚͏o‚È‚¢‚à‚̂̏ãŽè‚­‚Ü‚í‚è‚Ü‚¹‚ñ‚Å‚µ‚œB
ƒAƒhƒoƒCƒX‚ðŠè‚¢‚Ü‚·B
‚¿‚Ȃ݂ÉMX=41,KM=30,DT=0.01‚Æ‚µ‚Ä‚¢‚Ü‚·B
PARAMETER(NX=51)
DIMENSION U(NX),UU(NX)
C**** INPUT & CALCULATE PARAMETERS
WRITE(*,*) 'MX (<52: MESH POINTS) ? KM (NUMBER OF TIME STEP) ?'
READ(*,*) MX,KM
WRITE(*,*) 'DELTA T: DT ? '
READ(*,*) DT
DX=1./FLOAT(MX-1)
R=DT/DX**2
IH=(MX+1)/2
I5=.05/DT
IF(I5.EQ.0) I5=1
CALL OUTPUT(U,NX,MX,1)
C**** INITIAL CONDITION
DO 10 I=1,MX
X=FLOAT(I-1)/FLOAT(MX-1)
IF(I.LE.IH) THEN
U(I)=X
ELSE
U(I)=1.-X
END IF
10 CONTINUE

65:Ž¿–â2/3
06/11/20 18:46:56
C**** MAIN LOOP
DO 20 K=1,KM
U(1)=0.
U(MX)=0.
IF(MOD(K,I5).EQ.1) CALL OUTPUT(U,NX,MX,2)
C
DO 30 I=2,MX-1
UU(I)=R*U(I-1)+(1.-2*R)*U(I)+R*U(I+1)
30 CONTINUE
DO 40 I=2,MX-1
U(I)=UU(I)
40 CONTINUE
C
IF(ABS(U(IH)).GE.10000.) THEN
WRITE(*,*) 'DIVERGE!'
STOP
END IF
C
20 CONTINUE
C
CALL OUTPUT(U,NX,MX,3)
STOP
END
C
SUBROUTINE OUTPUT(U,NX,MX,MM)
CHARACTER Z(60,23)
DIMENSION U(NX)

66:Ž¿–â3/3
06/11/20 18:48:34
IF(MM.EQ.1) THEN
DO 10 J=1,23
DO 10 I=2,MX-1
Z(I,J)=' '
10 CONTINUE
DO 20 J=1,23
Z(1,J)=':'
Z(MX,J)=':'
20 CONTINUE
DO 30 I=1,MX
Z(I,1)='-'
Z(I,23)='-'
30 CONTINUE
END IF
IF(MM.EQ.2) THEN
DO 40 I=1,MX
J=U(I)*40+.001
IF(J.GT.23) GO TO 40
Z(I,J)='*'
40 CONTINUE
END IF
IF(MM.EQ.3) THEN
DO 50 J=23,1,-1
WRITE(*,600) (Z(I,J),I=1,60)
50 CONTINUE
600 FORMAT(1H ,60A1)
END IF
RETURN
END



67:59
06/11/20 21:40:21
>>63
‚»‚€‚Å‚µ‚œ

integer :: a(1:100)=0

‚¶‚á‚È‚¢‚Æ’Ê‚ç‚ñ‚Å‚·D

68:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 00:03:15

‚­‚Ÿ‚·‚êFORTRANi’Ž‰SŽÒ—pj‚»‚Ì2
œÚØÝž(tech”Â)

69:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 01:57:44
¡“xAŒvŽZ‹@‚ð3‘ä‚΂©‚µ\’z‚¹‚˂΂Ȃç‚È‚¢‚ñ‚Ÿ‚ªA
CPU‚Ícore2duo‚ÆXeon‚̂ǂ¿‚炪—Ç‚¢‚Ì‚Ÿ‚ë‚€‚©
ƒRƒ“ƒpƒCƒ‰‚̓Cƒ“ƒeƒ‹‚Ì”ñ€—pƒtƒŠ[‚̂₂ðŽg‚š‚€‚ÆŽv‚Á‚Ä‚¢‚é

70:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 03:56:04
Xeon5000”Ô‘ä‚Æ”äŠr‚·‚é‚È‚çXeonA
Xeon3000”Ô‘ä‚Æ”äŠr‚·‚é‚È‚çCore2Duo‚©‚È

71:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 11:20:02
ƒLƒƒƒbƒVƒ…‚ɍڂé‚Ȃ炻‚ê‚Å‚à‚¢‚¢‚ªAƒƒ‚ƒŠ[ƒAƒNƒZƒX‘œ‚¢‚È‚çItanium2‚Å’r





72:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 14:12:45
‚š‘O‚炪Žg‚Á‚Ä‚¢‚éŒvŽZ‹@‚̃XƒyƒbƒN‚«‚Ú‚ñ‚Ê

‚€‚¿‚Í
CPUFPentium4 3.2GHz
ƒƒ‚ƒŠF1GB
ƒRƒ“ƒpƒCƒ‰FIntel Fortran ƒRƒ“ƒpƒCƒ‰

ƒƒ‚ƒŠ‚ð2GB‚É‚µ‚ë‚ÆiŒŸ‚µ‚œ‚ª–³—‚Ÿ‚Á‚œB

73:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 14:54:28
•֏悵‚æ‚€‚¶‚á‚ ‚È‚¢‚©D

CPU: Pentium4 3.4GHz
RAM: 1.5GB (DDRPC3200ÃÞ­±Ù)
ºÝÊß²×: Intel Fortran Compiler 9.1

OS: Windows XP pro SP2

—Fl‚ÌC2D (T7200) “‹Ú‹@Žg‚Á‚ÄŒvŽZ‚µ‚œ‚çƒm[ƒgPC‚Ì‚­‚¹‚ɉނÌ
ÃÞœž‚æ‚è2”{ˆÈã‘¬‚­‚ÄŸT‚’‚™

74:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 15:35:21
‚±‚ê‚͂Ȃñ‚Å‚·‚©HHH‹³‚ЂĂ­‚Ÿ‚³‚¢II
NO ERRORS,4 WARNINGS [<TDOFS>FTN77 Ver 4.03]
NO ERRORS [<FORVIB>FTN77 Ver 4.03]
NO ERRORS [<COEF0>FTN77 Ver 4.03]
NO ERRORS [<COEF1>FTN77 Ver 4.03]
NO ERRORS [<SOLU>FTN77 Ver 4.03]
NO ERRORS [<F_TAN>FTN77 Ver 4.03]
NO ERRORS [<Z_GK>FTN77 Ver 4.03]
NO ERRORS [<INTARG>FTN77 Ver 4.03]
NO ERRORS [<INTARG3>FTN77 Ver 4.03]
NO ERRORS [<INTARG4>FTN77 Ver 4.03]
NO ERRORS [<INTARG5>FTN77 Ver 4.03]
WARNING the following symbols are missing:
DLAX D:\MyDo\Fortran\1122test.obj
(D:\MYDO\FORTRAN\1122TEST.FOR)
DLAXR D:\MyDo\Fortran\1122test.obj
(D:\MYDO\FORTRAN\1122TEST.FOR)

75:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 15:50:10
>>74
ƒGƒ‰[‚͂Ȃ¢i‚š‚߂łƁôj‚¯‚ǁA•ςȂ̂ª‚S‚‚ ‚Á‚œ‚æB
‚È‚ñ‚©A1122test‚Á‚Ä‚¢‚€ƒtƒ@ƒCƒ‹‚ÌDLAX, DLAXR‚Á‚Ä‚¢‚€–Œ‘O‚ª•Ï‚ÈŠŽ‚¶B
‚¿‚å‚Á‚ÆŒ©‚œ•û‚ª‚¢‚¢‚©‚àEEEi‚‚‚™‚Ó‚§‚Æ‚ç‚ñ‚±‚ñ‚΂¢‚ç4.03†jB

76:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 16:07:08
‚ ‚肪‚Æ‚€‚²‚Ž‚¢‚Ü‚·™
¡Ì‚̐æ”y‚̃vƒƒOƒ‰ƒ~ƒ“ƒO‚ð‰ðÍ’†‚È‚Ÿ‚¯‚ŁAFORTRANŽ©‘Ì‚ð—‰ð‚µ‚Ä‚Ü‚¹‚ñ‚ªA’p‚ð”E‚ñ‚Å‚šŽf‚¢‚µ‚Ü‚·B
DLAXR‚Æ‚¢‚€‚̂͂œ‚Ô‚ñ‚±‚Ì•”•ª‚Å‚·‚ªA‚Ç‚±‚©•ςłµ‚å‚€‚©H

c **** DLAXR ***************************************
call DLAXR(XX,A,k,hmn,ALU,b,IPP,VWW,icond)
do 110 j=1,mn+1,1
jj=j-1
X(jj)=XX(j)
110 continue
do 111 j=mn+2,hmn,1
jj=j-mn-1
Y(jj)=XX(j)
111 continue
c ***********************************************************
return
end


77:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 16:51:21
>>76
‚킜‚µ‚à‚æ‚­‚í‚©‚ñ‚È‚¢‚¯‚ǁA
DLAXR‚ðŒÄ‚ñ‚ł邯‚ǁA‚±‚̃tƒ@ƒCƒ‹‚ł͂܂Ÿ’è‹`‚³‚ê‚ĂȂ¢‚©‚ç
Œ^Eiˆø”‚̐”‚Æ‚©‚́jŒ`Ž®‚ª‚ ‚Á‚Ă邩•sˆÀEEE
‚悯‚ê‚΃tƒ@ƒCƒ‹‚ɏ‘‚¢‚Æ‚¢‚Ä‚Ë

‚œ‚Ô‚ñ‘Œ‚̃tƒ@ƒCƒ‹‚Å’è‹`‚³‚ê‚Ä‚é‚ñ‚Ÿ‚ë‚€‚©‚ç
‚Ƃ肠‚Š‚ž“K“–‚É‚­‚Á‚‚¯‚邯‚ǁAŠÔˆá‚Á‚Ä‚à“{‚ç‚È‚¢‚łˁi‚‚‚™‚Ó‚§‚Æ‚ç‚ñ‚±‚ñ‚Ï‚¢‚çj

78:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 17:24:56
>>74
DLAX, DLAXR ‚Á‚Ä–Œ‘O‚©‚çŽ@‚·‚邯A•xŽm’ʂ̐”’lŒvŽZƒ‰ƒCƒuƒ‰ƒŠSSL II ‚ðŽg‚Á‚Ä‚é‚Á‚Û‚¢B

79:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 17:45:18
‚·‚êˆá‚¢‚©‚à’m‚ê‚È‚¢‚ªACoreDuoACore2Duo‚ÅLinux‚Å“®‚­‚́H

80:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 18:00:54
>Core2Duo‚ÅLinux‚Å
ƒVƒ“ƒ^ƒbƒNƒXEƒGƒ‰[F ‰ðŒˆ‚³‚ê‚È‚¢•ŽŒu‚Łv

81:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 20:45:13
>>80
nice

82:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/22 23:35:23
>>74
‚»‚ê‚Í>>78‚É‚ ‚邿‚€‚ɁASSLII‚̃‰ƒCƒuƒ‰ƒŠ‚ð“Ç‚ñ‚Å‚¢‚é‚̂ŁA‚»‚ꂪ–³‚¢‚ÆŒŸ‚Á‚Ä‚¢‚éB

SSLII‚̃‰ƒCƒuƒ‰ƒŠ‚ª‚ ‚éƒRƒ“ƒpƒCƒ‰iFujitsuALaheyj‚Ì“z‚Å‚â‚é‚©A
‚ ‚é‚¢‚Í‘Œ‚̃‰ƒCƒuƒ‰ƒŠ‚Å’u‚«Š·‚Š‚é•K—v‚ª‚ ‚éB

LU•ª‰ð‚Á‚Û‚¢‚̂ŁALAPACK‚Æ‚©‰œ‚Å‚à‚ ‚é‚ׁB



83:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/23 14:05:27
nsm—ñ‚̍s—ñ‚ª‚ ‚èA‚»‚±‚©‚çnsm—ñ‚Ì‚»‚ꂌ‚ê‚Ì’l‚ðˆê—ñ‚É’Œ‚µ‚āA‚»‚ꂌ‚ê‚É’l‚ɂ‚¢‚đ傫‚¢‡‚É•À‚×‚È‚š‚µAŒ³‚Ì‚Žs‚—ñ‚É’Œ‚µ‚Ă݂œ‚¢‚̂ł·‚¯‚ǂǂñ‚ȃvƒƒOƒ‰ƒ€‚Ì•û–@‚ª‚ ‚è‚Ü‚·‚©H

‚悯‚ê‚΁A‹³‚ЂĂ­‚Ÿ‚³‚¢„ƒ

‚¿‚Ȃ݂Éfortran77‚ðŽg‚Á‚Ä‚¢‚Ü‚·„ƒ/

84:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/23 16:00:07
>>83
ŒŸ‚Á‚Ă邱‚Æ‚ª‚æ‚­•ª‚©‚ç‚È‚¢‚ªA‚QŽŸŒ³s—ñ‚ð—ñ‚²‚ƂɃ\[ƒg‚µ‚āA
ã‚©‚牺‚Ö‘å‚«‚¢‡‚É•À‚×‚È‚š‚µ‚œ‚¢‚Æ‚¢‚€‚±‚Æ‚©H


‚»‚ê‚È‚çŠÈ’P‚ŸB
‚PD‚Ü‚ž‚PŽŸŒ³ƒ\[ƒg‚̃Tƒuƒ‹[ƒ`ƒ“‚ð—pˆÓ‚·‚éB‚±‚ê‚ð SORT(n, x) ‚Æ‚µ‚æ‚€B

‚QD—ñ‚²‚ƂɃ\[ƒg‚·‚éB
DO ‚P‚O i = 1, m
@CALL SORT(N, X(1, i))
10 CONTINUE

‚±‚ê‚Å‚š‚‹B


85:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/23 18:03:09
„„84‚³‚ñŽw“E‚ ‚肪‚Æ‚€‚²‚Ž‚¢‚Ü‚·

‚Å‚à‚¿‚å‚Á‚ƈႀ‚̂ł·„ƒ@
‚œ‚Æ‚Š‚ÎA1@5@ 9@13
@@@@@2@6@10@14
@@@@@3@7@11@15
@@@@@4@8@12@16

‚ɂ‚¢‚āA
1
2
3
c
16

‚Æ‚¢‚Á‚Ä‚©‚珇”Ô‚ð•ύX‚µ‚Ä

16@12 8 4
15@11 7 3
14@10 6 2
13@ 9@5 1

‚Æ‚¢‚€•—‚É•À‚ׂœ‚¢‚̂ł·

86:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/23 19:56:32
>>85
‚»‚ê‚È‚ç‚à‚Á‚ÆŠÈ’P‚ŸBFORTRAN‚V‚V‚Í”z—ñ‚̐擪ƒAƒhƒŒƒX‚µ‚©“n‚³‚È‚¢B
ŽŸŒ³”‚Æ‚©‘å‚«‚³‚Í‹C‚É‚µ‚È‚¢B
‚Ü‚œAFORTRAN‚Ì”z—ñ‚̓ƒ‚ƒŠ[ã‚ł́A—ñ•ûŒü‚ɗׂ荇‚Á‚Ä‚PŽŸŒ³‚É•À‚ñ‚Å‚¢‚éB
‚䂊‚ɁAN*M‚Ì—v‘f”‚Å‚PŽŸŒ³‚̃\[ƒg‚ð‚·‚ê‚΂¢‚¢B

‚PD‚PŽŸŒ³‚̃\[ƒg‚ð—pˆÓ‚·‚éB
‚QDCALL@SORTiN*MAXj

‚±‚ê‚ÅOK

87:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/24 11:12:38
>>83
Œ³Xmixi‚ɏ‘‚«ž‚ñ‚Ÿ‚ñ‚Ÿ‚©‚çA‰ðŒˆ‚µ‚œ‚çmixi‚É‚à‘‚­‚æ‚€‚ɁB

88:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/24 11:44:03
>>87@
‚[‚©>>83‚̃Œƒxƒ‹‚Å‚Í>>86‚̉ñ“š‚Í—‰ð‚Å‚«‚È‚¢‚ñ‚¶‚á‚È‚¢‚©B

FORTRAN‚Í‚±‚€‚¢‚€ƒCƒJƒTƒ}‹Z‚É‚æ‚Á‚āA‚PŽŸŒ³®”‚OƒNƒŠƒA‚ð‚‚Á‚©‚Á‚Ä
‘œŽŸŒ³®”AŽÀ”‚Ȃǂ̃NƒŠƒA[‚ÉŽg‚Š‚œBˆêŽí‚ÌPolymorphism@‚—‚—‚—‚—‚—



89:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/24 14:36:03
„86‚³‚ñ‚ ‚肪‚Æ‚€‚²‚Ž‚¢‚Ü‚·

Šm‚©‚É‘¬‚­’m‚肜‚¢‚Æ‚¢‚€‹C‚ª‚Í‚â‚è‚·‚¬‚āA‚¢‚ë‚ñ‚ÈŠ‚ÅŽ¿–₵‚Ä‚¢‚Ü‚·‚Ë
‚¿‚á‚ñ‚ÆŽ©•ª‚Å—‰ð‚Å‚«‚œ‚珑‚¢‚Ä‚¢‚«‚œ‚¢‚Ƃ͎v‚Á‚Ä‚¢‚é‚̂ł·‚¯‚Ç‚Ë
‚Å‚àA‚â‚͂肿‚å‚Á‚Æ—‰ð‚Å‚«‚Ü‚¹‚ñOOG
‚悯‚ê‚΁A‰œ‚©—á‚Æ‚©‚ ‚邯‚ ‚肪‚œ‚¢‚̂ł·‚¯‚ǁ„ƒ


90:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/24 14:36:17
>>77@
‚ ‚肪‚Æ‚€‚²‚Ž‚¢‚Ü‚·I

>>78‚³‚ñ‚ÌŒŸ‚€‚Æ‚š‚èA•xŽm’ÊSSL‡U‚ðŽg‚Á‚Ä‚¢‚é—lŽq‚Å‚·B

>>82
Lahey‚âLAPACK‚Ƃ͂ǂñ‚È‚à‚̂ł·‚©HH

91:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/24 20:57:18
>>90
URLØÝž(www.google.co.jp)
URLØÝž(www.google.co.jp)

92:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/24 23:12:56
>>90
Lahey‚̓Rƒ“ƒpƒCƒ‰‚ÌŽ©ŽÐ“ÆŽ©ŠJ”­‚ð‚â‚߂āA¡‚ł͕xŽm’ʂ̃tƒƒ“ƒgƒGƒ“ƒh‚ðŽg‚Á‚Ä‚¢‚éB
•xŽm’Ê‚ÍLinux”Å‚µ‚©o‚µ‚Ä‚¢‚È‚¢‚ªALahey‚ÍWindows”Å‚ào‚µ‚Ä‚¢‚éB
•xŽm’Ê‚ª—‚ñ‚Å‚¢‚é‚̂ŁAƒvƒƒtƒFƒbƒVƒ‡ƒiƒ‹ƒo[ƒWƒ‡ƒ“‚𔃂€‚ÆSSL‚ª‚‚¢‚Ä‚­‚éB

‚ ‚ÆSSL‚Í–ŒŒÃ‰®‘åŠw‚ÌNUPACK‚Æ–§Ú‚ÈŠÖŒW‚ª‚ ‚é‚̂ŁAnetNUMPAC‚ªŽQl‚É
‚Ȃ邩‚à‚µ‚ê‚È‚¢‚µA‚È‚ç‚È‚¢‚©‚à‚µ‚ê‚È‚¢‚—‚—‚—
˜R‚ê‚Í•xŽm’ÊŒn‚̓ƒCƒ“‚ɂ͎g‚í‚È‚©‚Á‚œ‚̂ł悭’m‚ç‚ñ‚—


LAPACK‚͌ŗL’n–â‘è‚ÆüŒ`–â‘è—p‚̃Tƒuƒ‹[ƒ`ƒ“W‚ŸB‚±‚ê‚͍‘Û•W€‚Ɖ»‚µ‚Ä‚«‚Ä‚¢‚é‚Ì‚Å
‚Ç‚±‚Ì‹@ŠB‚Å‚à“®‚¢‚Ä‚¢‚éB


93:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/24 23:33:34
>>89
PROGRAM unko
REAL a(5, 2)
CALL kintama(5 * 2, a)
DO 10 i = 1, 5
PRINT *, a(i, 1), a(i, 2)
10 CONTINUE
END
C
SUBROUTINE kintama(n, x)
REAL x(n)
DO 10 i = 1, n
x(i) = REAL(i)
10 CONTINUE
RETURN
END

ŽÀsŒ‹‰Ê

1.000000 6.000000
2.000000 7.000000
3.000000 8.000000
4.000000 9.000000
5.000000 10.00000
Press any key to continue

ƒTƒuƒ‹[ƒ`ƒ“@‹à‹Ê@‚ŁA1ŽŸŒ³”z—ñ‚˜‚É‚P`‚Ž‚Ü‚Å‡”Ԃɐ”‚ð‘ã“ü‚µ‚Ä‚¢‚éB
ˆê•ûAƒƒCƒ“ƒ‹[ƒ`ƒ“‚©‚çŒÄ‚яo‚·‚Æ‚«‚́A‚QŽŸŒ³”z—ñ‚ðˆø”i‚Ђ«‚·‚€j‚É—^‚ЂĂ¢‚éB
—v‘f”‚͍s~—ñ‚P‚OŒÂ‚Å“n‚µ‚Ä‚¢‚éB@•Ô‚Á‚Ä‚­‚錋‰Ê‚ðŒ©‚é‚ÆA—ñ•ûŒü‚ɘA‘±‚µ‚œ’l‚Å–ß‚Á‚Ä—ˆ‚Ä‚¢‚éB

“¯—l‚Ì‚±‚Æ‚ðSORT‚Å‚â‚ê‚΁A‚Í‚¶‚ß“ñŽŸŒ³‚Ƀ‰ƒ“ƒ_ƒ€‚Ÿ‚Á‚œ”‚ªA
—ñ•ûŒü‚Ƀ\[ƒg‚³‚ê‚Ä–ß‚Á‚Ä‚­‚éB

94:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/25 08:07:15
>>89
„Šm‚©‚É‘¬‚­’m‚肜‚¢‚Æ‚¢‚€‹C‚ª‚Í‚â‚è‚·‚¬‚āA‚¢‚ë‚ñ‚ÈŠ‚ÅŽ¿–₵‚Ä‚¢‚Ü‚·‚Ë
‚»‚ê‚̓}ƒ‹ƒ`ƒ|ƒXƒg‚ÆŒŸ‚Á‚āAƒ}ƒi[ˆá”œ‚Ÿ‚ȁB
‚±‚±‚ð‚æ[‚­“Ç‚ñ‚Ç‚­‚æ‚€‚ɁB
Wikipedia€–ÚØÝž

95:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/26 17:18:04
‚e‚n‚q‚s‚q‚`‚m‚̃GƒƒQ‚Æ‚©‚È‚¢‚́H

96:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/27 19:00:46
>>53
„x(1:n) = y(1:n)

‚±‚̏‘‚«•û‚Á‚ėႊ‚ÎŽŸ‚̂悀‚È‘Q‰»Ž®‚ÉŽg‚€‚Æ
‚¿‚á‚ñ‚ÆŒvŽZ‚µ‚Ä‚­‚ê‚È‚¢D

x(1)=0
x(2)=1
x(3:n) = 2*x(2:n-1) - 4*x(1:n-2)

Ž©•ª‚ÉŽ©•ª‚ð‘ã“ü‚·‚邿‚€‚È
Ž®‚Ÿ‚ƑʖڂÁ‚Û‚¢ (“r’†‚©‚ç‘S•”0‚ɂȂé)D‚È‚ñ‚ŁHH


97:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/27 21:01:20
>>96
”z—ñ‚̉‰ŽZ‚Í‚·‚ׂĕÀ—ñŒvŽZ‚Æ‚µ‚ďˆ—‚³‚ê‚é‚̂Šx ‚Ì—v‘f‚ª 0 ‚ŏ‰Šú‰»‚³‚ê‚Ä‚¢‚œê‡A
x(3) = 2*x(2) - 4*x(1) = 2*1 - 4*0 = 2
x(4) = 2*x(3) - 4*x(2) = 2*0 - 4*1 = -4
x(5) = 2*x(4) - 4*x(3) = 2*0 - 4*0 = 0
x(6) = 2*x(5) - 4*x(4) = 2*0 - 4*0 = 0
EEE
‚ƂȂéB

do i=2,n
x(i) = x(i-1) + 1
end do
‚Æ
x(2:n) = x(1:n-1) + 1
‚ł͈Ӗ¡‚ªˆá‚€‚Ì‚ŸB

98:96
06/11/27 22:18:19
>>97
‚š‚š`‚æ‚­‚í‚©‚è‚Ü‚µ‚œI
‚ ‚肪‚Æ‚€

99:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/28 00:17:59
>>96
REAL::A(N, N), B(N, N)
‚`@@‚`@–@‚a
‚̂悀‚ȏ󋵂ðl‚Š‚ê‚΁A¡‚Ì‚e‚n‚q‚s‚q‚`‚m‚ÌŽd—l‚ª‚à‚Á‚Æ‚à‚Ÿ‚Æ•ª‚©‚éB
s—ñ‘€ì‚ª‚ç‚݂ŁA‚±‚ÌŽd—l‚͂ƂĂà•Ö—˜B‚¢‚¿‚¢‚¿Ž©•ª‚Ńeƒ“ƒ|ƒ‰ƒŠ‚ɃRƒs[‚µ‚È‚­‚Ä‚¢‚¢B

‚ ‚ƈꉞA•À—ñ‰»‚³‚ꂜ‚Æ‚«‚Ì‚±‚Æ‚àl—¶‚³‚ê‚Ä‚»‚€‚¢‚€Žd—l‚ɂȂÁ‚Ä‚¢‚é‚炵‚¢B

100:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/29 13:24:49
>>74‚̃vƒƒOƒ‰ƒ€‚É‚š‚¢‚ÄAƒtƒ@ƒCƒ‹‚Ì’è‹`‚Ƃ͂ǂ̕”•ª‚ɂǂ̂悀‚ɏ‘‚«ž‚Þ‚à‚̂Ȃ̂ł·‚©H
‘S‘̂̃vƒƒOƒ‰ƒ€‚Ì’†‚̂ǂ±‚©‚ɉB‚ê‚Ä‚¢‚é‚̂łµ‚å‚€‚©H

101:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/29 21:16:59
ŽŸ‚ÌðŒ‚Ì‚€‚¿‚©‚瑌‚̈ʒu‚̈ܓx(ƒÆ2)‚ÆŒo“x(ƒÉ2)‚ð‹‚ß‚éƒvƒƒOƒ‰ƒ€‚ðì¬‚¹‚æB
1.Œ³‚̏ꏊ‚̈ܓx(ƒÆ1)‚ð–kˆÜ35“x40•ªAŒo“x(ƒÉ1)‚𓌌o139“x12•ª
2.‹——£(s)‚ð6242.2‚‹‚‚Æ‚·‚é@‚“R~ƒ¿‹~ƒÎ/180@@iR6370‚‹‚j
3.•ûˆÊŠp(ƒË)‚ð86.6“x‚Æ‚·‚é@sinƒË=cosƒÆ2~sin‡™ƒÉ/sinƒ¿ i‡™ƒÉ=ƒÉ2-ƒÉ1j
(—˜—p‚Å‚«‚é‚̂ł ‚ê‚Îcosƒ¿=sinƒÆ1sinƒÆ2+cosƒÆ1cosƒÆ2cos‡™ƒÉ‚ð—˜—p‚µ‚Ä‚à‚æ‚¢)
‚Ü‚œA‘Œ‚Ì•û–@‚ª‚ ‚é‚̂ł ‚ê‚΂»‚̃vƒƒOƒ‰ƒ€‚ðì¬‚¹‚æB

³’ŒŒŸ‚Á‚āA‚¿‚ñ‚Õ‚ñ‚©‚ñ‚Õ‚ñ‚Ȃ̂ł·„ƒ
‚í‚©‚é•û‚ª‚¢‚ê‚΂悯‚ê‚΁A‹³‚ЂĂ­‚Ÿ‚³‚¢‚Ü‚¹‚ñ‚©„ƒ


102:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/29 23:12:10
>>100
Šî–{“I‚ÉƒŠƒ“ƒJ[‚ɑ΂µ‚ă‰ƒCƒuƒ‰ƒŠ‚ðŽw’è‚·‚邟‚¯‚Å‚ ‚éB

Å‹ß‚̃Rƒ“ƒpƒCƒ‰‚́AƒRƒ“ƒpƒCƒ‰Eƒhƒ‰ƒCƒo‚Æ‚¢‚€‚à‚Ì‚ªAƒRƒ“ƒpƒCƒ‰‚⃊ƒ“ƒJ[‚Ȃǂð
Ž©“®“I‚ÉŽŸXŒÄ‚яo‚µ‚Ä‚¢‚é‚̂ŁA‚»‚̃wƒ‹ƒv‚ð‚æ‚­“Ç‚ñ‚ŁAƒŠƒ“ƒJ[‚Ƀ‰ƒCƒuƒ‰ƒŠ‚ð
Žw’è‚·‚éƒIƒvƒVƒ‡ƒ“‚ð’T‚·‚ׂµB

ƒRƒ“ƒpƒCƒ‰Eƒhƒ‰ƒCƒo‚ɂ́AƒRƒ“ƒpƒCƒ‰‚ւ̃IƒvƒVƒ‡ƒ“‚ƁAƒŠƒ“ƒJ[‚ւ̃IƒvƒVƒ‡ƒ“‚ð
ŒÂX‚É—^‚Ђ邱‚Æ‚ª‚Å‚«‚éB

‚±‚̕ӂ́A•Ö—˜‚ɂȂÁ‚œ•ª‚©‚Š‚Á‚Đ̂æ‚艜‚â‚Á‚Ä‚é‚Ì‚©‚í‚©‚ç‚È‚­‚È‚Á‚Ä‚éB

>>101
‹…–ÊŽOŠp‚ª‚ñ‚΂ꂗ


103:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/30 02:28:58
>>101
‚Ç‚€‚à”MŠC‚Ì“‡‚©‚çŽË’ö–ñ‚U‚O‚O‚O‚‹‚‚̃eƒ|ƒhƒ“‚ð”­ŽË‚µ‚Ä‚¢‚邿‚€‚Ÿ‚ªA
•ûˆÊŠp(ƒË)‚Ì’è‹`‚ª•ª‚©‚ç‚ñB‚à‚€­‚µÚ‚µ‚­B
‚Ü‚ŸŽ®‚ª—^‚Š‚ç‚ê‚Ä‚¢‚é‚̂ŏî•ñ‚Æ‚µ‚Ă͂·‚łɏ\•ª‚Ȃ̂Ÿ‚ªA
”Ž®‚©‚ç‹tŽZ‚·‚é‹C—Í‚ª‚È‚¢B

cosƒ¿=sinƒÆ1sinƒÆ2+cosƒÆ1cosƒÆ2cos‡™ƒÉ@‚Í“àÏ‚©‚ço‚œB

104:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/30 21:33:37
>>101
¡“x‚Í2‚¿‚á‚ñ‚ɏ‘‚¢‚œŒãmixi‚Å‚·‚©B

105:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/30 22:25:56
>>101
“š‚Š‚ÍAƒnƒƒC‚̃IƒAƒt“‡‚ŸB@–kˆÜ‚Q‚P“x‚Q‚S•ª@ŒŒo‚P‚T‚V“x‚T‚R•ª‚ŸB
‚‚¢‚łɔ­ŽË’n“_‚Í”MŠC‚ł͂Ȃ­A”ª‰€Žq‚Ì‚ ‚œ‚肟‚ȁB

PROGRAM vipper
IMPLICIT NONE
REAL :: theta1, theta2, phi1, phi2, alpha, anu, pi
REAL :: rot_z(3, 3), rot_y(3, 3), vec1(3), vec2(3)
CHARACTER :: ns, ew
pi = 4.0 * ATAN(1.0)
alpha = 6242.2 / 6370.0
anu = ( 180.0 - 86.6 ) * pi / 180.0
theta1 = ( 90.0 - ( 35.0 + 40.0 / 60.0 ) ) * pi / 180.0
phi1 = ( 139.0 + 12.0 / 60.0 ) * pi / 180.0
!
rot_z(1, :) = (/ COS(phi1), -SIN(phi1), 0.0 /)
rot_z(2, :) = (/ SIN(phi1), COS(phi1), 0.0 /)
rot_z(3, :) = (/ 0.0, 0.0, 1.0 /)
!
rot_y(1, :) = (/ COS(theta1), 0.0, SIN(theta1) /)
rot_y(2, :) = (/ 0.0, 1.0, 0.0 /)
rot_y(3, :) = (/ -SIN(theta1), 0.0, COS(theta1) /)
!
vec1(1) = SIN(alpha) * COS(anu)
vec1(2) = SIN(alpha) * SIN(anu)
vec1(3) = COS(alpha)
!
vec2 = MATMUL(rot_z, MATMUL(rot_y, vec1))
!


106:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/11/30 22:27:15
theta2 = ASIN(vec2(3)) * 180.0 / pi
phi2 = ATAN2(vec2(2), vec2(1)) * 180.0 / pi
!
PRINT *, theta2, phi2
ns = 'N'
IF (theta2 < 0.0) ns = 'S'
ew = 'E'
IF ( phi2 < 0.0) ew = 'W'
PRINT '(i4, a, i2, 1x, a)', INT(ABS(theta2)), ' ', NINT(( ABS(theta2) - INT(ABS(theta2)) ) * 60.0), ns
PRINT '(i4, a, i2, 1x, a)', INT(ABS( phi2)), ' ', NINT(( ABS( phi2) - INT(ABS( phi2)) ) * 60.0), ew
STOP
END PROGRAM vipper


107:105
06/11/30 22:29:33
‚²‚ß‚ñ@–kˆÜ‚Æ“ìˆÜ‚̏ˆ—‚ªŠÔˆá‚Á‚œ‚܂܂̌¢‚Ì‚€‚‚µ‚Ä‚µ‚Ü‚Á‚œB
‚܁A–{Ž¿‚͕ςí‚ç‚ñ‚©‚ç“K“–‚ɏˆ—‚µ‚Ä‚š‚¢‚Ä‚­‚êB

Ž¿–₪‚ ‚ê‚΁A“š‚Š‚â‚·‚­˜_—“I‚É•·‚¢‚Ä‚­‚êB


108:105
06/11/30 22:33:40
ƒXƒŒ‰˜‚µ@‚·‚Ü‚ñ‚±‚—

o—ÍŒ‹‰Ê‚ŸB

21.39687 -157.8804
21 24 N
157 53 W
Press any key to continue


‚ ‚ƁA•ûˆÊŠpƒË‚͐^–k‚©‚玞Œv‰ñ‚è‚É‘ª‚邱‚ƂƂµ‚œB
‚‚܂荡‚Ì–â‘è‚ł́A”ª‰€Žq‚©‚ç‚قڐ^“Œ‚ɁA’n‹…‚Ì”ŒŒa‚Æ‚Ÿ‚¢‚œ‚¢“¯‚¶‚Ÿ‚¯”ò‚Ô‚Æ
ƒnƒƒC‚̃zƒmƒ‹ƒ‹‹ß•Ó‚É’…‚­‚Æ‚¢‚€Ž–‚ŸB

‚f‚‚‚‡‚Œ‚…@‚d‚‚’‚”‚ˆ‚ÅŠm‚©‚߂Ė¡‘XB’è‹K‚ðŽg‚€‚Æ‚Q’n“_ŠÔ‚Ì‹——£‚𑪂ê‚éB


109:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/01 12:38:00
Mixi ‚æ‚è vipper ‚Ì•û‚ªã‚Ȃ̂©‚æ‚—@

110:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/01 15:04:03
„105‚³‚ñ‚ ‚肪‚Æ‚€‚²‚Ž‚¢‚Ü‚·

¡“ú‚Ÿ‚³‚ꂜ“š‚Š‚ðŒ©”ä‚ׂĂ݂œ‚çA‡‚Á‚Ä‚¢‚Ü‚·II
‚Å‚àAŽ„‚ªŽÀÛ‚É‚â‚Á‚Ă݂œŠ‚œ‚­‚³‚ñ‚̃Gƒ‰[o‚Ä‚«‚Ăǂ€‚µ‚æ‚€‚à‚È‚¢
ó‘Ô‚Å‚·„ƒ
¡AŽ„‚ª—˜—p‚µ‚Ä‚¢‚é‚Ì‚Í[fc pad FTR77]‚Æ‚¢‚€fortran77‚Ì‚à‚̂Ȃñ‚Å‚·‚ª
‚Ç‚€‚µ‚ăGƒ‰[‚ªo‚Ä‚µ‚Ü‚€‚Ì‚©‚ª‚æ‚­‚í‚©‚è‚Ü‚¹‚ñ„ƒ

‚à‚µ‚à¡‰ñ‚Ì‚à‚Ì‚ªfortran77‚łȂ¢‚Æ‚µ‚œ‚çA¡“x‚©‚çŽÀÛ‚É‚â‚邯‚µ‚œ‚ç
‚ǂ̂悀‚ȃvƒƒOƒ‰ƒ€‚ɂȂé‚̂ł·‚©H

‚悯‚ê‚΁A‹³‚ЂĂ­‚Ÿ‚³‚¢„ƒ

111:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/01 19:50:23
•‚“®¬”“_‚Ì’l‚ª‚Å‚©‚·‚¬‚Đ®”Œ^‚É•Ï‚Š‚ç‚ê‚Ü‚¹‚ñ
‚Á‚ăGƒ‰[‚ªo‚Ä‚­‚é‚ñ‚Å‚·‚ªA‚Ç‚€‚·‚ê‚Ήñ”ð‚Å‚«‚Ü‚·‚©H
•‚“®¬”“_‚̂܂܂¿‚Á‚¿‚á‚­‚µ‚āi‚P‚O‚ÅŠ„‚邯‚©j®”Œ^‚É•Ï‚Š‚Ä‚©‚ç‚P‚O‚ð
Š|‚¯‚邯‚©‚·‚ê‚Ήñ”ð‚Å‚«‚邯Žv‚¢‚Ü‚·‚¯‚ǁi’[”‚ÍŽæ‚Á‚Æ‚¢‚ÄŒã‚Å‘«‚·‚Æ‚µ‚āj
‚±‚ñ‚È–­‚È‚±‚Æ‚·‚é•K—v‚È‚¢‚Å‚·‚æ‚ˁc

‚­‚Ÿ‚·‚ê‚ɏ‘‚«ž‚ނׂ«‚©‚ÆŽv‚¢‚Ü‚µ‚œ‚ª—Ž‚¿‚Ă܂·‚æ‚ˁH


112:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/01 20:10:12
‚­‚Ÿ‚·‚êFORTRANi’Ž‰SŽÒ—pj‚»‚Ì2
œÚØÝž(tech”Â)

‚»‚ê‚©‚玿–â“à—e‚́u‹ï‘Ì“I‚Ɂv‚È

113:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/01 20:28:00
>>112
‚ ‚êH‚œ‚Á‚Ă܂µ‚œ‚©c‚·‚݂܂¹‚ñB
‚»‚¿‚ç‚Å•·‚¢‚Ä‚«‚Ü‚·A‚ ‚肪‚Æ‚€B

114:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/01 23:08:57
>>110
‚Â URLØÝž(ace.phys.h.kyoto-u.ac.jp)

‚±‚ꌩ‚Ä77‚É’Œ‚¹B

115:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/01 23:14:37
>>111
¡‚̈ê”Ê‚ÌFORTRAN‚̐®”‚Í‚R‚Qƒrƒbƒg‚̐®”‚ŸB
‚»‚̏ꍇ•\‚µ‚€‚鐔‚͈̔͂́|‚QO‚R‚P`‚QO‚R‚P|‚P‚ŸB

‚QO‚R‚P‚Q‚P‚S‚V‚S‚W‚R‚U‚S‚W`‚Q–‚P‚OO‚Xš‚QƒMƒK@‚Ÿ‚©‚çA‚±‚ê‚æ‚èâ‘Î’l‚̑傫‚¢
ŽÀ”‚𐮐”‚ɕϊ·‚µ‚æ‚€‚Æ‚·‚ê‚΃Gƒ‰[‚ªo‚éB

‚œ‚Æ‚Š‚P‚O‚ÅŠ„‚Á‚Ä‚€‚Ü‚­Žû‚Ü‚Á‚Ä‚à‚P‚O”{‚µ‚œ‚çƒI[ƒo[ƒtƒ[‚·‚é‚̂Ŗ³ˆÓ–¡‚ŸB
®”‚̃I[ƒo[ƒtƒ[‚ÍŒŸ’m‚³‚ê‚È‚¢‚̂ŁiƒIƒvƒVƒ‡ƒ“‚É‚à‚æ‚邪jŽÀsŽžƒGƒ‰[‚ª
o‚È‚¢‚܂ܖ³ˆÓ–¡‚ÈŒvŽZ‚ª‘±‚­‚±‚ƂɂȂéB



116:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/01 23:23:55
>>110
‚»‚ê‚ÍFortran90‚̃vƒƒOƒ‰ƒ€‚Ÿ‚©‚çAFortran77‚ł̓Gƒ‰[‚ªo‚é‚͓̂–‘R‚ŸB
‚¿‚݂͍¡“x‚©‚ç‚́A‚­‚ŸƒXƒŒ‚Ì•û‚ɏ‘‚«‚È‚³‚¢B

‚µ‚©‚µ‚»‚Ì’ö“x‚̃Œƒxƒ‹‚ŁA‚ ‚̍À•W‰ñ“]‚ðŽg‚Á‚Ä‰ð‚¢‚œƒvƒƒOƒ‰ƒ€‚ðo‚µ‚œ‚ç
‘Œl‚É‚â‚Á‚Ä‚à‚ç‚Á‚œ‚±‚Æ‚ªƒoƒŒƒoƒŒ‚Ÿ‚—‚—‚—

ŽŸ‚©‚ç‚͍ŏ‰‚ÉFORTRAN77‚Å‚šŠè‚¢‚µ‚Ü‚·‚Ə‘‚¢‚Ä‚š‚«‚È‚³‚¢B

117:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/03 01:14:47
‚à‚Á‚Ə‰SŽÒ‚ɂ₳‚µ‚­‚µ‚Ä‚â‚ê‚æB

Fortranƒ†[ƒU[‚𑝂₷‚œ‚߂ɁB

118:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/03 04:16:33
>>117
“¯ˆÓEEEi‚Ç‚€‚Å‚à‚¢‚¢‚ª‚—j

119:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/03 05:14:42
‰SŽÒ‚Á‚[‚æ‚è‘ü‚̏h‘苳‚Š‚ÄƒNƒ“‚Á‚Û‚¢‚ªB

120:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/03 18:07:18
FORTRAN77
‚ÌGOTO•¶‚ƃ‰ƒxƒ‹‚Ì—’‚É
‚¢‚â‚ɂȂèCŽb‚­C++Œn‚É•‚‹C‚µ‚Ä‚œ‚ª
Fortran90“–‚è‚©‚ç‚Ü‚œÌ«Ä×Ýۂɖ߂Á‚œ

121:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/03 19:04:12
>>120
‚š‚©‚Š‚è‚È‚³‚¢B

CŒŸŒê‚́AC99,D,C++,ObjectiveC,Secure‚ÈC‚Ȃǂɕª—ô‚µ‚Ä‚«‚Ä‚¢‚é‚̂ŁA
ø‚Á‚Ä‚±‚Ì•ª—ô‚ð‚¢‚Á‚»‚€[‚߂āAFortran‚ð—L—˜‚É‚µ‚Ä‚­‚êB



122:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/04 03:38:34
>>121
‚»‚ê‚ð”­“W‚Æ‚à‚¢‚€‚ñ‚Ÿ‚ª‚—

123:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/04 17:38:37
ŒvŽZ—Ê‚ª‘‚ЂĂ«‚œ‚̂ŁA1‘äƒpƒ\ƒRƒ“‚𑝂₻‚€‚Æ‚µ‚Ä‚¢‚é‚̂ł·‚ªA
iŒ»ÝPen4 3.6GHzAIntelVisualFortran9.0j
•À—ñŒvŽZ‚µ‚»‚€‚ɂȂ¢ƒR[ƒh‚Ȃ̂ŁACPU‚Ì‘I‘ð‚É–À‚Á‚Ä‚¢‚Ü‚·B
¡‚Ü‚ÅPen4‚ ‚œ‚è‚̃Vƒ“ƒOƒ‹ƒRƒA‚Å—¬‚µ‚Ä‚¢‚œ•û‚Í‚±‚ê‚©‚ç
‚Ç‚€‚³‚ê‚é‚‚à‚è‚Å‚·‚©H
Core2Duo‚Æ‚©‚Ç‚€‚È‚ñ‚Å‚µ‚å‚€EEE
ã‚Ì•û‚Å‚ÍCore2Duo‚Ì•û‚ª‘¬‚¢‚Æ‚¢‚€‘‚«ž‚Ý‚ª‚ ‚è‚Ü‚·‚ªEEE
ˆê‰ž—\ŽZ‚Í1Ž®20–œ‰~ˆÊ‚ð‘z’肵‚Ä‚¢‚Ü‚·D

124:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/04 23:45:38
>>122
‚¢‚âAƒnƒbƒeƒ“‚ÍŒ‹\‚È‚ñ‚Ÿ‚ªA‚€‚Ü‚­“¯‚¶‚­‚ç‚¢‚ÉŽ}•ª‚©‚ꂵ‚Ä‚à‚炊‚邯A“àƒQƒo‚ªŽn‚Ü‚Á‚Ä
‘S•”Š‘Þ‚µ‚Ä‚­‚ê‚ď•‚©‚éB

‚ ‚ÆC”h¶ŒŸŒê‚ªSecure‚È•ûŒü‚ÉŒü‚©‚Á‚Ä‚­‚ê‚邯AÅ“K‰»ƒXƒs[ƒh‚ª—Ž‚¿‚Ă₪‚ÄŽ©–Å‚·‚邟‚ë‚€B
ƒoƒbƒtƒ@[ƒI[ƒo[ƒ‰ƒ“‚Ì‹°•|‚Æ‚©‚ðø‚Á‚ďí‚ÉSUBCHK‚©‚¯‚œ‚܂ܑ–‚邿‚€‚ÉŽdŒü‚¯‚é‚ׂµB

Java‚âC#‚Ȃǂ͌‹‹Çª–{“I‚É•ûŒü‚ðŠÔˆá‚Á‚Ä‚¢‚邯Žv‚€B
UCSD@p-code@Pascal‚̐̂©‚çAVirtualMachine‚Í‚Æ‚Ä‚à‚¢‚¢ƒAƒCƒfƒA‚̂悀‚ÉŽv‚ЂāA
‚»‚ê‚Å‚¢‚Ä‚€‚Ü‚­s‚Á‚œ‚œ‚ß‚µ‚ª‚È‚¢BƒXƒs[ƒh‚ª‚ ‚ê‚΃Gƒ~ƒ…ƒŒ[ƒVƒ‡ƒ“‚ŏ\•ª‚Ÿ‚ƁA‚Þ‚©‚µ‚©‚ç
ŒŸ‚í‚ê‚Ä‚«‚œ‚ªAƒXƒs[ƒh‚ªã‚ª‚邯V‚µ‚¢Žg‚¢•û‚ªo‚Ä‚«‚āAƒMƒŠƒMƒŠ‚ÌCPUÁ”
‹‚ß‚ç‚ê‚é‚©‚ç‚€‚Ü‚­s‚­‚Í‚ž‚ª‚È‚¢B


‚à‚Á‚Æ‚àFortran‚à‹KŠi‚ª‚Ç‚ñ‚Ç‚ñ”ì‘剻‚µ‚Ä‚¢‚Ä‚©‚‚ĂÌPL/IŒ^‚Ì”j–ł̓¹‚ð
‚œ‚Ç‚Á‚Ä‚¢‚é‹C‚ª‚µ‚È‚­‚à–³‚¢‚Ì‚Ÿ‚ª‚—

125:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/05 10:31:13
>>124
PL/I‚©‚—
VM‚͂킵‚ç‚̂悀‚ÉŒvŽZ‹@‚Æ‚µ‚ÄŽg‚€l‚ɂ͖³—‚Ÿ‚ª
•’ʂɗV‚Ô’ö“x‚Ȃ炢‚¢‚ñ‚¶‚á‚È‚¢‚©H
‚Á‚Ä‚¢‚€‚©‘åä•v‚È‚­‚ç‚¢PC‚̐«”\‚ª‚ ‚ª‚Á‚œ‚ñ‚¶‚á‚È‚¢‚©H

‚à‚¿‚ë‚ñAFortran‚ÅVMŽg‚í‚ꂜ‚獪–{“I‚ȊԈႢ‚Ÿ‚ª
Java‚Ì•ûŒü‚àƒAƒŠ‚È‚ñ‚¶‚á‚È‚¢‚©H
Fortran‚Æ—p“r‚ªd‚È‚ç‚È‚¢‚µEEE

‚¿‚å‚Á‚ÆPL/I‚ª‚Ȃ‚©‚µ‚­‚È‚Á‚ď‘‚«ƒR

126:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/05 14:26:13
C Pad for Salford FTN77@‚ð‚‚©‚Á‚Ä‚¢‚Ü‚·‚ªAƒvƒƒOƒ‰ƒ€‚ðŽÀs‚·‚邯
RUN TIME ERROR
00402c50 SOLU [+0174] [recur= 1]
00401000 TDOFS [+09ca]
‚ªo‚Ü‚·B
RUN TIME ERROR‚Ƃ͂Ȃñ‚Å‚µ‚å‚€‚©HH
ƒƒbƒZ[ƒW—“‚É‚Í
u Licensed to: FTN77 Personal Edition
Department: Non-commercial use only
0001) omega1 theta0 theta1 alph beta theta g()/kG
*** Unexpected continuation line (have you got more than 19?)

*** Compilation failed

^C@@v
‚Ƃł܂·‚ªA‚æ‚­‚í‚©‚ç‚È‚¢‚Å‚·(||G)
‚ǂȂœ‚©‹³‚ЂĂ­‚Ÿ‚³‚¢II





127:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/05 22:54:37
>>126
>*** Unexpected continuation line (have you got more than 19?)
>*** Compilation failed

‚¹‚Á‚©‚­ƒRƒ“ƒpƒCƒ‰‚ªƒƒbƒZ[ƒW‚ðo‚µ‚Ä‚¢‚é‚Ì‚Ÿ‚©‚çA‚¿‚á‚ñ‚Ɠǂނ悀‚ɁB

128:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/06 00:05:57
>>126
‚Ü‚Á‚œ‚­>>127‚ÌŒŸ‚€‚Æ‚š‚肟B
Žq‹Ÿ‚ª‹ƒ‚¢‚Ä‚¢‚é‚̂ɁA‚©‚Ü‚Á‚Ä‚â‚ç‚È‚¢ˆçŽ™•úŠü‚Ì•êeƒŒƒxƒ‹‚ŸB


˜R‚ê‚̐f’f‚ł́A‚Q‚ƒ‚ˆ‚©‚çƒRƒsƒy‚µ‚œ‚̂ŁA‚UƒJƒ‰ƒ€•¶‚ÌŽš‰º‚°‚ð‚µ‚Ä‚¢‚È‚¢B
‚»‚Ì‚¹‚¢‚ÅŒp‘±s‚ÉŠšˆá‚¢‚³‚ê‚Ä‚¢‚éB


129:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/06 12:51:58
>>127
‚¶‚á‚ ‰p–󂵂Ă ‚°‚œ‚çHH
Žq‹Ÿ‚ª‹ƒ‚¢‚Ä‚¢‚é‚̂ɁA‚©‚Ü‚Á‚Ä‚â‚ç‚È‚¢ˆçŽ™•úŠü‚Ì•êeƒŒƒxƒ‹‚ŸB


130:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/06 13:02:29
>>129‚Í•êe‚ɖق点‚ë‚Á‚Ä“{–‚邟‚¯‚̐e•ƒB

131:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/06 13:06:14
>>130
‚ÍŽ–Œ‚ª‚ ‚Á‚œŒã‚É
ƒCƒ“ƒ^ƒrƒ…[‚³‚ê‚é‹ßŠ‚̐l
u‚æ‚­‚ ‚̉Ƃ̎q‚Í‹ƒ‚¢‚Ä‚¢‚Ü‚µ‚œ‚æEEE‚Ђǂ¢e‚Å‚·‚Ë
‚܁AŽ„‚ÍŠÖŒW‚È‚¢‚ñ‚Å‚·‚¯‚ǁv


132:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/06 13:52:30
Å‰‚̐l‚ª”nŽ­‚É‚µ‚œŒû’²‚ŏ‘‚«ž‚Þ‚©‚炱‚ñ‚È‚­‚Ÿ‚ç‚È‚¢ƒŒƒX‚ª‘±‚¢‚Ä‚µ‚Ü‚Á‚œ‚æB



133:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/06 14:08:59
>>132
>>127 ‚͕ʂɈ«‚­‚È‚¢‚Ÿ‚ëBˆ«‚¢‚Ì‚Í>>128

134:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/06 14:31:00
ˆ«‚¢‚Ì‚Í>>126Bà–Ÿ‚ð’[Ü‚Á‚œŽ¿–â‚ð‚·‚é‚©‚炱‚€‚È‚éB
uƒvƒƒOƒ‰ƒ€v‚ª‰œŽÒ‚©‚±‚¿‚ç‚ɂ͑S‚­•ª‚©‚ç‚È‚¢B


135:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/06 14:33:15
‚Ƃ肠‚Š‚žA‰Ž‚ªˆ«‚¢‚æ
‚Ý‚ñ‚ȺÞÒ¿

136:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/06 14:40:20
>>134
‚Å‚à“à—e‚à‰œ‚à‚í‚©‚ç‚È‚¢l‚Ÿ‚Á‚œ‚玿–â‚ð‚¿‚á‚ñ‚Æ‚µ‚ë‚Á‚Ă̂à“‚¢‚ñ‚¶‚á‚È‚¢‚©‚ȁHH

137:ƒfƒtƒHƒ‹ƒg‚Ì–Œ–³‚µ‚³‚ñ
06/12/06 20:08:27
Ž¿–â‚ð‚µ‚Ä‚¢‚élŠÔ‚ªŽ©•ª‚Ì‚â‚Á‚Ă邱‚Ƃ̓à—e‚à‰œ‚à‚í‚©‚ç‚È‚¢ó‘Ô‚È‚çA
‚»‚ꂱ‚»“š‚Š‚æ‚€‚ª‚È‚¢‚Ÿ‚ëB

‚¹‚߂Ċî–{“I‚È•¶–@‚È‚èƒ\ƒtƒg‚ÌŠÈ’P‚ÈŽg‚¢•û‚­‚ç‚¢‚ÍŽ©•ª‚Å’²‚ׂÄ
‚»‚ê‚Å‚àƒ_ƒ‚Ÿ‚Á‚œ‚çA‰œ‚ª‚µ‚œ‚­‚ĉœ‚ðŽŽ‚µ‚œ‚¯‚ǂǂ€ãŽè‚­‚¢‚©‚È‚©‚Á‚œ‚©
’ö“x‚Ì‚±‚Ƃ͏‘‚¢‚ÄŽ¿–â‚·‚ׂ«‚¶‚á‚È‚¢‚©B


ŽŸƒy[ƒW
ÅVƒŒƒX•\ŽŠ
ƒXƒŒƒbƒh‚ÌŒŸõ
—ÞŽ—ƒXƒŒˆê——
˜b‘è‚̃jƒ…[ƒX
‚š‚Ü‚©‚¹ƒŠƒXƒg
¥ƒIƒvƒVƒ‡ƒ“‚ð•\ŽŠ
‰É‚‚Ԃµ2ch

5215“ú‘O‚ɍXV/304 KB
’S“–:undef