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

1 名前：デフォルトの名無しさん [2006/11/22(水) 00:00:36 ] このスレッドは、他のスレッドでは書き込めない超低レベル、 もしくは質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。 FORTRAN使いが優しくコメントを返しますが、 お礼はFORTRANの布教と初心者の救済と次期Fortran2008規格でのCOMEFROM文採用をお願いします。 ●注意事項 ・質問する前にGoogle等の検索サイトで検索しましょう。 ・回答者にわかりやすい様に、質問内容はできる限り詳しく書きましょう。 ・エラーの場合は起きた状況、環境（OS・コンパイラ）、エラーメッセージも詳しく書きましょう。 ●前スレ くだすれFORTRAN（超初心者用） pc8.2ch.net/test/read.cgi/tech/1138063703/ ●関連スレ FORTRAN �W pc8.2ch.net/test/read.cgi/tech/1163319215/ 496 名前：デフォルトの名無しさん mailto:sage [2007/05/13(日) 15:54:24 ] お断りします 497 名前：デフォルトの名無しさん mailto:sage [2007/05/13(日) 21:33:57 ] そう言われると、かえって>>496の菊穴にCOMMON文を無理やり押し込んでやりたいｗ　うふふ 498 名前：デフォルトの名無しさん mailto:sage [2007/05/15(火) 03:32:54 ] 最近フリーのGfortranを使い始めたんですが サブルーチンの使い方がわかりません・・・． LAPACKを使いたいんですけど，プログラムの始めに何か書くのでしょうか？ いきなりcall文で呼び出せないでしょうし． ちなみに，windowsのコマンドプロンプトでコンパイルしています． fortran初心者なものですいません・・・ 499 名前：デフォルトの名無しさん mailto:sage [2007/05/15(火) 06:27:29 ] >>498 本を読まずに1から全部聞いて済ませようとしているのか？ 500 名前：デフォルトの名無しさん [2007/05/15(火) 09:36:20 ] >>498 ヘッダファイル（インクルードファイル）がないのかというようなことを聞いているのでしょうが ないんじゃないかな。 リンクするのを忘れなければいきなりcall できると思う。 f90(f95)なら　use lapack_f95 みたいなモジュールの読み込みだけはいると思う。 501 名前：デフォルトの名無しさん [2007/05/15(火) 10:08:38 ] Fortran IVの方でも聞いていたのですが、返事がなかったのでこちらでも 質問させてください。 C(Not C++ / MSVC)で作られたライブラリの関数が使用したいのです。 そいつは STDCALL で作られていて、大文字小文字が混在しているものもあります。 それをg95またはgFortran もしくは g77 で呼び出したいと思っています。 _cdecl で 小文字なら呼び出せるのですが 呼び出し規約と関数名の両方について 対処方があるならば知りたいと思っています。 502 名前：デフォルトの名無しさん mailto:sage [2007/05/15(火) 10:10:22 ] ラッパ関数を C で作るとか。 503 名前：デフォルトの名無しさん [2007/05/15(火) 10:34:59 ] 素早いお返事ありがとうございます。 やはりそれが普通でしょうか。 関数がわりかし多めな+ IVF から呼べるインターフェース類はあるので 再利用ができるとうれしいなという感じなのですが。 504 名前：デフォルトの名無しさん mailto:sage [2007/05/15(火) 10:44:55 ] ラッパ関数生成スクリプトでも書くとか。 505 名前：デフォルトの名無しさん [2007/05/15(火) 10:50:49 ] >>504 ですね。 あきらめて、書き始めておりました。 506 名前：デフォルトの名無しさん mailto:sage [2007/05/15(火) 23:16:00 ] すいません。学校でFORTRANを習っているのですが、 解けない問題があるのでよろしくお願いします。 問:三角形の底辺A、高さHを入力し、 面積を求めて印刷するプログラムを作りなさい。 と、いう問題なのですが、TeraPadで C toi read(5,*)A read(5,*)H S=A*H/2 write(6,*)'TATE=',A write(6,*)'YOKO=',H write(6,*)'MENSEKI=',S STOP END と、入力しコマンドプロンプトで cd fortran g77 -o ファイル名 ファイル名.forとして、 エンターを押すと、エラーメッセージは発生せず、 その後、ファイル名→エンターをすると、 いつも出ている FORTRAN〜が消えます。 計算は出来ませんでした。アドバイスお願いします。 507 名前：デフォルトの名無しさん mailto:sage [2007/05/15(火) 23:24:54 ] >>506 g77　云々　以降の画面に出ている文字を全部コピペして書け。 これだけでは判断のしようも無い。 プログラム自体は間違ってないように見える。 508 名前：デフォルトの名無しさん mailto:sage [2007/05/16(水) 02:42:00 ] DO文を用いて整数NからM（N<M）までに存在する3の倍数の和を求める プログラムを作成したいのですが、うまい方法がわかりません。よければ実行例を教えてください。 自分なりに考えたのですが、この数列の初項と個数が分かれば解けそうなのですが、 Nに最も近くてN以上の3の倍数が初項というのを、 IF（MOD(N+1,3).eq.0）THEN 初項＝N+1 のようにするとNとN+2の時の場合分けをしなければならないし、個数に至っては、 末項/3-初項/3+1で出そうとすると、かなりの数のIFを使わなければならないので 頭がこんがらがってうまく作れませんでした。 509 名前：デフォルトの名無しさん [2007/05/16(水) 09:47:21 ] >>506 実行するとコマンドプロンプトが修了してしまうという意味でしょうか？ だとすると、たぶんマシンが変だと思う。 違うマシンで試せるなら試してみて。 510 名前：デフォルトの名無しさん [2007/05/16(水) 09:51:44 ] SUM=0 DO I=N,M IF (MOD(I,3) .EQ. 0) THEN SUM=SUM+I END IF END DO じゃだめ？ 511 名前：デフォルトの名無しさん mailto:sage [2007/05/16(水) 11:25:21 ] >>510 上手くいきました。 DO文の中にIF文入れて簡単に表せるんですね。とても勉強になりました。 ご教授ありがとうございました。 512 名前：デフォルトの名無しさん [2007/05/19(土) 23:08:05 ] FORTRAN77です。 一様乱数を１０個ずつ発生させ、その平均を計算する。 これをｎ回繰り返す。 計算した平均値をｎが１千回、１万回、１０万回、１００万回についてそれぞれ分布を求めよ。 という問題が分かりません。 乱数の発生は調べたら[０，１）区間の一様乱数が 　　　real function unifrd(i) 　　　integer l,c,t30 　　　real mu 　　　parameter (l=843314861,c=453816693,t30=2**30,mu=2.0**31) 　　　i=l*i+c 　　　if(i.lt.0) i=(i+t30)+t30 　　　unifrd=real(i)/mu 　　　end で出るらしく、これを応用すれば出せそうですが、１０個ずつ発生させ、その平均を計算する プログラムの書き方がよく分かりません。 幼稚な質問ですが、どなたか教えて下さい。 お願いします。 513 名前：デフォルトの名無しさん [2007/05/20(日) 01:16:58 ] C　S仮 C　SUM合計 S=0 SUM=0 N=10 DO I=1,N 　乱数発生ルーチン(ここで乱数はRとする) 　S=S+R CONTINUE SUM=S/N でNを返れ 514 名前：513 [2007/05/20(日) 03:36:17 ] 用すませて思い出したけど 変数は REAL*8 とした方が良いんじゃね？ 515 名前：513 [2007/05/20(日) 03:51:40 ] あ、これで動くは動くが、変数名とか恥ずかしい C　A平均 C　SM合計 REAL*8　A,SUM,R A=0 SUM=0 N=10 DO I=1,N 　乱数発生ルーチン(ここで乱数はRとする) 　SUM=SUM+R CONTINUE A=SUM/N 516 名前：デフォルトの名無しさん [2007/05/20(日) 18:22:48 ] わからないので助けてください；； 整変数I,J,Kをキーボードより与え、下記を実行するプログラムを実行せよ。 x=i^2/4 + j^3/27 y=x/(1+k^2) z=(yの3乗根)klogk 条件　ｋあるいはｙの値が0以下の場合はｚを求める計算ができない、その場合z=(絶対値yの3乗根)(絶対値k)log(絶対値k) を計算するように条件わけをすること。 IMPLICIT REAL(A-H,O-Z) DATA I,J,K,X,Y,Z/5,6,1,2,1,6/ x=i**2/4+j**3/27 y=x/(1+k**2) z=y**(1/3)*k*LOG(k) WRITE(6,'(4I10)')I,J,K WRITE(6,'(4F10)')X,Y,Z WRITE(6,'(2I10,2F10)7)M,L,E,D STOP END この辺までは組んでみたのですがこの後どうすればいいのでしょうか？ すみません、よろしくおねがいします>< 517 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 20:44:18 ] >>516 >整変数I,J,Kをキーボードより与え、 READ文 >ｋあるいはｙの値が0以下の場合はｚを求める計算ができない、その場合z=(絶対値yの3乗根)(絶対値k)log(絶対値k) >を計算するように条件わけをすること。 IF文 518 名前：デフォルトの名無しさん [2007/05/21(月) 14:01:26 ] >>516 IF文でy=0 または z=0 のところを別にして それ以外は　ｙとkをabs でくくる。 という風にやるのが期待されているんだろうけど、 y<=0 でも計算できる気がするぞ。問題間違ってない？ 519 名前：>>506 mailto:sage [2007/05/21(月) 16:22:39 ] >>507さん レスありがとうございます。遅くなって申し訳ないですが、 もう一度やってみました。 >>506後 W:\fortran>g77 -o ファイル名 ファイル名.for W:\fortran>ファイル名、と打ちエンターを押すと、 何も書かれてない下の行にカーソルが移動し、 エンターを押しても同じことで、もう一度ファイル名→エンターでは、 ファイル名 invalid number: Incomprehensible list input apparent state: unit 5 (unnamed) last format: list io lately reading direct formatted external IO abnormal program termination とエラー?が出ます。 すいませんがよろしくお願いします。 520 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 20:22:18 ] >>519 ２回数値を入力してEnterを押すと答えが表示される。 READ文の復習をしましょう。 あと、細かいことだが 'TATE', 'YOKO' と底辺A, 高さHの対応はそれでいいのか？ 521 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 02:13:29 ] >>520さん、レスありがとうございます。 しかし、>>「２回数値を入力して」と、書かれていますが、 数値とはどこの数値をどこに入力すればよいのでしょうか? 何度もすいません…。 522 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 02:46:29 ] >>521 君はいったい何をするプログラムを作っているのかね？ もう一回問題をよく読みなさい。 523 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 13:12:53 ] >>522さん すいません。ようやく分かりました。ありがとうございます。 恥ずかしながら、出力結果が S=AH/2 になるのかと思ってました。 迷惑おかけしました。すいませんでした。 524 名前：デフォルトの名無しさん mailto:age [2007/05/23(水) 16:56:51 ] すみません、使いたいソフトのソースコードがFortran90で書かれていますが、 コンパイラがありません。 しかもUNIXじゃなくてWindowsXPなんです。Cygwinはあるんですが。 というわけで、Fortran90のWindows用フリーコンパイラなどをご存じでしたら 教えてください。 525 名前：デフォルトの名無しさん [2007/05/23(水) 18:01:06 ] g95 -minGW で決まり。 526 名前：sage [2007/05/24(木) 14:59:59 ] ３×３の行列の積を解くプログラムがわかりません＞＜ ちなみにTextファイルから行列を読み込むプログラムです。 どなたかご教授願います。 527 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 15:11:59 ] 宿題頑張ってね 528 名前：デフォルトの名無しさん [2007/05/24(木) 19:38:37 ] fortranでフィボナッチ数列A0 = 0 , A1 = 1 , Ai+1 = Ai + Ai-1 (i =2,3...)を計算するプログラムを作っています。 得られた値が奇数の時には、数値の右横に＊をつけ、奇数かつ３の倍数なら＊＊をつけます。以下のようにプログラムしましたが、＊印が偶数時にもついてしまい、また＊＊の付け方にも困っています。どこが、間違っているのか、アドバイス手本よろしくお願いします。 　　　IMPLICIT REAL (A-H,O-Z) A0 = 0 A1 = 1 A2 = 1 WRITE(6,*)'A 0 = 0' WRITE(6,*)'A 1 = 1' DO 20 L = 2,20,1 A2 = A1 + A0 I = A2-INT(A2/2)*2 J = A2-INT(A2/3)*3 IF(J.NE.O.AND.I.NE.O) THEN WRITE(6,*) 'A',L,'=',A2,'*' ELSE IF(J.NE.O.AND.I.EQ.O) THEN WRITE(6,*) 'A',L,'=',A2,'*' ELSE WRITE(6,*) 'A',L,'=',A2 END IF A0 = A1 A1 = A2 20 CONTINUE STOP END 　　結果 A 0 = 0　　　A 1 = 1　 A 2= 1.*　　 A 3= 2.* A 4= 3.*　　　A 5= 5.*　A 6= 8.*　　　A 7= 13.* A 8= 21.*　　　A 9= 34.*　A 10= 55.*　　　A 11= 89.* A 12= 144.*　　　A 13= 233.*　A 14= 377.*　　　A 15= 610.* A 16= 987.*　　　A 17= 1597.*　A 18= 2584.*　　　A 19= 4181.* A 20= 6765.* 529 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 21:10:22 ] >>528 ・FORTRANにはMODという便利な関数がある。 ・「奇数」、「奇数かつ3の倍数」の判定条件が変。 ・せっかくIF/ELSE IFで条件分けしているのにWRITE文がまったく同じ。 ・プログラムの頭に「IMPLICIT NONE」をつけてみよう。 530 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 21:13:41 ] >>528 実数で計算する必要があるのか？ 531 名前：デフォルトの名無しさん mailto:sage [2007/05/25(金) 07:16:18 ] >>528 Ai+1 = Ai + Ai-1 を計算するなら、次のように配列を使う方が簡単だと思います。 A(i+1) = A(i) + A(i-1) 532 名前：デフォルトの名無しさん [2007/05/25(金) 10:37:01 ] >>530 絶対にない >>526 絶対に3x3なら式を９個並べろ 規則性が分かったらループ回せ さすればkxn ・nxjでも簡単に計算できる 533 名前：デフォルトの名無しさん mailto:sage [2007/05/25(金) 10:59:00 ] >>526 行列の積の定義を線形代数の本で見よ． 定義式をそのまま計算すればよろしい． 3x3が保障されてるなら532の言うように，式を9本かけばよい． 534 名前：デフォルトの名無しさん mailto:sage [2007/05/25(金) 13:52:19 ] テキストファイルから行列を読み込む方法が分らないんじゃないかな。 535 名前：532 [2007/05/26(土) 00:25:52 ] open(2) "mat.txt" C　ループ回すなら工夫して回せ read(2,*) A(I,J) read(2,*) B(K,L) C calc statment どーのこーの close(2) stop end I,JとK,Lで変えたけど分かってるならB(I,J)でも良い open文でstatus=oldかunknownが必要なら書け。 つーか、そしたら質問者は何も理解してないな。 536 名前：デフォルトの名無しさん [2007/05/26(土) 10:47:59 ] >>526 c = matmul(a, b) じゃだめなの？ 537 名前：デフォルトの名無しさん [2007/05/26(土) 17:02:20 ] >>536 多分７７の課題なんでね？それでいいとすると、あまりにあまり（正笑 538 名前：気まぐれアナスイ mailto:お腹いっぱい＠気まぐれアナスイ [2007/05/26(土) 17:41:55 ] !(Φ＿Φ+){？？？} Ai+1 = Ai + Ai-1 　 ↓↓↓ 「全てに一致する」 i『option』 + 1 ≫『代入する』≪ 「全てに一致する」 i『option』 + 「全てに一致する」 i『option』 -1 A(i+1) = A(i) + A(i-1) 　 ↓↓↓ 「全てに一致する」 (i『option』 + 1) ≫『代入する』≪ 「全てに一致する」 (i『option』) + 「全てに一致する」 (i『option』- 1) 539 名前：気まぐれアナスイ mailto:お腹いっぱい＠気まぐれアナスイ [2007/05/26(土) 17:50:49 ] !(Φ＿Φ+){？？？} 『「全てに一致する」(command) i{option}』 == 『文字列、配列順に一致を優先する + i{option}』 540 名前：気まぐれアナスイ mailto:お腹いっぱい＠気まぐれアナスイ [2007/05/26(土) 17:55:32 ] 　　　　 〆{この様に？} 　　　Ж　　√ζ 　　　　　 　 {Ж} 541 名前：デフォルトの名無しさん mailto:sage [2007/06/02(土) 13:14:21 ] do i=1,10 end do の場合、このループを抜けた後iの値は11になるのですか？ 542 名前：デフォルトの名無しさん mailto:sage [2007/06/02(土) 13:50:47 ] yes 543 名前：デフォルトの名無しさん [2007/06/02(土) 20:30:31 ] 大変初歩的なこととは思いますが質問です x : 1 　2　 3 　4　 5 ... y : -0.1 -0.02 0.03 0.1 0.7 ... のように，無数のxに対応するyの値を記録させるアルゴリズムがすでにあります． ここで，yの符号が変わったときの，対応するxを記録する（ここでいうx=3） 命令を組みたいのですが・・・ どうもわかりません． わかる方いれば教えていただけないでしょうか？ 544 名前：デフォルトの名無しさん mailto:sage [2007/06/03(日) 00:27:01 ] >>543 データ量が少ないなら、頭から１こづつ見ていっても対して変わらん。 それが嫌なら、単純なのは二分法。ぐぐればよろし。 545 名前：デフォルトの名無しさん mailto:sage [2007/06/03(日) 12:03:57 ] ×づつ ○ずつ 546 名前：デフォルトの名無しさん mailto:sage [2007/06/03(日) 17:50:33 ] >>545 歴史的仮名遣いでは『づつ』の方が正しい。 Fortran使いは、古いほうを好むべし。 547 名前：デフォルトの名無しさん [2007/06/03(日) 19:04:51 ] x-1とxのyを掛けて負ならば記憶させたら良いだけじゃ？ 548 名前：デフォルトの名無しさん mailto:sage [2007/06/03(日) 23:27:29 ] グローバル変数みたいなことしたいなら、commonじゃなくモジュール使えって言われますが commonだとどの変がまずいんですか？正確に複写しないとダメ、という他に 速度などの面でデメリットとかあるんでしょうか？ 549 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 00:41:21 ] >>548 COMMONは色々厄介なのよ。 メモリーの先頭番地を合わせるだけなので、まったく別の名前で別の並びでも成立する。 サイズが合わなくてもいい。（処理系に依存するが最初に出た大きさになることが多いと思う） 昔はメモリー節約のために、今で言う動的割付のようにプログラマーがCOMMONを 自己責任で様々に再利用した。プログラムの前半と後半で、同じCOMMONブロックを まったく別の割付で用いるとか。COMMONの前半分は共通で、後ろ半分が次々変化するとか。 そういうプログラムは非常にデバッグが難しい。読まされるほうは地獄。 そういう過去の怨念が溜まっているので、COMMONはとても忌み嫌われているのだ。 単なるGlobal変数として使う分には、その恐ろしさが分からないだろうが、COOMONは ほとんど無制限のメモリー領域の共有だと理解したほうが適切。 速度的にはむしろ早いんではないかと思ったりもする。 550 名前：548 mailto:sage [2007/06/04(月) 01:29:46 ] >>549 ＞プログラムの前半と後半で、同じCOMMONブロックを ＞まったく別の割付で用いるとか。COMMONの前半分は共通で、後ろ半分が次々変化するとか。 昔はそんなことをしてたんですか・・・壮絶ですね でも逆に考えると、割と単純な科学技術計算とかで、複雑なことはしないが 速度はひたすらに要求されるような場合は、あえてcommonを使ったりするんでしょうか？ 今は普通に引数で渡してますが、これ変えたら速くなるかなぁ 551 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 04:27:52 ] あらゆるところで変更されうるから、 common に起因するバグがあった場合、 バグのあるとろを探すのが大変、 というのはよく言われるところ。 ただ、common を避ける事で引数がもの凄く多くなるとなると、 それはそれで問題になる事もあったり。 552 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 11:42:58 ] >>550 最適化の問題などもあるので、今となってはＣＯＭＭＯＮにする利益は無いのではないかと思う。 MODULEで渡しても変わらないのではないかと推測する。 FＯＲＴＲＡＮは参照渡し、すなわち変数のアドレスしか渡さないので、 変数のコピーを渡す値渡しと違って、それほど引数渡しのオーバーヘッドの問題は少ないと思う。 ただFortran90になってから、配列を受け渡すときに、サイズや次元の情報まで渡すようになったが・・ （FORTRAN７７までは配列の先頭要素の番地しか渡さない）。 Fortran90の配列引渡しのとき、x(:)とかx(5:10)などと : 指定子を使って部分配列を渡そうとすると いまのFortranの実装では、呼び出し前に暗黙のダミー配列にコピーをつくり、それを渡して 戻ってきた結果を再び元の配列にコピーしている。したがってオーバーヘッドが大きくなる。 意味的には同じだが、xを渡す場合とx(:)を渡す場合だと、後者のほうが少し遅くなる。 巨大な配列は部分配列で受け渡さないほうがいい。 553 名前：548 mailto:sage [2007/06/04(月) 16:11:30 ] 詳しい解説ありがとうございます。勉強になります。 いつまでもFORTRAN77ではさすがに時代遅れになるかも・・・という漠然とした不安から、 上のバージョンへの移行を考えていたのですが、よく検討したほうが良さそうですね。 Fortran95とか新しいやつはオブジェクト指向とかも取り入れてるんでしたっけ。 速度を求めてる人にとっては論外なんでしょうね。。 554 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 23:15:07 ] >>553 Fortran95はFORTRAN77を含んでいるので、中途半端に移行してもいいんで内科医。 部分配列の引数受け渡しが遅くなるといっても、よほどのことが無い限り差はでないだろう。 オブジェクト指向はFortran2000からで、Fortran95ならPASCALが半分混じったような感じなので、 ８０年代とかに教育を受けた人には親しみやすいところがあると思う。 FORTRAN７７を長く使った後で、Fortran90/95を使うと、痒いところに手が届くというか、 こんな機能があったらな、と思っていたような機能が色々入っているので、学んで損は無いと思う。 555 名前：デフォルトの名無しさん [2007/06/06(水) 00:25:16 ] IntelのコンパイラがVer10になった？ 556 名前：デフォルトの名無しさん [2007/06/06(水) 00:55:42 ] 全日空の旧システムはＦＯＲＴＲＡＮで書かれていた！ ttp://itpro.nikkeibp.co.jp/article/JIREI/20070530/273051/ 557 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 00:58:07 ] うｎ レジストレーション・センターに置いてあった。 IntelやXLsoftからはまだアナウンスがないけど、Windows版はなにやら Microsoft Visual Studio 2005 Premier Partner Edition Included だそうで。 558 名前：デフォルトの名無しさん [2007/06/06(水) 02:57:06 ] >>557 >Microsoft Visual Studio 2005 Premier Partner Edition Included kwsk 559 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 03:41:57 ] >>558 ttp://www.intel.com/cd/software/products/asmo-na/eng/compilers/fwin/278834.htm VSの簡易版(?)が付いて単体で使えるようになった。 あとPro版にMKLが付くようになった。 560 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 11:51:28 ] Product name Full product Support renewal IntelR Visual Fortran Compiler, Standard Edition, for Windows* $599 $2801 IntelR Visual Fortran Compiler, Professional Edition, for Windows* Includes IntelR Math Kernel Library $699 $280 IntelR Visual Fortran Compiler, Professional Edition, for Windows* with IMSL* Includes IntelR Math Kernel Library and IMSL Fortran Library $1,599 $749 1Support renewal qualifies you for upgrade to the Professional Edition ttp://www.intel.com/cd/software/products/asmo-na/eng/compilers/279613.htm よく分からんが、いままでのスタンダード版の更新料が＄２８０に値上げになるが、 ＭＫＬも付くようになるという事でいいのかな？ 561 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 14:07:06 ] fortran90って外部コマンド実行できますか？ perlで言うsystem()みたいな ちなみにlinux環境です 562 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 14:08:42 ] 何でとりあえずやってみようとしないの？ 563 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 14:22:40 ] fortranで外部コマンドなんて使えるの？いったいどういう仕組みで・・・ perlとかなら分かるけど 564 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 15:07:33 ] なんで使えないと思うのかが理解できない。 565 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 19:21:03 ] Fortran77の宿題なんですが・・、下のような行列を絶対値の小さいものから1行目に順に 並べるプログラムをつくれというものなんですが、分かりません。どなたかよろしくお願いします。 ‖2.0 1.0 -4.5‖ ‖0.0 -0.5 1.1‖ 　　　↓ ‖0.0 -0.5 1.0‖ ‖1.1 2.0 -4.5‖ 566 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 19:36:53 ] >>560 スタンダード版は新規のみでサポート更新がなくなったからプロ版（のサポート更新）にアップグレードしろ ということかと。 567 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 23:26:44 ] アップグレードで得られる権利： 各 プロフェッショナル・エディション に含まれる製品に対する使用権を所有します。 サポート期間が所有製品の現在の終了日より 1 年間更新されます。 例 ) インテル C++ コンパイラー 9.1 Windows 版 を 2006 年 10 月に購入した場合 ( この場合、サポートサービスが 2007 年 10 月まで有効 ) 、インテル C++ コンパイラー Windows 版プロフェッショナル・エディション SSR を購入することで、インテル C++ コンパイラー Windows 版プロフェッショナル・エディション に含まれるインテル C++ コンパイラーおよびすべてのライブラリー (IPP 、 MKL 、 TBB) のサポートサービスが 2008 年 10 月まで有効になります。 ttp://www.xlsoft.com/jp/products/intel/compilers/comp10_faq.html よく和歌欄が、今すぐ更新すれば従来の更新期間１年延長で、ＭＫＬ付きの版に変わるという事か？ 568 名前：デフォルトの名無しさん [2007/06/07(木) 03:04:51 ] >>565 ２行３列に見えるのは、俺の目の錯覚？ 「ソート」で調べて絶対値を被せたら良いだけじゃ？ 569 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 15:36:43 ] 古いコンパイラで　-Nl50　というオプションの効果がわかる方がいれば教えてください。 570 名前：デフォルトの名無しさん [2007/06/08(金) 17:06:33 ] >>569 コンパイラの種類は？バージョンは？ 571 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 20:25:46 ] バージョンは分かりません。種類はFortranのコンパイラです。 572 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 23:55:35 ] >>571 お前はアホか！　エスパーだって答えられないぞ！ しょんべんで顔洗って出直せ！ コンパイラのヘルプを見れなり、バナーを出すなりして、それをこのスレにコピペしろ。 それも出来ないなら、せめてコンピュータ名やOSくらいは書け。 脳みそがたりないようだから、何も考えるな、言われたままやれ。 573 名前：デフォルトの名無しさん [2007/06/09(土) 10:52:57 ] >571 まあ、とりあえず、そのコンパイラでコンパイルするときに打つコマンドは何？ frt とか g77 とか、そんなんでわかるばあいもあるし。 574 名前：デフォルトの名無しさん [2007/06/09(土) 21:47:03 ] windows xp のコマンドプロンプトで f90のコンパイルして実行するとstack overflowしちゃいます． visual studio だとスタックサイズ増やせたんですが， コマンドプロンプト上でやりたいんです． どうしたらスタックサイズ増やせますか． 575 名前：デフォルトの名無しさん mailto:sage [2007/06/09(土) 21:52:27 ] >>574 >>572-573 576 名前：574 [2007/06/09(土) 22:03:48 ] >>575 俺の頭が悪いのか理解できません 噛み砕くと？ 577 名前：574 [2007/06/09(土) 22:28:12 ] 事故解決しました．おさわがせしました． 578 名前：デフォルトの名無しさん mailto:sage [2007/06/09(土) 23:01:17 ] >>574 解決結果を書いておくと、備忘録になり、他の人の助けにもなる。 まぁ一般的に言えば、大概のコンパイラでは /help とか /? で、オプション一覧が出るので それを見れば解決するのだが・・・ 579 名前：574 mailto:sage [2007/06/10(日) 00:25:33 ] じゃぁ。 自分ができた方法を・・・ 普通にコンパイル 　　　　↓ editbin /stack:十分な値（デフォルトは１Mだから、それ以上の数字） program.exe 　　　　↓ program.exe で、できました。もっと効率のよい方法もあるのかも、、、 580 名前：デフォルトの名無しさん mailto:sage [2007/06/11(月) 03:01:07 ] >>579 コンパイラは何？ Visual Studio上で動くFortranコンパイラにしても色々あるわけだが 581 名前：デフォルトの名無しさん mailto:sage [2007/06/11(月) 05:35:56 ] 　　　　　　　　　　　　　 ry､ 　　　　　　　　　　　　 / / } 　　　　　　　　　　　_/ノ.. /、 　　　　　　　　　　 /　 < 　 } 　 　 　 ry､ 　　　 ｛ｋ＿　_/`;,　　ﾉﾉ　ﾊﾟﾝﾊﾟﾝ 　　　 / / } 　　　　　;'　　　　 `i､　 　　 _/ノ../、　　　＿/ 入/ /　　 ｀ヽ,　ﾉﾉ 　 /　r;ｧ 　}''i"￣.　 ￣r'_ノ"'ヽ.i 　　）　―☆ 　｛ｋ＿　_/,,.'　　;.　 :.　　　　　 l､ 　ﾉ　　 　　　 ＼　｀ 　､　　,i. 　　　.:, :, ' / /　＼ 　　　　 ,;ゝr;,;_二∠r;,_ｪ=-ｰ'" r,_,/　　　☆ 【ラッキーレス】 このレスを見た人はコピペでもいいので 10分以内に3つのスレへ貼り付けてください。 そうすれば１４日後好きな人から告白されるわ宝くじは当たるわ 出世しまくるわ体の悪い所全部治るわでえらい事です 582 名前：574 [2007/06/11(月) 09:59:23 ] >>580 まぁ、前に書いたんですが・・・・ f90です 583 名前：デフォルトの名無しさん mailto:sage [2007/06/11(月) 10:02:32 ] ( ﾟдﾟ) 584 名前：デフォルトの名無しさん [2007/06/11(月) 10:48:04 ] >582 俺が不勉強なのかもしれんがf90というコンパイラは聞いたことがない。 そのソフト買ったとき、箱に f90 って書いてあった？ なんていうメーカーの製品？ 585 名前：デフォルトの名無しさん mailto:sage [2007/06/11(月) 12:55:24 ] その製品を知ってれば答えられるが知らないなら答えられないというなら、 その製品が何かを聞き返すこと自体、意味がない気がしないでもない。 586 名前：デフォルトの名無しさん mailto:sage [2007/06/11(月) 14:13:24 ] f90 は汎用コマンド名であって、コンパイラ名ではないな。 587 名前：デフォルトの名無しさん mailto:sage [2007/06/11(月) 15:13:13 ] 任意の文字列C、整数Nを入力して、これらを連結してファイル名に使いたいのですが、 どうやればできるでしょうか？ 588 名前：デフォルトの名無しさん [2007/06/11(月) 15:57:22 ] >>587 WRITE文を使えば簡単ですよ PROGRAM test   IMPLICIT NONE   CHARACTER(20) :: str1 = "test", str2   INTEGER :: i   DO i=1,10     WRITE(str2,'(A,I3.3,".dat")') trim(str1), i     WRITE(*,'(A)') trim(str2)   END DO END PROGRAM test 出力結果 test001.dat test002.dat test003.dat test004.dat test005.dat test006.dat test007.dat test008.dat test009.dat test010.dat 589 名前：587 mailto:sage [2007/06/11(月) 18:02:38 ] ありがとうございます。trim関数ですか ただFORTRAN77なんですよね・・・ 590 名前：デフォルトの名無しさん mailto:sage [2007/06/11(月) 19:57:45 ] >>589 PROGRAM HOGE IMPLICIT NONE CHARACTER*10 C CHARACTER*20 STR INTEGER N, I READ(*,*) C READ(*,*) N I = INDEX(C,' ') - 1 IF (I .LE. 0) I = LEN(C) WRITE(STR, '(A, I3.3, ''.dat'')') C(1:I), N WRITE(*,*) STR STOP END 591 名前：デフォルトの名無しさん mailto:sage [2007/06/11(月) 22:39:22 ] >>587 またこの質問かｗｗｗｗ 次からテンプレに入れておけ！（正笑 592 名前：587 mailto:sage [2007/06/11(月) 22:57:31 ] >>590 知りませんでした・・・＞INDEX ありがとうございました 593 名前：デフォルトの名無しさん [2007/06/12(火) 03:04:08 ] //でくっ付けろよ。 594 名前：デフォルトの名無しさん mailto:sage [2007/06/12(火) 09:11:28 ] >>593 まぁ、内部ファイルでやると１行で出来るからな。 595 名前：デフォルトの名無しさん mailto:sage [2007/06/15(金) 00:06:45 ] N行N列の逆行列を求めるプログラムの作り方を教えてください・・・ ちなみにfortran90です LAPACK使えって言うのは無しで・・・ 596 名前：デフォルトの名無しさん mailto:sage [2007/06/15(金) 00:26:26 ] >>595 線形代数の行列の所で、掃き出し法によって逆行列を求める方法をやったでしょ。 それをそのままプログラムにすればOK、習って無くても、どの線形代数の本にもに載ってる と思うからから、調べてみて。数値計算だとガウス・ジョルダン法と呼ばれてる方法かな？

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef