— 27 —SENAC Vol. 45, No. 3（2012.7）

������� �����������	 J ȠʿŇ ŏǋȋy¿Ñ¤ÍÆ}ǅ^Ƽ JȄĵ āƂƲĮŗŠȀŴŠʕʬǥʬŝŴŠȖ
åŇ\ˁŇzoruʼƶĈɢȦ¦Ò¼ÊÔ®©ÅÊÐÔ©ÌÒȍȋwgo :=?=,9 zɢȦǛ¿Ñ¤ÍÆøƞǪɭƿgiʾǇʁ}ŗŠz[bɢȦǛ}ɰɃv~  ɡɫvƵZwd]œZu^u :=?=,9 ~ƈ]ɒ`yruXi]ʼ¦Ò¼ÊÔ®©ÅÊÐÔ©ÌÒ}ė
ʙv~ :=?=,9 }Ƽ]ɋ`úuXiʾd~ʼ:=?=,9 ]ȖŠƣɖɢȦȃɡɫwguȉŰ
gu^o}vʼƶĈɢȦzÿĝyǅƀ]ŖƶƭȃfuX\viʾûZʼəȰƶɢȦɕęɢȦyx~ƸǪzȵʀuX}vȪįzǅ`dw]v^iʾ
:=?=,9 ~ʼƳǺʘ|uʼƶĈɢȦȃwgu\yʋpɡɫzyruX}vi]ʼǠĸ}ʝXɡɫvWoʼĶX¹ÔªÌÒw}âưƖĂsozɎŸȾXƸǪõȬzyruXiʾûZʼ³½Ï´v~ŔƶŦɡgy`u\yXoʼŔƶľǅ^ʠʐZow^zȉɛi}]ʫg`ʼƕ{ÍÔƁ^ɷdiķɈƖ]Wiʾd\¿Ñ¤ÍÅÒ¤Ŝyʼd}WoɆƜgoǅ^ƼɞZ^viʾmm¦Ò¼ÊÔ®~ɢȦiǛǓzi_kʾm}ĩø~ďuƟS¿Ñ¤ÍÄÔ]ɵîruƨţgybyyX}viʾʅzɡZʼ¦Ò¼ÊÔ®}ĒʕǖʉȀɠgu¿Ñ¤ÍÆǅbʼĨǽ]±¿guʼʷʈzɢȦfkdw]v^iʾǋțv~ʼ¦Ò¼ÊÔ®}Ēʕǖʉ}ɧãZy]ʼĨǽ]ɋ`uÍÔɛsbiXʼ
L«ÄÔ´yM:=?=,9 ¿Ñ¤ÍÆ}ǅ^ƼɭƿgiʾƐjgǋț}ɭƿʇzǅ`Ɛɚ~yXʕėWi]ʼmYXroʕė~¿Ñ¤ÍÆ]ʝ`yzsuƍĝȌ]Ǿ}vʼ
ǙȐkjzǅ`dw[Īgiʾ��	  ������ ������� ��	
 :=?=,9 ~ ʼ ɢ Ȧ Ǜ } Ǡ ĸ v X Z  ʼ m } Ě ǉ z ʟ ȉ f  o ȅ ȼ W  ɡ ɫ v ʼL $%8@7,
'%#>7,?4:9M]ɫǲviʾƆĚ\ƶĈɢȦȃɡɫwguʟȉfu[ʼȡɇ]ɢȦǛĝȃgŜo  źġz~ʼƶĈɢȦiwXZʼ wx] :=?=,9 pro}viʾg\gʼʅzd}dw] :=?=,9ʁt^z`X}zgoYviʾylyʼƶĈɢȦzǻīiwX
Ydw~ËÔ¨Ô}ūʞėʙ]ʤwXYdwvWʼm}ȷǏ¦ÒºÍ}ĈǢ]WØ]jʼǥɽzúYdw]v^y\ro\viʾº­¦Ò}ĖǾwwzǂĲgo  ɡɫ~ʼɪȂǁǵ\Ǥɾȋšþzüȸfʼd]ż`úuXȀȅ}Õsviʾ ɡɫ~mm
 $& ɣʃiozʟȉfoɡɫy}vɢȦǛ}¸Ôµũ}ǅƀ]Ŗ`ʼƐjgĚƏɇĿ^}ɡɫpw~ƕZyX}vi]ʼ¿Ñ¤ÍÅÒ¤}ūʞŧ\i :=?=,9   ɡɫŗguŔyX}vʼšXƼz©½´go}~WƙłƌyXdwpwƕXiʾ:=?=,9 ~  źzȤţfo :=?=,9 Œzŗ^`Ŕɳggo)*ʾʖęǴȦyx}ƻ
gXǛɈŬĎiwĽǁzʼʟȉƆĚ}ɢȦǛȁŒzğȭƁ^jruXoǅƀ]ȾŅfuǾéȋyǅƀvǅbYzygoʾûZʼmv~ʿɕz  ƸŞvg\ǅby
Xw\ʼǤɾɣĺwgu}L˅ML˃M]úZy\rogo}vi]ʼ:=?=,9 \  ɕzöƸŞǅXuɋ`yrogʼŗŭɣĺúZYzygoʾ:=?=,9 ~m}ƊƳǺ
ʘ|ʼǾŋ}ǇƻǺ~ :=?=,9  y}vi]ʼƶĈɢȦpbyǻzƻgXƸǪ~ƐɚyX}vʼǋțv~ :=?=,9 ÐÀÏ}ƸǪvɭƿgiʾfuʼ:=?=,9 ]úXi`yro}wǁǉĽh`guʼǶƹ} $& vW !49@C  =00&— 28 —

SENAC Vol. 45, No. 3（2012.7）]ǂĲgŜʼd} $& zǈƑ]ʟȉgoǶƹ} :=?=,9ʹ2ʼ21:=?=,9 yxʺ]èűiYzygoʾd}oʼ!49@C yxÒ«´ÔÏiʼº­¦Òv :=?=,9]Ƕƹvú
Ziʾd}½ÎÔ} :=?=,9 ~ (49/:B>  ",.$& ×vĩøi}øuXuʼÒ®Ô·±´\¯ÒÑÔµguúYdw]v^iʾƶĈɢȦ¿Ñ¤ÍÆǅ`z~ :=?=,9}Ƽ
]ǅ^iXgʼŢƞgo¿Ñ¤ÍÆm}ŗōɢȦǛvʷʈzťɕfkdwķɈviʾ
ddv~ʼ:=?=,9 vǅXo¿Ñ¤ÍÆ 21:=?=,9 úruº­¦Ò×vťɕfkƼǪzsXuȳægiʾjʼ:=?=,9 ¿Ñ¤ÍÆøƞiǁ~ʼ½Ïľ}ǇƊzL 1 MwXYƦƄŝèbiʾsʼLƸŞę 1 MwXYľġzgiʾøƞgo¿Ñ¤ÍÆ½ÏɢȦǛvťɕfkz~ʼ¦Ò¼ÊÔ®]ȎƮɠʗv^ǛǓɫ}Ʌɤʹ¦ÒºÏʺwÍ
¾ÍÎ¿Ñ¤ÍÆw}ȷļʹÎÒ£ʺwXYás}ʍș]Ɛɚvi]ʼdťɕi}]21:=?=,9 ¦ÄÒµviʾ21:=?=,9 v¿Ñ¤ÍÆ¦ÒºÏiőļʼrwįȯz~ʼ21:=?=,9¿ Ñ ¤ Í Æ ½   Ï ľ wĎĤgiʹǇĚ}LM~¦ÄÒµ¿ÑÒ¿´y}vĎĤ~ÙɚviʺʾûZʼ?0>? 1
wXY½Ïľ}¿Ñ¤ÍÆ¦ÒºÏiz~ʼ21:=?=,9?0>? 1 wĎĤgiʾd}ǁʼ¦ÒºÏǁzƸǪÍÔyx]ɛs\wÍÔÇ±¬ÔªĖĤguȴßgiʾ21:=?=,9 ¦ÄÒµ~ʼ¦ÒºÏ]ƞĥiwƁ^ȺXuÎÒ£ɕXʼÎÒ£zƞĥiwʼL, :@?MwXYľġ}½ÏĖĤgiʾd]º­¦Òv¿Ñ¤ÍÆĩøfkdw]v^LťɕƇƀ½ÏMviʾÎÒ£zřƴiwʼ~ÍÔÇ±¬ÔªĖĤguȴßgi]ʼd}ǁ, :@?~øƞfkʾťɕƇƀ½Ï~ 21:=?=,9 wĽhÐÀÏ}¦ÄÒµvWʼ¿ÑÒ¿´}Ɗzʼ, :@?

}Yz½Ïƨţidwv¿Ñ¤ÍÆzǅ\oĩøĒŨ¦Ò¼ÊÔ®vťɕfk
dw]v^iʾë×] 21:=?=,9 ȃXorwįȯy¿Ñ¤ÍÆťɕv}Ǭvi]ʼ×ɣ}Yyįȯyńêv~ʼxy¿Ñ¤ÍÆ¦ÒºÏgu, :@?wXYĽhľġ}ťɕƇƀ½ÏzyrugXiʾoʼ:=?=,9¿Ñ¤ÍÆ~ɢȦʈž]ʘɚvi\ʼǇʒīgo¦ÒºÏɕruv^pbʷʈzťɕiƼ]ɋXvgYʾfzʼɢȦȫžɆZĆȫžťƶvɢȦi^y}vʼɉĩĆȫžī¿©ÌÒèĦidw[Īgiʾd}oʼ21:=?=,9 v¿Ñ¤ÍÆ¦ÒºÏÓÎÒ£iǁ~ǇôʤʼëØ}ØȽʕ}Yy¿©ÌÒèbdw[Īgiʾ21:=?=,9 $ 1/01,@7? =0,7 ?0>? 1  :=@9?0>?
ddvʼ
L $M
ʹŗƸŞ}Ôʺ]Ǉʒī}¿©ÌÒʼ
L 1/01,@7? =0,7 M]ɉĩĆȫžī}
¿©ÌÒviʾoʼL :MʹŭƸŞ}Ôʺ}¿©ÌÒ}ǝ}ƸŞęʹd}ûv~ =@9?0>?ʺ
]ʼťɕƇƀ½Ïľ}ƨţviʾd}ûv~ʼ¦ÒºÏwÎÒ£]ǟŷzȴßiwʼ
L=@9?0>?MwXYťɕƇƀ½Ï]øƞfiʾruʼ¿Ñ¤ÍÆ}ťɕ~ʼ=@9?0>?

wyiʾ

1§¹Ô§Ò«¬Ò®Ô}¦ÒºÍ f95, sxf90 v~¦ÒºÏ¿©ÌÒ]Ȉyiʾʹ¬Ò®Ô¾§´ıǸʺFortran スマートプログラミング —第１回

基本的なプログラムの書き方—— 29 —

��メインプログラムの開始と終了	
 ¿Ñ¤ÍÆw~¦Ò¼ÊÔ®}ĩøƨȓʹńêʺɣʃgoƸ}ʩviʾťɕƇƀ¦ÄÒµĎĤiwʼ¦Ò¼ÊÔ®~ʼ ťɕʟŜ O ¿Ñ¤ÍÆzɣʃfońêʱzťɕ O ťɕȴß
wXY«²±¿vĩøgiʾťɕʟŜgoǁzǇĚzťɕiʕėLÇÒ¿Ñ¤ÍÆM
wXXiʾɡ¿Ñ¤ÍÆ}ǋõviʾ¿Ñ¤ÍÆz~ʼç}¿Ñ¤ÍÆ}Ý\ťɕʟŜƨȓgum}ǛɈĝȃiL§¾ÏÔ°ÒM]Wi]ʼdzsXu~ǝŇɭƿgiʾ:=?=,9 v~ǻĜyơȺ^kjz¿Ñ¤ÍÆǅ`wm]ÇÒ¿Ñ¤ÍÆwìţfiʾg\gʼmv~§¾ÏÔ°ÒwĬĜgz`X}vʼ;=:2=,8 ƸȃXuǇĚz¿Ñ¤ÍÆ}ľġǅ^iʾ
;=:2=,8¿ Ñ ¤ Í Æ ľ ÇÒ¿Ñ¤ÍÆ}ȴß~ 09/;=:2=,8 Ƹvƨţgiʾd}oʼÇÒ¿Ñ¤ÍÆ~ǝ}Yyǖʉzyiʾ;=:2=,8.:/0+9,80






