- ベストアンサー
fortranのcall clockについて
fortranでcall clock(dummy, 3)(dummyはinteger)をつかいたいのですが これを含んだ行になると、実行が強制終了されてしまいました。 コンパイル時にはエラーはでませんでした。 call clockの直前と直後にwrite(*,*)'test' write(*,*)'test2'と書くと test と表示されて実行が終わってしまいます。 何がいけないかわかる方、おしえてもらえませんでしょうか？
- tiptapengine
- お礼率66% (8/12)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
環境やコンパイラーについて書かれていないので、あまり自信がありませんが、”clock”と言うサブルーチンが無い可能性が高いかと思います。おそらく、時刻や時間を使用したのですよね。そのコンパイラーで時刻や時間を呼び出すサブルーチン名や引数を確認してそれに置き換えれば良いかと思います。 そんな物が、無い場合は頑張って自作する事が必要でしょう。（誰かがつくっていればそれを教えて）
関連するQ&A
- Fortran90/Fortran95→Fortran77
大学の授業でFortranを使ったプログラミングを勉強しています。 以下の文が大学のPCに入っているコンパイラでは問題なくコンパイルでき実行できるのですが、家のPCだとコンパイルすることが出来ません(以下の文でエラーが出ます) 大学のPCの開発環境はFujitsu-FORTRANだと思います(^ ^; 家のPCはSalford FTN77 Personal Edition CompilerとCPad for Salford FTN77を組み合わせて使用しています なぜエラーがでるのか自分なりに考えた結果、Fortran90/Fortran95のプログラムをFortran77のコンパイラでコンパイルしているからだと思います(全くの勘違いだったら指摘して下さい) Fortran90/Fortran95の開発環境がフリーで整えばいいのですが、見つからないのでプログラムを修正したいと思います そこで、力を貸していただきたいのです 前置きが長くなりましたが、エラーが出る文は以下のところです open(8,file='freq_ex13.dat',action='write',status='replace') ここを、Fortran77のコンパイラでコンパイルできるようにアドバイスを下さい よろしくお願いします
- ベストアンサー
- その他（プログラミング・開発）
- fortranについて
fortranでプログラムをコンパイルし、実行したところRun-time Errorと出てきて、00401000 main [+0052]と書いてありました。何が原因なんでしょうか？
- 締切済み
- その他（プログラミング・開発）
- Fortran "実引数の型が仮引数の型と異なります。"
Fortran "実引数の型が仮引数の型と異なります。" Intel Visual Fortranの最新版をMS Visual Studio 2008で使用(お試し)しています。 既存のFortranプログラムでエラーが出て、使えなくなりました。 問題点を要約すると以下のようなシンプルなコードに集約されました。 ---------------------- 00 program main 01 call sub1(10.d0) 02 call sub1(10.0) 03 end ! ---------------------- 04 subroutine sub1(rr) 05 real*8 rr 06 write(*,*) 'rr = ', rr 07 end subroutine ! --------------------- 昔のFortranでは、Subをcallする時に、仮引数の型と厳密に一致していなくても、うまく処理してくれたと思います。(倍精度でも整数でも、同じ数値とみなして） オプションのルーチンインターフェースのチェック(/warn:interfaces)をオフにすると、コンパイルは出来るようになるのですが、上記プログラムの計算結果は、01行と02行で結果が異なってきます。 （02行はおかしな値が入る) 本来、ランタイムエラー防止の観点からは、このような厳密性を要求するのは良いことだと思いますが、既存のプログラムが実行できなくなるのは痛手なので、何かオプションの変更で対応出来ないものでしょうか？ よろしくお願いいたします。
- 締切済み
- その他（プログラミング・開発）
- fortranのコメントについて
昨日からfortranを始めた者です。 調べてみると、コメントアウトするには 先頭を"C"または"*"で始めればいい と書いてあるのですが 以下のように実際にやってみると Unclassifiable statement at (1) とエラーが出てしまいます。 （文の先頭に半角6文字のスペースを入れてあります。 コメント行は"c"と"test"の間に5つスペースが入れてあります。） コンパイル文： g95 read.f90 ソース： ______program read ______implicit none ______integer i ______real r ______character(len=4) c c_____test ______print *,"Please input number" ______read *,i,r,c ______print *,i,r,c ______stop ______end もうひとつ、 上のソースをコメント行なしでコンパイルすると通るのですが 全ての実行ファイルがa.exeとして保存されるので 毎回exeファイルが上書きされる形になってしまいます。 この2点の解決方法ご存知の方いらっしゃいましたら 教えてください。お願いします。
- ベストアンサー
- その他（プログラミング・開発）
- FORTRANのwarning
fortranの勉強を最近始めたのですが 次のような警告が出てきます。 警告なので無視。ということもありなのかもしれませんがやはりないにこしたことはないのでなんとか消したく試行錯誤してみたのですがどうにも消えません。 どのようにしたらよいのでしょうか？ エラーの内容は以下のとおりです In the call to (SUBROUTINE名), actual argument #1 does not match the type and kind of the corresponding dummy argument. fortranに詳しい方どうかよろしくお願いします
- ベストアンサー
- その他（プログラミング・開発）
- FORTRANとC++の連動について
私は，Fortranを用いて解析の業務をしている，プログラム初心者です。 購入したのは，Intel Visual Fortran8.0（VF)ですが，Windows環境でコンパイルリンクするには，Microsoft Visual C++ .NET 2003（VC++)が必要ということで，こちらも購入しました。 普段は，Fortranのコンソールで ifort **.f といったコマンドでコンパイルリンクし，実行しているだけです。 これからは，VC++の方に移行していきたいと考えていますが，しばらくはFortranで作成したサブルーチンを有効活用したと考えています。 そこで，VC++ベースのメインプログラムからFortranのサブルーチンを呼び出すプログラムの作成方法，コンパイルリンク方法をご教授ください。よろしくお願いします。 (1)ソースにどう記述するか？ void CMyDlg::OnBnClickedOk() { ここで，FORTRANのサブルーチンを呼び出したい。 Fortranなら call subroutine( a, b ) } (2)コンパイルするときは， Visual Studio開発環境で，コンパイル→実行で良いのか？ それとも，あらかじめVC++とVFで.objファイルを作成する必要があるのか？
- ベストアンサー
- その他（プログラミング・開発）
- Fortranのサブルーチン引数について
他人が作ったFortran(恐らくFortran77)のプログラムで計算をしようとしています。 コンパイルはできるのですが，実行するとエラーが出てしまい困っています。 エラーメッセージは 「forrtl:severe(157):Program Exception - access violation」 となっていて，実行時エラー番号で調べると 「プログラムが適切な参照権を持っていない仮想アドレスに書き込み，または読み取り を行おうとした」と出ていました。 Fortran初心者の自分にはイマイチ意味が判らないのですが，エラーが出た後に サブルーチンのある決まった場所に黄色い矢印が示されます。 そこで今，その部分のサブルーチンを確認しているところです。 前置きが長くなってしまいましたが サブルーチンの中を確認している途中で疑問に思った所が一つあります。 問題のサブルーチンは --------------------------------------- call dbesl(EN,0,BX0,BY0,BI0,BK0) subroutine dbesl(X,NOR,BX,BY,BI,BK) FN = NOR ・ ・ ・ 11 NOR = FN <---この行に黄色い矢印が出る return end --------------------------------------- となっているのですが，サブルーチンを呼び出すcall文の所で 2つ目の引数が『0』となっているのは正しい使い方なのでしょうか？ どうもサブルーチン内の計算をしてメインプログラムに引数を返す所が おかしいような気がしています。 因みにメインプログラムに戻る際の"FN"の値は『0』となっていました。 コンパイラはCompaq Visual Fortranを使用しています。 足りない情報は出来るだけ追記していきますので，ご教示宜しくお願いします。
- 締切済み
- その他（プログラミング・開発）
- Macでfortran
Mac(Mac OS X Lion 10.7.4)でFortranをコンパイルしたいのですが、なかなかできません。 まずXcode 4.3をインストールしました。 gfortran4.6もインストールしました。 ターミナルで「gfortran」を打つと、 gfortran: 致命的エラー: 入力ファイルがありません と返ってきます。 そこで「gfortran test1.f」とソースコードtest1.fをコンパイルしようとすると、 gfortran: error trying to exec 'as': execvp: No such file or directory と出てきて、コンパイルできません。 何が問題で、どのようにしたらコンパイルできるようになるのでしょうか。
- ベストアンサー
- その他（プログラミング・開発）
- fortran 配列受け渡し時の次元の一致
fortran90、コンパイラはifortです。 普通メインプログラムとサブルーチン間での配列の受け渡しは、次元を揃えて渡すと思います。 とあるコード（以後コードA）を読んでいると、2次元配列を渡し、1次元配列で受け取っていました。 例 program test1 integer :: a(3,3) call testsub(a) end program subroutine testsub(b) integer :: b(9) end subroutine これが受け取り側でどう処理されているのかわからず、調べるために適当なテストコードを書きました。 a 123 456 789 ↓ b 123456789 になるとか 結果、コンパイルは通ったのですがサブルーチン側では全て0で置き換えられてしまいました。 コードAはpgiかなんかでコンパイルしていたようなのでコンパイラの違いでしょうか？ よくわらなかったので質問させて頂きました。 質問をまとめますと、 (1)次元の異なる配列の受け渡しができるかどうか (2)その場合中身はどうなるか よろしくお願いします。 ---以下テストコード--- program testa implicit none integer :: a(3,3),i,j do i=1,3 do j=1,3 a(i,j)=j+(i-1)*3 enddo enddo do i=1,3 do j=1,3 write(6,*) a(i,j) enddo enddo call sub1(a) end program subroutine sub1(b) integer :: b(9),i do j=1,9 write(6,*) b(i),'sub' enddo end subroutine
- ベストアンサー
- その他（プログラミング・開発）
- FortranプログラムからC言語で実装された関数を呼ぶには？
Windows Vista Home PremiumにFTN95をインストールしたPCにて、Fortranのプログラミングをし始め、「Cpad for Salford FTN77」を利用してプログラミングをしています（FORTRAN77・Fortran90ともに）。FTN95でのFortranプログラミングに際し、FortranプログラムからC言語で実装された関数を呼ぶには、どのように対処すれば可能になりますでしょうか？ ユーザーガイドによれば、「Fortranプログラム中に、C_EXTERNALという宣言をした関数は、Ｃの関数と同じくアクセスできるようになり、C側では、#extern <返り値>関数名（引数）を与えれば、Cの関数として呼び込むことができる。」とのことがかかれています。 実際に使っているファイルをいくつか書き出します。 ＜D:\fortran\sample.f＞ C_EXTERNAL WRITE 'WriteFile' : INTEGER*4 INTEGER*4 RESULT RESULT=WRITE() write(*,*) result return end ＜D:\fortran\sample.c＞ #extern int Writefile(int); ＜C:\Program Files\Silverfrost\FTN95\ftn95c.bat＞ ftn95.exe %1 %2 %3 %4 %5 %6 %7 %8 %9 /link ちなみに、「Cpad for Salford FTN77」での実行／設定／実行／コンパイル時のパラメータは「/link /dreal」です。もちろんftn95.exeへのパスは通してあります。何が問題でしょうか？ 何分初心者ですので、拙い質問かと思いますが、何卒ご教示願います。
- ベストアンサー
- その他（プログラミング・開発）
お礼
回答ありがとうございます。このサブルーチンはネットで調べたものです。てっきりすべてのfortranに入っているサブルーチンのことだと勘違いしていました。ありがとうございました。