くだすれFORTRAN（超初心者用）その6

**デフォルトの名無しさん** · 2012/08/16(木) 20:58:00.31

このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。
FORTRAN使いが優しくコメントを返しますが、
お礼はFORTRANの布教と初心者の救済と次期Fortran2008規格でのCOMEFROM文採用をお願いします。

●注意事項
・質問する前にGoogle等の検索サイトで検索しましょう。
・回答者にわかりやすい様に、質問内容はできる限り詳しく書きましょう。
・エラーの場合は起きた状況、環境（OS・コンパイラ・バージョン）、エラーメッセージも詳しく書きましょう。

●前スレ
くだすれFORTRAN（超初心者用）その5
http://toro.2ch.net/test/read.cgi/tech/1269704830/

●過去スレ
くだすれFORTRAN（超初心者用）その4
http://pc12.2ch.net/test/read.cgi/tech/1232789521/
くだすれFORTRAN（超初心者用）その3
http://pc11.2ch.net/test/read.cgi/tech/1196384126/
くだすれFORTRAN（超初心者用）その2
http://pc11.2ch.net/test/read.cgi/tech/1164121236/
くだすれFORTRAN（超初心者用）
http://pc8.2ch.net/test/read.cgi/tech/1138063703/

**デフォルトの名無しさん** · 2019/01/26(土) 13:43:45.62

>>956
安心しました、ありがとうございます。

**デフォルトの名無しさん** · 2019/01/26(土) 13:53:32.02

ファイルシステムの無い時代、例えばパンチの名残だろうかね

**デフォルトの名無しさん** · 2019/02/08(金) 00:44:25.09

環境はCygwin、f90、gfortranです。
open文のaction指定子に関する質問です。

ミス防止のため、念には念を入れて
「readもwriteもするファイルでも、場面に応じてaction='read'と'write'を切り替える」
と理想的なんじゃないだろうか、とふと思いまして、

open(100,file='foo.dat',status='old',action='read')
～
open(100,action='write',position='append')
～
close(100)

という記述を試してみたのですが、実行時にエラーになってしまいました。
(Fortran runtime error: Cannot change ACTION parameter in OPEN statement)
「open文で既に開いているファイルを開き直してもよい」って仕様はこういう用途のためのものではないんですね……

一度closeすれば事は足るのですが、それだと今度は「同じfile名を二回記述しなければならない」という無駄が解消できず……
何か、巧い方法はないのでしょうか。

**デフォルトの名無しさん** · 2019/02/08(金) 01:15:11.98

すみません、一応自己解決しました。
指定子に文字型の変数を与えることができる、ということに先ほど気づきました。
なので「一度closeする」で問題ありませんでした。
name1 = 'foo.dat'としておいて、
open文に file=name1 とでも書けば済む話でした（つまるところ、ファイル名変更時の手間が一番の問題だと考えていたので）。

**Linux ペンギン** · 2019/02/08(金) 23:01:52.12

lapack インスコ方法教えてんか？

**デフォルトの名無しさん** · 2019/02/28(木) 02:25:49.99

>>961
mklが手軽かつ最速だがクソでか&環境依存
配布も考えるならソースをnetlibでwget -r url
ラッパのLAPACK95もあると便利

**デフォルトの名無しさん** · 2019/02/28(木) 13:08:32.71

>>956
遅レスだけど、program名って何か意味あるんかね？
program書かないでも動くし(endは必要)、programは他から呼ばれないし

moduleやsubroutineの名前は呼ぶのに大事だけど
ファイル名はinclude "fname"で使うから意味ある

**デフォルトの名無しさん** · 2019/05/02(木) 22:03:24.81

他人が作ったコードで、
real*4 宣言を全部real*8に書き換えたら、
計算結果がNaNになっちゃったんだけど、
どんな原因が考えられますか？

**デフォルトの名無しさん** · 2019/05/03(金) 14:28:23.81

色々

教えて欲しかったらソース出せ

**デフォルトの名無しさん** · 2019/06/19(水) 04:49:42.26

【出資】松本卓朗人工知能詐欺【注意】
https://rio2016.5ch.net/test/read.cgi/rikei/1560859403/

**デフォルトの名無しさん** · 2019/06/22(土) 10:06:49.78

Fortranは1956年？だかに作られたそうだけど
当初からクラス設計とかあったの？

**デフォルトの名無しさん** · 2019/06/22(土) 10:33:22.05

データベースに合わせたORMみたいな
メンバーとか何かあった気がするが
クラスは無いんじゃね

**デフォルトの名無しさん** · 2019/07/15(月) 18:22:34.81

>>967
ねーよ
元々メインフレーム言語だし

**デフォルトの名無しさん** · 2019/09/20(金) 07:30:20.40

Moduleで継承みたいなことってできないんでしょうか？

module mod1
integer,parameter :: val1 = 20
end

module mod2
use mod1
end

program main
use mod2

print *, val1
end

みたいな
このままだとエラーですけど

**デフォルトの名無しさん** · 2019/09/20(金) 09:23:13.89

>>970
gfortran8.1で試したけど普通に動くよ

**デフォルトの名無しさん** · 2019/09/20(金) 11:49:11.89

>>971
まじですか。
やってみます！

**デフォルトの名無しさん** · 2019/12/05(木) 20:26:57.24

今更fortran使う必要が出たんですけど宣言全部冒頭でやらなきゃいけないとか読みにくいにもほどがあるなこの言語……
ただdllでもない生のCファイル普通に使えるのちょっと強すぎじゃない。何これ