09/;=:2=,8.:/0+9,80
d}û}Yz¿Ñ¤ÍÆľz~Ò¯Ô«¦ʹ+ʺúZ}vʼd«ÁÔ«}é
zúZįɫsyXpʝX¿Ñ¤ÍÆľèbdwv^iʾ;=:2=,8 Ƹw 09/;=:2=,8 Ƹ}ʠz :=?=,9 }ƸǪzƋroƸÜuĩøfkoXɢȦơʱɣʃgiʾĩøơʱɣʃiƸLťɕƸMwXXiʾg\gʼ¿Ñ¤ÍÆzɣʃi}~ťɕƸpbv~WkʾɢȦʆÝvƐɚwyŔƶʲŎȒĂio}ŦɡƸǅ\|ykʾd}YyɢȦĩøzȎƮƱyXƸLʭťɕƸMwXXiʾ:=?=,9v~ʼʭťɕƸ¿Ñ¤ÍÆ}ǇĚzʩȭguʼťɕƸ~m}Ɗzǅ^iʾd}oʼĩø}ʟŜ~ ;=:2=,8 Ƹ}ǝ}Ƹv~y`ʼǇĚ}ťɕƸzyiʾŢȷgoÇÒ¿Ñ¤ÍÆ}Õûȓgiʾ;=:2=,8?0>?+.:/0
48;74.4?9:90
=0,7C D EC
D 
ECD ;=49? C D;=49? KEK E
09/;=:2=,8?0>?+.:/0d}¿Ñ¤ÍÆz[bťɕƸÓʭťɕƸ}ĬėwʼĩøʟŜ\ȴßv}ťɕ}ǬŉʿzȓgiʾťɕƇƀ}¦ÄÒµĎĤiwʼǇĚ}ťɕƸ\ĩøʟŜgʼ×\ʱzÕɕjsťɕfʼ09/;=:2=,8 ƸzĞʏgoǢʧv¿Ñ¤ÍÆ}ĩø]ȴßgiʾƊvʃ/: Ƹúroɀʂgʼ41 Ƹzǌíėųyxʼĩøƨţzru~Ơţ}óɁz¹±£goʼǌízƓhuťɕi\xY\}ʓƥ]v^i]ʼmvmn}Ƹ]ȴßgoƊ
zǝ}Ƹ]ťɕfwXYŏǋȋĩø~Ŕkʾd~ɢȦǛ]ÕŇzÕs}ĩøg\v^yXoviʾ¿Ñ¤ÍÆďõɛǰguťɕi}v~y`ʼÕɕÕɕʱzťɕguX`}vʼ¹±£iYyĩøƨţgyXʤʼØƼ

— 30 —

SENAC Vol. 45, No. 3（2012.7）

zǅXoťɕƸ~×ƼzƈʯĲgkʾ¿Ñ¤ÍÆ~d}dwŷzƔʳzɁXuǅ\ybykʾ

メインプログラム

実行開始

プログラム領域

実行の流れ
実行終了

program test_code
implicit none
real x,y,z
x = 5
y = 100z = x + y*100
print *,x,y
print *,’z =’,z
end program test_code

非実行文
実行文


ŉʿʾ¿Ñ¤ÍÆʟŜ\ȴßv}Ǭy[ʼ Ȩvʃ 41 ƸúruʼǌízruʆÝv¿Ñ¤ÍÆȴßiw^ʼǝŇ[ɧgi§¾ÏÔ°ÒĒv¿Ñ¤ÍÆȴßiw^z~ >?:; ƸȃXiʾ>?:; Ƹťɕiwʼm}ǁǵv¿Ñ¤ÍÆ]ȴßgiʾûZʼ;=:2=,817@4/+.:/0
48;74.4?9:90
=0,7C D
49?020=8 9
418 >?:;

09/;=:2=,817@4/+.:/0wǅbʼ8˃ }ǁz¿Ñ¤ÍÆ~ȴßgʼmëʣ~ťɕgkʾ2.	
 基本的なプログラム文	 2.�	  � � 文 � � � � � � 	 ťɕƸz~ʼ>?:; Ƹ}YzŷzĽhĩøƨȓiƸwʼX`s\}LƶĈMñruʼm}ƶĈzƓhoĩøƨȓiƸw]Wiʾ¿Ñ¤ÍÆÝvLƶĈMÚZƼǪ~ˁȚʵWiʾ  w\   }YyƶŞȎƮǅ`LţƶMʼC w\ D=E }YyįɫvȓgoLŔ
ƶMʼ[múru C  >49D }YyɢȦơʱɗgoLɢȦƀMviʾɢȦƀzǅ\uXơʱɢȦǛ}ĩøy}vi]ʼ¿Ñ¤ÍÆz[Xu}ɢȦƀ~ʼm}ɢȦȷǏĩøńêzÚZLƶĈMwguóɁtbuXiʾd}oʼɢȦƀǅXopbv~
ťɕƸzykʾ¿Ñ¤ÍÆvǇɋ`úYťɕƸ~LéĎƸMviʾd~ʼŔ ƶ ɢ Ȧ ƀ wXYƇguXiʾɢȦƀ}ézʼţƶŔƶǅ`dwv^iʾ¿Ñ¤ÍÆz[bLŔƶMw~¦Ò¼ÊÔ®}ÇÈÎʲŎ}dwvʼƶĈĎȧpwɆXXvgYʾéĎƸ~Ĺɿ}LƶĈMŵɿvȓgoŔƶÇÈÎzǑȮiĩøɗgiʾruʼɢ Ȧ ƀ ɢ Ȧ ƀ    d  ~  Í Ô wXYƇ~úZkʾ:=?=,9 z[XuL˄MwXYɣĺ~ʼLŵɿwĹɿ]ȢgXMwXYƙ
łv~yX\viʾûZʼFortran スマートプログラミング —第１回

基本的なプログラムの書き方—— 31 —C
D C
DD
}Yy¿Ñ¤ÍÆɆZugYʾ¿Ñ¤ÍÆ~×\ʱzťɕf}vʼj  }ȷǏvW  ]Ŕƶ C zéĎfiʾǝzʼ \Ŕƶ C zĂşfuXƶĈƁXoĈ]Ŕƶ D zéĎf}vʼD z~  ]éĎfiʾǇƊ}Ƹ~ƶŠ}ȢƀwɛŔvi]ʼ
¦ÔÏ]LéĎiMĩøpwȀɠv^ǻzÙƕɲyƸv~WkʾD ~m}ġ}Ƹ
v  ]éĎfuXi\ʼǇƊ}ƸzruŔƶ D z D }ȷǏvW  ]éĎfiʾ
:=?=,9 z[bŏǋǴȦ}ǅ^ƼwúXƼɗʿzȓgiʾǴȦɣĺɗʿʾǴȦɣĺ}ǅ^ƼwúXƼǴȦ}ƙł
úȃû
úȃû}ƙł



ɺgȦ

CD

CʻD



Ɓ^Ȧ

C D

CʽD



ƬbȦ

CD

CGD



ģȦ

C D

CHD



^Þ

CD

C D


Ä¶«ɣĺʹ ʺ~ C }YzįʰǴȦwguúZiʾd}ǴȦz~ëØ}YyĊČʱó]WʼĊČʱó}ʷXƼ]ôXƼČzɢȦfiʾ ^ Þ ˅  Ƭ b Ȧ  o ~ ģ  Ȧ  ˅  ɺ g Ȧ  o ~ Ɓ ^ Ȧ ƬbȦwģȦ}YyĽÐÀÏ}ǴȦ~ŵ\ʱzɢȦfiʾfzʼ\rdúZ\rd}Ý]ĊČȋzɢȦfiʾ2.2	  � � � � 	 ¦Ò¼ÊÔ®wXYǛǓ]ĴƢYƶĈ~  ʋƶvɗfuXuʼŏǋȋz~ƷƶviʾûZʼ-D?0 }ƶ~ʼ-4?ʼs \  }xq\ʓƥv^ƶ]  ąÜp}y}vʼʋƶv~ ˉ ʹʺv}Ʒƶɗidw]v^iʾ:=?=,9 v~ŭƶǵ}yXƶŞʼw\  yx}ƶŞLƷƶōMwXXiʾ:=?=,9 }Ʒƶōƶ~ -D?0ʹ-4?ʺvɗǾfuXuʼ V  }ƷƶĈƢYdw]v^iʾ
g\gʼƶĈɢȦ©ÅÊÐÔ©ÌÒiőļz~ʼ  }YzŭƶǵëØŁpʼG  w\ʼ G  w\XroǗSy«¥ÔÏ}ƶĈĴƢYoʼƷƶōpbv~Ùÿ
viʾǻzʼƷƶōƶ~ŭƶǵëØ}ɗǾ]v^yX}vʼģȦiwďuĘƫuzyiʾdƒu¿Ñ¤ÍÆǅ`wʼ`ʠʐXɷdgiʾûZʼC 
DC ? DCwǅ`wʼCʼDʼE ~X`szywƕXi\ˆȣZ~ CʼDʼ? viʾd~Ʒƶ}ģ
Ȧ]Ęƫuzyoʼ Oʼ Oʼ O zy\viʾ
mdvʼƷƶō}çzʼ  }YyŮƶǵëØŁpʼ G  }YyʼAG B w
XYƇƀ}ƶĈĴƢYdw]v^iʾdLťƶōMwXXʼA }ʕėLìƶʕMʼB}ʕėLƨƶʕMwXXiʾʇŷʼƶĈɢȦ~ťƶōvɢȦgybykʾťƶōz~ǈĨƶŞ}ʐY  Țʵ]ȃƙfuXiʾįȫžťƶwĆȫžťƶviʾįȫžťƶw~ -D?0 vɗfťƶ}dwvʼìƶʕ}ǈĨƶŞ~  ǒșžviʾdzŪgʼĆȫžťƶw~ -D?0-4?vɗfťƶ}dwvʼìƶʕ}ǈĨƶŞ~  ǒșžviʾ ǒWņʴyXwƕ\gk]ʼöȊÖą}ƶŞ}ļɢɢȦgoʼǝƶ}ʷX

— 32 —

SENAC Vol. 45, No. 3（2012.7）

Ŗʰƀ}ɢȦiw^yxv~ʼɢȦŇƶ}œĦzsuǈĨǒƶ]ǯŮidwɆƜgybykʾd}oʼʇŷ~ĆȫžťƶvɢȦgiʾ:=?=,9 z[bŏǋȋyťƶō~įȫžvWʼĆȫžťƶōúȃiǁz~mƙɱgoǅƀvǅ\ybyyX}vi]ʼ21:=?=,9 }ɭƿvȓgoYzǇʁ}¦ÒºÍ~¿©ÌÒƨţi³½Ï´}ťƶĆȫžziLɉĩĆȫžīǛɈMƧruX}vʼǋțv~įȫžťƶwĆȫžťƶúXėbǅƀ}ɭƿ~ȏȆgʼįzLťƶōMwɗǾgiʾruʼǻzįȫžvɢȦiƐɚ]ybʼ¦ÒºÏǁzɉĩĆȫžī¿©ÌÒèĦguĆȫžvɢȦguØfXʾŖ`}ɢȦǛ~ĆȫžťƶɢȦʷʈvɕZ¸ÔµĒɑguX}vʼĆȫžɢȦguf xťɕʈž~Ø]kʾ¿Ñ¤ÍÆ×vʼƷƶō}ţƶwťƶō}ţƶ~ŭƶǵ}ǈǶvĬĜgiʾûZʼw\ʼ  wǅbƷƶōvi]ʼ
w\ʼ  w\ʼ w\ǅbťƶōzyiʾoʼ G ĎĤgoXǁz~ʼ 0 wǅ^iʾiyqʼAG B ~ A0B wǅ^
iʾB ]ɴ}őļv  0  }Yz 0 }ƊzȺbuǅ^iʾoʼ0 }Yz 0B èĦgoőļz~ŭƶǵ]Ƕ`uťƶōzyiʾûZʼ a = 3.141592 r2 + 3 x5 + 6.5×10−5 x −105 wXYƀ¿Ñ¤ÍÆvǅbëØ}Yzyiʾ, =

C 0 C 0

d}û}Yzʼ= w\ C }YzƷƶ^Þ}ƨƶ w\ z~ƷƶōúXiʾČ xƷƶōúroǉƉx[}ȷǏ]ĖyXûƩcgo]ʼëØ}YzťƶōúZǟgXȷǏ]ƌiʾ
C 
DC
 
D
 DC:=?=,9 }ÿĝyǛɈ}Õs~ʼəȰƶ]úZdwviʾəȰƶzįȫžəȰƶōwĆȫ
žəȰƶō]Wi]ʼdɉĩĆȫžīǛɈúZĽǁzŔǄv^}vʼǋțv~įzLəȰƶōMwɗǾgiʾəȰƶō}ţƶ~ʼ 0   0 }Yzʼ ą}ťƶ¦ÒÄvsyXvʼ\rdvňiʾġĭ]ťʕʼƊĭ]ɔʕviʾ
i ɗgoəȰƶōţƶviʾsd}û~ʼmnʼiʼ   G iʼ  y[ʼddvɮwƷƶō~Ɛɚ]yXwƕ\gk]ʼmYv~WkʾƊvɭƿiʖęɚȰƨţiƶ~ƷƶōvybyyXgʼ/: ƸvȃX Ò®ŔƶÒÓ½ɗipb}ŔƶyxLʱȇMLĬĜMȓiw^~ƷƶōȃXiʾoťƶ}ƷƶʕĴĖgoXw^ʼĢ÷ʹWʺɢȦiw^ƷƶōĝȃgiʾƶĈɢȦ¿Ñ¤ÍÆ}ÝvƷƶō}úXʎ~ŖX}viʾɢȦƀÝzȈyƶĈō]ǭŋgoǁ~ʼȫž}ʷXƼ}ōzļkuɢȦgʼm}ō}Ĉ]ȷǏzyiʾûZʼťƶōwƷƶō}ɢȦ~ƷƶōťƶōzŔưguťƶōwťƶō}ɢȦɕXʼťƶō}ȷǏzyiʾəȰƶōwťƶō}ɢȦ}őļz~m}ťƶōťʕwgoəȰƶōzguɢȦgʼȷǏ~əȰƶōzyiʾopgʼƬbȦwģȦ}ɢȦ~ŵ\ʱzɕY}vǫƙ]ƐɚviʾǇĚ}ƷƶōúroɢȦûvʼ? DC]zy}~ʼǇĚzɢȦf}]   wXYƷƶōHƷƶōp\viʾdʼFortran スマートプログラミング —第１回

基本的なプログラムの書き方—— 33 —?DC wǅbʼĘƫu~ɷdkʾ

2.3	  � � � � � 	 ǝzʼƶƀ}ɢȦȷǏĂşiŔƶ}úXƼɭƿgiʾŔƶ}ľġ~ʼʳƸŞ] ,ˉE}x\vWʼƊ~ ,ˉEʼ ˉ x}ǗyʱŽvÜo}vúZiʾûZʼ,-. w\ 6 CD Ȣviʾ:=?=,9 v~ŗƸŞwŭƸŞĬĜgyXoʼ,-. w  ~ĽhŔƶzyiʾŔƶzō]WʼɢȦȷǏzƓhoō}ŔƶúybǟȒzĂşidw]v^kʾd}Ŕƶ}ōǨƸLŦɡƸMwXXiʾōǨwĽǁzʼŔƶ}ÇÈÎʲŎȒĂgiʾd}oʼɢȦzȃXŔƶ~ďuŦɡgybykʾŦɡ~Õžg\v^jʼ¿Ñ¤ÍÆ}ťɕǁzŔǄidw~v^kʾŦɡƸ~ʭťɕƸviʾwd] :=?=,9 z~Lǃʸ}ŦɡM]Wʼʇŷ~Ŧɡgy`uƸǪȋyʠʐXzyyX}vʼ®¿Å«yxvƕ{ÍÔ]ȉȂiķɈƖ]Wiʾdʢaoʼ¿Ñ¤ÍÆ}ˀɕȍʼiyq ;=:2=,8 Ƹ}ǝ}ɕzƐjëØ} 48;74.4? ƸǅXu[^iʾ
48;74.4?9:90
d}Ƹ]WʼŦɡkjzúȃgoŔƶ]Ww¦ÒºÏÍÔzyʼ®¿Å«}°±£]v^iʾƶĈɢȦ~ŏǋȋzťƶvɕXi]ʼťƶōŔƶ~ǝ}YzŦɡgiʾ=0,7Ŕ ƶ ľ ʼ Ŕ ƶ ľ ʼdzŪgʼƷƶō}Ŕƶ~ʼǝ}YzŦɡgiʾ
49?020=Ŕ ƶ ľ ʼ Ŕ ƶ ľ ʼŦɡƸ~ʭťɕƸy}vʼďu}ťɕƸġzǅ\ybykʾ;=:2=,8?0>?
48;74.4?9:90
=0,7C D E :802, B,A0 ,=0,
49?020=4 6 9 4849 48,C 68,C
=0,7  49?020= Ȣ}ōŦɡƸ~öɕǅXuɋXgʼʱȇǶʡĀviʾ
:=?=,9 }ǃʸŦɡv~ʼŔƶľ}ʳƸŞ] ,ˉ3 w :ˉE }Ŕƶ~ťƶōvʼ4ˉ9 }Ŕƶ~Ʒƶōvgoʾd}oʼƷƶōŔƶ}ʳƸŞ 4ˉ9 ziɄƛ]WiʾďuŦɡië×ʼŏǋȋzŔƶľ}èbƼzğʤ~yX}vi]ʼƷƶō~ȃʆ]ʤuX}vʼʳƸŞʤţiƼ]ɋXwƕXiʾťƶōƶ}ľġ~WʳƸŞzdpƐɚ~Wk]ʼİĠwguƷƶōÇÔªi 4 5 6 7 8 9 }  ƸŞŔƶ~úyXƼ]ǶʫviʾəȰƶōŔƶ}ŦɡƸ~ʼ
.:8;70CŔ ƶ ľ ʼ Ŕ ƶ ľ ʼviʾəȰƶōȃʆ]ʤţfuX}vľġ}èbƼzɜĠsbƼ]ɋXvgYʾəȰƶōŔƶľ~ʼʳƸŞ . \ E zidw]ŖXYviʾ¿Ñ¤ÍÆz[XuʼƶĈŔƶzĂşiƙɃ~ŗĜguásWiʾÕs~¿Ñ¤ÍÆďŎzoruđʇgum}ĈĝȃiovWʼYÕs~ǼXȩňvɢȦȷǏÕǁȋzĂşioviʾd}ás~ƙɱguúXėbYzgiʾǻzʼġɇ}ŗŎȋzĝȃ
iŔƶz~ʝvƙł}Wľġèb^viʾd~ʼʿƸŞ}YyȑXŔƶľúYw¿Ñ¤ÍÆ]ʝ`yzsuxdvm}ŔƶúruX\ǔȱi}]ʫg`y\
viʾ
ŔƶzƶĈéĎiǁ~ʼĹɿ}ɢȦȷǏŵɿ}Ŕƶ}ōzŔưguéĎgiʾd}o— 34 —

