FORTRAN W
at TECH
1:ftHgÌŒ³µ³ñ
06/11/12 17:13:35
FORTRANXbhÅ·B
FORTRAN77/90/95/2003, HPFAFORTRANSÊÉÖ·ébèð«ñź³¢B
EFORTRANÖAîñ
šñ©ŸªAܞͩªÅ²×æ€
URLØÝž(www.google.co.jp)
x86Å®ì·éFortranRpC
URLØÝž(www.nminoru.jp)
The Fortran Company
URLØÝž(www.fortran.com)
Polyhedron Software
URLØÝž(www.polyhedron.co.uk)
Google Directory - Fortran
URLØÝž(directory.google.com)
EOX
FORTRAN III
œÚØÝž(techÂ)
FORTRAN II
œÚØÝž(techÂ)
Fortran
œÚØÝž(techÂ)
2:ftHgÌŒ³µ³ñ
06/11/12 17:14:45
Et[^³¿]¿ÅÌRpC
The G95 project iFortran95j
URLØÝž(www.g95.org)
GCC (g77) i¡ÌƱë FORTRAN77j
URLØÝž(gcc.gnu.org)
Salford FTN77/95 Personal Edition iFortran77/95, Windows, vo^j
URLØÝž(www.salfordsoftware.co.uk)
FTN77/95ÌCXg[û@
URLØÝž(www.coastal-env.k.u-tokyo.ac.jp)
the F Programming Language iFortran90ÌTuZbg, Win/Linux/Solarisj
URLØÝž(www.fortran.com)
Open Watcom Fortran Compiler iFORTRAN77j
URLØÝž(www.openwatcom.org)
Intel Fortran Compiler iFortran95, ³¿]¿Å(Win)^ñ€po[W(Linux), vo^j
URLØÝž(www.xlsoft.com)
Lahey/Fujitsu Fortran iúÀt«gCAÅÍI¹µœÍlj
URLØÝž(www.lahey.com)
EhL
g
Compaq Visual Fortran ICEhL
g
URLØÝž(www.xlsoft.com)
Intel Fortran Compiler ú{êÅ}j
AÌ_E[h ivo^j
URLØÝž(www.xlsoft.com)
xmÊFortranIC}j
A
URLØÝž(www.cc.nao.ac.jp)
FORTRAN77 standard
URLØÝž(www.swcp.com)
URLØÝž(www.fortran.com)
JISf[^x[X
URLØÝž(www.jisc.go.jp)
3:ftHgÌŒ³µ³ñ
06/11/12 17:48:19
@@R^l l@j|Æ@@@@@@@@@@ ,.€-''"..;:;:;:;:;:;:;:... `'R€
@@i@@@iP@@Pj@@@@@ ^....:::;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;.....R€^PPPP_^
@@@P@@ P@@@@@@@@ iQ;;€:Q;€;Q;€;€;€€š¯.;:;:;:;:;: /@@»@@F@@@@ N
@,.€--- €.,_@@@@@,€@@|@@@@@@,,,,,,@@/ ;:;:;:;:;:;: |@@ ¡ @ O@@@ @ F
@@@@@@@@@@M`''--C ,j,€,! '''''@@@@@@@@_ ;;;;;;;;;_|@@ ª @ R@@@ @ F
@@@@@@@@@@@@@ S°'Þ |ËÆÆ
@¬Æ,jj€ r;; / _|@@ @@T
@@@@ @ É@l@ Ê@ l@S gC M!Þlj_j@@ '@iØ__, M@ }ii l f'Är @ é@@R
@@@ _,,.m@_É / É m@mÉ!_Š@| @ l@@@M " '''@@ }ii ØÉ |@@ Ì @ A@@|_QQ
@@@@@ m@,€š'-z=F [_@@ .l!@.{@@@A@@@@ š!ii;}' É|@@ ©@@ N @ |
@@@-]''Þ_m ,m@ 'Þ (¿ @ R@@ {!@Þ°<Ü'@@@@ ,Ði;i;}°'Þ |@@ Ë@@ @ @ |
@@€ Bbf¢@@_,,ñ-@@ R.@ }i€@ -==-'@@Øiii;Â @ |@@ H@@ @ @ |
@ @M§Tk!|@@@@@@@r ,_É@_É}lli,@@-r=]@@,i;llilili|@@ QQQQ_^MR€
@@ @ Þ€R`!@ l@@@Q _£@^/@'}llli,@,;i|i;,@,,ii;ilililll'ÞØ ^ P l l@@@@@@,€ ''ÜÞRA
@@@@ `Ä.€!@ lj@@iQ_lA/@ | @ ÞÄ!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@|@^
PPPMN`''[--ÆL_@@@`!€ `!@lP`''š--š'-'Þ-c''"L_,, š|@@l@|/
@@@@@@@@@@@ úh@@ R M ', | nM`''c'''"L @n',Þ:€ @l@|^
4:ftHgÌŒ³µ³ñ
06/11/12 18:34:32
@í˶¶g€È{Pž¹ë
5:ftHgÌŒ³µ³ñ
06/11/12 19:07:04
>>4
«œË[Ÿtg€È³ìYI
ËI
6:ftHgÌŒ³µ³ñ
06/11/12 19:30:21
lϪªgŠét[ÌlvZCu èܹñ©H
7:ftHgÌŒ³µ³ñ
06/11/12 19:58:47
>>6
NetLibÖrBUUãÌà̪²ÜñÆ éºB
8:ftHgÌŒ³µ³ñ
06/11/12 20:01:14
IMSLª éñ¶áËH
9:ftHgÌŒ³µ³ñ
06/11/12 20:02:08
>>8
IMSLÍL¿pbP[W\tgŸŒB
10:ftHgÌŒ³µ³ñ
06/11/12 20:08:40
IMSLÍ10Èã·é\Ž
LAPACKÉϪÍÓÜêÄšçñÌH
11:ftHgÌŒ³µ³ñ
06/11/12 20:08:54
RpCæè¢EEE
12:ftHgÌŒ³µ³ñ
06/11/12 20:10:38
±ÌXÌGLXp[gœ¿ÍL¿pbP[WÆ©gÁÄšçêéÌÅ·©H
13:ftHgÌŒ³µ³ñ
06/11/12 20:13:17
>>7
NetlibsÁœªªœ·¬ÄœªÈñŸ©í©çÈ¢B
±êðÇ€gŠÎ¢¢©·çí©çÈ¢B
©œŽ¶vOP̪Á±¿Ä¢éŸ¯Éµ©©ŠÈ¢ª
Ç€âÁÄÁıêðÄÑoµÄg€ñŸë€©B
14:ftHgÌŒ³µ³ñ
06/11/12 20:32:24
>>10
LAPACKͳXALINPACK{EISPACKÅA»êŒê§sñÌü`ûö®ÆÅLlâèÌ
[`WÈÌÅϪÍåè©çOêÄ¢éÆv€B
LINPACKAEISPACKÍUONãÌÄpÌÆvWFNgŸÁœæ€ÉL¯µÄ¢éiL¯BjB
LAPACKÍî{IÉ»êðVV»µÄBLASÌãÉ껵AêASYðüÇEg[µœ
àÌŸë€B»ÌÓÌoÜâÍæí©ñËB
>>13
NetLibÆÍ»€¢€Æ±ëŸ@ºÌÏàÁœy ©œ¢ÈàñŸB
ÇAc巬Ĝª~µ¢©ª©ÁÄÈ¢ÆgŠÈ¢
NumericalRecipesÌy[WÖsÁÄÝé̪g©àµêÈ¢B
Æè ŠžêåÆIÉÍxXgų¢ÉµëAflªnÈOêðø©³êé±ÆÍ³¢ÍžB
œŸ{ÅÌ\[X͵εÎBugüèÈÌÅßçßÁÛ€g€ÌÍÔ³Þ§œ
L¿\[XÍŒÁÄ¢œè·é
15:ftHgÌŒ³µ³ñ
06/11/12 21:19:12
SÒÍxmÊÌTu[`t«RpC€Ìªbest¶áËH
ïÕxà\Zà
16:ftHgÌŒ³µ³ñ
06/11/12 21:25:25
Intel Math Kernel LibraryÅok
17:ftHgÌŒ³µ³ñ
06/11/12 21:36:09
MKLÁÄϪ[`üÁÄéÌH
18:ftHgÌŒ³µ³ñ
06/11/12 21:39:47
œªÈ¢
Æ¢€©At[ÅLŒÇ±ëÌpbP[WÉÍϪ[`ͳ¢\Ž
19:ftHgÌŒ³µ³ñ
06/11/13 19:48:52
ȺÌvOðÀ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:ftHgÌŒ³µ³ñ
06/11/13 20:30:25
CvOÉLorentzÌ^è`ªÈ¢©çintegerµ¢³êÄñ¶áË[ÌH
21:19
06/11/13 21:30:09
implicit noneÅðµÜµœB
PÔàÔðH¢ÜµœB
22:ftHgÌŒ³µ³ñ
06/11/14 00:43:00
©R®ÅÈçÖETu[`Íà豫ɷé©AMODULEÉ·é©
INTERFACE韵ĩçgš€B
23:ftHgÌŒ³µ³ñ
06/11/14 01:07:20
>>20,22
ª³µ¢B
>>19Í ÜèÉrŒ[B«Á¿èƵiÈF90®Å©AF77®ÉÃÙÌ^ðçé׫B
24:ftHgÌŒ³µ³ñ
06/11/14 02:41:24
INTEL@FORTRANpÌBLAS/LAPACKŸªAAMDÌcore-math-libraryÉWindowspà€³êÄ¢éB
ÌÍLinuxpÌê[`Ÿ¯ŸÁœªA¢ÜâS[`ðÔ
µœæ€ŸB
RêÍAMDÈÌÅAN©IntelChipÅàgŠé©µÄêB
URLØÝž(developer.amd.com)
25:ftHgÌŒ³µ³ñ
06/11/14 15:36:00
fortranÅŒÌexeðÀsū鿀ɷéÉÍÇ€µœçǢŷ©H
fortranÅìçêœexeÈñŸ¯Ç\[XÁ¯é̪ßñdz¢ñÅEEE
26:ftHgÌŒ³µ³ñ
06/11/14 16:32:26
>>23
FORTRAN(90)ÌÐÅAèÔÌšÁÄ èÜ·©H
27:ftHgÌŒ³µ³ñ
06/11/14 16:53:09
±ê©çtH[gð×·éÌÅ·ªA
ÆÄàðèâ·¢üåð³ŠÄ¢Ÿœ¯Ü¹ñ©H
vO~O©ÌA Üèo±ª èܹñB
bðµâèܵœB
æëµšè¢µÜ·B
28:ftHgÌŒ³µ³ñ
06/11/14 18:18:30
ÌlðA1,10,100,1000,10000,100000,1000000ÌÉÏŠÄ
»ÌípÎA©RÎÌlðvZµÄ\Š·évOðìê
Æ¢€ÛèªoœÌÅ·ªTbpª©èܹñB
Ç€©šÍYŠŸ³¢B
29:ftHgÌŒ³µ³ñ
06/11/14 20:51:20
>>24
Core DuoÅ಺޲À
32bit ifortÅÍVOvZbTpÉÅK»³êÄ¢éÝœ¢Ÿª
SSE/SSE2ªgŠêÎIntel CPUÅàOKÌæ€ŸB
>>25
SYSTEM Æ©»ñÈŽ¶ÌÖÈèTu[`ÈèªpÓ³êÄ¢éi±Æªœ¢jB
>>28
X Ìlð 1 ÉÏŠéiX É 1 ðãü·éj
X = 1.
X ÌípÎðvZµÄ Y Éãü·é
Y = LOG10(X)
X Ì©RÎðvZµÄ Z Éãü·é
Z = LOG(X)
X, Y, Z ÌlðÉ\Š·é
WRITE(*,*) X, Y, Z
30:ftHgÌŒ³µ³ñ
06/11/14 23:23:10
{žxÀÆ4{žxÀÅÍÀs¬xÍÏíÁĵܢܷ©H
31:ftHgÌŒ³µ³ñ
06/11/14 23:28:24
>>30
ÊÙÇá€B@
{žxÜÅÍlZvZbT̯Ån[hEFAZ·éªA
S{žxÍ\tgEFAÅ®¬_Zð·éÌÅxÈéB
USBitCPUÈçá±óµÍüP·éª{¿Éš¢ÄÍÏíçÈ¢B
DECÌAt@[CPUÍS{žxà÷É©ÁœªAÁêÈœßZbgª ÁœœßçµA
USbitCPUŸ©çÆ¢ÁÄæÈéí¯ÅàȢ怟B
32:ftHgÌŒ³µ³ñ
06/11/14 23:31:25
>>29
DO¶Å©È¢Æ¢¯È¢ÌÅ·ª
Ç€·ê΢¢ñŵ倩EE
33:30
06/11/15 00:03:03
>>31
Úµ¢Úœ»ÝžœI
34:ftHgÌŒ³µ³ñ
06/11/15 00:35:58
>>26
cOȪç Ü袢{ͳ¢B
¡AèÉüèâ·¢ÌͱêB
URLØÝž(www.amazon.co.jp)
µ©µAeVVÌÈðø«žÁÄ¢ÄA Ü袢«ûðµÄ¢È¢B
ÒÍåÌšÁ³ñçµAvdaůÌàeÌàÌð©çêéB
AhXÍA}]Ìr
[É¢Ä éB
pêÅæ¯êÎA±ÌÓÆ©A
URLØÝž(www.lahey.com)
±ÌÓÌd
e œèªwKpTuZbgÉÈÁÄ¢ÄAeXOðw×éB
URLØÝž(www.fortran.com)
µ©µA»À¢EÅÍeVV\[Xª ÓêÄ¢éÌÅ÷ÅÍ éB
ÀÛãLÌàÌͳçpƵÄàÍâçÈ©ÁœB
35:ftHgÌŒ³µ³ñ
06/11/15 00:43:57
>>32
@@@PROGRAM chinpopo
@@@DO 10 i = 0, 6
@@@ x = 10.0**REAL(i)
y = LOG10(x)
z = LOG(x)
WRITE(6, *) INT(x), y, z
10 CONTINUE
@@@END
>>35
36:ftHgÌŒ³µ³ñ
06/11/15 14:47:06
@@complex(8) c
Éš¢ÄC
@@c=(0.d0, 0.d0)
ƵÄú»·éÌàC
@@c=0.d0
ƵÄú»·éÌàS¯¶±ÆÈÌÅ·©H
37:ftHgÌŒ³µ³ñ
06/11/15 17:59:05
DO¶ðgpµÄCxÌlðC1,10,100,1000,10000,100000,1000000 ÌÉÏŠÄ
»ÌípΚæÑ©RÎÌlð vZµÄ\Š·évOðìêD
ÈšCvZÊÍ®ÌwèðµÄCx, log10(x), log(x) ÌÉ\`®Å\з鱯D
ÜœCvZʪ®ÆÈéàÌÍ®^(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:ftHgÌŒ³µ³ñ
06/11/15 18:31:55
>>37
read (*,*) x,log(x),log10(x)
DZÉüꜢÌH
œÔñA»Ì¶áÈ¢íæ
39:ftHgÌŒ³µ³ñ
06/11/15 19:20:43
>>37
>read (*,*) x,log(x),log10(x)
>do 10 i = 0.6
>x=10.0**real(i)
>y=log(x)
>z=log10(x)
>write (6,)
±±çÓªÔáÁÄéB
DZªÔá¢ÈÌ©í©çȢƫÍAÆè ŠžRpClÉ\[XðnµÄ
¶åðŸíêœÆ±ëðã©çÉŒµÄ¢ÌàPÂÌèŸB
Ÿê©Ÿ·êÌX§ÄÄêB
40:ftHgÌŒ³µ³ñ
06/11/15 23:55:01
>>37
>>35ðà€¢ÁØñ©ëI
>>39
d¡XðN_XÉ·é©H
41:ftHgÌŒ³µ³ñ
06/11/17 00:48:27
>>40
^Cg꟩笵»€
42:37
06/11/17 10:16:25
>>35
WRITE (6,*) ªª©èܹñ
>>37ÌâèÌ®ÌwèͱêÅ¢¢ñŵ倩
43:ftHgÌŒ³µ³ñ
06/11/17 11:23:12
WRITE(6,@'(I10, F15.7, F15.7)') x, y, z
à€µ³ÈÅII
±ñÈŽ¶Å
44:ftHgÌŒ³µ³ñ
06/11/17 12:00:23
>>37 ªñÎÁœ¯Ç®ª€Ü¢©È©ÁœBS
c DO¶ðgpµÄCxÌlðC
c 1,10,100,1000,10000,100000,1000000 ÌÉÏŠÄ
c »ÌípΚæÑ©RÎÌlð vZµÄ\Š·é
c vZÊÍ®ÌwèðµÄCx, log10(x), log(x) ÌÉ
c vZʪ®ÆÈéàÌÍ®^(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:ftHgÌŒ³µ³ñ
06/11/17 12:28:48
program report5
implicit none
integer :: x
real :: y,z
write (*,*) 'x='
DO 10 i = 0, 6
x = 10.0**REAL(i)
y = LOG10(x)
z = LOG(x)
WRITE(6,@'(I10, F15.7, F15.7)') x, y, z
10 CONTINUE
END do
stop
end program report5
±€Å·©?
46:ftHgÌŒ³µ³ñ
06/11/17 17:12:34
Program report5
Implicit none
real :: i,x
do i=0, 6
x=10.0**i
write(*, '(i7, f15.7 f15.7)') x, log10(x), log(x)
end do
stop
end
Ê
******* 0.0000000 0.0000000
******* 1.0000000 2.3025851
******* 2.0000000 4.6051702
******* 3.0000000 6.9077554
******* 4.0000000 9.2103405
******* 5.0000000 11.5129251
******* 6.0000000 13.8155107
š©°³Üű±ÜÅoœñÅ·ªAÇ€µÄà*******ªoĵܢܷ
47:ftHgÌŒ³µ³ñ
06/11/17 19:09:14
>>46
uÏÌ^vðÄ׵ĩçoŒµÄ±¢B
48:ftHgÌŒ³µ³ñ
06/11/18 00:05:43
>>46
write(*, '(i7, f15.7 f15.7)') x, log10(x), log(x)
@@@«
write(*, '(f15.7, f15.7 f15.7)') x, log10(x), log(x)
ɵÄÝæ€EEE
xÍrealÅ音êÄé©çformatð®\ŠÉwè·é±ÆÍūȢD
49:ftHgÌŒ³µ³ñ
06/11/18 00:44:07
>>48
>>37ÌâèðÇÞŽ¶ÅÍA
write(*, '(i7, f15.7 f15.7)') int(x), log10(x), log(x)
ð\úµÄ¢éÆvíêéB
>>46Íà€µáÁœñáðæá¡µë
50:ftHgÌŒ³µ³ñ
06/11/18 01:00:15
ov@ÂÁÄÝœ
URLØÝž(www.moecity.jp)
æmçÈ¢B©RÉgÁÄÝÄêB
51:ftHgÌŒ³µ³ñ
06/11/18 19:42:09
f90X^CÅw×颢¶Í èܹñ©ËB
pê©ú{êÅšè¢
52:ftHgÌŒ³µ³ñ
06/11/18 20:03:11
>>51
Fortran WR[fBO[
URLØÝž(www.mri-jma.go.jp)
European Standards For Writing and Documenting Exchangeable Fortran 90 Code
URLØÝž(www.meto.gov.uk)
ãÌaó
URLØÝž(www.mri-jma.go.jp)
53:ftHgÌŒ³µ³ñ
06/11/18 21:18:26
>>52
§·é«û real:: x(n), y(n)
x(1:n) = y(1:n)
~§µÈ¢«û x(:) = y(:) ÜœÍ x = y
±êÍ©È耻L¢Æv€B
@ÌêÆáÁÄARwèqðg€ÆA¢ÁœñÃÉRpCª
e|zñÉRs[·éÌÅœ¢Ä¢]ªÈÔª©©éB
µ©µRêª^âÉv€ÌÍAF77ÅÍÏÆzñɯ¶ŒOðAÆA(10)ðwèÅ«Ä
ʚɵíêélÉKiÅÜÁÄ¢œÆv€ÌŸªAF90ŵªN«È¢Ì©EEE
»êÆàA±êÍJISKiŸ¯ÅANSIâMILÅÍáÁÄ¢œÌ©H
54:ftHgÌŒ³µ³ñ
06/11/18 22:09:41
>>53
REAL A
DIMENSION A(10)
DO 10 I=1,10
A(I) = REAL(I)
10 CONTINUE
A = 1.23
WRITE(*,*) A
WRITE(*,*) (A(I), I=1,10)
END
KiãÇ€ÈÁÄœ©ÍmçÈ¢ª g77ŸÆ
A = 1.23
̪ÅRpCG[ÉÈÁœB
g95ÅÍiRj
55:54
06/11/18 22:12:21
~ g95ÅÍiRj
g95ÅÍiRj A ÍzñSÌÆðß³êœB
56:ftHgÌŒ³µ³ñ
06/11/18 23:02:07
>>54
»€¶áÈÄ
REAL A, A(10)
ªÂ\ŸÁœÆv€B
57:ftHgÌŒ³µ³ñ
06/11/19 00:16:02
hoge.f: In program `MAIN__':
hoge.f:1:
@@@@ REAL A,A(10)
@@@@@@@@@1 2
Invalid declaration of or reference to symbol `a' at (2) [initially seen at (1)]
58:ftHgÌŒ³µ³ñ
06/11/19 01:39:12
œµ©ÏŒÆzñŒÍKiãÌè`ÅÍÊšŸÁœL¯ª éB
ÀÛÌRpCÅÇ€ÈÁÄ¢œ©ÍmçñB
59:ftHgÌŒ³µ³ñ
06/11/20 08:30:40
Fortran90ÈñÅ·ªC
integer a(1:100)=0
ÝœÈú»ÌdûÍæâéñÅ·©H
60:ftHgÌŒ³µ³ñ
06/11/20 08:32:30
~ÝœÈ
Ýœ¢È
orz
61:ftHgÌŒ³µ³ñ
06/11/20 09:01:16
>>60
æâéB
µ©µ»Ìú»ÍNE[hÉsíêéàÌÈÌÅA
ÀssÅa(1:100)=0ÆÌÆÍ÷Éá€B
62:59
06/11/20 15:25:10
>>61
Úœ èªÆ€
63:ftHgÌŒ³µ³ñ
06/11/20 17:30:12
integer a(1:100)=0
ª±êÁÄÊéH
integer::@¶áÈ¢ÆÊçÈ©ÁœCªB
64:¿â1/3
06/11/20 18:45:56
gUûö®Ì«ElâèðIC[zð@ÅðœßÌ
QlvOÆ¢€à̪³ÈÉ èAÜíµœÌÅ·ª
errorÍoÈ¢àÌÌãèÜíèܹñŵœB
AhoCXðè¢Ü·B
¿ÈÝÉMX=41,KM=30,DT=0.01ƵĢܷB
PARAMETER(NX=51)
DIMENSION U(NX),UU(NX)
C**** INPUT & CALCULATE PARAMETERS
WRITE(*,*) 'MX (<52: MESH POINTS) ? KM (NUMBER OF TIME STEP) ?'
READ(*,*) MX,KM
WRITE(*,*) 'DELTA T: DT ? '
READ(*,*) DT
DX=1./FLOAT(MX-1)
R=DT/DX**2
IH=(MX+1)/2
I5=.05/DT
IF(I5.EQ.0) I5=1
CALL OUTPUT(U,NX,MX,1)
C**** INITIAL CONDITION
DO 10 I=1,MX
X=FLOAT(I-1)/FLOAT(MX-1)
IF(I.LE.IH) THEN
U(I)=X
ELSE
U(I)=1.-X
END IF
10 CONTINUE
65:¿â2/3
06/11/20 18:46:56
C**** MAIN LOOP
DO 20 K=1,KM
U(1)=0.
U(MX)=0.
IF(MOD(K,I5).EQ.1) CALL OUTPUT(U,NX,MX,2)
C
DO 30 I=2,MX-1
UU(I)=R*U(I-1)+(1.-2*R)*U(I)+R*U(I+1)
30 CONTINUE
DO 40 I=2,MX-1
U(I)=UU(I)
40 CONTINUE
C
IF(ABS(U(IH)).GE.10000.) THEN
WRITE(*,*) 'DIVERGE!'
STOP
END IF
C
20 CONTINUE
C
CALL OUTPUT(U,NX,MX,3)
STOP
END
C
SUBROUTINE OUTPUT(U,NX,MX,MM)
CHARACTER Z(60,23)
DIMENSION U(NX)
66:¿â3/3
06/11/20 18:48:34
IF(MM.EQ.1) THEN
DO 10 J=1,23
DO 10 I=2,MX-1
Z(I,J)=' '
10 CONTINUE
DO 20 J=1,23
Z(1,J)=':'
Z(MX,J)=':'
20 CONTINUE
DO 30 I=1,MX
Z(I,1)='-'
Z(I,23)='-'
30 CONTINUE
END IF
IF(MM.EQ.2) THEN
DO 40 I=1,MX
J=U(I)*40+.001
IF(J.GT.23) GO TO 40
Z(I,J)='*'
40 CONTINUE
END IF
IF(MM.EQ.3) THEN
DO 50 J=23,1,-1
WRITE(*,600) (Z(I,J),I=1,60)
50 CONTINUE
600 FORMAT(1H ,60A1)
END IF
RETURN
END
67:59
06/11/20 21:40:21
>>63
»€Åµœ
integer :: a(1:100)=0
¶áÈ¢ÆÊçñÅ·D
68:ftHgÌŒ³µ³ñ
06/11/22 00:03:15
Ÿ·êFORTRANiŽSÒpj»Ì2
œÚØÝž(techÂ)
69:ftHgÌŒ³µ³ñ
06/11/22 01:57:44
¡xAvZ@ð3äΩµ\z¹ËÎÈçÈ¢ñŸªA
CPUÍcore2duoÆXeonÌÇ¿çªÇ¢ÌŸë€©
RpCÍCeÌñ€pt[ÌâÂðgš€ÆvÁÄ¢é
70:ftHgÌŒ³µ³ñ
06/11/22 03:56:04
Xeon5000ÔäÆär·éÈçXeonA
Xeon3000ÔäÆär·éÈçCore2Duo©È
71:ftHgÌŒ³µ³ñ
06/11/22 11:20:02
LbV
ÉÚéÈç»êÅࢢªA[ANZXœ¢ÈçItanium2År
72:ftHgÌŒ³µ³ñ
06/11/22 14:12:45
šOçªgÁÄ¢évZ@ÌXybN«ÚñÊ
€¿Í
CPUFPentium4 3.2GHz
F1GB
RpCFIntel Fortran RpC
ð2GBɵëÆiŸµœª³ŸÁœB
73:ftHgÌŒ³µ³ñ
06/11/22 14:54:28
Öæµæ€¶á È¢©D
CPU: Pentium4 3.4GHz
RAM: 1.5GB (DDRPC3200ÃÞ±Ù)
ºÝÊß²×: Intel Fortran Compiler 9.1
OS: Windows XP pro SP2
FlÌC2D (T7200) Ú@gÁÄvZµœçm[gPC̹ɎÌ
ÃÞœžæè2{Èã¬ÄT
74:ftHgÌŒ³µ³ñ
06/11/22 15:35:21
±êÍÈñÅ·©HHH³ŠÄŸ³¢II
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:ftHgÌŒ³µ³ñ
06/11/22 15:50:10
>>74
G[ÍÈ¢išßÅÆôj¯ÇAÏÈ̪S ÁœæB
Èñ©A1122testÁÄ¢€t@CÌDLAX, DLAXRÁÄ¢€ŒOªÏÈŽ¶B
¿åÁÆ©œûª¢¢©àEEEiÓ§Æçñ±ñ΢ç4.03jB
76:ftHgÌŒ³µ³ñ
06/11/22 16:07:08
èªÆ€²Ž¢Ü·
¡ÌÌæyÌvO~OððÍÈŸ¯ÅAFORTRAN©ÌððµÄܹñªApðEñÅšf¢µÜ·B
DLAXRÆ¢€ÌÍœÔñ±ÌªÅ·ªADZ©Ïŵ倩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:ftHgÌŒ³µ³ñ
06/11/22 16:51:21
>>76
휵àæí©ñÈ¢¯ÇA
DLAXRðÄñÅé¯ÇA±Ìt@CÅÍÜŸè`³êÄÈ¢©ç
^EiøÌÆ©Ìj`®ª ÁÄé©sÀEEE
æ¯êÎt@CɢƢÄË
œÔñŒÌt@CÅè`³êÄéñŸë€©ç
Æè ŠžKÉÁ¯é¯ÇAÔáÁÄà{çÈ¢ÅËiÓ§Æçñ±ñÏ¢çj
78:ftHgÌŒ³µ³ñ
06/11/22 17:24:56
>>74
DLAX, DLAXR ÁÄŒO©ç@·éÆAxmÊÌlvZCuSSL II ðgÁÄéÁÛ¢B
79:ftHgÌŒ³µ³ñ
06/11/22 17:45:18
·êᢩàmêÈ¢ªACoreDuoACore2DuoÅLinuxÅ®ÌH
80:ftHgÌŒ³µ³ñ
06/11/22 18:00:54
>Core2DuoÅLinuxÅ
V^bNXEG[F ð³êÈ¢uÅv
81:ftHgÌŒ³µ³ñ
06/11/22 20:45:13
>>80
nice
82:ftHgÌŒ³µ³ñ
06/11/22 23:35:23
>>74
»êÍ>>78É éæ€ÉASSLIIÌCuðÇñÅ¢éÌÅA»êª³¢ÆŸÁÄ¢éB
SSLIIÌCuª éRpCiFujitsuALaheyjÌzÅâé©A
é¢ÍŒÌCuÅu«·ŠéKvª éB
LUªðÁÛ¢ÌÅALAPACKÆ©œÅà é×B
83:ftHgÌŒ³µ³ñ
06/11/23 14:05:27
nsmñÌsñª èA»±©çnsmñÌ»êŒêÌlðêñÉŒµÄA»êŒêÉlÉ¢Äå«¢ÉÀ×ÈšµA³ÌsñÉŒµÄÝœ¢ÌÅ·¯ÇÇñÈvOÌû@ª èÜ·©H
æ¯êÎA³ŠÄŸ³¢
¿ÈÝÉfortran77ðgÁĢܷ/
84:ftHgÌŒ³µ³ñ
06/11/23 16:00:07
>>83
ŸÁÄ鱯ªæª©çÈ¢ªAQ³sñðñ²ÆÉ\[gµÄA
ã©çºÖå«¢ÉÀ×Èšµœ¢Æ¢€±Æ©H
»êÈçÈPŸB
PDÜžP³\[gÌTu[`ðpÓ·éB±êð SORT(n, x) Ƶæ€B
QDñ²ÆÉ\[g·éB
DO PO i = 1, m
@CALL SORT(N, X(1, i))
10 CONTINUE
±êÅšB
85:ftHgÌŒ³µ³ñ
06/11/23 18:03:09
84³ñwE èªÆ€²Ž¢Ü·
Åà¿åÁÆá€ÌÅ·@
œÆŠÎ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:ftHgÌŒ³µ³ñ
06/11/23 19:56:32
>>85
»êÈçàÁÆÈPŸBFORTRANVVÍzñÌæªAhXµ©n³È¢B
³Æ©å«³ÍCɵȢB
ÜœAFORTRANÌzñÍ[ãÅÍAñûüÉ×èÁÄP³ÉÀñÅ¢éB
äŠÉAN*MÌvfÅP³Ì\[gð·ê΢¢B
PDP³Ì\[gðpÓ·éB
QDCALL@SORTiN*MAXj
±êÅOK
87:ftHgÌŒ³µ³ñ
06/11/24 11:12:38
>>83
³XmixiÉ«ñŸñŸ©çAðµœçmixiÉàæ€ÉB
88:ftHgÌŒ³µ³ñ
06/11/24 11:44:03
>>87@
Â[©>>83ÌxÅÍ>>86ÌñÍðūȢñ¶áÈ¢©B
FORTRANͱ€¢€CJT}ZÉæÁÄAP³®ONAðÂÁ©ÁÄ
œ³®AÀÈÇÌNA[ÉgŠœBêíÌPolymorphism@
89:ftHgÌŒ³µ³ñ
06/11/24 14:36:03
86³ñ èªÆ€²Ž¢Ü·
m©É¬m蜢Ƣ€CªÍâè·¬ÄA¢ëñÈÅ¿âµÄ¢Ü·Ë
¿áñÆ©ªÅðÅ«œç¢Ä¢«œ¢ÆÍvÁÄ¢éÌÅ·¯ÇË
ÅàAâÍè¿åÁÆðūܹñOOG
æ¯êÎAœ©áÆ© éÆ èªœ¢ÌÅ·¯Ç
90:ftHgÌŒ³µ³ñ
06/11/24 14:36:17
>>77@
èªÆ€²Ž¢Ü·I
>>78³ñÌŸ€ÆšèAxmÊSSLUðgÁÄ¢élqÅ·B
>>82
LaheyâLAPACKÆÍÇñÈàÌÅ·©HH
91:ftHgÌŒ³µ³ñ
06/11/24 20:57:18
>>90
URLØÝž(www.google.co.jp)
URLØÝž(www.google.co.jp)
92:ftHgÌŒ³µ³ñ
06/11/24 23:12:56
>>90
LaheyÍRpCÌ©ÐÆ©JðâßÄA¡ÅÍxmÊÌtgGhðgÁÄ¢éB
xmÊÍLinuxŵ©oµÄ¢È¢ªALaheyÍWindowsÅàoµÄ¢éB
xmʪñÅ¢éÌÅAvtFbVio[Wð€ÆSSLªÂ¢ÄéB
ÆSSL͌îåwÌNUPACKƧÚÈÖWª éÌÅAnetNUMPACªQlÉ
Èé©àµêÈ¢µAÈçÈ¢©àµêÈ¢
RêÍxmÊnÍCÉÍgíÈ©ÁœÌÅæmçñ
LAPACKÍÅLnâèÆü`âèpÌTu[`WŸB±êÍÛWÆ»µÄ«Ä¢éÌÅ
DZÌ@BÅ஢ĢéB
93:ftHgÌŒ³µ³ñ
06/11/24 23:33:34
>>89
PROGRAM unko
REAL a(5, 2)
CALL kintama(5 * 2, a)
DO 10 i = 1, 5
PRINT *, a(i, 1), a(i, 2)
10 CONTINUE
END
C
SUBROUTINE kintama(n, x)
REAL x(n)
DO 10 i = 1, n
x(i) = REAL(i)
10 CONTINUE
RETURN
END
ÀsÊ
1.000000 6.000000
2.000000 7.000000
3.000000 8.000000
4.000000 9.000000
5.000000 10.00000
Press any key to continue
Tu[`@àÊ@ÅA1³zñÉP`ÜÅÔÉðãüµÄ¢éB
êûAC[`©çÄÑo·Æ«ÍAQ³zñðøiЫ·€jÉ^ŠÄ¢éB
vfÍs~ñPOÂÅnµÄ¢éB@ÔÁÄéÊð©éÆAñûüÉA±µœlÅßÁÄÄ¢éB
¯ḻÆðSORTÅâêÎAͶßñ³É_ŸÁœªA
ñûüÉ\[g³êÄßÁÄéB
94:ftHgÌŒ³µ³ñ
06/11/25 08:07:15
>>89
m©É¬m蜢Ƣ€CªÍâè·¬ÄA¢ëñÈÅ¿âµÄ¢Ü·Ë
»êÍ}`|XgÆŸÁÄA}i[ᜟÈB
±±ðæ[ÇñÇæ€ÉB
WikipediaÚØÝž
95:ftHgÌŒ³µ³ñ
06/11/26 17:18:04
enqsq`mÌGQƩȢÌH
96:ftHgÌŒ³µ³ñ
06/11/27 19:00:46
>>53
x(1:n) = y(1:n)
±Ì«ûÁÄáŠÎÌæ€ÈQ»®Ég€Æ
¿áñÆvZµÄêÈ¢D
x(1)=0
x(2)=1
x(3:n) = 2*x(2:n-1) - 4*x(1:n-2)
©ªÉ©ªðãü·éæ€È
®ŸÆÊÚÁÛ¢ (r©çS0ÉÈé)DÈñÅHH
97:ftHgÌŒ³µ³ñ
06/11/27 21:01:20
>>96
zñÌZÍ·×ÄÀñvZƵijêéÌÅ x Ìvfª 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
EEE
ÆÈéB
do i=2,n
x(i) = x(i-1) + 1
end do
Æ
x(2:n) = x(1:n-1) + 1
ÅÍÓ¡ªá€ÌŸB
98:96
06/11/27 22:18:19
>>97
šš`æí©èܵœI
èªÆ€
99:ftHgÌŒ³µ³ñ
06/11/28 00:17:59
>>96
REAL::A(N, N), B(N, N)
`@@`@@a
Ìæ€ÈóµðlŠêÎA¡Ìenqsq`mÌdlªàÁÆàŸÆª©éB
sñìªçÝÅA±ÌdlÍÆÄàÖB¢¿¢¿©ªÅe|ÉRs[µÈÄ¢¢B
ÆêAÀñ»³êœÆ«Ì±Æàl¶³êÄ»€¢€dlÉÈÁÄ¢éçµ¢B
100:ftHgÌŒ³µ³ñ
06/11/29 13:24:49
>>74ÌvOÉš¢ÄAt@CÌè`ÆÍÇ̪ÉÇÌæ€É«ÞàÌÈÌÅ·©H
SÌÌvOÌÌDZ©ÉBêÄ¢éÌŵ倩H
101:ftHgÌŒ³µ³ñ
06/11/29 21:16:59
ÌðÌ€¿©çŒÌÊuÌÜx(Æ2)Æox(É2)ðßévOð쬹æB
1.³ÌêÌÜx(Æ1)ðkÜ35x40ªAox(É1)ðo139x12ª
2.£(s)ð6242.2Æ·é@R~¿~Î/180@@iR6370j
3.ûÊp(Ë)ð86.6xÆ·é@sinË=cosÆ2~sinÉ/sin¿ iÉ=É2-É1j
(pÅ«éÌÅ êÎcos¿=sinÆ1sinÆ2+cosÆ1cosÆ2cosÉðpµÄàæ¢)
ÜœAŒÌû@ª éÌÅ êλÌvOð쬹æB
³ŒŸÁÄA¿ñÕñ©ñÕñÈÌÅ·
í©éûª¢êÎæ¯êÎA³ŠÄŸ³¢Ü¹ñ©
102:ftHgÌŒ³µ³ñ
06/11/29 23:12:10
>>100
î{IÉJ[ÉεÄCuðwè·éŸ¯Å éB
ÅßÌRpCÍARpCEhCoÆ¢€à̪ARpCâJ[ÈÇð
©®IÉXÄÑoµÄ¢éÌÅA»ÌwvðæÇñÅAJ[ÉCuð
wè·éIvVðT·×µB
RpCEhCoÉÍARpCÖÌIvVÆAJ[ÖÌIvVð
ÂXÉ^Šé±ÆªÅ«éB
±ÌÓÍAÖÉÈÁœª©ŠÁÄÌæèœâÁÄéÌ©í©çÈÈÁÄéB
>>101
ÊOpªñÎê
103:ftHgÌŒ³µ³ñ
06/11/30 02:28:58
>>101
Ç€àMCÌ©çËöñUOOOÌe|hðËµÄ¢éæ€ŸªA
ûÊp(Ë)Ìè`ªª©çñBà€µÚµB
Ü®ª^ŠçêÄ¢éÌÅîñƵÄÍ·ÅÉ\ªÈÌŸªA
®©çtZ·éCͪȢB
cos¿=sinÆ1sinÆ2+cosÆ1cosÆ2cosÉ@ÍàÏ©çoœB
104:ftHgÌŒ³µ³ñ
06/11/30 21:33:37
>>101
¡xÍ2¿áñÉ¢œãmixiÅ·©B
105:ftHgÌŒ³µ³ñ
06/11/30 22:25:56
>>101
ŠÍAnCÌIAtŸB@kÜQPxQSª@ŒoPTVxTRªŸB
¢ÅÉËn_ÍMCÅÍÈ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:ftHgÌŒ³µ³ñ
06/11/30 22:27:15
theta2 = ASIN(vec2(3)) * 180.0 / pi
phi2 = ATAN2(vec2(2), vec2(1)) * 180.0 / pi
!
PRINT *, theta2, phi2
ns = 'N'
IF (theta2 < 0.0) ns = 'S'
ew = 'E'
IF ( phi2 < 0.0) ew = 'W'
PRINT '(i4, a, i2, 1x, a)', INT(ABS(theta2)), ' ', NINT(( ABS(theta2) - INT(ABS(theta2)) ) * 60.0), ns
PRINT '(i4, a, i2, 1x, a)', INT(ABS( phi2)), ' ', NINT(( ABS( phi2) - INT(ABS( phi2)) ) * 60.0), ew
STOP
END PROGRAM vipper
107:105
06/11/30 22:29:33
²ßñ@kÜÆìÜ̪ÔáÁœÜÜÌầµÄµÜÁœB
ÜA{¿ÍÏíçñ©çKɵĚ¢ÄêB
¿âª êÎAŠâ·_IÉ·¢ÄêB
108:105
06/11/30 22:33:40
Xµ@·Üñ±
oÍÊŸB
21.39687 -157.8804
21 24 N
157 53 W
Press any key to continue
ÆAûÊpËÍ^k©çvñèÉªé±ÆÆµœB
ÂÜè¡ÌâèÅÍAª€q©çÙÚ^ÉAn
ÌŒaÆŸ¢œ¢¯¶Ÿ¯òÔÆ
nCÌzmßÓÉ
Æ¢€ŸB
f
@dÅm©ßÄ¡XBèKðg€ÆQn_ÔÌ£ðªêéB
109:ftHgÌŒ³µ³ñ
06/12/01 12:38:00
Mixi æè vipper ÌûªãÈÌ©æ@
110:ftHgÌŒ³µ³ñ
06/12/01 15:04:03
105³ñ èªÆ€²Ž¢Ü·
¡úŸ³êœŠð©ä×ÄÝœçAÁĢܷII
ÅàAªÀÛÉâÁÄÝœœ³ñÌG[oÄ«ÄÇ€µæ€àÈ¢
óÔÅ·
¡AªpµÄ¢éÌÍ[fc pad FTR77]Æ¢€fortran77ÌàÌÈñÅ·ª
Ç€µÄG[ªoĵ܀̩ªæí©èܹñ
àµà¡ñÌà̪fortran77ÅȢƵœçA¡x©çÀÛÉâ鯵œç
ÇÌæ€ÈvOÉÈéÌÅ·©H
æ¯êÎA³ŠÄŸ³¢
111:ftHgÌŒ³µ³ñ
06/12/01 19:50:23
®¬_ÌlªÅ©·¬Ä®^ÉÏŠçêܹñ
ÁÄG[ªoÄéñÅ·ªAÇ€·êÎñðūܷ©H
®¬_ÌÜÜ¿Á¿áµÄiPOÅ鯩j®^ÉÏŠÄ©çPOð
|¯éÆ©·êÎñðÅ«éÆv¢Ü·¯Çi[ÍæÁÆ¢ÄãÅ«·ÆµÄj
±ñÈȱƷéKvȢŷæËc
Ÿ·êÉ«Þ׫©Æv¢Üµœª¿ÄÜ·æËH
112:ftHgÌŒ³µ³ñ
06/12/01 20:10:12
Ÿ·êFORTRANiŽSÒpj»Ì2
œÚØÝž(techÂ)
»ê©ç¿âàeÍuïÌIÉvÈ
113:ftHgÌŒ³µ³ñ
06/12/01 20:28:00
>>112
êHœÁÄܵœ©c·ÝܹñB
»¿çÅ·¢Ä«Ü·A èªÆ€B
114:ftHgÌŒ³µ³ñ
06/12/01 23:08:57
>>110
 URLØÝž(ace.phys.h.kyoto-u.ac.jp)
±ê©Ä77ÉŒ¹B
115:ftHgÌŒ³µ³ñ
06/12/01 23:14:37
>>111
¡ÌêÊÌFORTRANÌ®ÍRQrbgÌ®ŸB
»Ìê\µ€éÌÍÍÍ|QORP`QORP|PŸB
QORPQPSVSWRUSW`QPOOXšQMK@Ÿ©çA±êæèâÎlÌå«¢
Àð®ÉÏ·µæ€Æ·êÎG[ªoéB
œÆŠPOÅÁÄ€ÜûÜÁÄàPO{µœçI[o[t[·éÌųӡŸB
®ÌI[o[t[Ím³êÈ¢ÌÅiIvVÉàæéªjÀsG[ª
oÈ¢ÜܳӡÈvZª±±ÆÉÈéB
116:ftHgÌŒ³µ³ñ
06/12/01 23:23:55
>>110
»êÍFortran90ÌvOŸ©çAFortran77ÅÍG[ªoéÌÍRŸB
¿ÝÍ¡x©çÍAŸXÌûɫȳ¢B
µ©µ»ÌöxÌxÅA ÌÀWñ]ðgÁÄð¢œvOðoµœç
ŒlÉâÁÄàçÁœ±ÆªooŸ
©çÍÅÉFORTRAN77Ś袵ܷƢĚ«È³¢B
117:ftHgÌŒ³µ³ñ
06/12/03 01:14:47
àÁÆSÒÉâ³µµÄâêæB
Fortran[U[ðâ·œßÉB
118:ftHgÌŒ³µ³ñ
06/12/03 04:16:33
>>117
¯ÓEEEiÇ€Åࢢªj
119:ftHgÌŒ³µ³ñ
06/12/03 05:14:42
SÒÁÂ[æèüÌh賊ÄNÁÛ¢ªB
120:ftHgÌŒ³µ³ñ
06/12/03 18:07:18
FORTRAN77
ÌGOTO¶ÆxÌÉ
¢âÉÈèCbC++nÉCµÄœª
Fortran90è©çܜ̫Ä×ÝŰÉßÁœ
121:ftHgÌŒ³µ³ñ
06/12/03 19:04:12
>>120
š©Šèȳ¢B
CŸêÍAC99,D,C++,ObjectiveC,SecureÈCÈÇɪôµÄ«Ä¢éÌÅA
øÁı̪ôð¢Á»€[ßÄAFortranðLɵÄêB
122:ftHgÌŒ³µ³ñ
06/12/04 03:38:34
>>121
»êðWÆà¢€ñŸª
123:ftHgÌŒ³µ³ñ
06/12/04 17:38:37
vZʪŠÄ«œÌÅA1äp\Rð⻀ƵĢéÌÅ·ªA
i»ÝPen4 3.6GHzAIntelVisualFortran9.0j
ÀñvZµ»€ÉÈ¢R[hÈÌÅACPUÌIðÉÀÁĢܷB
¡ÜÅPen4 œèÌVORAŬµÄ¢œûͱê©ç
Ç€³êéÂàèÅ·©H
Core2DuoƩǀÈñŵå€EEE
ãÌûÅÍCore2DuoÌûª¬¢Æ¢€«Ýª èÜ·ªEEE
ê\ZÍ1®20~ÊðzèµÄ¢Ü·D
124:ftHgÌŒ³µ³ñ
06/12/04 23:45:38
>>122
¢âAnbeÍ\ÈñŸªA€Ü¯¶ç¢É}ª©êµÄàçŠéÆAàQoªnÜÁÄ
SÞµÄêÄ©éB
ÆCh¶ŸêªSecureÈûüÉü©ÁÄêéÆAÅK»Xs[hª¿ÄâªÄ©Å·éŸë€B
obt@[I[o[̰|Æ©ðøÁÄíÉSUBCHK©¯œÜÜ鿀Édü¯é×µB
JavaâC#ÈÇÍǪ{IÉûüðÔáÁÄ¢éÆv€B
UCSD@p-code@PascalÌÌ©çAVirtualMachineÍÆÄࢢACfAÌæ€ÉvŠÄA
»êŢĀÜsÁœœßµªÈ¢BXs[hª êÎG~
[VÅ\ªŸÆAÞ©µ©ç
ŸíêÄ«œªAXs[hªãªéÆVµ¢g¢ûªoÄ«ÄAMMÌCPUÁïª
ßçêé©ç€ÜsÍžªÈ¢B
àÁÆàFortranàKiªÇñÇñì廵ĢĩÂÄÌPL/I^ÌjÅ̹ð
œÇÁÄ¢éCªµÈೢ̟ª
125:ftHgÌŒ³µ³ñ
06/12/05 10:31:13
>>124
PL/I©
VMÍíµçÌæ€ÉvZ@ƵÄg€lÉͳŸª
ÊÉVÔöxÈ碢ñ¶áÈ¢©H
ÁÄ¢€©åävÈç¢PCÌ«\ª ªÁœñ¶áÈ¢©H
à¿ëñAFortranÅVMgíêœçª{IÈÔᢟª
JavaÌûüàAÈñ¶áÈ¢©H
FortranÆprªdÈçÈ¢µEEE
¿åÁÆPL/IªÈ©µÈÁÄ«R
126:ftHgÌŒ³µ³ñ
06/12/05 14:26:13
C Pad for Salford FTN77@ð©ÁĢܷªAvOðÀs·éÆ
RUN TIME ERROR
00402c50 SOLU [+0174] [recur= 1]
00401000 TDOFS [+09ca]
ªoÜ·B
RUN TIME ERRORÆÍÈñŵ倩HH
bZ[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)
ÇÈœ©³ŠÄŸ³¢II
127:ftHgÌŒ³µ³ñ
06/12/05 22:54:37
>>126
>*** Unexpected continuation line (have you got more than 19?)
>*** Compilation failed
¹Á©RpCªbZ[WðoµÄ¢éÌŸ©çA¿áñÆÇÞæ€ÉB
128:ftHgÌŒ³µ³ñ
06/12/06 00:05:57
>>126
ÜÁœ>>127ÌŸ€ÆšèŸB
qª¢Ä¢éÌÉA©ÜÁÄâçÈ¢çúüÌêexŸB
RêÌffÅÍAQ©çRsyµœÌÅAUJ¶Ìº°ðµÄ¢È¢B
»Ì¹¢Åp±sɚᢳêÄ¢éB
129:ftHgÌŒ³µ³ñ
06/12/06 12:51:58
>>127
¶á póµÄ °œçHH
qª¢Ä¢éÌÉA©ÜÁÄâçÈ¢çúüÌêexŸB
130:ftHgÌŒ³µ³ñ
06/12/06 13:02:29
>>129ÍêeÉÙç¹ëÁÄ{Â韯ÌeB
131:ftHgÌŒ³µ³ñ
06/12/06 13:06:14
>>130
ͪ ÁœãÉ
C^r
[³êéßÌl
uæ ÌÆÌq͢ĢܵœæEEEÐÇ¢eÅ·Ë
ÜAÍÖWÈ¢ñÅ·¯Çv
132:ftHgÌŒ³µ³ñ
06/12/06 13:52:30
ÅÌlªnɵœû²Å«Þ©ç±ñÈŸçÈ¢Xª±¢ÄµÜÁœæB
133:ftHgÌŒ³µ³ñ
06/12/06 14:08:59
>>132
>>127 ÍÊɫȢŸëB«¢ÌÍ>>128
134:ftHgÌŒ³µ³ñ
06/12/06 14:31:00
«¢ÌÍ>>126BàŸð[ÜÁœ¿âð·é©ç±€ÈéB
uvOvªœÒ©±¿çÉÍSª©çÈ¢B
135:ftHgÌŒ³µ³ñ
06/12/06 14:33:15
Æè ŠžAŽª«¢æ
ÝñȺÞÒ¿
136:ftHgÌŒ³µ³ñ
06/12/06 14:40:20
>>134
Åààeàœàí©çÈ¢lŸÁœç¿âð¿áñƵëÁÄÌàïµ¢ñ¶áÈ¢©ÈHH
137:ftHgÌŒ³µ³ñ
06/12/06 20:08:27
¿âðµÄ¢élÔª©ªÌâÁÄ鱯Ìàeàœàí©çÈ¢óÔÈçA
»ê±»Šæ€ªÈ¢ŸëB
¹ßÄî{Iȶ@Èè\tgÌÈPÈg¢ûç¢Í©ªÅ²×Ä
»êÅà_ŸÁœçAœªµœÄœðµœ¯ÇÇ€ã袩ȩÁœ©
öx̱ÆÍ¢Ä¿â·×«¶áÈ¢©B
y[WÅVX\ŠXbhÌõÞXêbèÌj
[XšÜ©¹Xg¥IvVð\ŠÉÂÔµ2ch
5215úOÉXV/304 KB
S:undef