**デフォルトの名無しさん** · 2019/12/06(金) 10:25:38.93

JULIAやれ

**デフォルトの名無しさん** · 2019/12/09(月) 23:37:38.73

C++に移植する作業をしてるんだが、fortranは配列が1スタートなのと行優先なのまじで糞だと思う

**デフォルトの名無しさん** · 2019/12/10(火) 06:15:05.25

配列の下限もレイアウトも両方オプションで変更できるっしょ

**デフォルトの名無しさん** · 2019/12/10(火) 13:53:20.70

openglも行優先だっけ

**デフォルトの名無しさん** · 2019/12/14(土) 01:16:23.48

read/writeの装置番号というのに衝撃を受けたんだけど
いや整数を振るって……えぇ……他の言語でこんなん見たことねぇよ……

**デフォルトの名無しさん** · 2019/12/14(土) 02:29:00.89

ここで言語仕様に文句言ってもどうしようもないだろ……
整数型の変数も使えるから自分で値を付けれるハンドルと考えれば良い

**デフォルトの名無しさん** · 2019/12/14(土) 10:56:06.61

Cでもstdin=0,stdout=1,stderr=2とかやってるやん？

**デフォルトの名無しさん** · 2019/12/14(土) 19:35:25.64

ハンドルを整数値で管理するなんて普通だろ。

**デフォルトの名無しさん** · 2019/12/15(日) 02:31:50.39

subroutineとfunctionの使い分けってどうしてます？FORTRANのコード規約みたいなのがあまり見当たらなくてわかんなくて
たとえばnameとageを持ったpersonタイプを作るとしてsubroutine getperson(name, age, person) intent(in)name, age intent(out)person
なのかgetname(name, age)ファンクションを定義してperson = getPerson(name, age)みたいなのがいいのか
他の言語の言い方になるけど前者は参照渡し的というか。今いじってるのがほぼ全部subroutineで処理してるからこういうのがfortranの書き方なのかなぁって
個人的には後者の方がいいのではと思うんですよね

**デフォルトの名無しさん** · 2019/12/15(日) 08:10:55.00

副作用が無いならfunction、あるならsubroutine
例えばsinやcosはfunctionだけどrandom_numberは内部状態を書き換えるのでsubroutine

**デフォルトの名無しさん** · 2019/12/15(日) 12:59:16.65

戻り値の有無やろ

**デフォルトの名無しさん** · 2019/12/15(日) 13:03:16.56

返り値が複数かどうかだろ

**デフォルトの名無しさん** · 2019/12/15(日) 20:36:28.41

副作用はpure修飾で区別するのでは

**デフォルトの名無しさん** · 2019/12/15(日) 23:49:42.99

前提として初心者がどちらにするか迷った時の話で
非pure関数を同じ文中で複数呼んだら評価順の影響を受けて悩みの種になるというのがあるから
副作用があれば全部subroutineぐらいの割り切りでいいと思う

**デフォルトの名無しさん** · 2019/12/16(月) 08:12:12.88

>985
複数の返り値を構造体にすれば、関数でいけるのではないでしょうかね

**デフォルトの名無しさん** · 2020/01/09(木) 14:06:43.45

cigwin64ターミナルでコンパイルしようとすると
Winmain関数への定義がされてないって言われるんだけどどうしたらいいですか？

**デフォルトの名無しさん** · 2020/01/10(金) 22:03:41.01

Winmain関数を定義したらよいのでは。

**mac** · 2020/02/01(土) 22:13:14.55

macのOSをCatalinaにしてからfortranでコンパイルできなくなりました。
大学の宿題ができなくて困っています。助けてくだいさい！
gfortran main.f90 でコンパイル後のエラー文は以下です。

dyld: Library not loaded: /usr/local/opt/isl/lib/libisl.21.dylib
Referenced from: /usr/local/Cellar/gcc/9.1.0/libexec/gcc/x86_64-apple-darwin18/9.1.0/f951
Reason: image not found
gfortran: internal compiler error: Abort trap: 6 signal terminated program f951
Please submit a full bug report,
with preprocessed source if appropriate.
See <https://github.com/Homebrew/homebrew-core/issues>; for instructions.

**デフォルトの名無しさん** · 2020/02/02(日) 14:51:51.31

>>991
エラーログよく読めよカスガキ

**mac** · 2020/02/03(月) 06:48:44.07

読んでみました。
libisl.21.dylib　を読み込もうとしているのですが、
libisl.22.dylib におそらく対応ファイルが変わってしまったようです。
読み込み先を　libisl.21.dylib　→ libisl.22.dylib に変更するにはどうしたら良いのでしょうか？　

**デフォルトの名無しさん** · 2020/02/03(月) 11:41:24.71

libisl.22.dylib を libisl.21.dylib に rename

**mac** · 2020/02/04(火) 13:54:57.85

コンパイルできるようになりました！
ありがとうございます！

**デフォルトの名無しさん** · 2020/02/05(水) 02:53:14.67

並列計算のコマンドを do loop 内に入れると，配列ごとに計算できないのね。。。
なんか妙案あるのかな

**デフォルトの名無しさん** · 2020/02/27(木) 21:39:58.16

ifortで-ipoを指定すると謎のセグフォが発生する

**デフォルトの名無しさん** · 2020/04/06(月) 04:39:32.64

うめ

**デフォルトの名無しさん** · 2020/04/06(月) 04:39:41.11

うめ

**デフォルトの名無しさん** · 2020/04/06(月) 04:39:53.59

うめ

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 2789日 7時間 41分 53秒