SENAC Vol. 45, No. 3（2012.7）

ʼťƶ}ɢȦȷǏƷƶō}ŔƶzéĎiwŭƶǵëØ~ĘƫuiʾûZʼ=0,7C
49?020=9
C 9C
}ȷǏʼ9 zéĎfĈ~  viʾoʼəȰƶō}ɢȦȷǏťƶō}ŔƶzéĎiwʼm}əȰƶ}ťʕ]éĎfiʾûZʼ=0,7C.:8;70C.
.
 
C.
wiwʼC zyiʾʅzʼəȰƶō}Ŕƶzťƶō}ƶĈéĎiwʼťʕzȷǏ]éĎfʼɔʕ~ zyiʾûZʼ=0,7C.:8;70C.
C.C
wiwʼ.zyiʾ2.4	  � � � � 	 ƶĈɢȦ×`úYʡƶ~W\hȃƙfuXiʾdLȵʀʡƶMwXX
iʾéɗȋyƶŠʡƶɗˀzȓgiʾȵʀʡƶ~ōŦɡiƐɚ]WkʾoʼƁƶ}ōzƓhoȫžvɢȦiLȻȗľMǛɈ]W}vʼƁƶ C ]əȰƶōvúZiʾ
ɗˀ}ƐɚǌíwʡƶĈ}ȩň~Ɓƶ]ťƶō}őļviʾd}ƐɚǌíǱofyXťƶōƶ
ÚZwÍÔzyiʾg\gəȰƶōÚZoőļz~ƐjgÍÔzykʾȵʀʡƶɗˀʾƶŠʡƶ}ǅ^ƼwúXƼľ ȗƶŠȋɗǾ
Ɛɚǌí

ʡƶĈ f }ȩň><=?C

ŹƼǐ

x

CQ 



,->C

ȹŪĈ

x





>49C

ǟƃʡƶ

sin x





.:>C

÷ƃʡƶ

cos x 

?,9C

ǟƮʡƶ

tan x 

,>49Cʅǟƃʡƶ

sin−1 x 

PCP

I Pf PI ,.:>Cʅ÷ƃʡƶ

cos−1 x 

PCP

Pf PI,?,9CʅǟƮʡƶ

tan

−1

x



I Pf PI ,?,9D CʅǟƮʡƶ

−1( y x) I˃f PI0C;C

ƨƶʡƶ

7:2C
7:2 C

tan





ɉǷŪƶ

ex 
log e x 

C˅ 



ŷȃŪƶ

log10 x C˅ ʡƶ}Ɓƶz~ɢȦƀÚZdwķɈviʾd}ǁ~ʼɢȦƀ}ȷǏƁƶwgoʡƶĈzyiʾûZʼFortran スマートプログラミング —第１回

基本的なプログラムの書き方—— 35 —.>49 C ?,9 7:2C
}Yzǅ`dw]v^iʾLM~y[ʼ 2 ɢȦgo`uʼ><=?wǅ`w¦ÒºÏÍÔzyiʾylyʼƷƶō}ţƶvWʼƷƶōƶ}ŹƼǐ~ȃƙfuXyX\viʾƐj ><=? }Yzťƶōǅ\ybykʾ

2.5	  ����� � � � � � � � � 	 ƶĈɢȦȍȋwgo¿Ñ¤ÍÆv~ʼƌoɢȦȷǏʒŤɗȓgybykʾĎĖĤ}ɨȲzsXu~ǝŇɭƿgi]ʼǇôʤʼǘǳ½ÔÄ±´} ;=49? ƸúroƶĈ
ĖĤ~ɞZu[`Ɛɚ]Wiʾ;=49? Ƹ}ÕûëØzȓgiʾ
49?020=9
9
;=49?  9 9 9 d}Yzʼ
L;=49? MzȺXuŔƶɢȦƀ¦ÒÄvĬĘruʊ|wʼm}ɢȦȷǏ]ǙzÜvĖĤfiʾ×û}őļz~ʼ }ȷǏvW  \ 9  }ȷǏvW v]ëØ}YzĖĤfiʾ y[ʼL;=49? M}LM~ʼĖĤ½ÔÄ±´]ǘǳƇƀvWdwƙłguX}vi]ʼ
wWZj~Ƈƀȋzǅ`}pwɞZuØfXʾəƶ}ƶĈĖĤiw^zƶŞpbĖĤiwʼx]x}ƶĈ\ė\y`yķɈƖ]Wiʾd}Yyőļ~ʼƸŞęùȃguŔƶ}ƙłĽǁzĖĤgiʾ:=?=,9 z[bLƸŞęMw~ʼˀą}Ã«´Ñ½TUv~fpƸŞ}Ü}dwvʼ;=49? ƸÝ
vúZʼm}ƸŞ}Ü]m}ĖĤfiʾûZʼ=0,7CC
;=49? C C C C
wXY¿Ñ¤ÍÆ}ĖĤ~ʼ
C

C



wyiʾ

3. 配列	 3.�	  配 列 � � 	 ddvĖu^oŔƶ~ōzƓho  ą}ƶĈɣƝidwg\v^kvgoʾg\gʼƶĈɢȦ©ÅÊÐÔ©ÌÒv~ʼƶÖą}³Ô®ĂşgumnǌízƓhuŔīfk
uX`ʼyuXY}]Ɔoġ}YzɕiʾmdvʼƶŠv a1, a2, ... , an }YzŔƶzǮŞèbuĬĜiYzʼƶŞvĬĜgoŔƶødw]v^iʾdLʖęM
wXXiʾ
ʖę~Ŕƶ}ÕȚy}vʼōŦɡƸúruŦɡgu[\|ykʾįÕŔƶwȈy}~ʼŦɡǁzǮŞ}ȩňȓiƷƶĈèĦidwviʾûZʼǝ}YzŦɡgiʾ=0,7,  -
.:8;70C.49?
49?020=9:/0

 
 


ddvʼƶŞ]  ą}ʖę  ǝċʖęʼ ą}ʖę  ǝċʖęwXXiʾ ǝċë×}ʖ

— 36 —

