‚Q‚æ‚į‚ń‚Ė‚é šƒXƒ}ƒz”Łš ”ŒfŽ¦”Ā‚ɖ߂達 ‘S•” 1- ÅV50  

” ‚±‚ĢƒXƒŒƒbƒh‚Ķ‰ß‹ŽƒƒO‘qŒÉ‚ÉŠi”[‚³‚ź‚Ä‚¢‚Ü‚·

FORTRAN ‡W

1 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 17:13:35
FORTRAN‘‡ƒXƒŒƒbƒh‚Å‚·B
FORTRAN77/90/95/2003, HPF“™AFORTRAN‘S”Ź‚ÉŠÖ‚·‚é˜b‘č‚š‘‚«ž‚ń‚ʼnŗ‚³‚¢B

EFORTRANŠÖ˜Aī•ń
‚Ø–ń‘©‚¾‚ŖA‚Ü‚ø‚ĶŽ©•Ŗ‚Å’²‚ׂꂤ
http://www.google.co.jp/

x86‚Å“®ģ‚·‚éFortranƒRƒ“ƒpƒCƒ‰
http://www.nminoru.jp/~nminoru/programming/x86-fortran.html

The Fortran Company
http://www.fortran.com/
Polyhedron Software
http://www.polyhedron.co.uk/
Google Directory - Fortran
http://directory.google.com/Top/Computers/Programming/Languages/Fortran/

E‘OƒXƒŒ
FORTRAN III
http://pc8.2ch.net/test/read.cgi/tech/1104724162/
FORTRAN II
http://pc5.2ch.net/test/read.cgi/tech/1068351911/
Fortran
http://pc2.2ch.net/test/read.cgi/tech/1003214738/


2 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 17:14:45
EƒtƒŠ[^–³—æ•]‰æ”Å‚ĢƒRƒ“ƒpƒCƒ‰
The G95 project iFortran95j
http://www.g95.org/
GCC (g77) i”‚Ģ‚Ę‚±‚ė FORTRAN77j
http://gcc.gnu.org/
Salford FTN77/95 Personal Edition iFortran77/95, Windows, —v“o˜^j
http://www.salfordsoftware.co.uk/software/downloads/compilers.html
FTN77/95‚ĢƒCƒ“ƒXƒg[ƒ‹•ū–@
http://www.coastal-env.k.u-tokyo.ac.jp/koibuchi/fortran.htm
the F Programming Language iFortran90‚ĢƒTƒuƒZƒbƒg, Win/Linux/Solarisj
http://www.fortran.com/F/compilers.html
Open Watcom Fortran Compiler iFORTRAN77j
http://www.openwatcom.org/
Intel Fortran Compiler iFortran95, –³—æ•]‰æ”Å(Win)^”ń¤—pƒo[ƒWƒ‡ƒ“(Linux), —v“o˜^j
http://www.xlsoft.com/jp/products/download/download.html
Lahey/Fujitsu Fortran iŠśŒĄ•t‚«ƒgƒ‰ƒCƒAƒ‹”Å‚ĶI—¹‚µ‚½–Ķ—lj
http://www.lahey.com/downloads.htm

EƒhƒLƒ…ƒƒ“ƒg
Compaq Visual Fortran ƒIƒ“ƒ‰ƒCƒ“EƒhƒLƒ…ƒƒ“ƒg
http://www.xlsoft.com/jp/products/intel/cvf/docs/index.html
Intel Fortran Compiler “ś–{Œź”Ń}ƒjƒ…ƒAƒ‹‚Ģƒ_ƒEƒ“ƒ[ƒh i—v“o˜^j
http://www.xlsoft.com/jp/products/intel/download.html
•xŽm’ŹFortranƒIƒ“ƒ‰ƒCƒ“ƒ}ƒjƒ…ƒAƒ‹
http://www.cc.nao.ac.jp/fsunman/japanese/Fortran/index.html

FORTRAN77 standard
http://www.swcp.com/~walt/F77_std/f77_std.html
http://www.fortran.com/fortran/F77_std/rjcnf0001.html

JISƒf[ƒ^ƒx[ƒX
http://www.jisc.go.jp/

3 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 18:34:32
‹@ŽķˆĖ‘¶•¶ŽšŽg‚¤‚Čƒ{ƒPŽø‚¹‚ė

5 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 19:07:04
>>4
‚«‚½‚Ė[Œ¾—tŽg‚¤‚Č•³–ģ˜YI

Ž€‚ĖI


6 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 19:30:21
”’lĻ•Ŗ‚ŖŽg‚¦‚éƒtƒŠ[‚Ģ”’lŒvŽZƒ‰ƒCƒuƒ‰ƒŠ‚ ‚č‚Ü‚¹‚ń‚©H

7 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 19:58:47
>>6
NetLib‚Ö’rB‚U‚UŽž‘ć‚Ģ‚ą‚Ģ‚Ŗ‚²‚Ü‚ń‚Ę‚ ‚é‚ŗB

8 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 20:01:14
IMSL‚Ŗ‚ ‚é‚ń‚¶‚į‚ĖH

9 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 20:02:08
>>8
IMSL‚Ķ—L—æƒpƒbƒP[ƒWƒ\ƒtƒg‚¾‚¼B


10 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 20:08:40
IMSL‚Ķ10–œˆČć‚·‚é—\Š“

LAPACK‚ɐĻ•Ŗ‚Ķ‚Ó‚­‚Ü‚ź‚Ä‚Ø‚ē‚ń‚ĢH

11 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 20:08:54
ƒRƒ“ƒpƒCƒ‰‚ę‚č‚‚¢EEE

12 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 20:10:38
‚±‚ĢƒXƒŒ‚ĢƒGƒLƒXƒp[ƒg‚½‚æ‚Ķ—L—æƒpƒbƒP[ƒW‚Ę‚©Žg‚Į‚Ä‚Ø‚ē‚ź‚é‚Ģ‚Å‚·‚©H

13 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 20:13:17
>>7
Netlibs‚Į‚½‚Ŗ”‚Ŗ‘½‚·‚¬‚ĉ½‚Ŗ‚Č‚ń‚¾‚©‚ķ‚©‚ē‚Č‚¢B
‚±‚ź‚š‚Ē‚¤Žg‚¦‚Ī‚¢‚¢‚©‚·‚ē‚ķ‚©‚ē‚Č‚¢B
Œ©‚½Š“‚¶ƒvƒƒOƒ‰ƒ€’P‘Ģ‚Ŗ—Ž‚Į‚±‚æ‚Ä‚¢‚邾‚Æ‚É‚µ‚©Œ©‚¦‚Č‚¢‚Ŗ
‚Ē‚¤‚ā‚Į‚Ä‚Į‚Ä‚±‚ź‚šŒÄ‚яo‚µ‚ÄŽg‚¤‚ń‚¾‚ė‚¤‚©B

14 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 21:19:12
‰SŽŅ‚Ķ•xŽm’Ź‚ĢƒTƒuƒ‹[ƒ`ƒ“•t‚«ƒRƒ“ƒpƒCƒ‰”ƒ‚¤‚Ģ‚Ŗbest‚¶‚į‚ĖH
“ļˆÕ“x‚ą—\ŽZ‚ą

16 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 21:25:25
Intel Math Kernel Library‚Åok


17 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 21:36:09
MKL‚Į‚ĐĻ•Ŗƒ‹[ƒ`ƒ““ü‚Į‚Ä‚é‚ĢH

18 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/12(“ś) 21:39:47
‘½•Ŗ‚Č‚¢

‚Ę‚¢‚¤‚©AƒtƒŠ[‚Å—L–¼‚Ē‚±‚ė‚ĢƒpƒbƒP[ƒW‚É‚ĶĻ•Ŗƒ‹[ƒ`ƒ“‚Ķ–³‚¢—\Š“

19 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/13(ŒŽ) 20:30:25
ƒƒCƒ“ƒvƒƒOƒ‰ƒ€‚ÉLorentz‚ĢŒ^’č‹`‚Ŗ‚Č‚¢‚©‚ēintegerˆµ‚¢‚³‚ź‚Ä‚ń‚¶‚į‚Ė[‚ĢH


21 F19F2006/11/13(ŒŽ) 21:30:09
implicit none‚ʼnšŒˆ‚µ‚Ü‚µ‚½B
‚PŽžŠŌ‚ąŽžŠŌ‚šH‚¢‚Ü‚µ‚½B


22 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/14(‰Ī) 00:43:00
Ž©—R‘Ž®‚ŏ‘‚­‚Č‚ēŠÖ”EƒTƒuƒ‹[ƒ`ƒ“‚Ķ“ą•”Žč‘±‚«‚É‚·‚é‚©AMODULE‚É‚·‚é‚©
INTERFACEéŒ¾‚µ‚Ä‚©‚ēŽg‚Ø‚¤B

23 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/14(‰Ī) 01:07:20
>>20,22
‚Ŗ³‚µ‚¢B

>>19‚Ķ‚ ‚Ü‚č‚É’†“r”¼’[B‚«‚Į‚æ‚č‚ĘŒµŠi‚ČF90Ž®‚ŏ‘‚­‚©AF77Ž®‚ÉˆĆ–Ł‚ĢŒ^‚šŽē‚é‚ׂ«B


24 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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

http://developer.amd.com/acml.jsp


25 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/14(‰Ī) 15:36:00
fortran’†‚Å‘¼‚Ģexe‚šŽĄs‚Å‚«‚é‚ꂤ‚É‚·‚é‚É‚Ķ‚Ē‚¤‚µ‚½‚ē—Ē‚¢‚Å‚·‚©H
fortran‚ōģ‚ē‚ź‚½exe‚Č‚ń‚¾‚Æ‚Ēƒ\[ƒX‚­‚Į‚Ā‚Æ‚é‚Ģ‚Ŗ‚ß‚ń‚Ē‚­‚³‚¢‚ń‚ŁEEE‚—

26 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/14(‰Ī) 16:32:26
>>23
FORTRAN(90)‚Ģ‘Š‚ŁA’č”Ō‚Ģ•Ø‚Į‚Ä‚ ‚č‚Ü‚·‚©H

27 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/14(‰Ī) 16:53:09
‚±‚ź‚©‚ēƒtƒH[ƒgƒ‰ƒ“‚š•×‹­‚·‚é‚Ģ‚Å‚·‚ŖA
‚Ę‚Ä‚ą‰š‚č‚ā‚·‚¢“ü–发‚š‹³‚¦‚Ä‚¢‚¾‚½‚Æ‚Ü‚¹‚ń‚©H
ƒvƒƒOƒ‰ƒ~ƒ“ƒOŽ©‘ĢA‚ ‚Ü‚čŒoŒ±‚Ŗ‚ ‚č‚Ü‚¹‚ńB
‚b‚š­‚µ‚ā‚č‚Ü‚µ‚½B
‚ę‚ė‚µ‚­‚ØŠč‚¢‚µ‚Ü‚·B

28 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/14(‰Ī) 23:23:10
”{ø“xŽĄ”‚Ę4”{ø“xŽĄ”‚Å‚ĶŽĄs‘¬“x‚Ķ•Ļ‚ķ‚Į‚Ä‚µ‚Ü‚¢‚Ü‚·‚©H

31 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/14(‰Ī) 23:28:24
>>30
Ž€‚Ź‚Ł‚Ēˆį‚¤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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/14(‰Ī) 23:31:25
>>29
DO•¶‚ŏ‘‚©‚Č‚¢‚Ę‚¢‚Æ‚Č‚¢‚Ģ‚Å‚·‚Ŗ
‚Ē‚¤‚·‚ź‚Ī‚¢‚¢‚ń‚Å‚µ‚傤‚©EE

33 F30F2006/11/15(…) 00:03:03
>>31
Ś‚µ‚¢Ś½»Żø½I

34 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/15(…) 00:35:58
>>26
Žc”O‚Č‚Ŗ‚ē‚ ‚Ü‚č‚¢‚¢–{‚Ķ–³‚¢B

”AŽč‚É“ü‚č‚ā‚·‚¢‚Ģ‚Ķ‚±‚źB
http://www.amazon.co.jp/gp/product/4563014095
‚µ‚©‚µA‚e‚V‚V‚Ģ•Č‚šˆų‚«‚ø‚Į‚Ä‚¢‚āA‚ ‚Ü‚č‚¢‚¢‘‚«•ū‚š‚µ‚Ä‚¢‚Č‚¢B
’˜ŽŅ‚Ķ‹ž‘å‚Ģ‚Ø‚Į‚³‚ń‚ē‚µ‚­A‚v‚d‚a‚Å“Æ“™‚Ģ“ą—e‚Ģ‚ą‚Ģ‚šŒ©‚ē‚ź‚éB
ƒAƒhƒŒƒX‚ĶƒAƒ}ƒ]ƒ“‚ĢƒŒƒrƒ…[‚ɏ‘‚¢‚Ä‚ ‚éB

‰pŒź‚Å‚ę‚Æ‚ź‚ĪA‚±‚Ģ•Ó‚Ę‚©A
http://www.lahey.com/elfpage.htm
‚±‚Ģ•Ó‚Ģ‚d‚“‚“‚…‚Ž‚”‚‰‚‚Œ ‚e‚‚’‚”‚’‚‚Ž‚ ‚½‚č‚ŖŠwK—pƒTƒuƒZƒbƒg‚É‚Č‚Į‚Ä‚¢‚āAƒˆ‚e‚X‚O‚šŠw‚ׂéB
http://www.fortran.com/F/books.html

‚µ‚©‚µAŒ»ŽĄ¢ŠE‚Å‚Ķ‚e‚V‚Vƒ\[ƒX‚Ŗ‚ ‚Ó‚ź‚Ä‚¢‚é‚Ģ‚Å”÷–­‚Å‚Ķ‚ ‚éB
ŽĄŪć‹L‚Ģ‚ą‚Ģ‚Ķ‹³ˆē—p‚Ę‚µ‚Ä‚ą‚Ķ‚ā‚ē‚Č‚©‚Į‚½B


35 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/15(…) 14:47:06
@@complex(8) c

‚É‚Ø‚¢‚āC

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

‚Ę‚µ‚ś‰»‚·‚é‚Ģ‚ąC

@@c=0.d0

‚Ę‚µ‚ś‰»‚·‚é‚Ģ‚ą‘S‚­“Æ‚¶‚±‚Ę‚Č‚Ģ‚Å‚·‚©H

37 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/15(…) 18:31:55
>>37
read (*,*) x,log(x),log10(x)
‚Ē‚±‚É“ü‚ź‚½‚¢‚ĢH
‚½‚Ō‚ńA‚»‚ĢŒŠ‚¶‚į‚Č‚¢‚ķ‚ę

39 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/15(…) 23:55:01
>>37
>>35‚š‚ą‚¤‚¢‚Į‚Ų‚ńŒ©‚ėI

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


41 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/17(‹ą) 00:48:27
>>40
ƒ^ƒCƒgƒ‹ˆź‚¾‚©‚ē¬—‚µ‚»‚¤‚—

42 F37F2006/11/17(‹ą) 10:16:25
>>35
WRITE (6,*) ‚Ŗ•Ŗ‚©‚č‚Ü‚¹‚ń
>>37‚Ģ–ā‘č‚Ģ‘Ž®‚ĢŽw’č‚Ķ‚±‚ź‚Å‚¢‚¢‚ń‚Å‚µ‚傤‚©

43 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/17(‹ą) 11:23:12
WRITE(6,@'(I10, F15.7, F15.7)') x, y, z

‚ą‚¤­‚µ‹³‰Č‘‰ÅII

‚±‚ń‚ČŠ“‚¶‚Å‚—

44 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/17(‹ą) 19:09:14
>>46
u•Ļ”‚ĢŒ^v‚šÄ•×‹­‚µ‚Ä‚©‚ēo’¼‚µ‚Ä‚±‚¢B

48 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/18(“y) 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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/18(“y) 00:44:07
>>48
>>37‚Ģ–ā‘č‚š“Ē‚ŽŠ“‚¶‚Å‚ĶA
write(*, '(i7, f15.7 f15.7)') int(x), log10(x), log(x)
‚š—\Šś‚µ‚Ä‚¢‚é‚ĘŽv‚ķ‚ź‚éB

>>46‚Ķ‚ą‚¤­‚µ–į‚Į‚½‰ń“š—į‚š‚ę‚­‹į–”‚µ‚ė‚—

50 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/18(“y) 01:00:15
‚o‚•‚‹‚‰‚v‚‰‚‹‚‰@‚Ā‚­‚Į‚Ä‚Ż‚½
http://www.moecity.jp/home/fortran/

‚—‚‰‚‹‚‰‚ę‚­’m‚ē‚Č‚¢BŽ©—R‚ÉŽg‚Į‚Ä‚Ż‚Ä‚­‚źB


51 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/18(“y) 19:42:09
f90ƒXƒ^ƒCƒ‹‚ÅŠw‚ׂ邢‚¢•¶‘‚Ķ‚ ‚č‚Ü‚¹‚ń‚©‚ĖB
‰pŒź‚©“ś–{Œź‚Å‚ØŠč‚¢

52 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/18(“y) 20:03:11
>>51
Fortran •W€ƒR[ƒfƒBƒ“ƒOƒ‹[ƒ‹
ttp://www.mri-jma.go.jp/Project/mrinpd/coderule.html

European Standards For Writing and Documenting Exchangeable Fortran 90 Code
ttp://www.meto.gov.uk/research/nwp/numerical/fortran90/f90_standards.html

ć‚Ģ˜a–ó
ttp://www.mri-jma.go.jp/Project/mrinpd/eurostand.html

53 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/18(“y) 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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/18(“y) 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 F54F2006/11/18(“y) 22:12:21
~ g95‚Å‚Ķi“–‘Rj
› g95‚Å‚Ķi“–‘Rj A ‚Ķ”z—ń‘S‘Ģ‚ʉšŽß‚³‚ź‚½B

56 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/18(“y) 23:02:07
>>54
‚»‚¤‚¶‚į‚Č‚­‚Ä
REAL A, A(10)
‚Ŗ‰Ā”\‚¾‚Į‚½‚ĘŽv‚¤B


57 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/19(“ś) 01:39:12
‚½‚µ‚©•Ļ”–¼‚Ę”z—ń–¼‚Ķ‹KŠić‚Ģ’č‹`‚Å‚Ķ•Ź•Ø‚¾‚Į‚½‹L‰Æ‚Ŗ‚ ‚éB

ŽĄŪ‚ĢƒRƒ“ƒpƒCƒ‰‚Å‚Ē‚¤‚Č‚Į‚Ä‚¢‚½‚©‚Ķ’m‚ē‚ńB





59 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/20(ŒŽ) 08:30:40
Fortran90‚Č‚ń‚Å‚·‚ŖC

integer a(1:100)=0

‚Ż‚½‚ȏ‰Šś‰»‚ĢŽd•ū‚Ķ‚ę‚­‚ā‚é‚ń‚Å‚·‚©H

60 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/20(ŒŽ) 08:32:30
~‚Ż‚½‚Č
›‚Ż‚½‚¢‚Č

orz

61 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/20(ŒŽ) 09:01:16
>>60
‚ę‚­‚ā‚éB
‚µ‚©‚µ‚»‚Ģ‰Šś‰»‚ĶƒŠƒ“ƒNEƒ[ƒhŽž‚ɍs‚ķ‚ź‚é‚ą‚Ģ‚Č‚Ģ‚ŁA
ŽĄss‚Åa(1:100)=0‚ʏ‘‚­‚Ģ‚Ę‚Ķ”÷–­‚Ɉį‚¤B



62 F59F2006/11/20(ŒŽ) 15:25:10
>>61
Ś½‚ ‚č‚Ŗ‚Ę‚¤

63 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/20(ŒŽ) 17:30:12
integer a(1:100)=0
Ŗ‚±‚ź‚Į‚Ä’Ź‚éH

integer::@‚¶‚į‚Č‚¢‚Ę’Ź‚ē‚Č‚©‚Į‚½‹C‚ŖB


64 FŽæ–ā1/3F2006/11/20(ŒŽ) 18:45:56
ŠgŽU•ū’öŽ®‚Ģ‹«ŠE’l–ā‘č‚šƒIƒCƒ‰[—z‰š–@‚ʼnš‚­‚½‚ß‚Ģ
Ž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 FŽæ–ā2/3F2006/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 FŽæ–ā3/3F2006/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 F59F2006/11/20(ŒŽ) 21:40:21
>>63
‚»‚¤‚Å‚µ‚½

integer :: a(1:100)=0

‚¶‚į‚Č‚¢‚Ę’Ź‚ē‚ń‚Å‚·D

68 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/22(…) 00:03:15

‚­‚¾‚·‚źFORTRANi’“‰SŽŅ—pj‚»‚Ģ2
http://pc8.2ch.net/test/read.cgi/tech/1164121236/

69 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/22(…) 03:56:04
Xeon5000”Ō‘ä‚Ę”äŠr‚·‚é‚Č‚ēXeonA
Xeon3000”Ō‘ä‚Ę”äŠr‚·‚é‚Č‚ēCore2Duo‚©‚Č

71 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/22(…) 11:20:02
ƒLƒƒƒbƒVƒ…‚ɍŚ‚é‚Č‚ē‚»‚ź‚Å‚ą‚¢‚¢‚ŖAƒƒ‚ƒŠ[ƒAƒNƒZƒX‘½‚¢‚Č‚ēItanium2‚Å’r





72 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/22(…) 17:24:56
>>74
DLAX, DLAXR ‚Į‚Ä–¼‘O‚©‚ēŽ@‚·‚é‚ʁA•xŽm’Ź‚Ģ”’lŒvŽZƒ‰ƒCƒuƒ‰ƒŠSSL II ‚šŽg‚Į‚Ä‚é‚Į‚Ū‚¢B

79 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/22(…) 17:45:18
‚·‚źˆį‚¢‚©‚ą’m‚ź‚Č‚¢‚ŖACoreDuoACore2Duo‚ÅLinux‚Å“®‚­‚ĢH

80 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/22(…) 18:00:54
>Core2Duo‚ÅLinux‚Å
ƒVƒ“ƒ^ƒbƒNƒXEƒGƒ‰[F ‰šŒˆ‚³‚ź‚Č‚¢•ŽŒu‚Łv

81 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/22(…) 20:45:13
>>80
nice

82 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ń F2006/11/23(–Ų) 14:05:27
nsm—ń‚Ģs—ń‚Ŗ‚ ‚čA‚»‚±‚©‚ēnsm—ń‚Ģ‚»‚ź‚¼‚ź‚Ģ’l‚šˆź—ń‚É’¼‚µ‚āA‚»‚ź‚¼‚ź‚É’l‚É‚Ā‚¢‚Ä‘å‚«‚¢‡‚É•Ą‚×‚Č‚Ø‚µAŒ³‚Ģ‚Žs‚—ń‚É’¼‚µ‚Ä‚Ż‚½‚¢‚Ģ‚Å‚·‚Æ‚Ē‚Ē‚ń‚ČƒvƒƒOƒ‰ƒ€‚Ģ•ū–@‚Ŗ‚ ‚č‚Ü‚·‚©H

‚ę‚Æ‚ź‚ĪA‹³‚¦‚Ä‚­‚¾‚³‚¢„ƒ

‚æ‚Č‚Ż‚Éfortran77‚šŽg‚Į‚Ä‚¢‚Ü‚·„ƒ/

84 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ń F2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/24(‹ą) 11:12:38
>>83
Œ³Xmixi‚ɏ‘‚«ž‚ń‚¾‚ń‚¾‚©‚ēA‰šŒˆ‚µ‚½‚ēmixi‚É‚ą‘‚­‚ꂤ‚ɁB

88 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/24(‹ą) 14:36:03
„86‚³‚ń‚ ‚č‚Ŗ‚Ę‚¤‚²‚“‚¢‚Ü‚·

Šm‚©‚É‘¬‚­’m‚č‚½‚¢‚Ę‚¢‚¤‹C‚Ŗ‚Ķ‚ā‚č‚·‚¬‚āA‚¢‚ė‚ń‚ȏŠ‚ÅŽæ–ā‚µ‚Ä‚¢‚Ü‚·‚Ė
‚æ‚į‚ń‚ĘŽ©•Ŗ‚Å—‰š‚Å‚«‚½‚ē‘‚¢‚Ä‚¢‚«‚½‚¢‚Ę‚ĶŽv‚Į‚Ä‚¢‚é‚Ģ‚Å‚·‚Æ‚Ē‚Ė
‚Å‚ąA‚ā‚Ķ‚č‚æ‚å‚Į‚Ę—‰š‚Å‚«‚Ü‚¹‚ńOOG
‚ę‚Æ‚ź‚ĪA‰½‚©—į‚Ę‚©‚ ‚é‚Ę‚ ‚č‚Ŗ‚½‚¢‚Ģ‚Å‚·‚Æ‚Ē„ƒ


90 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/24(‹ą) 14:36:17
>>77@
‚ ‚č‚Ŗ‚Ę‚¤‚²‚“‚¢‚Ü‚·I

>>78‚³‚ń‚ĢŒ¾‚¤‚Ę‚Ø‚čA•xŽm’ŹSSL‡U‚šŽg‚Į‚Ä‚¢‚é—lŽq‚Å‚·B

>>82
Lahey‚āLAPACK‚Ę‚Ķ‚Ē‚ń‚Č‚ą‚Ģ‚Å‚·‚©HH

91 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/24(‹ą) 20:57:18
>>90
ttp://www.google.co.jp/search?q=lahey+fortran
ttp://www.google.co.jp/search?q=lapack+fortran

92 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/25(“y) 08:07:15
>>89
„Šm‚©‚É‘¬‚­’m‚č‚½‚¢‚Ę‚¢‚¤‹C‚Ŗ‚Ķ‚ā‚č‚·‚¬‚āA‚¢‚ė‚ń‚ȏŠ‚ÅŽæ–ā‚µ‚Ä‚¢‚Ü‚·‚Ė
‚»‚ź‚Ķƒ}ƒ‹ƒ`ƒ|ƒXƒg‚ĘŒ¾‚Į‚āAƒ}ƒi[ˆį”½‚¾‚ȁB
‚±‚±‚š‚ę[‚­“Ē‚ń‚Ē‚­‚ꂤ‚ɁB
http://ja.wikipedia.org/wiki/%E3%83%9E%E3%83%AB%E3%83%81%E3%83%9D%E3%82%B9%E3%83%88

95 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/26(“ś) 17:18:04
‚e‚n‚q‚s‚q‚`‚m‚ĢƒGƒƒQ‚Ę‚©‚Č‚¢‚ĢH

96 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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 F96F2006/11/27(ŒŽ) 22:18:19
>>97
‚؂؁`‚ę‚­‚ķ‚©‚č‚Ü‚µ‚½I
‚ ‚č‚Ŗ‚Ę‚¤

99 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/29(…) 13:24:49
>>74‚ĢƒvƒƒOƒ‰ƒ€‚É‚Ø‚¢‚āAƒtƒ@ƒCƒ‹‚Ģ’č‹`‚Ę‚Ķ‚Ē‚Ģ•”•Ŗ‚É‚Ē‚Ģ‚ꂤ‚ɏ‘‚«ž‚Ž‚ą‚Ģ‚Č‚Ģ‚Å‚·‚©H
‘S‘Ģ‚ĢƒvƒƒOƒ‰ƒ€‚Ģ’†‚Ģ‚Ē‚±‚©‚ɉB‚ź‚Ä‚¢‚é‚Ģ‚Å‚µ‚傤‚©H

101 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ń F2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/11/30(–Ų) 21:33:37
>>101
”“x‚Ķ2‚æ‚į‚ń‚ɏ‘‚¢‚½Œćmixi‚Å‚·‚©B

105 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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 F105F2006/11/30(–Ų) 22:29:33
‚²‚ß‚ń@–kˆÜ‚Ę“ģˆÜ‚Ģˆ—‚ŖŠŌˆį‚Į‚½‚Ü‚Ü‚ĢŒĆ‚¢‚Ģ‚¤‚‚µ‚Ä‚µ‚Ü‚Į‚½B
‚܁A–{Žæ‚Ķ•Ļ‚ķ‚ē‚ń‚©‚ē“K“–‚ɏˆ—‚µ‚Ä‚Ø‚¢‚Ä‚­‚źB

Žæ–ā‚Ŗ‚ ‚ź‚ĪA“š‚¦‚ā‚·‚­˜_—“I‚É•·‚¢‚Ä‚­‚źB


108 F105F2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/01(‹ą) 12:38:00
Mixi ‚ę‚č vipper ‚Ģ•ū‚Ŗć‚Č‚Ģ‚©‚ę‚—@

110 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ń F2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/01(‹ą) 20:10:12
‚­‚¾‚·‚źFORTRANi’“‰SŽŅ—pj‚»‚Ģ2
http://pc8.2ch.net/test/read.cgi/tech/1164121236/

‚»‚ź‚©‚ēŽæ–ā“ą—e‚Ķu‹ļ‘Ģ“I‚Ɂv‚Č

113 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/01(‹ą) 20:28:00
>>112
‚ ‚źH‚½‚Į‚Ä‚Ü‚µ‚½‚©c‚·‚Ż‚Ü‚¹‚ńB
‚»‚æ‚ē‚Å•·‚¢‚Ä‚«‚Ü‚·A‚ ‚č‚Ŗ‚Ę‚¤B

114 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/01(‹ą) 23:08:57
>>110
‚Ā ttp://ace.phys.h.kyoto-u.ac.jp/~tomita/education/fortran90/sec0.html

‚±‚źŒ©‚Ä77‚É’¼‚¹B

115 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/03(“ś) 01:14:47
‚ą‚Į‚ʏ‰SŽŅ‚É‚ā‚³‚µ‚­‚µ‚Ä‚ā‚ź‚ęB

Fortranƒ†[ƒU[‚š‘‚ā‚·‚½‚߂ɁB

118 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/03(“ś) 04:16:33
>>117
“ƈӁEEEi‚Ē‚¤‚Å‚ą‚¢‚¢‚Ŗ‚—j

119 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/03(“ś) 05:14:42
‰SŽŅ‚Į‚Ā[‚ę‚č‘ü‚Ģh‘č‹³‚¦‚ăNƒ“‚Į‚Ū‚¢‚ŖB

120 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/03(“ś) 18:07:18
FORTRAN77
‚ĢGOTO•¶‚Ęƒ‰ƒxƒ‹‚Ģ—’‚É
‚¢‚ā‚É‚Č‚čCŽb‚­C++Œn‚É•‚‹C‚µ‚Ä‚½‚Ŗ
Fortran90“–‚č‚©‚ē‚Ü‚½Ģ«Ä×ŻÅ°‚É–ß‚Į‚½

121 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/03(“ś) 19:04:12
>>120
‚Ø‚©‚¦‚č‚Č‚³‚¢B

CŒ¾Œź‚ĶAC99,D,C++,ObjectiveC,Secure‚ČC‚Č‚Ē‚É•Ŗ—ō‚µ‚Ä‚«‚Ä‚¢‚é‚Ģ‚ŁA
ų‚Į‚Ä‚±‚Ģ•Ŗ—ō‚š‚¢‚Į‚»‚¤[‚߂āAFortran‚š—L—˜‚É‚µ‚Ä‚­‚źB



122 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/04(ŒŽ) 03:38:34
>>121
‚»‚ź‚š”­“W‚Ę‚ą‚¢‚¤‚ń‚¾‚Ŗ‚—

123 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/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ƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/06(…) 12:51:58
>>127
‚¶‚į‚ ‰p–󂵂Ă ‚°‚½‚ēHH
Žq‹Ÿ‚Ŗ‹ƒ‚¢‚Ä‚¢‚é‚Ģ‚ɁA‚©‚Ü‚Į‚Ä‚ā‚ē‚Č‚¢ˆēŽ™•śŠü‚Ģ•źeƒŒƒxƒ‹‚¾B


130 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/06(…) 13:02:29
>>129‚Ķ•źe‚É–Ł‚ē‚¹‚ė‚Į‚Ä“{–Ā‚邾‚Æ‚Ģe•ƒB

131 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/06(…) 13:06:14
>>130
‚ĶŽ–Œ‚Ŗ‚ ‚Į‚½Œć‚É
ƒCƒ“ƒ^ƒrƒ…[‚³‚ź‚é‹ßŠ‚Ģl
u‚ę‚­‚ ‚Ģ‰Ę‚ĢŽq‚Ķ‹ƒ‚¢‚Ä‚¢‚Ü‚µ‚½‚ęEEE‚Š‚Ē‚¢e‚Å‚·‚Ė
‚܁AŽ„‚ĶŠÖŒW‚Č‚¢‚ń‚Å‚·‚Æ‚Ēv


132 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/06(…) 13:52:30
Å‰‚Ģl‚Ŗ”nŽ­‚É‚µ‚½Œū’²‚ŏ‘‚«ž‚Ž‚©‚ē‚±‚ń‚Č‚­‚¾‚ē‚Č‚¢ƒŒƒX‚Ŗ‘±‚¢‚Ä‚µ‚Ü‚Į‚½‚ęB



133 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/06(…) 14:08:59
>>132
>>127 ‚Ķ•Ź‚Ɉ«‚­‚Č‚¢‚¾‚ėBˆ«‚¢‚Ģ‚Ķ>>128

134 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/06(…) 14:31:00
ˆ«‚¢‚Ģ‚Ķ>>126Bą–¾‚š’[Ü‚Į‚½Žæ–ā‚š‚·‚é‚©‚ē‚±‚¤‚Č‚éB
uƒvƒƒOƒ‰ƒ€v‚Ŗ‰½ŽŅ‚©‚±‚æ‚ē‚É‚Ķ‘S‚­•Ŗ‚©‚ē‚Č‚¢B


135 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/06(…) 14:33:15
‚Ę‚č‚ ‚¦‚øA‰“‚Ŗˆ«‚¢‚ę
‚Ż‚ń‚ČŗŽŅæ

136 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/06(…) 14:40:20
>>134
‚Å‚ą“ą—e‚ą‰½‚ą‚ķ‚©‚ē‚Č‚¢l‚¾‚Į‚½‚ēŽæ–ā‚š‚æ‚į‚ń‚Ę‚µ‚ė‚Į‚Ä‚Ģ‚ą“ļ‚µ‚¢‚ń‚¶‚į‚Č‚¢‚©‚ȁHH

137 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/06(…) 20:08:27
Žæ–ā‚š‚µ‚Ä‚¢‚élŠŌ‚ŖŽ©•Ŗ‚Ģ‚ā‚Į‚Ă邱‚Ę‚Ģ“ą—e‚ą‰½‚ą‚ķ‚©‚ē‚Č‚¢ó‘Ō‚Č‚ēA
‚»‚ź‚±‚»“š‚¦‚ꂤ‚Ŗ‚Č‚¢‚¾‚ėB

‚¹‚ß‚ÄŠī–{“I‚Č•¶–@‚Č‚čƒ\ƒtƒg‚ĢŠČ’P‚ČŽg‚¢•ū‚­‚ē‚¢‚ĶŽ©•Ŗ‚Å’²‚ׂÄ
‚»‚ź‚Å‚ąƒ_ƒ‚¾‚Į‚½‚ēA‰½‚Ŗ‚µ‚½‚­‚ĉ½‚šŽŽ‚µ‚½‚Æ‚Ē‚Ē‚¤ćŽč‚­‚¢‚©‚Č‚©‚Į‚½‚©
’ö“x‚Ģ‚±‚Ę‚Ķ‘‚¢‚ÄŽæ–ā‚·‚ׂ«‚¶‚į‚Č‚¢‚©B

138 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/07(–Ų) 04:08:19
>>137
‚ą‚Į‚Ę‚ą‚ČˆÓŒ©‚¾‚ŖA‚»‚ź‚Ŗo—ˆ‚ź‚Ī‚½‚¢‚Ä‚¢‚ĶŽ©ŒČ‰šŒˆ‚µ‚Ä‚Q‚ƒ‚ˆ‚É‚Č‚ń‚©•·‚«‚É‚±‚Č‚­‚Ä‚·‚Ž‚—


139 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/07(–Ų) 07:46:51
>>137
Exactly

140 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/07(–Ų) 17:42:48
>>139
(Ī)

141 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/07(–Ų) 22:56:54

Silverfrost (Salford) FTN95 Version 5.00 ·ĄŗŚ
ttp://www.download.com/Silverfrost-FTN95/3000-2069_4-10614581.html?tag=pub
ttp://forums.silverfrost.com/viewtopic.php?t=676&start=0&postdays=0&postorder=asc&highlight=

.NET 2.0‚ĘVisual Studio 2005‚É‘Ī‰ž‚µ‚½‚ē‚µ‚¢‚ŖAVS2005‚ĶŽg‚Į‚Ä‚Č‚¢‚Ģ‚ŏŚ×‚Ķ’m‚ē‚ńB

142 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/08(‹ą) 22:06:05
Intel Fortran‚ÅMacƒAƒhƒŒƒXŽę“¾‚·‚é•ū–@‚ ‚č‚Ü‚·‚©H
ƒ}ƒjƒ…ƒAƒ‹Œ©‚Ä‚ąŚ‚Į‚Ä‚Č‚©‚Į‚½‚Å‚·EEB

143 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/08(‹ą) 23:44:07
>>142
CŒ¾Œź‚Å‚ą“ļ‚µ‚¢‚ꂤ‚¾B•W€‚ĢWIN32API‚Å‚Ķo—ˆ‚Č‚¢‚Ģ‚ŁA‘¼‚Ģ•ū–@‚š‚ā‚Į‚Ä‚¢‚é‚ꂤ‚¾B

ˆĄ’¼‚Č•ū–@‚ĶASYSTEMŠÖ”‚ÅDOSƒRƒ}ƒ“ƒh‚Ģipconfig/all ‚šŽĄs‚µA
‚»‚Ģo—Ķ‚©‚ēMACƒAƒhƒŒƒX‚šŲ‚čo‚·•ū–@ƒWƒƒƒ}ƒCƒJH



144 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/08(‹ą) 23:52:39
>>143
‚ā‚Į‚Ļ‚č‚»‚¤‚Č‚č‚Ü‚·‚©‚Ė[B
Ž©•Ŗ‚ĢOSˆČŠO‚Å“®ģ‚šŠm‚©‚ß‚ē‚ź‚Č‚¢‚Ģ‚Å‚æ‚å‚Į‚Ę‘å•ĻGG

‚Ē‚¤‚ąthx

145 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/09(“y) 10:46:49
>>142
Three ways to get your MAC address.
http://www.codeguru.com/Cpp/I-N/network/networkinformation/article.php/c5451

Retrieving Information Using GetNetworkParams
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iphlp/iphlp/creating_a_basic_ip_helper_application.asp

IPHLPAPI‚šŽg‚Į‚ÄWindows‚Ńlƒbƒgƒ[ƒNŻ’č‚¢‚¶‚éƒvƒƒOƒ‰ƒ€‚š‘‚­
http://www.geekpage.jp/programming/iphlpapi/

‚±‚Ģ•Ó‚¾‚ĘŽv‚¤‚ŖAPlatformSDK‚Ģƒ‰ƒCƒuƒ‰ƒŠ‚šLINK‚·‚ź‚Ī‰Ā”\‚Ȃꂤ‚¾B
‚µ‚©‚µŽ©•Ŗ‚ŃCƒ“ƒ^[ƒtƒF[ƒX‚š‘‚©‚Č‚¢‚Ę‘Ź–Ś‚Č‚Ģ‚Å“ļ‚µ‚»‚¤B
TYPE‚Ę‚©‚Ģ’č‹`‚Ŗ[‚¢‚Ģ‚ŁAƒCƒ“ƒ^[ƒtƒF[ƒX‚É•K—v‚Č’č‹`‚Ŗ‚Ē‚ź‚¾‚Æ‚ ‚é‚Ģ‚©‚ķ‚©‚ē‚ńB

146 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/09(“y) 17:06:14
win‚¾‚Į‚½‚ēĢNetBIOS‚Å‚Ę‚Į‚½‚±‚Ę‚Ŗ‚ ‚éB

147 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/09(“y) 20:54:36
PROGRAM MAC
USE ifwinty
IMPLICIT NONE
!
INTEGER, PARAMETER :: MAX_ADAPTER_DESCRIPTION_LENGTH = 128 !// arb.
INTEGER, PARAMETER :: MAX_ADAPTER_NAME_LENGTH = 256 !// arb.
INTEGER, PARAMETER :: MAX_ADAPTER_ADDRESS_LENGTH = 8 !// arb.
!
TYPE :: IP_ADDRESS_STRING
CHARACTER (4) :: String(4)
END TYPE
TYPE :: IP_MASK_STRING
CHARACTER (4) :: String(4)
END TYPE
!
TYPE :: t_IP_ADDR_STRING
INTEGER (LPLONG) :: pNext
TYPE (IP_ADDRESS_STRING) :: IpAddress
TYPE (IP_MASK_STRING) :: IpMask
INTEGER (DWORD) :: Context
END TYPE
!


148 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/09(“y) 20:55:07
TYPE :: t_IP_ADAPTER_INFO
INTEGER (4) :: pNext
INTEGER (DWORD) :: ComboIndex
CHARACTER (LEN = MAX_ADAPTER_NAME_LENGTH + 4) :: AdapterName
CHARACTER (LEN = MAX_ADAPTER_DESCRIPTION_LENGTH + 4) :: Description
INTEGER (UINT) :: AddressLength
INTEGER (BYTE) :: Address(MAX_ADAPTER_ADDRESS_LENGTH)
INTEGER (DWORD) :: Index
INTEGER (ULONG) :: iType
INTEGER (ULONG) :: DhcpEnabled
INTEGER (LPLONG) :: pCurrentIpAddress
TYPE (t_IP_ADDR_STRING) :: IpAddressList
TYPE (t_IP_ADDR_STRING) :: GatewayList
TYPE (t_IP_ADDR_STRING) :: DhcpServer
INTEGER (BOOL) :: HaveWins
TYPE (t_IP_ADDR_STRING) :: PrimaryWinsServer
TYPE (t_IP_ADDR_STRING) :: SecondaryWinsServer
INTEGER (ULONG) :: LeaseObtained
INTEGER (ULONG) :: LeaseExpires;
END TYPE
!
INTERFACE
INTEGER (BOOL) FUNCTION GetAdaptersInfo(arg1, arg2)
USE ifwinty
!DEC$ ATTRIBUTES DEFAULT, STDCALL, DECORATE, ALIAS:'GetAdaptersInfo' :: GetAdaptersInfo
INTEGER (LPLONG) :: arg1
INTEGER (LPLONG) :: arg2
END FUNCTION
END INTERFACE


149 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/09(“y) 20:56:42
!
TYPE (t_IP_ADAPTER_INFO) :: AdapterInfo(16)
TYPE (t_IP_ADDR_STRING) :: CurrentIpAddress
INTEGER (DWORD) :: dwRetVal
INTEGER (PULONG) :: pdwRetVal
INTEGER (BOOL) :: iret
CHARACTER (LEN = 128) :: Description
dwRetVal = sizeof(AdapterInfo)
iret = GetAdaptersInfo(LOC(AdapterInfo), LOC(dwRetVal) )
!PRINT *, AdapterInfo(1)%pNext
!PRINT *, AdapterInfo(1)%ComboIndex
!PRINT *, AdapterInfo(1)%AddressLength
!PRINT *, AdapterInfo(1)%Description(1:128)
PRINT '(6Z3)', AdapterInfo(1)%Address(1:AdapterInfo(1)%AddressLength)
!PRINT *, AdapterInfo(1)%IpAddressList

!PRINT *, AdapterInfo(2)%pNext
!PRINT *, AdapterInfo(2)%ComboIndex
!PRINT *, AdapterInfo(2)%AddressLength
!PRINT *, AdapterInfo(2)%Description(1:128)
PRINT '(6Z3)', AdapterInfo(2)%Address(1:AdapterInfo(2)%AddressLength)
!PRINT *, AdapterInfo(2)%IpAddressList
STOP
END PROGRAM MAC


‚Ę‚č‚ ‚¦‚øA‚±‚ź‚ÅMACƒAƒhƒŒƒX‚ŖŽę‚ź‚½B

150 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/09(“y) 21:09:05
>>142@į‚Ŗ~‚Į‚Ä‚¢‚½‚Ģ‚ʼnɂĀ‚Ō‚µ‚É‚Ŗ‚ń‚Ī‚Į‚Ä‚Ż‚½B
‚SŽžŠŌ‚®‚ē‚¢‚©‚©‚Į‚½‚ŖAMACƒAƒhƒŒƒX‚Ŗ‚h‚Ž‚”‚…‚ŒFortran‚ÅŽę‚ź‚½B

•ū–@‚Ķ>>145‚Ģ‚P”Ō–Ś‚ĢƒŠƒtƒ@ƒŒƒ“ƒX‚Ģ‚R”Ō–Ś‚Ģ•ū–@‚š—p‚¢‚½B
Œ^‚Č‚Ē‚ĶA‚Q”Ō–Ś‚ĢMSDN‚ɏ‘‚¢‚Ä‚ ‚éī•ń‚©‚ēŽ©•Ŗ‚Å“K“–‚ɍģ‚Į‚Ä‚Ż‚½B
TYPE‚ĢƒTƒCƒY‚ŖC++”Å‚Å‹‚ß‚Ä‚¢‚é‚Ģ‚Ęˆź’v‚µ‚½‚Ģ‚Å‘½•ŖOK‚¾‚ė‚¤BŽ©M‚Ķ‚Č‚¢‚—

˜R‚ź‚ĶƒƒCƒ“ƒtƒŒ[ƒ€ˆē‚æ‚Ģ¶ˆ‚ĢFORTRAN‚…‚’‚ŁA‚b‚ą‚b{{‚Ķ‚g‚…‚Œ‚Œ‚‚v‚‚’‚Œ‚„ˆČć‚Ģ‚ą‚Ģ‚Ķ
‘‚¢‚½‚±‚Ę‚Ŗ–³‚¢‚Ģ‚ŁA•¶Žš—ń‚Ę‚©ƒ|ƒCƒ“ƒ^[‚Ģˆµ‚¢‚Ę‚©‚Ŗ”ˆźŽ©M‚Ŗ‚Č‚¢B


ƒRƒ“ƒpƒCƒ‹‚É•K—v‚Č‚Ģ‚ĶPlatformSDK‚¾‚ŖA˜R‚ź‚ĶƒCƒ“ƒXƒg[ƒ‹‚Ģ‚Ę‚«‚É
ŸŽč‚ɃCƒ“ƒXƒR‚³‚ź‚Ä‚¢‚½‚ꂤ‚¾B‚±‚Ģ’†‚Ģƒ‰ƒCƒuƒ‰ƒŠ@IPHlpApi.lib@‚šƒ‰ƒCƒuƒ‰ƒŠ‚É
‰Į‚¦‚Ä‚Ø‚­•K—v‚Ŗ‚ ‚éB
Linker>Input>Additional Dependency ‚ɁA‚»‚Ģ‚܂܏‘‚Æ‚ĪOK‚¾‚Į‚½B

ƒvƒƒWƒFƒNƒgƒ^ƒCƒv‚ĶƒRƒ“ƒ\[ƒ‹‚Å‚Ø‚‹B

>>146@>>145‚Ģ‹LŽ–‚É‚ę‚é‚Ę‚m‚…‚”‚a‚‰‚‚“‚©‚ēŽę‚é•ū–@‚ĶAÅ‹ß‚Ķ„§‚³‚ź‚Č‚¢‚ē‚µ‚¢B
‚½‚¾‚µŽę‚č•ū‚Ķ‘‚¢‚Ä‚ ‚Į‚½B

151 F150F2006/12/09(“y) 22:27:56
>>149‚ĢƒƒCƒ“ƒvƒƒOƒ‰ƒ€•”•Ŗ‚ĶAˆČ‰ŗ‚É’¼‚µ‚Ä‚Ø‚¢‚Ä‚­‚źB
ƒfƒoƒbƒO—p‚ĢƒSƒ~‚šķ‚Į‚½B•””‚Ģƒlƒbƒgƒ[ƒNƒAƒ_ƒvƒ^‚É‚ąi‚Ę‚č‚ ‚¦‚ø16ŒĀˆČ‰ŗ‚¾‚Ŗj‘Ī‰žB

TYPE (t_IP_ADAPTER_INFO) :: AdapterInfo(16)
TYPE (t_IP_ADDR_STRING) :: CurrentIpAddress
INTEGER (DWORD) :: dwRetVal
INTEGER (BOOL) :: iret
INTEGER :: i
dwRetVal = sizeof(AdapterInfo)
iret = GetAdaptersInfo(LOC(AdapterInfo), LOC(dwRetVal) )
IF (iret /= 0) STOP 'Error'
DO i = 1, 16
PRINT '(5(Z2.2,"-"), Z2.2)', AdapterInfo(i)%Address(1:AdapterInfo(i)%AddressLength)
IF (AdapterInfo(i)%pNext == NULL) EXIT
END DO
STOP
END PROGRAM MAC

152 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/12(‰Ī) 14:31:56
compaq visual fortran 6.1‚šŽg‚Į‚Ä‚¢‚Ü‚·B
1‚Ā‚ĢƒvƒƒWƒFƒNƒg‚Ģ’†‚Ģsource file‚Ģ‚Č‚©‚É‚ĶA“ń‚ĀˆČćƒvƒƒOƒ‰ƒ€
ƒtƒ@ƒCƒ‹‚š“ü‚ź‚Ä‚Ķ‚¾‚ß‚Č‚Ģ‚Å‚µ‚傤‚©H‚½‚ß‚µ‚É•Š•ū‚ĢƒvƒƒOƒ‰ƒ€
‚šƒRƒ“ƒpƒCƒ‹‚·‚é‚ĘŽĄsŽž‚Ɉų‚Į‚©‚©‚Į‚Ä‚µ‚Ü‚¢‚Ü‚·B
ˆź‚Ā‚šĮ‚·‚ʏćŽč‚­‚¢‚­‚Ģ‚Å‚·‚ŖcB
‚Å‚Ķ•½s‚µ‚Ä“ń‚Ā‚ĢƒvƒƒOƒ‰ƒ€‚šģ‚č‚½‚¢ź‡‚Ē‚¤‚·‚ź‚Ī‚¢‚¢‚Ģ‚Å‚µ‚傤‚©H
‚Ē‚¤‚©‚²•Ō“š‚ØŠč‚¢‚µ‚Ü‚·B

153 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/12(‰Ī) 18:50:15
>>152
ƒR[ƒh‚š•ĻX‚·‚é‚Ę‚«‚É‚ĶAƒ[ƒNƒXƒy[ƒX‚ą•ĻX‚·‚é•K—v‚Ŗ‚ ‚é‚Ķ‚øB
Žč‚ĮŽę‚葁‚­‚·‚é‚É‚ĶAƒR[ƒh•ĻXCVF ‚šˆź’UI—¹B

154 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/12(‰Ī) 23:08:08
>>152
ŽĄsƒtƒ@ƒCƒ‹–ˆ‚ÉProject‚šģ¬‚µ‚āA‚P‚Ā‚ĢWorkspace‚É'Insert Projects into Workspace'‚Å
Project‚š’Ē‰ĮA‚Ü‚½‚Ķ'Add New Project to Workspace'‚ŐV‚µ‚¢ƒvƒƒWƒFƒNƒg‚š’Ē‰Į‚·‚éB

Build‚·‚é‚Ę‚«‚Ķ'Set Active Project'‚ÅProject‚š‘I‚ń‚Å‚©‚ēBuild‚·‚é‚©
‚Ü‚½‚Ķ'Batch Build'‚Å‚Ü‚Ę‚ß‚ÄBuild‚·‚éB

CVF6.6‚Ģź‡‚¾‚ŖA6.1‚Å‚ą‚½‚Ō‚ń“Æ‚¶‚¾‚ė‚¤B

155 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/13(…) 20:25:50
>>153-154
eŲ‚É‚ ‚č‚Ŗ‚Ę‚¤‚²‚“‚¢‚Ü‚µ‚½B
‚æ‚å‚Į‚Ęvisual fortranŽ©‘Ģ‚Ķ‚¶‚ß‚ÄŽg‚Į‚½‚ą‚Ģ‚Å
‚ę‚­•Ŗ‚©‚č‚Ü‚¹‚ń‚Å‚µ‚½‚Ŗ•·‚¢‚ĉšŒˆ‚µ‚Ü‚µ‚½

156 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/15(‹ą) 20:33:57
ƒm[ƒgƒpƒ\ƒRƒ“‚ÅLAPACKƒRƒ“ƒpƒCƒ‹‚·‚é‚Ę
ƒtƒ@ƒ“‚Ŗ‚Ō‚ń‚Ō‚ń‰ń‚Į‚Ä‚¤‚邳‚¢‚ę`

157 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/16(“y) 01:01:54
>>156
LAPACK‚ÅŒvŽZ‚š‚·‚邤‚ꂤ‚É‚Č‚ź‚Ī“Æ‚¶‚±‚ʁB

158 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ń F2006/12/18(ŒŽ) 16:58:00
‰ŗ‹L‚Ģ•¶Ķ‚šfortran77‚Å•\‚·‚Ę‚Ē‚¤‚Č‚é‚©A‹³‚¦‚Ä‚¢‚½‚¾‚Æ‚Ü‚¹‚ń‚©H

ex=2.0**((-1)*(l+1))
i=0
k=0


do 210 while(i.lt.n)
i=i+1
k=k+1
if(k.gt.p)then
call delay(ivw,p,q,j)
else
j=k
end if

if(ivw(j).ne.0) then
a(i)=ivw(j)*ex
else
i=i-1
end if
210 continue

159 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/18(ŒŽ) 17:45:37
>>158
while‚Ģƒ‹[ƒv‚šgoto•¶‚šŽg‚Į‚ď‘‚¢‚½‚ēH

160 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/18(ŒŽ) 23:10:13
ŒvŽZI—¹Žž‚ɁAŒg‘Ń“d˜b‚Öƒ[ƒ‹‚Å’m‚ē‚¹‚Ä‚­‚ź‚é‚Į‚Ä‚±‚Ę‚Å‚«‚Ü‚·‚©HH

161 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/18(ŒŽ) 23:13:01
>>160
ƒVƒFƒ‹ƒXƒNƒŠƒvƒg‚š‘‚Æ‚Ī‚¢‚¢B



162 Ff90F2006/12/19(‰Ī) 13:07:00
do
if(i>=n) exit
i=i+1
k=k+1
if(k>p) then
call delay(ivw,p,q,j)
else
j=k
end if

if(ivw(j)/=0) then
a(i)=ivw(j)*ex
else
i=i-1
end if
enddo


163 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/20(…) 15:45:48
Intel fortran9.1Žg‚Į‚Ä‚é‚ń‚¾‚Æ‚ĒAsystem()‚Å’čŠś“I‚ÉŠO•”ƒvƒƒOƒ‰ƒ€‚šŒÄ‚Ō‚ĘƒRƒ~ƒbƒgƒ`ƒƒ[ƒW‚ŖŽžŠŌ‚Ę‚Ę‚ą‚É‘‚¦‘±‚Æ‚Ä‚µ‚Ü‚¤‚Ę‚¢‚¤
Ēó‚É”Y‚Ü‚³‚ź‚Ä‚¢‚½B‚Ę‚±‚ė‚ŖAsystem()‚Ģ‘ć‚ķ‚č‚Ésystemqq()‚šŽg‚¤‚ʁA‚»‚ĢĒó‚Ŗo‚Č‚­‚Č‚Į‚½B
‚±‚ń‚ČŒoŒ±‚µ‚½l‚¢‚éH

164 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/21(–Ų) 01:03:54
‚r‚x‚r‚s‚d‚l‚Į‚Ä‚o‚n‚r‚h‚wŒŻŠ·‚Ģƒ‹[ƒ`ƒ“‚©‚¢H
‚r‚x‚r‚s‚d‚l‚p‚p‚Ķ‚p‚t‚h‚b‚j‚v‚h‚m‚©‚ē‚Ż‚©H
‚Ē‚Į‚æ‚ąŽg‚ķ‚ń‚Č‚Ÿ‚—



165 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/21(–Ų) 20:44:11
>>164
‚¶‚į‚ AŠO•”ƒRƒ}ƒ“ƒh‹N“®‚µ‚½‚¢‚Ę‚«‚Ķ‚Ē‚¤‚ā‚Į‚Ä‚é‚ĢH

166 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/22(‹ą) 00:31:25
ŠO•”ƒRƒ}ƒ“ƒhŒÄ‚Ī‚Č‚¢‚—
W‚‰‚Ž32‚ŏo—ˆ‚é•Ø‚ĶWin32‚Å‚ā‚éB
‚Å‚«‚Č‚¢‚ą‚Ģ‚Ķ’ś‚ß‚é‚—

167 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/22(‹ą) 00:48:23
ƒRƒ“ƒ\[ƒ‹ƒAƒvƒŠ–³Ž‹‚µ‚Ä‚¢‚«‚Č‚čWin32‚©‚ę‚—

168 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/22(‹ą) 01:26:17
‚Ø‚Ü‚¢‚ē’‡—Ē‚­‚ā‚ź‚ę
ƒXƒNƒŠƒvƒg‚Å‘Ć‹¦‚µ‚Ę‚Æ‚—


169 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/28(–Ų) 23:25:36
ƒIƒbƒyƒ“‰»Ļ•iI

OpenMP‚Ģ‚¢‚¢ŽQlƒTƒCƒg‚©–{‚ĶƒAƒ‹ƒJƒCƒ_H

‚ ‚Ÿ‚»‚ź‚ĘMPI‚É‚µ‚ė‚Ę‚©Œ¾‚¤‚Čƒˆ[ƒƒbƒpB


170 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/28(–Ų) 23:46:15
ƒRƒ“ƒpƒCƒ‰‚ĢŽ©“®•Ą—ń‰»‚¾‚Æ‚Å‚Ŗ‚Ü‚ń‚“

‰“‚ą‹³‚¦‚Ä—~‚µ‚¢B
“ņ‘¹‚ÅŒŸõ‚µ‚½‚ēA˜a‘‚Ķ‚Pū‚µ‚©–³‚©‚Į‚½EEE

171 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/29(‹ą) 00:00:47
>>169
‚¢‚ā‚³A‚³‚Į‚Ļ‚莩“®•Ą—ń‰»‚³‚ź‚Č‚¢‚©‚ēA­‚µ’mŒb‚š‚Ā‚Æ‚Ä‚ā‚é‚©‚ĘŽv‚Į‚āB
‚QCPUƒVƒ“ƒOƒ‹ƒ}ƒVƒ“‚ÅŒy‚­s‚«‚½‚¢B

QuadCore‚š”ƒ‚¤ŒūŽĄ‚ą—~‚µ‚¢‚—


172 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/29(‹ą) 03:02:52
‚¦[A‚©‚Č‚č”™‘R‚Ę‚µ‚½Žæ–ā‚Å‚·‚Ŗ‚æ‚å‚Į‚ĘƒAƒhƒoƒCƒX‚š‚ą‚ē‚¦‚Ü‚¹‚ń‚©H
‚ ‚錳‚Ę‚Č‚éŒvŽZƒR[ƒh‚Å‚ĶAƒZƒ‹‚Ģ•‚ā‚‚³‚Ŗ‚·‚ׂĂĢ—Ģˆę‚ňź’č‚Å‚·B
ŒvŽZ‚·‚é—Ģˆę‚Ķ’·•ūŒ`‚ŁA

NCX:ƒZƒ‹‚ĢsiX•ūŒüj
NCY:ƒZƒ‹‚Ģ—ń(Y•ūŒüj
CW:—ń•ūŒü‚Ö‚ĢƒZƒ‹‚Ģ•
CH:s•ūŒü‚Ö‚ĢƒZƒ‹‚Ģ•

‚Ę‚¢‚Į‚½Š“‚¶‚Å‚·B
‚Ü‚½A‚»‚ź‚¼‚ź‚ĢƒZƒ‹‚É‚Ķ’Ź‚µ”Ō†‚ŖŠ„‚čU‚ē‚ź‚Ä‚¢‚Ü‚·B
iÅ‰‚Ģs‚š¬‚³‚¢‚Ł‚¤‚©‚ē‡‚É1.2.3c‚ĘŠ„‚čU‚Į‚Ä‚¢‚Į‚Ä
@’[‚ɍs‚Į‚½‚ēŽŸ‚Ģs‚ɈŚ‚č‚Ü‚·j

ŖY
9.......
5678
1234@ ØX

‚±‚ĢƒR[ƒh‚šŒ³‚ɁA”CˆÓ‚Ģ—ńˆČ~‚ŃZƒ‹‚Ģ‘å‚«‚³‚šc‰”‚»‚ź‚¼‚ź
”¼•Ŗ‚É‚·‚éi–ŹĻ‚š1/4j‚É‚µ‚āi‚ą‚æ‚ė‚ńˆČ~‚ĢsA—ń”‚Ķ”{‚É‚Č‚č‚Ü‚·j
ŒvŽZ‚·‚éƒvƒƒOƒ‰ƒ€‚š‘‚«‚½‚¢‚ĘŽv‚¢‚Ü‚·BƒZƒ‹‚Ģ‘å‚«‚³‚Ģ•Ļ‰»‚Ķ‰½’iŠK‚©s‚ķ‚ź‚Ü‚·B
i‹ļ‘Ģ“I‚É‚ĶYĄ•WˆĖ‘¶‚Ģ‚ ‚é•Ø——Ź‚Ę”äŠr‚µ‚ăZƒ‹‚š¬‚³‚­‚·‚é‚©‚Ē‚¤‚©”»•Ź‚µ‚Ü‚·j


173 F172F2006/12/29(‹ą) 03:03:23
i‘±‚«j
‚µ‚©‚µAŒ³‚ĢƒR[ƒh‚É‚Ķ—į‚¦‚ĪƒZƒ‹‚Ŗ‰½sA‰½—ń–Ś‚©‚š”»•Ź‚·‚邽‚ß‚É

NY=(N-1)/NCX+1
NX=N-(NY-1)*NCX

‚Ģ‚ꂤ‚Č•\Œ»‚Ŗ‘½—l‚³‚ź‚Ä‚¢‚Ü‚·BiN‚ĶƒZƒ‹‚Ģ’Ź‚µ”Ō†j
‚Ü‚½A‹t‚ɍs‚ā—ń‚ĢŽw’č‚©‚ēƒZƒ‹”Ō†‚š”»•Ź‚·‚é‚ꂤ‚Č‚ą‚Ģ‚ą‚ ‚č‚Ü‚·‚µA
Ą•WŽw’č‚É

X=NY*CH

‚Ż‚½‚¢‚ČŽ–‚ą‚µ‚Ä‚¢‚Ü‚·B
NCX,NCY,CW,CH‚š”z—ń‚É‚µ‚āA‰Šś‚Ģ‘å‚«‚³‚ĢƒZƒ‹‚Ģ—Ģˆę‚ĢsA—ń”‚š
NCX(1)ANCY(1)‚ɁAŽŸ‚Ģ‘å‚«‚³‚ĢƒZƒ‹‚ĢsA—ń”‚šNCX(2)ANCY(2)‚ɁA
‚Ę‚¢‚¤‚ꂤ‚ɃZƒ‹‚Ģ‘å‚«‚³‚Å—Ģˆę‚š•Ŗ‚Ƃčl‚¦‚ꂤA‚ĘŽv‚Į‚½‚Ģ‚Å‚·‚ŖA
‚ ‚éƒZƒ‹‚Ŗ‰½”Ō–Ś‚Ģ—Ģˆę‚É‘®‚·‚é‚©‚š‚¢‚æ‚¢‚æ”»•Ź‚·‚é‚Ģ‚ą‚ß‚ń‚Ē‚­‚³‚¢‚Å‚·‚ĖB
‚æ‚å‚Į‚ʏć‹L‚Ģ”»•Ź‚ĢŽ®‚Ŗ•”ŽG‚É‚Č‚Į‚Ä‚«‚Ä‚µ‚Ü‚¢‚Ü‚·B
iƒ‹[ƒv‚Å”ńķ‚ɉ½“x‚ą’Ź‚é‚Ę‚±‚ė‚Č‚Ģ‚ŏo—ˆ‚é‚©‚¬‚čŠČ’P‚É‚µ‚½‚¢‚Å‚·j

ŠeƒZƒ‹‚Ŗ‰½s‰½—ń–Ś‚É‘®‚·‚é‚©‚ʉ½”Ō–Ś‚Ģ—Ģˆę‚É‘®‚·‚é‚©‚š
”z—ń‚ÉŠi”[‚µ‚Ä‚Ø‚Æ‚Ī‚¢‚¢‚©‚Ę‚ĶŽv‚¢‚Ü‚·‚ŖA
ƒvƒƒOƒ‰ƒ€‚ĢŒoŒ±‚Ŗó‚¢‚±‚Ę‚ą‚ ‚č‚©‚Č‚č–³‘Ź‚Č‚±‚Ę‚š‚µ‚Ä‚¢‚Č‚¢‚©•sˆĄ‚É‚Č‚Į‚Ä‚«‚Ü‚µ‚½B

Šł‘¶‚Ģ\‘¢‚š¶‚©‚µ‚½‚či’uŠ·‚·‚邾‚Æ‚Å‚·‚Ļ‚Į‚ʏI—¹‚Ę‚©j
‚ ‚Ü‚č—]Œv‚Č‚ą‚Ģ‚š’Ē‰Į‚µ‚Č‚¢ƒGƒŒƒKƒ“ƒg‚Č‚ā‚č‚©‚½‚Į‚Ä‚ ‚č‚Ü‚·‚©‚ĖH
‚ā‚Į‚Ļ‚č’n“¹‚É‚ā‚邵‚©‚Č‚¢‚Å‚µ‚傤‚©H’·•¶‚·‚Ż‚Ü‚¹‚ńB


174 F172F2006/12/29(‹ą) 03:14:28
‚·‚Ż‚Ü‚¹‚ńA

iŒėjX=NY*CH
i³jY=NY*CH

‚Å‚·B

175 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2006/12/29(‹ą) 20:26:22
>>173
ƒTƒCƒY‚ɈĖ‘¶‚·‚éB
¬‚³‚¢‚Č‚ē‚¢‚Į‚½‚ńŠł‘¶‚ĢŒvŽZŽ®‚Å‹‚ß‚½ƒZƒ‹ƒTƒCƒY‚šƒe[ƒuƒ‹‚Ę‚µ‚Ä•Ū‘¶‚·‚ź‚Ī‚ę‚¢B

ƒTƒCƒY‚Ŗ‘å‚«‚­‚ăƒ‚ƒŠ[ƒMƒŠƒMƒŠ‚Ü‚ÅŽg‚Į‚Ä‚¢‚é‚Č‚ēA‚P‰ń‚²‚Ę‚ÉŒvŽZ‚·‚é‚Ł‚¤‚Ŗ‚¢‚¢B


‚T‚U‚V
‚Q‚R‚W@@‚Ģ‚æ‚ČŒ`‚ŃTƒCƒg‚šŽw’肵‚Ä‚ą‚¢‚¢‚Č‚ēA”»•Ź‚ĢŒvŽZŽ®‚ąŠČ’P‚É‚Č‚é‚©‚ą‚µ‚ź‚Č‚¢B
‚P‚S‚X@@ŒvŽZ‹@Šw‰Č‚Ģl‚©‚ē‚Ķ‚µ‚©‚ē‚ź‚é‚ŖA‚‘¬‚Å‚ā‚é‚É‚Ķƒf[ƒ^\‘¢‚ʏˆ—‚Ŗ
@@@@@Ų‚č—£‚¹‚Č‚¢‚Ģ‚ŁA‚Ü‚Ÿ–ā‘č‚š—‰š‚µ®—‚µ‚ÄŽ©•Ŗ‚Å—Ē‚­l‚¦‚ė‚—

176 F172F2007/01/05(‹ą) 18:17:30
>>175
’xƒŒƒX\‚µ–ó‚Č‚¢B—L“ļ‚¤‚²‚“‚¢‚Ü‚·B
‚ā‚Į‚Ļ‚č‚ ‚é’ö“x’n“¹‚É‚ā‚é‚Ł‚©–³‚³‚»‚¤‚Å‚·‚ĖB
‚µ‚±‚µ‚±‚ā‚Į‚Ä‚Ü‚·B

177 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/08(ŒŽ) 20:38:06
ŽįŠ±Fortran‚©‚ēˆķ‚ź‚Ü‚·‚ŖA‚ķ‚©‚é•ū‚²‹³Žö‚­‚¾‚³‚¢B
Intel‚ĢVisual Fortran‚ōģ¬‚µ‚½ƒRƒ“ƒ\[ƒ‹ƒAƒvƒŠ‚©‚ē
VC‚ōģ‚Į‚½Libƒtƒ@ƒCƒ‹‚šŒÄ‚яo‚µ‚½‚¢‚Å‚·B

ŠČ’P‚ɏ‘‚­‚ʁAVC‚Ķ
BOOL PrintMessage()
{
’†—Ŗ
}
‚Ę‚¢‚¤ŠÖ”‚É‚Č‚Į‚Ä‚¢‚Ü‚·B

‚±‚ź‚šFortran‚©‚ēŒÄ‚яo‚·‚½‚߂ɁA
Ž©•Ŗ‚Č‚č‚Ƀ}ƒjƒ…ƒAƒ‹‚š“Ē‚ŻA
ˆČ‰ŗ‚Ģ‚ꂤ‚ɃR[ƒfƒBƒ“ƒO‚µ‚Ä‚Ż‚Ü‚µ‚½B

178 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/08(ŒŽ) 20:39:25
INTERFACE
LOGICAL FUNCTION PrintMessage()
!DEC$ ATTRIBUTES STDCALL :: PrintMessage
END FUNCTION
END INTERFACE

LOGICAL LX
LX = PrintMessage()

‚µ‚©‚µAƒŠƒ“ƒNŽž‚É_PrintMessage‚ŖŒ©‚Ā‚©‚č‚Ü‚¹‚ńA‚Ę
ƒŠƒ“ƒNƒGƒ‰[‚Ŗo‚Ü‚·B

‰šŒˆ•ū–@‚Ķ‚ ‚é‚Å‚µ‚傤‚©H


‚Č‚ØAVC‚©‚ēć‹LVC‚šŒÄ‚яo‚·ƒP[ƒX‚ą‚ ‚邽‚߁A
—¼•ūFortran‚ŏ‘‚Æ‚ĪH‚Ę‚¢‚¤‚Ģ‚Ķ–³‚µ‚Å‚ØŠč‚¢‚µ‚½‚¢‚Å‚·B

ˆź‰žŠĀ‹«‚Ę‚µ‚Ä‚ĶA
Visual Studio .NET 2003 + Intel Visual Fortran v9.0
‚É‚Č‚č‚Ü‚·B

‚ę‚ė‚µ‚­‚ØŠč‚¢‚µ‚Ü‚·B

179 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/09(‰Ī) 00:52:12
>>178
ŒÄ‚яo‚µ‹K–ń‚ŖSTDCALL‚Ģź‡AŠO•”–¼‚ĶƒfƒtƒHƒ‹ƒg‚Å‚·‚ׂﬕ¶Žš‚ʉšŽß‚³‚ź‚Ä‚µ‚Ü‚¤‚Ģ‚Å
‘啶ŽšE¬•¶Žš‚Ŗ¬Ż‚·‚鏼‡‚ĶˆČ‰ŗ‚Ģ—l‚É‚·‚é

!DEC$ ATTRIBUTES STDCALL, DECORATE, ALIAS: 'PrintMessage' :: PrintMessage

C‘¤‚Ģ PrintMessage() ŠÖ”‚ą __stdcall ‚ŃRƒ“ƒpƒCƒ‹‚³‚ź‚Ä‚¢‚é•K—v‚Ŗ‚ ‚éB
C++‚Ģź‡‚Ķ extern "C" ‚ą•K—vB

‚Ü‚½AIVF‚Å‚ĶLOGICAL‚Ģ“ą•”•\Œ»i®”’lj‚ŖŠļ”‚Ģ‚Ę‚«^A‹ō”‚Ģ‚Ę‚«‹U‚Ę‚Č‚é‚Ģ‚Å
‘¼Œ¾Œź‚ĢŠÖ”‚ĘLOGICAL‚šŽó‚Æ“n‚µ‚·‚鏼‡‚Ķ’ˆÓ‚·‚邱‚ʁB

180 F178F2007/01/09(‰Ī) 21:34:40
>>179
ƒŒƒX‚ ‚č‚Ŗ‚Ę‚¤‚²‚“‚¢‚Ü‚·B

‚Č‚é‚Ł‚ĒEEB
F‘¤‚Ģ‘啶Žš¬•¶Žš‘Īō‚Ķƒ}ƒjƒ…ƒAƒ‹‚ɏ‘‚¢‚Ä‚ ‚č‚Ü‚µ‚½‚ŖA
‚¢‚ė‚¢‚ė’²®‚µ‚Ä‚ąŒ‹‰Ź‚Ŗ“Æ‚¶‚¾‚Į‚½‚Ģ‚ÅŠÖŒW‚Č‚¢‚ĘŽv‚Į‚Ä‚Ü‚µ‚½B
C‘¤‚Ģ‘Īō‚Ķ‘S‚­Œ©‚¦‚Ä‚Ü‚¹‚ń‚Å‚µ‚½OO
³’¼C‚Ķƒh‘fl‚Č‚Ģ‚ŏć‹L‚Ģ‚ꂤ‚É‚¢‚ķ‚ź‚Ä‚·‚®‚É‘Ī‰ž‚Å‚«‚Ü‚¹‚ń‚Ŗ
ŽQl‚É‚µ‚Ä’²‚ׂĂŻ‚Ü‚·I
‚ ‚č‚Ŗ‚Ę‚¤‚²‚“‚¢‚Ü‚µ‚½B




181 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/09(‰Ī) 23:27:06
>>180
IntelFortran‚Ģƒ}ƒjƒ…ƒAƒ‹Œ©‚é‚Ę‚æ‚Ü‚æ‚Ü‚Ę‘‚¢‚Ä‚ ‚é‚ęB

DECORATECüŽq‚ŖVŻ‚³‚ź‚½‚Ģ‚ŁA‚c‚d‚bŽž‘ć‚ɏź‡•Ŗ‚Æ‚µ‚ď‘‚¢‚Ä‚¢‚½‚Ģ‚Ŗ
‚·‚Į‚«‚肵‚Ä‚¤‚ź‚µ‚¢B



182 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/10(…) 19:42:57
>>180
ATTRIBUTES STDCALL, ... ‚Å‚Ķ‚Č‚­ ATTRIBUTES C, ... ‚šŽg‚¦‚ĪCŒ¾Œź‚Ģ•ū‚Ķ‚¢‚¶‚ē‚Č‚­‚Ä‚ą‚Ø‚‹B

183 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/12(‹ą) 23:52:31
ŽO‚Ā‚Ģ”’lƒf[ƒ^‚š—^‚¦‚Ä‚»‚ĢŽO‚Ā‚Ģ”’l‚ĢÅ‘å’lAÅ¬’lA’†‰›’lA
•½‹Ļ’lA•W€•Ī·A•s•Ī•ŖŽU‚š‹‚ß‚ē‚ź‚éƒvƒƒOƒ‰ƒ€‚šģ¬‚¹‚ęB
‚ķ‚©‚ē‚Č‚­‚Ä‘å•Ļ‚Å‚·B
‚ØŠč‚¢‚µ‚Ü‚·

184 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/16(‰Ī) 12:41:49
Fortress‚Ē‚¤Žv‚¢‚Ü‚·H
”Ž®‚š‚»‚Ģ‚܂܏‘‚Æ‚é‚Ę‚©A•Ą—ń‰»‚ɃRƒ“ƒpƒCƒ‰ƒŒƒxƒ‹‚Å‘Ī‰ž‚Ę‚©EEE
‚Č‚©‚Č‚©‚ę‚³‚»‚°‚Å‚·‚ŖB
ttp://japan.zdnet.com/news/devsys/story/0,2000056182,20340715,00.htm
ttp://slashdot.jp/developers/07/01/15/1521236.shtml

185 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/16(‰Ī) 12:45:26
>>183
‚Ä‚Į‚Ę‚č‚Ī‚ā‚­“š‚¦‚Ŗ—~‚µ‚¢‚Č‚ē
http://pc10.2ch.net/test/read.cgi/tech/1164121236/
‚ɍs‚­‚Ę‚¢‚¢‚Ģ‚Å‚ĶH

186 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/16(‰Ī) 20:18:01
Šł‚É“š‚¦‚Ŗo‚Ä‚éB ‚Ä‚¢‚¤‚©ƒ}ƒ‹ƒ`B

187 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/17(…) 03:15:36
>>184
Fortran‚ĢŽ‘ŽYŽg‚¦‚Č‚¢‚Ģ‚ÉFortran•—‚É‚·‚éˆÓ–”‚Ŗ‚¢‚Ü‚¢‚æ—Ē‚­•Ŗ‚©‚ē‚ńB

188 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/19(‹ą) 12:05:30
>>184
pseudocode ‚š‚»‚Ģ‚܂܃Rƒ“ƒpƒCƒ‹‚µ‚Ä‚­‚ź‚é‚Č‚ē‚¤‚ź‚µ‚¢B


189 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/19(‹ą) 12:55:53
>>187
‚¦AŽg‚¦‚Č‚¢‚ĢH

190 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/19(‹ą) 23:38:03
Salford ftn95‚Ålapack95‚šŽg‚¢‚½‚¢‚Ė‚ń‚Æ‚ĒA‚Ē[‚·‚ź‚Ī‚¢‚¢‚ńHH

191 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/20(“y) 00:43:01
>>190
‚PDNetlib‚©‚ēLAPACK‚šE‚Į‚Ä‚­‚éB
‚QD‚Ē‚¤‚É‚©‚µ‚Äblas.lib‚Ęlapack.lib

192 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/20(“y) 00:44:49
>>190
‚PDNetlib‚©‚ēLAPACK‚šE‚Į‚Ä‚­‚éB
‚QD‚Ē‚¤‚É‚©‚µ‚Äblas.lib‚Ęlapack.lib‚š‚Ā‚­‚éB
‚RDNetlib‚©‚ēLAPACK95‚šE‚Į‚Ä‚­‚éB
‚SD‚Ē‚¤‚É‚©‚µ‚Älapack95.lib‚Ęƒ‚ƒWƒ…[ƒ‹ƒtƒ@ƒCƒ‹‚š‚Ā‚­‚éB
‚TD > ftn95 hoge.f90
‚UD > slink hoge.obj lapack95.lib lapack.lib blas.lib

193 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/20(“y) 08:07:50
>>192
‚Ē‚ą‚Ē‚ąI
‚Ē‚¤‚É‚©‚µ‚Ä‚Į‚Ä‚Ę‚±‚ė‚Ŗ–ā‘č‚¾‚ŖA‚Ē‚¤‚É‚©‚µ‚Ä‚Ż‚Ü‚·B
‚Ē‚¤‚É‚©‚·‚é•ū–@‚Ŗ‚ķ‚©‚Į‚½‚ēA‚Ü‚½‚ę‚ė‚µ‚ć`I

194 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/20(“y) 11:45:48
77‚Å“®“I”z—ń‚Į‚Ä‚Å‚«‚Č‚¢‚ĢH
x(i,j)
‚Į‚Ä‚µ‚Ę‚¢‚Ä
ƒtƒ@ƒCƒ‹‚©‚ēi,j“Ē‚Żž‚ń‚ŃTƒCƒYŒˆ‚ß‚é‚Ż‚½‚¢‚ČŠ“‚¶‚É‚µ‚½‚¢‚ń‚¾‚Æ‚ĒEE

195 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/20(“y) 13:15:50
>>194
Œ¾Œź‹KŠi‚Ę‚µ‚Ä‚Ķo—ˆ‚Č‚¢B

‚½‚¾AƒRƒ‚ƒ“‚Ę‚©ć‚Ģƒ‹[ƒ`ƒ“‚Å‘å‚«‚Čƒ[ƒN”z—ń‚šŽę‚Į‚Ä‚Ø‚¢‚āA
‚¢‚Į‚½‚ń•K—v‚ČƒTƒCƒY‚š’m‚Į‚½ć‚ʼnŗ‚ĢƒTƒuƒ‹[ƒ`ƒ“‚ōģ‹Ę—Ģˆę‚Ő®‡”z—ń‚š
Ų‚Į‚ÄŽg‚Į‚ÄŽ—‚½‚ꂤ‚Č‚±‚Ę‚Ķo—ˆ‚éB

CŒ¾Œź‚ąK&R‚Ģ•t˜^‚šŒ©‚é‚Ęmalloc‚š‚»‚¤‚¢‚¤Š“‚¶‚ÅŽĄŒ»‚·‚é—į‚šo‚µ‚Ä‚¢‚éB


196 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/20(“y) 13:38:47
90‚Č‚ēƒ|ƒCƒ“ƒ^[Žg‚¦‚éB
PGI‚Ę‚©77‚Å‚ąƒ|ƒCƒ“ƒ^[Žg‚¦‚鏈—Œn‚ą‚ ‚éB
ƒ|ƒCƒ“ƒ^[‚ĢŽg‚¦‚Č‚¢77‚Å‚ąC‚Ę‚Ģ‡‚ķ‚¹‹Z‚ʼnĀ”\B

197 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/20(“y) 16:25:44
>>193
LAPACK(BLAS):
Enetlib‚©‚ē lapack-3.1.0.tgz ‚šŽę‚Į‚Ä‚­‚éB

blas.lib:
Elapack-3.1.0\BLAS\SRC ‚Ģ’†‚Ģƒ\[ƒXi*.fj‚š‘S•”ƒRƒ“ƒpƒCƒ‹‚·‚éB
Eo—ˆ‚½ƒIƒuƒWƒFƒNƒgƒtƒ@ƒCƒ‹‚š slim ‚Å blas.lib ‚É‚Ü‚Ę‚ß‚éB
@slim *.obj /file:blas

lapack.lib:
Elapack-3.1.0\INSTALL ‚Ģ’†‚Ģ dlamch.f, dsecnd.f, ilaver.f, lsame.f, second.f, slamch.f ‚š
lapack-3.1.0\SRC ‚ɃRƒs[‚·‚éB
’A‚µAFTN95‚É‚Ķ second.f, dsecnd.f ‚ÅŽg‚ķ‚ź‚Ä‚¢‚é ETIMEŠÖ”‚Ŗ–³‚¢‚Ģ‚Å
ETIME‚šŽ©ģ‚·‚é‚© CPU_CLOCK, SYSTEM_CLOCK•Ó‚č‚šŽg‚Į‚ď‘‚«Š·‚¦‚éB
Elapack-3.1.0\SRC ‚Ģ’†‚Ģƒ\[ƒX‚š‘S•”ƒRƒ“ƒpƒCƒ‹‚·‚éB
‚±‚ĢŪAslaruv.f, dlaruv.f ‚šƒRƒ“ƒpƒCƒ‹‚·‚é‚Ę‚«‚ĶÅ“K‰»ƒIƒvƒVƒ‡ƒ“‚šŠO‚·B
Eo—ˆ‚½ƒIƒuƒWƒFƒNƒgƒtƒ@ƒCƒ‹‚š slim ‚Å lapack.lib ‚É‚Ü‚Ę‚ß‚éB

tmglib.lib:
Elapack-3.1.0\TESTING\MATGEN ‚Ģ’†‚Ģƒ\[ƒX‚š‘S•”ƒRƒ“ƒpƒCƒ‹‚·‚éB
‚±‚ĢŪAslaran.f, dlaran.f ‚šƒRƒ“ƒpƒCƒ‹‚·‚é‚Ę‚«‚ĶÅ“K‰»ƒIƒvƒVƒ‡ƒ“‚šŠO‚·B
Eo—ˆ‚½ƒIƒuƒWƒFƒNƒgƒtƒ@ƒCƒ‹‚š slim ‚Å tmglib.lib ‚É‚Ü‚Ę‚ß‚éB


198 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/20(“y) 16:27:59
i>>197‚Ģ‘±‚«j

LAPACK95:
Enetlib‚©‚ē lapack95.tgz ‚šŽę‚Į‚Ä‚«‚Ä“WŠJ‚·‚éB
Elapack95\SRC‚ɈŚ“®B
Ela_auxmod.f90 ‚šƒRƒ“ƒpƒCƒ‹‚·‚éB Ø la_auxmod.mod, la_precision.mod ‚Ŗo—ˆ‚éB
Ef77_lapack_single_double_complex_dcomplex.f ‚šƒRƒ“ƒpƒCƒ‹‚·‚éB Ø f77_lapack.mod ‚Ŗo—ˆ‚éB
Ef95_lapack_single_double_complex_dcomplex.f ‚šƒRƒ“ƒpƒCƒ‹‚·‚éB Ø f95_lapack.mod ‚Ŗo—ˆ‚éB
Ela_csygst.f90, la_csygv.f90, la_csygvd.f90, la_csytrd.f90, la_zsygst.f90, la_zsygv.f90, la_zsygvd.f90, la_zsytrd.f90
ˆČŠO‚Ģ la_*.f90 ‚šƒRƒ“ƒpƒCƒ‹‚·‚éB
Eo—ˆ‚½ƒIƒuƒWƒFƒNƒgƒtƒ@ƒCƒ‹‚š slim ‚Å lapack95.lib ‚É‚Ü‚Ę‚ß‚éB


ˆČć‚ŏo—ˆ‚½ƒ‰ƒCƒuƒ‰ƒŠƒtƒ@ƒCƒ‹(*.lib)‚šŠĀ‹«•Ļ” LIB ‚ÅŽw’肵‚½ƒtƒHƒ‹ƒ_‚ցA
ƒ‚ƒWƒ…[ƒ‹ƒtƒ@ƒCƒ‹(*.mod)‚šŠĀ‹«•Ļ” MOD_PATH ‚ÅŽw’肵‚½ƒtƒHƒ‹ƒ_‚Ö‚»‚ź‚¼‚źˆŚ‚·B


199 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/20(“y) 17:04:13
ŠÖ”–¼‚šˆų”‚ÉŽg‚¢‚½‚¢‚Ģ‚Å‚·‚ŖA‚d‚w‚s‚d‚q‚m‚`‚k•¶‚šŒÄ‚яo‚µ‘¤‚ÅŽg‚Į‚Ä‚ą
‚¤‚Ü‚­‚¢‚«‚Ü‚¹‚ńB
‰ŗ‚ĢƒvƒƒOƒ‰ƒ€‚Č‚Ģ‚Å‚·‚ŖA‰½ˆ‚ŖŠŌˆį‚Į‚Ä‚¢‚é‚ń‚Å‚µ‚傤H

External func
real func,SUM
write(*,*) SUM(func)
end

real Function SUM(f)
External func
real f
SUM = f(1.0)+f(2.0)
return
end

real Function func(x)
real x
func = x
return
end



200 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/20(“y) 19:15:37
>>199
SUMij@‚ŖF90‚ĢŠÖ”‚ʍ¬“Æ‚³‚ź‚Ä‚¢‚é‚ń‚Å“ą‰ČˆćH
SUM0‚Ę‚©‚É‚·‚ź‚Ī‚Ø‚j

201 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/20(“y) 19:22:59
>>199
External func Ø external func, SUM

202 F199F2007/01/20(“y) 22:07:45
>>200>>201A‚²Žw“E‚Ģ•ū–@‚ʼnšŒˆ‚·‚邱‚Ę‚Ŗo—ˆ‚Ü‚µ‚½B
—L“ļ‚¤‚²‚“‚¢‚Ü‚·B

203 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/20(“y) 22:37:50
>>197,198
‚ ‚č‚Ŗ‚Ę‚¤`AŠi“¬‚Ģ––‰½‚Ę‚©‚Č‚č‚Ü‚µ‚½B
ƒIƒŒ‚ą‚ ‚ń‚½‚­‚ē‚¢A‚‚ƒ‚šŽ©—R‚É‚ ‚ā‚Ā‚č‚½‚¢‚ą‚ń‚Å‚·‚ķI

204 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/21(“ś) 00:37:48
–{—ˆ‚Č‚ēMakefile‚š‘‚¢‚āAƒeƒXƒgƒvƒƒOƒ‰ƒ€‚ąŠÜ‚ß‚Ämake(MK32)‚ŏˆ—‚³‚¹‚é‚ׂ«‚Č‚Ģ‚¾‚ė‚¤‚Æ‚Ē
FTN95‚Ģź‡A‘¼‚ĢƒRƒ“ƒpƒCƒ‰‚ĘƒIƒvƒVƒ‡ƒ“‚ĢŽw’č•ū–@‚Ŗˆį‚Į‚½‚č‚·‚é‚©‚ē’†X–Ź“|‚­‚³‚¢B

205 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/26(‹ą) 07:14:03
Žæ–ā‚Å‚·B
OPEN (4,FILE=RESULT.OUT,FORM='FORMATTED')
‚±‚ĢRESULT.OUT‚šA‚ ‚éI‚ĘŒ¾‚¤”’l‚š“Ē‚Żž‚ń‚Å
—į‚¦‚ĪI=5000‚Č‚ēRESULT5000.OUT‚Ģ‚ꂤ‚É‚µ‚½‚¢‚ń‚Å‚·‚ŖA
o—ˆ‚é‚Å‚µ‚傤‚©H—v‚·‚é‚ÉŒvŽZ‚ĢƒXƒeƒbƒv”‚ɉž‚¶‚Ä
Ž©“®“I‚Ƀtƒ@ƒCƒ‹–¼‚š‚Ā‚Ƃďo—Ķ‚µ‚Ä‚ā‚č‚½‚¢‚ń‚Å‚·‚ŖA
OPEN‚Ģ’†g‚š‚¢‚¶‚邾‚Æ‚¶‚įƒ_ƒ‚Å‚·‚©‚ĖH

206 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/26(‹ą) 10:04:30
>>205
‚»‚ĢŽæ–ā‚Ķē‰ń‚­‚ē‚¢o‚Ä‚¢‚éB
‰ß‹ŽƒƒOŒ©‚ź



207 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/28(“ś) 18:26:34
Ž©•Ŗ‚Ģƒ}ƒVƒ“‚ĢƒtƒH[ƒgƒ‰ƒ“ƒRƒ“ƒpƒCƒ‰ƒRƒ}ƒ“ƒh‚š`‚É‚Ķ‚Ē‚¤‚µ‚½‚ē—Ē‚¢‚Å‚·‚©H

VINELINUXŽg‚Į‚Ä‚Ü‚·B

208 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/28(“ś) 20:37:47
>>207
shell ‚É g77 ‚Ę‚© gfortran ‚Ę‚© g95 ‚Ę‚© ifort ‚Ę‚©“ü‚ź‚Ä‚Ż‚éB
Žg‚¦‚é‚ꂤ‚Č‚ē no input files ‚Č‚Ē‚Ę•Ō‚Į‚Ä‚­‚éB
‚Č‚Æ‚č‚įŽ©•Ŗ‚ŃCƒ“ƒXƒgƒ[ƒ‹‚·‚éB

209 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/28(“ś) 21:47:58
‘S•”Žg‚¦‚Ü‚¹‚ń‚Å‚µ‚½B
ifort‚¢‚ź‚½‚¢‚Ģ‚Å‚·‚ŖA‚Ē‚±‚Ń_ƒEƒ“ƒ[ƒh‚Å‚«‚Ü‚·‚©H

210 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/28(“ś) 21:54:39
>>209
‚Ā google

211 F209F2007/01/28(“ś) 22:35:38
‰½“x‚ą‚·‚Ż‚Ü‚¹‚ńB
ƒCƒ“ƒeƒ‹‚ĢƒRƒ“ƒpƒCƒ‰“ü‚ź‚ꂤ‚Ę‚µ‚½‚ē‰ŗ‹L‚ĢƒƒbƒZ[ƒW‚ÅŽ~‚Ü‚Į‚Ä‚µ‚Ü‚¢‚Ü‚·B
‰šŒˆ•ū–@‚šŒä‘¶‚¶‚Ģ‚©‚½‚Ķ‹³‚¦‚Ä‚­‚¾‚³‚¢B

./.././data/install_fc.sh: line 1459: ERROR: unable to find command "ls" !: command not found
./.././data/install_fc.sh: line 1463: Please add the location to the above commands to your PATH and re-run the script.: command not found
./.././data/install_fc.sh: line 1464: Please press Enter to continue...: command not found


212 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/28(“ś) 22:39:51
>>211
> ‰šŒˆ•ū–@‚šŒä‘¶‚¶‚Ģ‚©‚½‚Ķ‹³‚¦‚Ä‚­‚¾‚³‚¢B
–éŠŌ’†Šw‚ʼnpŒź‚šŠw‚Ń‚Č‚Ø‚·B

213 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/28(“ś) 22:48:29
‚Ā[‚© ls‚ŖŒ©‚Ā‚©‚ē‚ń‚āA‚Ē‚ń‚ČŠĀ‹«‚ā‚Ė‚ń

214 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/30(‰Ī) 00:02:48
>>211
ttp://www.google.co.jp/search?hl=ja&q=%22unable+to+find+command%22&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja


215 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/01/30(‰Ī) 01:02:12
Eclisp‚ĢPhortran‚Į‚Ä‚Ē‚¤‚ęH

‚Ę‚­‚ÉLinu‚˜ć‚ĢIntelƒRƒ“ƒpƒCƒ‰‚Ę‚Ģ‘g‚Ż‡‚ķ‚¹‚ĢŽg‚¢S’n@’m‚č‚½‚¢

216 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/03(“y) 07:25:11
Mac OS X ć‚Ģgfortran 4.0‚ŃRƒ“ƒpƒCƒ‹‚µ‚½Žž‚É
gfortran: spec failure: unrecognized spec option 'M'
‚Ę‚¢‚¤ƒGƒ‰[‚Ŗ‚Å‚é‚Ģ‚Å‚·‚Ŗ‰½‚Ŗ‚Ü‚ø‚Ģ‚Å‚µ‚傤H@‚æ‚Č‚Ż‚É‘¼‚Ģƒ}ƒVƒ“(LINUX)‚Ģgfortran‚Å‚Ķ
ƒGƒ‰[‚Ķ‚Å‚Ü‚¹‚ńBˆź‰žA‘–‚é‚Ģ‚Å‚·‚ŖAwrite‚Åposition='append'‚šŽw’肵‚Ä‚ąŠł‘¶ƒtƒ@ƒCƒ‹‚É
ƒf[ƒ^‚š•t‚ƉĮ‚¦‚øAŠ®‘S‚Éć‘‚«‚µ‚Ä‚µ‚Ü‚¤‚Ģ‚ō¢‚Į‚Ä‚¢‚Ü‚·B‚æ‚Č‚Ż‚ÉLINUXć‚Å‚Ķ
‚¤‚Ü‚­s‚«‚Ü‚·B

217 F209F2007/02/04(“ś) 11:51:06
>>214
‚ ‚č‚Ŗ‚Ę‚¤‚²‚“‚¢‚Ü‚·B
Š“ŽÓ‚µ‚Ü‚·B

218 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/15(–Ų) 00:11:54
‚m‚`‚f‚Ģ‚e‚‚’‚”‚’‚‚Ž‚a‚•‚‰‚Œ‚„‚…‚’‚Ģ‚m‚`‚f‚e‚‚’‚”‚’‚‚Ž‚X‚TƒRƒ“ƒpƒCƒ‰‚Ģ‚u‚…‚’‚“‚‰‚‚Ž‚Į‚Ä‚TD‚OH‚»‚ź‚Ę‚ą‚TD‚PH

‚TD‚P‚Č‚ē”ƒ‚¢‚½‚¢‚ń‚¾‚Æ‚ĒA’N‚©’m‚Į‚Ä‚él‚¢‚éH


219 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/16(‹ą) 15:57:03
‘SŠp‰p”‚Ķ‹CŽ‚戫‚¢‚Ę‚¢‚¤ƒZƒ“ƒX‚šg‚É’…‚Æ‚Ä‚©‚ēo’¼‚µ‚Ä‚­‚źB

220 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/16(‹ą) 19:36:46
>>219
‚Ø‚¢A‚Ø‚Ü‚¦





“ÆŠ“

221 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/17(“y) 00:00:33
>>219
‚²‚ß‚ń@’ł³‚³‚¹‚Ä‚ą‚ē‚¤

‚m‚`‚f‚Ģ‚e‚‚’‚”‚’‚‚Ž‚a‚•‚‰‚Œ‚„‚…‚’‚Ģ‚m‚`‚f‚e‚‚’‚”‚’‚‚Ž‹ćŒÜƒRƒ“ƒpƒCƒ‰‚Ģ‚u‚…‚’‚“‚‰‚‚Ž‚Į‚ćXD‚OH‚»‚ź‚Ę‚ą‡XD‡TH

‡XD‡T‚Č‚ē”ƒ‚¢‚½‚¢‚ń‚¾‚Æ‚ĒA’N‚©’m‚Į‚Ä‚él‚¢‚éH

‘SŠpŠæ”Žš‚©ƒ[ƒ}”Žš‚š‚Ā‚©‚¦‚Ī‚¢‚¢‚ķ‚Æ‚¾‚ėH

222 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/17(“y) 00:07:15
‚Ā‚Ü‚ē‚ń

223 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/17(“y) 00:22:25
ƒtƒH[ƒgƒ‰ƒ“‚Į‚č”‚Å‚ąƒŠƒAƒ‹‚ÉŽg‚Į‚Ä‚é‚Ę‚±‚ ‚é‚Ģ‚©Hw
–{•Ø‚ĢƒvƒƒOƒ‰ƒ}‚Ķ`A‚ĢŽž‘ć‚Å‚ą‚·‚Å‚ÉŽž‘ć’x‚ź‚Ģƒ_ƒŒ¾Œź‚¾‚Į‚½‚Ģ‚É

224 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/17(“y) 01:16:58
>>223
‚Ø‚Ü‚¦A‚æ‚å‚Į‚Ę‚»‚±‚ɐ³Ą‚µ‚ėB
‚±‚Ģ¢ŠŌ’m‚ē‚ø‚Ŗ‚—


‚¢‚¢‚©A“dŽqŒvŽZ‹@‚Ģ–{—¬‚ĶFortran‚¾‚¼I
ƒXƒpƒRƒ“Eƒ‰ƒ“ƒLƒ“ƒO‚Ģ‹@ŠB‚Å“®‚¢‚Ä‚¢‚éƒvƒƒOƒ‰ƒ€‚ĶŠī–{“I‚ÉFortran‚¾B

‘å‘Ģƒ}ƒ‹ƒ`ƒRƒA‚Å•Ą—ń‰»‚Ę‚¢‚Į‚Ä‚¢‚é‚ŖAMPI‚ąOpenMP‚ą‘Ī‰žƒRƒ“ƒpƒCƒ‰‚ĶFortran‚©
‚b‚µ‚©‚Č‚­‚āAC‚Ķ‚ ‚­‚Ü‚Å‚Ø‚Ü‚Æ‚¾B‘命”‚ĢlŠŌ‚ĶFortran‚ŃvƒƒOƒ‰ƒ€‘‚¢‚Ä‚éB

‚±‚ź‚©‚ē•Ą—ń‰»‚ŖŽå—¬‚É‚Č‚é‚É‚Ā‚źAFortran‚Ģ“V‰ŗ‚ŖÄ‚Ń‚ā‚Į‚Ä‚­‚é‚Ģ‚ĶŠŌˆį‚¢‚Č‚¢I
‰÷‚¢‰ü‚ß‚ęI‚³‚ą‚Č‚­‚Ī’n–‚Ģ‹Ę‰Ī‚ɏĂ©‚ź‚é‚ׂµI
Ś‚µ‚­‚Ķƒ}ƒ^ƒˆƒVƒCƒGƒX‚ĢƒTƒCƒg‚šn’m‚·‚ׂµB


225 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/17(“y) 01:22:52
—Bˆź_Fortran

226 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/17(“y) 01:36:08
>>221
u‘SŠp‰p”v‚ĢˆÓ–”‚Ŗ‚ķ‚©‚é‚ꂤ‚É‚Č‚Į‚Ä‚©‚ēo’¼‚µ‚Ä‚­‚źB

227 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/17(“y) 01:43:01
>>216
gfortran ‚Ē‚ā‚Į‚Ä‚¢‚ź‚½‚ń‚Å‚·‚©H
‰“‚Ģmac‚É‚Ķ‚Ķ‚¢‚Į‚Ä‚Č‚¢‚ń‚¾‚Ä‚Ē

228 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/17(“y) 01:53:16
>>227
ŒN‚ĢMac‚ĶƒnƒYƒŒ‚¾‚Į‚½‚ń‚¾‚ęB

229 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/17(“y) 01:54:03
>>226
‚Ø‚Ü‚¢‚ēC‚¤‚ŗ[‚©‚ē‘¼Š‚Å‚ā‚źD

230 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/17(“y) 10:54:58
>>229
‚¤‚邹[A>>218‚ā>>221‚Ģ‚ꂤ‚ČƒOƒ‚ĶŒ©‚½‚­‚Ė[‚ń‚¾‚ęB

231 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/17(“y) 23:09:57
Å‹ß‚­‚¾ƒXƒŒ‚Ģ‚Ł‚¤‚ŖƒŒƒxƒ‹‚Ŗ‚‚¢‚Č‚—


232 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/21(…) 15:40:26
>>218 5.1‚š“‹Ś

233 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/21(…) 22:54:23
>>232
‡dƒNƒXI


nag‚ĢƒTƒCƒg‚É’²‚ׂɂ¢‚Į‚½‚ń‚¾‚ŖAWindows—p‚Ķ‚Ü‚¾5.0‚¾‚Į‚½‚Ģ‚ŁA‚¾‚ß‚©‚ĘŽv‚Į‚½‚ŖB

ˆĄ‚¢‚ā‚Ā”ƒ‚Į‚ÄŒ©‚Į‚©[@‚Å‚ąƒ‰ƒCƒZƒ“ƒX‚ŖƒEƒ[[‚ń‚¾‚ę‚ȁB

234 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/25(“ś) 00:31:39
Intel Visual Fortran 9.1‚É•t‘®‚µ‚Ä‚­‚éƒfƒoƒbƒK(idb)‚ĢŚ‚µ‚¢“ś–{Œź‚ĢŽ‘—æ‚ā‘Š‚Į‚Ä‚Č‚¢‚ń‚Å‚µ‚傤‚©H

235 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/25(“ś) 17:39:49
ƒGƒNƒZƒ‹ƒ\ƒtƒg‚ŖƒRƒ“ƒpƒCƒ‰ƒ}ƒjƒ…ƒAƒ‹‚Ģ“ś–{Œź–󂚏o‚µ‚Ä‚¢‚½‚ŖAƒfƒoƒbƒK‚ą‚ ‚Į‚½‚©‚ȁH

236 FƒfƒtƒHƒ‹ƒg‚Ģ–¼–³‚µ‚³‚ńF2007/02/25(“ś) 23:30:36
>>235
XLsoft‚©‚ē“ś–{Œźƒ}ƒjƒ…ƒAƒ‹‚š—Ž‚Ę‚µ‚Ä‚Ż‚Ü‚µ‚½‚ŖA
Ś‚µ‚­Ś‚Į‚Ä‚¢‚é‚Ģ‚ĶVisual Studio‚Å‚ĢƒfƒoƒbƒO‚¾‚Æ‚ÅIDB‚É‚Ā‚¢‚Ä‚ĶŽå—v‚ČƒRƒ}ƒ“ƒh‚Ģą–¾‚Ģ‚Ż‚Å‚µ‚½B
>IDB ‚ÉŠÖ‚·‚鏦×‚ĶA[ƒXƒ^[ƒg] ƒƒjƒ…[‚©‚ē—˜—p‰Ā”\‚ČƒCƒ“ƒeƒ‹EƒfƒoƒbƒK[‚ĢƒIƒ“ƒ‰ƒCƒ“ƒ}ƒjƒ…ƒAƒ‹ (‰pŒź) ‚šŽQĘ‚µ‚Ä‚­‚¾‚³‚¢B
‚Ę‚Ģ‚±‚Ę‚ÅEEE‚±‚Ģƒ}ƒjƒ…ƒAƒ‹AŠ®‘S‚É“ś–{Œź–󂳂ź‚Ä‚é–󂶂į‚Č‚¢‚ń‚Å‚·‚ĖB
Language Reference‚Ę‚©‰p•¶‚Ģ‚Ü‚Ü‚¾‚µB

83 KB
” ‚±‚ĢƒXƒŒƒbƒh‚Ķ‰ß‹ŽƒƒO‘qŒÉ‚ÉŠi”[‚³‚ź‚Ä‚¢‚Ü‚·

šƒXƒ}ƒz”Łš ŒfŽ¦”Ā‚É–ß‚é ‘S•” ‘O100 ŽŸ100 ÅV50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé š
FOX š DSO(Dynamic Shared Object)