‚T‚ż‚á‚ń‚Ë‚é šƒ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‚Ĺ‰đŒˆ‚ľ‚Ü‚ľ‚˝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‰đ–@‚Ĺ‰đ‚­‚˝‚ß‚Ě
Ž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‚đ’ljÁA‚Ü‚˝‚Í'Add New Project to Workspace'‚ŐV‚ľ‚˘ƒvƒƒWƒFƒNƒg‚đ’ljÁ‚ˇ‚é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‚Č‚ŕ‚Ě‚đ’ljÁ‚ľ‚Č‚˘ƒ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‚Ś‚ë‚—

66 KB
Ą ‚ą‚ĚƒXƒŒƒbƒh‚͉ߋŽƒƒO‘qŒÉ‚ÉŠi”[‚ł‚ę‚Ä‚˘‚Ü‚ˇ

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

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit š
FOX š DSO(Dynamic Shared Object)