SENAC Vol. 45, No. 3（2012.7）ęødwv^iʾʖę}ľġ}èbƼʼʳƸŞ}ʓƥyx}İĠ~įÕŔƶľ}èbƼ
wĽhzgiʾŦɡgoʖę}Ļʕ}ľȗ~ǝ}ʇviʾûZʼ=0,7, wŦɡgoʿǝċʖęzsXuʼ, ~ʖęďõɗiLʖęľMʼ,wǅ`wmn}ÇÈÎȓiLʖęɚȰMʼ\rdĒ}ƶŞ~LɚȰȇĺMw\LǮŞMviʾ
ʖęŦɡvƨţgoƶĈ~ɚȰȇĺ}ǇŗĈɗgʼɚȰȇĺ}úȃķɈȩň~  \ƨţgoǇŗĈvviʾûZ , }Ŧɡv~ ,\ , v}  ą}ʖęɚȰ]úȃķɈzyiʾoʼˀǝċë×}ʖę}őļz~Ļǝċew}ǇŗĈƨţguX}vʼ-  }Ŧɡv~ďʕv  G ˄ ą}ʖęɚȰ]úȃķɈzyiʾņʴzru~ʼɚȰȇĺwgu ɴƶúXoXǁ]Wiʾd}Yyǁz~LMʠzĎuʼúȃķɈyɚȰȇĺ}ǇŭĈwǇŗĈĽǁzƨţgiʾûZʼ=0,7,.  -.  wŦɡiwʼʿǝċʖę ,. ~ʼ,. \ ,.v}  ą]úȃķɈvWʼˀǝċʖę -.
~ʼ-. \ -.  v} GG ˄ ą]úȃķɈviʾ

3.2	
  � � � � � � � � � � � 	 ʖę~¦Ò¼ÊÔ®Ēʕz[XuʊȺgoÇÈÎʲŎvťǾfuXiʾûZʼ=0,7, wŦɡfoʖę~ʼŉˀŵ}Yzʼ, ,, }ʱvÜpťƶō}ÇÈÎviʾ

a

101:
102:
103:
104:
105:
106:
107:
108:
109:
110:

real a(10)real ac(-3:5)

内部メモリ

内部メモリ

a( 1)
a( 2)
a( 3)
a( 4)
a( 5)
a( 6)
a( 7)
a( 8)
a( 9)
a(10)

ac

....

201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
....

ac(-3)
ac(-2)
ac(-1)
ac( 0)
ac( 1)
ac( 2)
ac( 3)
ac( 4)
ac( 5)

ŉˀʾ ǝċʖę}ÇÈÎÜ
ŉ\ė\Yzʼ,w~ ,\ƶZu  ȇȍ}ÇÈÎ}dwviʾoʼ,}Yzȩňŕ}ɚȰȇĺƨţiwàǉk{ÍÔƁ^ɷdidw\iʾ, }Ŧ
ɡ~  ąg\ÇÈÎȒĂguXyX}vi\ʼȇȍ}ɚȰ ,]x}ÇÈÎȓi}\ÙƿpgʼmmşŋiwXYĂɥfZWkʾ
:=?=,9 v}ʖęľ~ʖęéɗiľȗvWwĽǁzʼʖę}ČʳÇÈÎȓgiʾowZʼʖęľ , ~ŉˀŵ}Yz ,ȓgiʾoʼ,. }YzǇŭĈƨţguŦɡgoőļz~ʼŉˀĹ}YzÜvXuʼʖęľ ,. ~ ,. ȓgiʾʖęľ]ČʳɚȰȓidw~ʖę§¾ÏÔ°Ò}ƁƶwguÚZǁzƙɱiƐɚ]Wiʾˀǝċë×}ʖę}őļ~ʼŵ}Ƽ}ɚȰȇĺ\ČzʋYzÇÈÎ×vÜvXiʾûZʼ
=0,7- wŦɡgoőļʼÇÈÎ×v}Ü~ŉˁ}Yzyiʾˀǝċë×}ʖęʖęľ~ČʳɚȰȓguXiʾFortran スマートプログラミング —第１回

基本的なプログラムの書き方—— 37 —

real b(3,2)
内部メモリ
b

301:
302:
303:
304:
305:
306:
307:
....

b(1,1)b(2,1)b(3,1)b(1,2)b(2,2)b(3,2)

ŉˁʾ ǝċʖę}ÇÈÎÜˀǝċwˁǝċ}ʖę}ÜƼƀvɗkʼ =0,7-8 9}ʖęŦɡv -4 5~Čʳ\ƶZu 485 ȇȍ =0,7-N 8 9}ʖęŦɡv -4 5 6~Čʳ\ƶZu 4N5 86 ȇȍ
wyiʾxq}ĐƀÕȇĹĉ}ɚȰƶ 9 zýşguXkʾÕɊȋzʼxyǝċ}ʖę}ĐƀÕȇĹĉ}ɚȰƶz~ýşgyX}viʾ

4. 手順の繰り返し −— do 文	 ťɕƸ~ŏǋȋz×\Øʱzťɕfi]ʼmpbv~ʵògoơʱɀʂiǁzʼƐɚyŇƶpbĽhƸǅ\|ykʾmdvʼWȩň}ơʱƐɚyŇƶpbɀʂgɕkơǢwgu /: Ƹ]Wiʾ/: ƸúYǁ}ŏǋƇ~ʼ/:Ʒ ƶ ō Ŕ ƶ Ě ǉ Ĉ ȴ ß Ĉ 




09//:
viʾǇĚ} /: }ɕ] /: Ƹvʼ/: ƸwǇƊ} 09//: ƸvȩňƨţfoÕʊ}ťɕƸ]ɀ
ʂgťɕfiʾd}ȩňL/: ¾Ñ±£MwXXiʾoʼ¿Ñ¤ÍÆ}Ǭ]ƎȁiwXYƙłvL/: ÏÔ¿MwXXiʾ/: Ƹ}ƷƶōŔƶL Ò®ŔƶMwŃiʾ/:¾Ñ±£}ɀʂg~ʼ Ò®ŔƶzLĚǉĈMéĎidw\ʟŜgʼ/: ¾Ñ±£Ē}ơʱÕŇťɕiewz Ò®Ŕƶ  œĦgiʾmguʼ Ò®Ŕƶ]LȴßĈMŗ^`yroǁǵvɀʂg~ȴßgʼ09//: Ƹ}ǝ}Ƹzťɕ]ȘiʾûZʼ/:8  ,88
09//:
wǅbʼ,ˉ, v}ʖęɚȰzʼˉ v}ƶĈ]mnéĎfiʾ/: Ƹz[bʼL Ò®Ŕƶ˅ȴßĈM}ěţ~ /: ¾Ñ±£}ʟŜǁzɕYoʼĚǉĈ]ȴßĈŗ^Xőļz~¾Ñ±£Ēʕ]Õžťɕfjz 09//: Ƹ}ǝzťɕ]Șiʾǝ} /: Ƹ}YzʼƷƶĈYÕsʄĦidwvœĦʚƨţidwv^iʾ/:Ʒ ƶ ō Ŕ ƶ Ě ǉ Ĉ ȴ ß Ĉ œ ė Ĉ 




09//:
d}w^

Ò®Ŕƶ~ĚǉĈ\ʟŜguʼLœėĈMjsœĦgy] /: ¾Ñ±£Ē}ơʱ— 38 —

SENAC Vol. 45, No. 3（2012.7）

ɀʂgʼL Ò®Ŕƶ˅ȴßĈM}ǁǵvȴßgiʾûZʼ8 ]  ëØ}Śƶ}ǁ}ɢȦgoXǁ~ʼ/:8 




09//:

wǅ^iʾd}ǁ}ȴßĈ~  vi]ʼ ~Śƶv~yX}vɢȦgkʾ
œėĈ~ɴƶƨţidwv^iʾɴƶ}ǁz~ Ò®Ŕƶ]ǯŮguX`}vʼ
LÒ®Ŕƶ˃ȴßĈMzyroǁǵvȴßgiʾûZʼ \ʱzØru  vɀʂi
ǁz~ëØ}Yzǅ^iʾ/:8  

09//:
œėĈ]ɴƶ}ǁz~ʼLĚǉĈ˃ȴßĈMy /: ¾Ñ±£Ēʕ~Õžťɕfkʾ/: Ƹ} Ò®ŔƶœĦi®ÅÒ¤~ʼ09//: Ƹ}ťɕǁviʾûZʼ/:8 ,88
09//:
wXYƸ~ʼ
8
ˇ 8˅  } ě ţ  i  ʾ Ǳ ɺ g y X } v ʼ /: ¾ Ñ ± £  ť ɕ ˈ ,88
88
ˇ 8˅  } ě ţ  i  ʾ Ǳ ɺ g y X } v ʼ /: ¾ Ñ ± £  ť ɕ ˈ ,88
88
ˇ 8˅  } ě ţ  i  ʾ Ǳ ɺ g y X } v ʼ /: ¾ Ñ ± £  ť ɕ ˈ ,88
88
ˇ8˅  } ě ţ  i  ʾ Ǳ ɺ i  } v ʼ /: ¾ Ñ ± £  ȴ ß ˈ wXYĩøzyiʾd}Űʟ\\Yzʼ/: ¾Ñ±£ȴßgoǁǵvʼ Ò®Ŕƶz~ȴßĈŗ^XĈ]éĎfuXiʾ×ûv~ʼ/: ¾Ñ±£ȴßƊʼ8˄ viʾ/:¾Ñ±£ȴßǁ} 8 }Ĉĝȃiǁ~ʼd}dwɆƜgybykʾǝ}Yzʼ/: ¾Ñ±£}ÝzĜ} /: ¾Ñ±£Ďdwv^iʾopgʼ Ò®
Ŕƶ~Ȉy}úybykʾ/:6  ,66/:8  -8 68,6
.8 6-8 686
09//:
/6,6. 6
09//:


Fortran スマートプログラミング —第１回

基本的なプログラムの書き方—— 39 —

`úY}vɞZu[`wÿĝy}]ʼļɢɢȦi /: ƸviʾûZʼ9 ɚȰ}Õǝċʖęʼ, , ,9}ÝzƶĈ³Ô®]ĎruXőļʼd}ļɢǧz~ /:ƸúruëØ}Yzǅ^iʾ
>@8 /:8 9
>@8>@8,8
09//:
d}Ƹ]ļɢɢȦguXdwȀɠiz~ʼ~ëØ}YzơĩŰʟguwɋX
vgYʾ
>@8 8
>@8>@8,8
88
>@8>@8,8
88
>@8>@8,8
88
ddvěţƸ~ȏȆggoʾd}¿Ñ¤ÍÆvʘɚydw~ʼ/: ¾Ñ±£}ġvŔƶ >@8 zéĎguXdwviʾd]yXwǟgXȷǏ]ƌyXdw]Wiʾd}Yy¿Ñ¤ÍÆyv~}ǅ^Ƽ~º®ÔÒwguɞZu[`wɋXwƕXiʾ

5. 条件分岐 −— if 文	 ǌízƓhuȈyơʱɕkdwLǌíėųMwXXʼ41 Ƹúruƨţgiʾ
rwįȯzʼÕs}ǌízƓhuÕs}Ƹťɕi\gyX\Ǩpb}ǁ~įȯ 41ƸúXiʾįȯ 41 Ƹ~ëØ}Ƈƀviʾ
41ǌ í ť ɕ Ƹ 
įȯ 41 Ƹ~\rdĒ}LǌíM]Ǳɺfʼm}Ĺ}LťɕƸMťɕgʼǌí]Ǳɺf
ybögyXvǝ}ƸťɕgiʾûZʼ,
414 , -,
wǅ`wʼ4˃ }őļz~ , wyʼmëŕ~ , }y}vʼmzƓhu - zéĎfĈ]Ȉyiʾ
g\gįȯ 41 Ƹz~ťɕƸ]Õsg\ǅbyX}vʼťɕgoXƸ]əƶWw^z~úZkʾoʼǌízļroǁ}ĩøƨţg\v^yX}vʼļy\roǁ}ĩøĜzƨţg
oXǁz~Ùÿviʾ
mdvʼʇŷ~įȯ 41 Ƹv~y`ʼ¾Ñ±£ 41 ƸúXiʾ¾Ñ±£ 41 Ƹw~ʼ41 Ƹ}LťɕƸM}wd ?309 zgoƸ}dwvʼëØ}Yz¾Ñ±£ 41 Ƹw 09/41 ƸvÕʊ}ťɕƸ}ȩňƨţgiʾ41ǌ í ?309




09/41

— 40 —

