21/05/03 02:23:13.56 PQP1mUBv.net
Do loop 中に
if (hoge) then
処理1
exit
elseif (hogehoge)
処理2
cycle
Endif
と言った同じ処理内容が100近くいくつもあるので、if -endif部分をサブルーチン化したいなと思ったのですが、exit やcycleが入ってると怒られます。
何か他にいい方法がありますか？
10:デフォルトの名無しさん
21/05/05 21:06:18.24 rM/wxxFC.net
>>9
そんなことはできないので諦めろ
むしろfortran使うなよ…
11:デフォルトの名無しさん
21/05/27 10:06:05.89 Or53VG180.net
やったぁ！！フォルトランスレだぁ！！！
12:デフォルトの名無しさん
21/05/27 14:13:13.27 4Ku5ffLZ.net
>>5
whereとかall/someとかmaskとかめっちゃ便利そう！
学部教養用に広く使われているであろう某90/95数値解析本やってるけど、普通にループで回してやがる
まあアルゴリズムの理解のため、意図的にそうしてるんだろうと思うけど
13:デフォルトの名無しさん
21/05/27 14:28:23.78 4Ku5ffLZ.net
isoやcの型を一貫性なくuseしてたり、構造体を共有するなら必要なら型モジュールが必要なのは分かるけど
ひたすらdp=kind(0.d0)みたいな基本型かつ命名慣習のあるもので数値計算しててモジュールに集めてuseするべきなのかな？
14:デフォルトの名無しさん
21/05/31 18:02:38.35 FQcGffaz.net
あげ
15:デフォルトの名無しさん
21/06/01 21:25:00.31 wVQRTwyv.net
Fortran の詳しい参考書で何かあります？
森北出版の青本が一番良さげだけど、細かい機能解説載ってないのよね。
一体どこ見ればええんやろ
16:デフォルトの名無しさん
21/06/02 00:41:35.33 oD2js2W4.net
ろくな書籍がないのでメーカー製コンパイラのマニュアルを見るのが無難（探せばネット上で見つかる）
洋書を買う気があるならModern Fortran explainedとか
17:デフォルトの名無しさん
21/06/02 08:58:33.23 UfLjqhXv.net
2008以降でAmazon検索した事あるけど30冊～くらい英書は引っかかったと思う
だいたい学術出版社なので万超えるが
あとcoarrayとかcuda fortranとか狙い撃ちしてるので教科書的でないのが多いかと
日本語でも数冊引っかかったと思う、見送ったのであんまりよろしくない感じかもしれん
遠い記憶なので気になったら調べ直してね
18:デフォルトの名無しさん
21/06/02 09:22:05.07 Mf/lUWk3.net
>>13
基本型までモジュールにまとめる利点は一斉に精度切り替えられるくらいじゃない
そんなケースでこそサフィックスが_dpなのにdpじゃないとか紛らわしいし
ポータビリティ的には0.0d0から環境ローカルの型を取得するのは望ましいかもしれんが、個人的には環境によって変な結果が出る方が恐ろしい
どうせuseするなら明示的にiso_fortran_envのrealnn型を使いたい、対応してないなら落ちてくれた方がマシ
もしかして桁落ちするかもってところに_wp(wideのつもり)とか書いてseleted_real_kindのパラメータ振って検証したり、もしかして桁落ちするかもってところに_wp(wideのつもり)とか書いて定義を変えるとかはありじゃないかな
19:デフォルトの名無しさん
21/11/02 16:00:24.11 9/G4G7ym.net
module変数を保存したい場合はsaveを使うけどtype::クラス名のメンバ変数にはsave使用不可
fortranでメンバ変数の値を保存したい（あるインスタンスで行った変更が次に生成したインスタンスにも初期値的に引き継がれるようにしたい）時ってどうすればいいんでしょう？
20:デフォルトの名無しさん
21/12/20 10:18:50.61 T4fBefUM.net
スレタイの大文字に恐怖を覚えて、見にきました。
21:デフォルトの名無しさん
21/12/23 03:31:36.47 PGj8Lcl5.net
Fortranなら怖くないのにね
22:デフォルトの名無しさん
21/12/25 04:13:49.31 FaMYGA75.net
fortranでインラインアセンブラみたいに振る舞いたいのですがどうすればいいのです？
初心者ですいません
ネットにあるようでしたら調べに行きます
23:デフォルトの名無しさん
23/10/23 14:43:03.92 vgQZUP0x.net
flang ってもうメンテされてないんですか?
24:デフォルトの名無しさん
23/10/23 21:17:24.53 5q3FeFHZ.net
今開発が継続してるのはLLVM Flang
現時点ではWindowsに対応してない模様
URLﾘﾝｸ(flang.llvm.org)
ちなみにIntelもオープン化してLLVMベースのFortranコンパイラに開発を移行してる(今までのは"Classic")
URLﾘﾝｸ(www.intel.com)
25:デフォルトの名無しさん
24/02/09 01:32:22.21 3xoFjMsa.net
ヤッホー！、Fortran，ﾗﾝ, ﾗﾝ♪ ヤッホ, フォートー ﾗﾝのﾗﾝ, ヤッホホ！
26:デフォルトの名無しさん
24/08/13 20:46:53.99 cgmyZnx+.net
大学の研究でfortranを使用することになりました
fortran+openaccの環境構築まで3日かけてやっと終わったんですが、そもそもfortranってどのバージョンを使うのが安牌なんでしょうか…
f90で良いんでしょうか？それともどれを使ってもあまり変わりませんか？
バージョンの説明はあってもどれを使うのがメジャーかは分かりませんでした…
プログラミング自体を講義でしか学んだことがなくて困惑中です
27:デフォルトの名無しさん
24/08/13 21:11:58.79 cgmyZnx+.net
>>3読んでませんでした…
解決しましたすみませんでした
28:デフォルトの名無しさん
24/12/01 17:22:49.33 xR+2sBizW
例えは゛，登録記号「JAЗ5HD」は「k AsseΤ航空法違反強盗殺人団〔岩槻区柏崎9５0)」だが
クソ航空機に生活や仕事を妨害されたらアプリ「ADS-B Unfiltered...」で登録記号確認
ttＰs:／/jasearch.info/ ←ここで犯人特定
ADS-B出してない曰の丸ロゴ機体は憲法違反税金泥棒自閉隊関係た゛が、益々調子こいてるこいつらテロリス├と゛もをどんなやり方て゛も
いいから早急に皆殺しにしないとこいつらが撒き散らしてる莫大な温室効果ガスで益々災害連発して次に殺されるのはお前だぞ
ヘリタンク２００0Lで10０００kWh火力発電したのと同等のCO2を排出するがガソリン税と比較してもゼロに等しい税率だし
輸入している石油を大量に無駄に燃やしてんだから石油価格高止まりして電氣料金などの高騰原因になってるし
騒音で知的産業壊滅して超絶テ゛ジタル後進國、情報漏洩に不正送金にシステム障害まみれ、IT界では日本語の技術情報消滅
こんな史上最悪の強盗殺人がスルーされてんだから俺も俺もと闇バイトに強盗殺人にと流行るのは当然かつ正当な権利だわな
(ref.) ｔURLﾘﾝｸ(www.call4.jp)р?tУpe=itеms&id=I00000６2
Τtps:／/haneda-ρrojｅct.jimdofree.com/ , Ttｐs://flight-rouΤe.com/
Ｔｔps:/／n-souonhigaisosｙoudan.amebaownd.com/
29:デフォルトの名無しさん
25/01/06 09:18:28.75 C8rvLH57B
本質でも何でもない年収の壁云々とにかくお前らは税金を払いたくなくて消費税導入以降消費減退しまくってる曰本の特性に日本が世界て゛
最も国民から信用されてない政府だという背景があるわけだが大企業従業員なんて時給換算て゛5千円超えてるのに壁なんかなくても働きたく
ないってのが本音、法的には同じ従業員なのに何故かお前らまて゛shineとか呼んで崇めてる特別に区別された連中だがそいつら特別有能
なのかといえば解雇すらない日本の場合そんなことは全然なくて価値生産など何ひとつせす゛ヒトモノ力ネと右から左に流して税金泥棒と
不正で儲けてるだけそんなクス゛になれれば高額ナマポの地位が手に入るから小奇麗な履歴書のために教育無償化してくれとか笑わせんなよ
挙句の果てに後進国産業カンコーだのほざいてJALだのAＮАた゛のクソへリ飛ばしてるテロリス├に莫大な温室効果ガスまき散らさせて気候変動
災害連発、騒音で知的産業に威力業務妨害、国際競争力壊滅させて未来の血税まで金刷って顕在化して砂上の楼閣作って物価高収入減
大企業と公務員をぶっ潰さないと益々日本は貧困化してゆく本質を理解して行動しないと絶望的だぞ
(ref.］ tＴps://www.call4.jＰ/info.php?typｅ〓items&id〓I0０00０６2
URLﾘﾝｸ(haneda-proje)<)Ｔ-routｅ.com／
ＴURLﾘﾝｸ(n-souonhigaisos)Уoudan.amebaownd.com/