SENAC Vol. 45, No. 3（2012.7）d}ƨţfoȩň 41 ¾Ñ±£wXXʼ¾Ñ±£ 41 Ƹzǅ\oǌíǱɺgoǁ}ʼ41¾Ñ±£Ē}ťɕƸ]ťɕfiʾûZʼ,
-
414 ?309
, 
-
09/41
.,-wǅ`wʼ4˃ }őļz~ , ʼ- }éĎƸťɕgu\ .,- ɢȦgi]ʼmëŕʼiyq 4Q }őļz~ 41 ¾Ñ±£ĒťɕgyX}vʼ,  - Ŕīkjʼ,ʼ- }v .,- ɢȦgiʾfuʼd}ûv~ʼ4˃ wXYǌíǱɺgyXw^z~ʼW\h ,ʼ- wXYéĎ
iƐɚ]Wkʾd}YzLǌíǱɺgyXw^MzĜ}ĩøfkoXw^z~
41 ¾Ñ±£Ēz 07>0 ƸƪĎgiʾ07>0 ƸƪĎiwʼ¾Ñ±£ 41 ƸvƨţgoǌíǱɺgyXőļzʼ07>0 Ƹ\ 09/41 Ƹv}ťɕƸ]ťɕfiʾûZ×ɣ}¿Ñ¤ÍÆ~ʼ
414 ?309
, 
-
07>0
,
-
09/41
.,-wǅ`dw]v^iʾd}őļʼ4˃ }őļz~ , ʼ- ťɕgʼLmëŕ}őļMz
~ ,ʼ- ťɕgiʾoʼǌíǱɺgyXőļzʼfzĜ}ǌíƨţgoXw^z~ 07>041 ƸúXiʾ
07>041 Ƹǌí~\rdvƨţgʼm}Ɗz ?309 ǅ^iʾ414 ?309
, 
-
07>0414?309
,
-
07>0
,
-
09/41
.,-
d}őļʼ4˃ }őļz~ , ʼ- ťɕʼ P4˃ }őļz~ ,ʼ- ťɕgʼmëŕ
ʹ4Qʺ}őļ~ ,ʼ- ťɕʼwyiʾ07>041 Ƹzƻoyǌí~ 41 ¾Ñ±£ĒzX`sĎu\Xkʾm}őļ~ʼ
Lm} 07>041 Ƹëġ}ǌíďuǱɺgyX
őļzʼm}ǌíǱɺiMwXYƙłzyiʾdzŪgʼ07>0 Ƹ~ǇƊ}ÕŇg\úZkʾ
ƶĈɢȦv`úYéɗȋyǤɾǌí}ǅ^ƼɗˁzȓgiʾFortran スマートプログラミング —第１回

基本的なプログラムの書き方— 41 ——

ɗˁʾǤɾǌí}ǅ^ƼǤɾǌíɣĺúȃûɣĺ}ƙł

C ŵɿwĹɿ]ȢgXw^ŵɿwĹɿ]Ȣg`yXw^C  D ŵɿ]Ĺɿŗ^Xw^Cŵɿ]Ĺɿë×}w^

C, ŵɿ]ĹɿŭfXw^>49C ŵɿ]ĹɿëØ}w^

?,9C7:2Dúȃû}YzʼǤɾǌíƨţiőļz~ÛɿxqzɢȦƀǅ`dw]ķɈviʾfzɗ˂}ɯȀǴȦɣĺúZʼd}ǌíɯȀȋzsyXpǌíʼŀţgoǌí
ÚZdwv^iʾɗ˂ʾɯȀƀ}ǅ^ƼɯȀǴȦɣĺǴȦ}ƙł

úȃû

LǌíʿM ,9/ LǌíˀM

LǌíʿM\sLǌíˀM}w^C  ,9/ C 

LǌíʿM := LǌíˀM LǌíʿMo~LǌíˀM}w^
9:? LǌíMûZʼ

LǌíMǱɺgyXw^C  := D 
9:? C  ,9/ D 

414  ,9/ 4?309
,

07>0
,

09/41
wǅ`wʼ4 ] ŗ^`L\sM ëØ}ǁʼiyqʼ ˃4P }w^z , ʼmëŕ~, wyiʾy[ʼǙȐgud} 41 Ƹʼ41 4?309d  ~  Í Ô wǅ`dw~v^yX}vǫƙggYʾ

6. 無条件ジャンプ −— goto 文，exit 文，cycle 文	 ¿Ñ¤ÍÆwXY}~ŏǋȋz×\ʱȇzťɕguX`}viʾ/: ƸúZʼ/: ¾Ñ±£vƨţgoȩň}ťɕƸƠţ}Ňƶɀʂidw]v^i]ʼɀʂiȩň~ŊţfuXgʼɀʂgȴßiǌí~ Ò®Ŕƶ}œĦvǨiʾdzŪgʼÕɊȋz¿Ñ¤ÍÆ}ǬŔZoXǁʼûZʆÝvɢȦÝƺgu¿Ñ¤ÍÆ}ǇĚ\Ȏiʼw\ʼǇƊ}ƸzÕǥzȘĩguȴßiʼw\XYǁz~ 2:?:ƸúXiʾ2:?: ƸúZƨţgoɕƅğȋzȘĩidw]v^iʾɢȦǛȋz~ʼdLªÉÒ¿iMwXXiʾ2:?: Ƹw~ëØ}Yyʼ2:?: }ƊzƷƶĈƨţgoƇ
}Ƹviʾ
2:?:Ʒ ƶ Ĉ d} 2:?: }Ɗ}ƷƶĈ]x}ɕzªÉÒ¿i\ƨţio}ƶĈvʼLƸȇĺMwŃuXiʾƸȇĺ~ªÉÒ¿Č}ɕzǅ\oťɕƸ}ġzʼ«ÁÔ«  ąë×ȝbuǅ^iʾûZʼ

— 42 —

SENAC Vol. 45, No. 3（2012.7）./ 
2:?:
./ ,- 
45
,-wǅ^iʾǇƊ}ɕv ,-}ġ}  ]Ƹȇĺviʾd}ûv~ʼǇĚ} ./ }ťɕƊʼ./ \ 45 v}Ƹ~ťɕfjʼȎqz ,-]ťɕfiʾiyqʼ./ ʼ,- 
45 }Ƹ~ǅXuXyX}wȢþviʾd}YzǈǶXfjªÉÒ¿idwLǶǌíªÉÒ¿MwXXiʾ
2:?: Ƹv¹±£idwķɈviʾd}őļʼƨţgoƸȇĺ}ɕw 2:?: Ƹ}ʠ}ĩøɀʂgťɕgiʾ./ ,- ././,- 0101 
2:?:
45
rwʼd}ûv~Xsvoru 2:?: Ƹ}ǝ} 45 ~ťɕfkʾdYXY}~LǶʤÏÔ¿MwŃʼ¿Ñ¤ÍÆÍÔ}ÕsviʾɢȦȷǏzƓhuǌíėųgʼ2:?: ƸØ}ɕªÉÒ¿iĜ} 2:?: Ƹʼ¿Ñ¤ÍÆɉõȴßfk >?:; ƸƪĎgybʼ¿Ñ¤ÍÆ~Ǧʑzȴßgkʾ
Ƹȇĺ~ɕ}ƨţzúYpby}vʼʘəfZgybx}ɕzxyƶĈèbuɋX}vi]ʼy`Øzɕ` xŗ^`yYzƶĈʓiʾoʼƸȇĺǻţ}ťɕƸzèbwʼŔǄiǁzèbǆZ]ʮćpwƕYǁz~ .:9?49@0 ƸƪĎgiʾ.:9?49@0
Ƹzĩø~Ƕ`ʼƸȇĺvóɁƨţiopbzȃXiʾûZʼ×ɣ}¿Ñ¤ÍÆ~ʼ./ .:9?49@0,- ././,- 0101 
2:?:
45
wȢþviʾ
2:?: Ƹ~ʼŖȃiw¿Ñ¤ÍÆ}Ǭ]\z``ygʼǶʤÏÔ¿zʦķɈƖW}vúȃ~v^pbʔb^viʾŏǋȋyɀʂgǌízƓhoªÉÒ¿~ /: ¾Ñ±£w 41 ¾Ñ±£v wxiuǅ`dw]v^iʾ/: ¾Ñ±£úruɀʂgɢȦiǁʼǌízruʆÝvɀʂgȴßgoXőļ]Wiʾd}őļʼİȀȋz~ 2:?: Ƹúybyk]ʼ2:?: Ƹ}úȃǕĤʔbwXYƼʛ\ 0C4? Ƹ]ȃƙfuXiʾûZʼ/:8 9
>@8>@8,8
41>@8 0C4?
09//:
>@8>@8 9}YzǅXo¿Ñ¤ÍÆ~ʼǝ} 2:?: Ƹúro¿Ñ¤ÍÆwĽhviʾFortran スマートプログラミング —第１回

基本的なプログラムの書き方—— 43 —/:8 9
>@8>@8,8
41>@8 2:?: 
09//:
 >@8>@8 9
iyqʼ0C4? Ƹťɕiw /: ¾Ñ±£}ŕzʶĖgu 09//: Ƹ}ȎƊ\ťɕʟŜgiʾy[ʼ/: ¾Ñ±£}Ý\ŕ}ªÉÒ¿~v^i]ʼŕ\ÝzĎªÉÒ¿~ȕǞfuXiʾ
opgʼ×ɣ}¿Ñ¤ÍÆŔǄguʼëØ}Yz 9 v~y`ʼ/: ¾Ñ±£ȴßgoǁǵ
} 8 vŹŌɢȦiǁz~ǫƙ]Ɛɚviʾ/:8 9
>@8>@8,8
41>@8 0C4?
09//:
>@8>@8 8ylyʼ8˄9 v /: ¾Ñ±£ťɕÝzʼ>@8˅ }ǌíǱɺgu /: ¾Ñ±£}ŕzĖoǁ
~ 8˄9 }vi]ʼǌíÕŇǱɺkjz /: ¾Ñ±£ȴßgoǁz~ 8˄9 zy\viʾƊɇ}őļɆƜgo¿Ñ¤ÍÆziz~ʼ/: ¾Ñ±£ȴßgoǁǵv 8˅9 \xY\ěţgʼƐɚzƓhu 8 Ąǟgybykʾ/: ¾Ñ±£}ʆÝvťɕÝƺgʼǡ}ʕė«¡±¿gu Ò®Ŕƶʋǁz~.D.70 ƸúXiʾûZʼ/:8 9
>@8>@8,8
41>@8 .D.70
>@8>@8
09//:
}YzǅXo¿Ñ¤ÍÆ~ʼǝ} 2:?: Ƹúro}wĽhviʾ/:8 9
>@8>@8,8
41>@8 2:?: 
>@8>@8 09//:
iyqʼ.D.70 Ƹťɕi}~ 09//: ƸzªÉÒ¿i}wȢþviʾ09//: ƸzªÉÒ¿iʼ Ò®Ŕƶ 8 œĦguʼ8˅9 \xY\°±£goƊʼǌíǱɺgybĔ/: ¾Ñ±£ǇĚ\ťɕidwzyiʾopgʼ.D.70 Ƹ~ /: ¾Ñ±£Ēʕ}ğƍy}vǝ}Yz 41 ¾Ñ±£úruĽhĩøfkdw]v^iʾ/:8 9
>@8>@8,8
41>@8 ?309
>@8>@809/41
09//:
d}Ƽ]ʼǌízƓhoĩøƿȓguXǵvɋXvgYʾ2:?: ƸŖȃgyXƼ]XʼwXYƙłļXwĽhvʼ.D.70 ƸúYw¿Ñ¤ÍÆ]\z``y}vWúyX

— 44 —

SENAC Vol. 45, No. 3（2012.7）

Ƽ]ɋXwƕXiʾy[ʼ/: ¾Ñ±£zɀʂg}ȴßʼ¾Ñ±£Ēʕ}ǌíėųpbvɕYőļz~Ò®Ŕƶǅ\yX /: ƸúYdw]v^iʾûZʼ/:
>@8>@8C41>@8 0C4?
C C 
09//:
wǅ`wʼ>@8 ]  ɸZvɢȦȺbiʾ Ò®Ŕƶyg} /: ¾Ñ±£~ǶʤÏÔ¿zybviʾǶʤÏÔ¿vi\ʼö\}ǌíėųzŕzĖɣʃ]yXwǦʑzǞyX}vǫƙguØfXʾ

7. プログラムのチューンアップ	 ɢȦʍș]əʪzyroŗʚ}³Ô®ĕȀiYzywʼƶƀįȯz¿Ñ¤ÍÆz
Ɂ^\Z}v~y`ʼɢȦǛ}ǻƖɆƜgo¿Ñ¤ÍÆzidwvɢȦĨǽȫžʷdw]v^iʾddv~ʼd}YyL«ÄÔ´yǅ^ƼMX`s\ȳægiʾ7.1	  � � の � � � � � � 	 ¦Ò¼ÊÔ®}ɢȦĩø~ ,- }YyĦȦ]ŏǋviʾ, - }YyǯȦ~ - ɴƶzŔưguĦȦipby}vĦȦwm xťɕǁʠ~Ŕk]ʼ,- }YyÞȦ~ĦȦ}ɀʂgĩøvi\ʼĦǯȦ\yʌXviʾ, - }YyʥȦzXoru~ʼǯȦ}ɀ
ʂgǌíè^vɕY}vʼfzǁʠ]\\iʾd}ǴȦʈž}Ǥɾǅbǝ}YzyiʾĦ ǯ Ȧ  R  Þ Ȧ  RR  ʥ Ȧ d}oʼģȦ]v^pbŮy`yYyɢȦơʱzgiʾûZʼC, - .wǅ`ʼ
C, -.
wǅ`Ƽ]ʈ`yiʾǇʁ}ɢȦǛ~\yʷʈzɢȦidw]v^}vʼƶŇ}ɢȦpbyd}Yyǅ^ưZ~Wƙł]Wk]ʼ/: ¾Ñ±£ĒvŗʚzĕȀiǁz~þĈ]Wiʾoʼ/: ¾Ñ±£ĒvöžĽhģȦiw^z~ʼʅƶƬbYzǅ^ưZwʈ
`yiʾûZʼ/:4 ,4-4 .
C4,4 
09//:
wǅ`ʼ
/./:4 ,4-4/C4,4 
09//:



Fortran スマートプログラミング —第１回

基本的なプログラムの書き方—— 45 —

wǅ`Ƽ]ʈ`yiʾrwʼ¿Ñ¤ÍÆ]\z``ywXYǜǵW}vʼģ
Ȧ}ȥƠ]Ůy`ʼɀʂgŇƶ]f xŖ`yXǁz~m xȔȶɶzŔƇiƐɚ~yXvgYʾ
^ÞȦ~rwʌX}vʼ Þ  Þșž}w^~ƬbȦziƼ]ʈ`yiʾûZʼC,-wǅ`ʼ
C,,---wǅ`Ƽ]ʈ`yiʾopgʼƨƶ]ŗ^Xw^z~ƙł]yXgʼ¿Ñ¤ÍÆ\z``y}vˁÞșžvvɋXwƕXiʾ^Þ}Ývʼ  Þzʡgu~ʼȵʀʡƶ ><=? ĝȃiƼ]ʈXviʾûZʼ
DC ED wǅ`ʼ
D><=?C
ED><=?Dwǅ`Ƽ]ʈ`yiʾ7.2	  � � � � � � � � � � 	 ŖʰƀɢȦiw^~ʼƬbȦ}Ňƶ]v^pbŮy`yYzɆZiʾÕɊȋzʼÕȇɋXɢȦơǪ~ 3:=90= ǪviʾûZʼy = a0 + a1 x + a2 x2 + a3 x3 + a4 x4 ʼÞȦƿȓgu¿Ñ¤ÍÆziwʼ
D, ,C,CC,CCC,CCCC}Yzyʼ Ň}ÞȦ]Ɛɚviʾwd]ʼdŔƇguʼD, ,,,,CCCCwǅbʼ Ň}ÞȦvɢȦv^iʾd] 3:=90= ǪviʾÕɊȋzʼ3:=90= Ǫ~ŮyXŖʰƀ}ɢȦzǈĨviʾg n ǝ}Ŗʰƀʼ}Āƶ]y = a0 + a1 x + a2 x2 ++ an x n 
z[XuʼĀƶ a0, a1, a2, ..., an ]ʼ,  , ,ǝ}Yy /: ƸúruɢȦidw]v^iʾ,9wXYʖęzĎruXőļz~ʼ

D,9/:49    
D,4CD
09//:

7.3	
  � � � � � � � � � � � 	
 /: ¾Ñ±£ĒʕvĽhɢȦɀʂiǁz~ʼW\hɢȦgu[^iʾûZʼ/:4 ,4-4.1
-4>49C,4
09//:

— 46 —

SENAC Vol. 45, No. 3（2012.7）

wǅ`wʼɀʂgewz .1  >49CɢȦidwzyi]ʼd~ /: ¾Ñ±£Ē
ʕv~ŔīgyX}vi\ʼW\hɢȦgu[`wʈ`yiʾûZʼ.1.1
>C>49C/:4 ,4-4.1
-4>C,4
09//:
}Yzǅ^ưZwʈ`yiʾ7.4	  �� � � � � � � � � � � � � 	 ʖęúroɀʂgɢȦiw^~ʼÇÈÎv^pbʊȺȋzɮǅ^iƼ]ʈ`yiʾd}oʼˀǝċë×}ʖęɢȦiw^z~ŵ}ɚȰ\ʱzʋYzg
iʾûZʼ
=0,7-  
49?020=8 9/:9  /:8  -8 989
09//:
09//:
}Yzʼˀǝċʖę -8 9zɢȦȷǏéĎiw^~ʼŵĉ}ɚȰ 8 zʡi /: ¾Ñ±£
Ĺĉ}ɚȰ 9 } /: ¾Ñ±£}ĒĉzƧru`Ƽ]ʷʈviʾd~ʼĒĉ} /: ¾Ñ±£}Ò®Ŕƶ]Čzʋ}vʼ-  -  - …}YzʼÇÈÎ}ÜvXʱzǑȮguX`\viʾdʼ=0,7-  
49?020=8 9/:8  /:9  -8 989
09//:
09//:
}Yzǅ`wʼ-  -  - …}YzʶʶzǑȮguX`}vĨǽ]Ɨ`yʼ«¼Ôµ¯Ògiʾ

7.5	  � � � � � � � � � 	 ťƶōƶ}ǈĨƶŞ~Ćȫžv  ǒșžviʾruʼĈ}Ʈʁgo  ą}ťƶ}Ɓ^Ȧ
iw^~ǥèbybykʾûZʼ


 





vi]ʼɢȦȷǏ ~ċ}  wǤwǈĨƶŞ]  ǒŮy`yruXiʾdLǒɐqMwXXiʾǒɐqiYyƁ^Ȧ~v^pbʔb|ykʾûZʼˀǝƼșƀ axbxc }ʿǐ~ 

x1 =−b + b2 − 4ac2avi]ʼb˅ \s bRFacF}ǁz~ʼb w b2 − 4ac ]Ȣg`y}vʼ−b + b2 − 4ac }Fortran スマートプログラミング —第１回

基本的なプログラムの書き方—— 47 —

ɢȦiwǒɐqiķɈƖ]Wiʾmdvd}ǐɢȦiǁ~ʼėŝ}ǈȀīgiʾiyqʼėǣėŝz −b− b2 − 4ac Ƭbwʼ

(−b + b − 4ac )(−b− b − 4ac ) =2cx =−b− b − 4ac2a(−b− b − 4ac )
2

1

2

2

2

wyi]ʼǇƊ}ĐƀúZǒɐqiƏʖ]Wkʾ ǐwɢȦiǁz~ʼ
ǐ}Ȝ] c/a vWdwĝȃguʼjǒɐqgyXƼ}ǐ x ɢȦgoƊvʼYÕƼ}ǐ c axvɢȦiwɋXvgYʾŗ^yƶzŭfXƶĦZwʼŭfXƶ]ǒɐqguƘŐ]řķɈƖ]WiʾûZʼʿǝċʖę ,4}ļɢ > ɢȦi¿Ñ¤ÍÆ~ʼ> 
/:4 9
 >>,4
09//:
vɋX}vi]ʼ,4]ďuǟƶvʼ9 ]ʭŷzŗ^Xőļz~ʼļɢ > ]ppŗ^`yruʼƊ}ƼvĦZo ,4}ƘŐ]řķɈƖ]WiʾĆȫžťƶúYdwƯśguXȀȅ}Õs]dviʾd}ǒɐqʢaz~ʼûZʼ ąjsĦZumĜ}ʖęzĎʼm}ƊmĽǗz  ąjsĦZuXruʼ wi}]ɋX}vi]ʼ¿Ñ¤ÍÆ]əʪzyrugXiʾws}ǤɾȋȪįyɠǨǪ~ʼɘħŔƶ = úruʼɬŶĜzɦþgu[`ƼǪvi)*ʾ
> 
= 
/:4 9
==,4
?>
>>=?> ?
== ?
09//:
d}ƼǪv~ʼǒɐqėŔƶ = zĂşguĜʆĦZ}vʼɢȦȫž]×]iʾĆȫžɢȦguXƐjgd}ƼǪziƐɚ~Wk]ʼȫž}ɋXļɢɢȦ]Ɛɚzyr
oǁ}ozɞZu[`wɋXƼǪviʾǒɐqgmYyƁ^Ȧ~ķɈyʤʔbYzgiʾûZʼŭfXǟƶ} /?4wXYʿǝċʖę]ÚZuXuʼd\ʼ?
/:4 9
?4?4 /?4
09//:
z ?4wXYʿǝċʖęørowgiʾd} ?4úru ?4 ?4 ?4 ?4 }Ĉ]Ɛɚyǁz~ʼ/?4Ăşgu[Xu /?4 /?4/?4 úruɦþi^viʾ

— 48 —

SENAC Vol. 45, No. 3（2012.7）

8. 読みやすいプログラムを書くには	 ddv~¿Ñ¤ÍÆɮi`io}»Ò´X`s\ȳægiʾ¿Ñ¤ÍÆ~ʼʿƸŞǅ^ʠʐZopbvȷǏ]ď`Ȉydw]Wʼǅ`dwɬ]yXdw°±£iƼ]ŗŔviʾLɮiX¿Ñ¤ÍÆMwXY}~ʼ°±£]giX¿Ñ¤ÍÆ}dwviʾɮi`ǅ`YzƏ]buXʼǅ^ʠʐXguǥ]s^iXgʼťɕǁzÍÔ]ĖuƾǉzʠʐruXȥƠȉɛidw]v^iʾëØ}»Ò´~¿Ñ¤ÍÅÒ¤}ĚƏɇz~m}ʘɚƖ]\jʼ
LȲ\Xdwp\ǶɝguXXMwƚh\gkʾg\gʼɮiX¿Ñ¤ÍÆzidw~ʼ¿Ñ¤ÍÆ]ʝ`y xƙɃ]
Ėigʼƛm x}ơʠv~Wkʾʮć]jzƏ]bgYʾ

8.1	
  � � � � � を � � � � � 	
 :=?=,9v~LM}ƊzȺ`ƸŞę~ďuǶɝfiʾiyqöǅXuťɕw~ǶʡĀviʾd¦ÇÒ´ƸwXXiʾ¦ÇÒ´ƸǛðWewz¿Ñ¤ÍÆÝzĎuʼǅ\uXĒŨɗȓiYzƏ]bgYʾfy`ʼ¿Ñ¤ÍÆ]ʝ`yzsuʼɉėvöǅXo}\ƒugXiʾûZʼ
,=0,:1.4=.70>
>;4==
}Yzʼʿęȍzǅbʼm}ɕ~¦ÇÒ´ɕwyiʾoʼ>;4==ē } ʮ Ȝ A;4=== ǿ } õ Ȝ }YzʼťɕƸ}Ǌůzǅ^ʀdwv^gʼƽǋɫǅ`dwv^iʾopgʼƽǋɫȁŒzru~ǟg`ɩɱv^jzƸŞībidw]W}vʼķɊƖɆƜiyÑÔÄŞstvɋX\ĭɟɏƶŞpbv¦ÇÒ´ǅXoƼ]Ƕʫviʾ

8.2	
  � ロ � � を � � に す � � � に � � � す � 	 åv}ûvȓguXi]ʼ/:  41 yx}¾Ñ±£Ýv~ŞØcʹÒ³Ò´ʺg
gYʾd~ʼ¾Ñ±£}ȩň]Õȍv\\viʾûZʼ41 ¾Ñ±£ʼ
419 ?309
C

07>0419 ?309
C 
07>0
C

09/41
 /: ¾Ñ±£ʼ/:4 9
-4,4
.4,4>49-C
09//:
}Yzʼ¾Ñ±£Ēʕ}Ƹ«ÁÔ«Ďujku[`w¾Ñ±£}ȩň]Õȍvěƺv
^iʾʇŷʼˉ ą}«ÁÔ«șžvɋXwƕXiʾ
Ǉʁ}³®z~ʼÔ´Ò³Ò´wXruʼƳɕiwm}ġ}ɕwČʳ]mYYz Ô­Ï]ȘĩiǛɈ]W}vʼÒ³Ò´i}~m x}ơʠv~WkʾFortran スマートプログラミング —第１回

基本的なプログラムの書き方—— 49 —

8.3	
  � � � � � � � � � � � � � 	 ƸÝ}ƸŞʠ~ʒƆzȝbo Y]ɮi`yiʾȡɇ~LMwLM}ÛĉzƐj«ÁÔ«ĎdwzguXiʾoʼéĎƸ]öɕȺ`w^z~LM×ØzmZw
ɮi`yiʾǻzʼĽhº®ÔÒvŮgjsĒŨ]ʐYƸÜw^z~ʼº®ÔÒ]ÜYz«ÁÔ«Ďdw[ĪgiʾëØ~ʼȡɇ}©ÅÊÐÔ©ÌÒ¿Ñ¤ÍÆ}ʿʕviʾB8 8 /C /D /E
B8 8/C /D /E
B8 8 /C/D /E
B8 8/C/D /E
B8 8 /C /D/E
B8 8/C /D/E
B8 8 /C/D/E
B8 8/C/D/Ed«ÁÔ«Ƥ^vǅ`wʼëØ}YzyiʾB8 8 /C /D /E
B8 8/C /D /E
B8 8 /C/D /E
B8 8/C/D /E
B8 8 /C /D/E
B8 8/C /D/E
B8 8 /C/D/E
B8 8/C/D/E
d}ás~ď`Ľhdw]ǅXuW}vi\ď`ĽhȷǏĖgiʾg\gʼº®ÔÒmZoġɇ~įyɂȋɹłv«ÁÔ«Ďo}v~Wkʾd}ûv~ʼxd\ÕȥƠʼûZ /C  /D zǅ^ʠʐZopbvǟgXȷǏ]ƌkʾg\ʼ/C w /D ǅ^ʠʐZuƸǪȋyÅ«z~yjʼĖĤȷǏɛuʠʐXzǥt\yXķɈƖ]W
iʾruʼv^pb¿Ñ¤ÍÆǅXuXǢʧvÅ«ĴʥXu[\|ykʾd}ǁʼġɇ}Yzº®ÔÒmZu[bʼǙƼĿzÕɕÕɕ°±£ipbvy`
ȿƼĿzǤɾgy]°±£idw]v^iʾɌSyɟž\°±£idwvʼÅ«}yX¿Ñ¤ÍÆzidw]v^}viʾ
d}çʼƸwƸ}ʠzʒƆy¦ÇÒ´ƸʼöǅXuXyXɕƪĎiʼ¿Ñ¤ÍÆ}ǬzĬĘ]v^u\i`yiʾd~ƸȟǢɐzėbYzʼ¿Ñ¤ÍÆĬėbiwɆZXXvgYʾ

8.4	
  � � � � � � � � � � � � � � � � � 	 ƶŠȋzǨruXįȯyţƶʹ Ćiw\ʼ ĦZw\ʼ Þiw\ʺ}őļëŕ~ʼv^pbţƶ}úȃʚǯi Y]XXwƕXiʾ¿Ñ¤ÍÆǅXuXǁz~ȀɠguXuǁʠ]ȶru\ɮpǁzƙł]ė\y`yķɈƖ]W\viʾûZʼʬŝ}ɶʚ meʹ  G 62ʺwč}ʈž cʹ G 8 >ʺúruɢȦi mec2  G ʹ ʺvi]ʼdįówi·Ï¢Ôʼenergy/mec2
ɢȦi¿Ñ¤ÍÆʼ090090=2D  0 wǅ`wʼƊv  0  wXYƶŞ]xd\Ǎo}\ė\y`yķɈƖ]W
iʾdYXYǁz~ŖŮʮćvʼ

— 50 —

SENAC Vol. 45, No. 3（2012.7）80  0 .7 0
8.80.7
090090=2D 8.wgu[bʼ\iXg¿Ñ¤ÍÆĒŨ}ɣʜzyiʾoʼ/: ¾Ñ±£  Ňɀʂiʼw\ʼ ŇewzĖĤiʼw\XYğƍƶʼŔƶzgu[bƶĈ}ƙł]ƿȓfgʼŔǄgi`yiʾûZʼ/:4  
 ,4-4
09//:
>@8 /:4  
 >@8>@8,4
09//:
wXY /: ¾Ñ±£z[XuʼYzŔƶzgiʾwXYƶ~ʖęɚȰƶzýşiđʇ}ƶĈvi\ʼëØ}48,C /:4 48,C ,4-4
09//:
>@8 /:4 48,C
 >@8>@8,4
09//:
dYgu[bƙł]~r^igʼ   zŔǄgoXǁz~ŔǄǵ]ÕȥƠviiʾd}YyŔƶī~¿Ñ¤ÍÆ]ʝ`y xʘɚƖ]œgiʾ

まとめと次回の予告	 åŇ~ʼŏǋȋy¿Ñ¤ÍÆ}ǅ^Ƽwʼǅ`ǁ}LdsMzsXuɭƿggoʾåŇɭƿgoŏǋȋƸǪúYpbvʼǗSyƶĈɢȦ¿Ñ¤ÍÆǅ`dw]v^iʾǀ\LɄYƛMwXXiʾɼʁyº­¦ÒĝȃguɌSyɢȦguuØfXʾ
ǝŇ~ʼ§¾ÏÔ°ÒzsXuɭƿgiʾ§¾ÏÔ°ÒúZʼÕʊ}ɢȦơʱ¾Í±£Â±£«īgum}ǛɈpbúroʼŗ^y¿Ñ¤ÍÆėģguÇÒ²¶Ò«}giX¿Ñ¤ÍÆzidw]v^iʾoʼƶĈĖĤiʨ}ĖĤƇƀƨţiƼǪʼ³Ô®½ÏzĂşgo½Ï\ɮʀpiƼǪyxʼĎĖĤƸ}ɨȲzsXuɭƿgiʾ

参考文献)*Ďʞ :=?=,9 ťɻ¿Ñ¤ÍÅÒ¤ʼǎȄŻǚÓŲǋɍäÓǹǩĳăʼ­½´¹Ò£ʼ ź)*ƶĈɢȦ}ŷɱʼïȀǟŘÓɓʙŅſʼđȞĖǺ  ź