f90で構造体を引数で渡す
- Ｆ９０のテストコードにおいて、構造体を引数で渡す方法に誤りがあるようです。
- GFORTRANでコンパイルすると、タイプの不一致の警告が表示されます。
- なぜこの方法では構造体を引数で渡せないのか、原因を知りたいです。
- ベストアンサー
f90で構造体を引数で渡す
次のようなＦ９０のテストコードがあります。 これをフリーソフトのGFORTRANでコンパイルすると CALL SUB(STR) Warnig:Type mismatch in argument 'str' at(1);passed TYPE(tp_str) to TYPE(tp_str)[Wargument-mismatch] なる警告がでます。構造体を引数で渡す方法に誤りがあるようなのですが、なぜダメなのでしょうか。 PROGRAM TEST IMPLICIT NONE TYPE TP_STR INTEGER I ENDTYPE TYPE (TP_STR) :: STR STR%I = 1 CALL SUB(STR) STOP END SUBROUTINE SUB(STR) IMPLICIT NONE TYPE TP_STR INTEGER I ENDTYPE INTEGER X TYPE (TP_STR) :: STR X = STR%I RETURN END
- qhtsige
- お礼率92% (407/439)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
警告だから，そのままでもプログラムは正しく動く。 しかしMAIN PROGRAMで定義したTP_STRとSUBROUTINEの中で定義したTP_STRは，同じ場所で定義されていないので警告が出る。実際の定義内容が同一かどうかは問題ではありません。 警告をなくしたいのなら，例えば MODULE M_TP_STR IMPLICIT NONE TYPE TP_STR INTEGER I ENDTYPE END MODULE M_TP_STR PROGRAM TEST USE M_TP_STR IMPLICIT NONE TYPE (TP_STR) :: STR STR%I = 1 CALL SUB(STR) STOP END SUBROUTINE SUB(STR) USE M_TP_STR IMPLICIT NONE TYPE (TP_STR) :: STR INTEGER X X = STR%I RETURN END のようにMODULEでまとめてしまえばよいでしょう。
関連するQ&A
- 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 subroutineと配列と繰り返し
以下のように二次元配列の場合でsubroutineを使うときに、主プログラムで2重Doループ(iとj)で繰り返しをしているのですが、すでにsubroutineでDoループ(i)を用いて計算しています。これではsubroutineの利点をうまく使えていないと思うのですが、subroutineを使って配列、Doループをきれいにする方法をどなたか教えていただけませんか。 実際は4重ループ、4次元配列なので、プログラムをわかりやすくするためにサブルーチンを使いたいと思っています。 -------------------------------------------------------------- program S real,dimension(5,5) :: B real,dimension(5) :: A integer :: i,j do j=1,5 CALL sub1(A) do i=1,3 B(i,j)=A(i)*j write(*,*) B(i,j) end do end do end program S subroutine sub1(A) real,dimension(5) :: A integer :: i do i=1,3 A(i)=3.*i end do end subroutine sub1
- ベストアンサー
- その他（プログラミング・開発）
- fortran 実行結果がうまく表示されない
グローバルモジュールを用いてプログラムを書いたのですが実行結果が表示されません、プログラム中に問題があるのでしょうか？教えて下さい。 module params implicit none integer :: n = 2 end module params module sample implicit none contains subroutine swapvec3(x,y) use params real(8), intent(inout) :: x(n), y(n) real(8) tmp(n) tmp(1:n) = x(1:n) x(1:n) = y(1:n) y(1:n) = tmp(1:n) end subroutine swapvec3 end module sample program main use sample implicit none real(8), allocatable :: a(:), b(:), tmp(:) integer n allocate(a(n),b(n),tmp(n)) call swapvec3(a,b) call random_seed call random_number(a) call random_number(b) call random_number(tmp) write(*,*) ' a = ', a(1:n) write(*,*) ' b = ', b(1:n) write(*,*) ' tmp = ', tmp(1:n) end program main 実行結果 a = b = tmp =
- ベストアンサー
- その他（プログラミング・開発）
- fortran errorについて
fortranを勉強していたのですがエラーがでてしまい、何時間かけても理解できなかったので質問させてください。 以下プログラム program test !ここからメインルーチン !前準備 配列の用意 implicit none integer N integer,dimension(0:N,0:N) :: A integer :: i,j,k read * ,N !初期状態の代入 do i=0,N do j=0,N A(i,j)=0 end do end do do i=N/2,N-1 A(N/2,i)=1 end do do i=N/2,N-1 A(N/2+1,i)=-1 end do !ループ 50回ループさせる do k=0,50 !状態の表示 call visualize !サブルーチン visualize subroutine visualize do i=0,N do j=0,N if(A(i,j)== 1) write(*,'(A1)',advance='NO') "*" if(A(i,j)== 0) write(*,'(A1)',advance='NO') " " if(A(i,j)==-1) write(*,'(A1)',advance='NO') "+" end do write(*,*) end do !end subroutine visualize call insert !サブルーチン insert subroutine insert do i=0,N do j=0,N if(A(i,j)== 1) A(i,j)=-1 if(A(i,j)== 0) A(i,j)=max(0,A(i-1,j),A(i,j-1),A(i,j+1),A(i+1,j)) if(A(i,j)==-1) A(i,j)=0 end do end do !end subroutine insert end do end program test これでコンパイラすると In file test.f90:48 subroutine visualize 1 Error: Unclassifiable statement at (1) In file test.f90:69 subroutine insert 1 Error: Unclassifiable statement at (1) とでます いろいろ調べたのですが全くわかりませんでした できればよろしくお願いします
- ベストアンサー
- その他（プログラミング・開発）
- ＶＢ2008で構造体を引数とした時にエラー
VB2008の勉強を始めて数週間の初心者です。 勉強用にいろいろとプログラムを作っているのですが、 構造体(Structure)を引数で渡して戻り値を取得する Ｆｕｎｃｔｉｏｎを作成してみました。 同一クラス内のPrivate Function の場合は問題ないのですいが、 追加した別クラスに Function を作成したところ 「 型 'TEST_A.Form1.str_IN' の値を 'TEST_A.Class1.str_IN' に変換できません。」 のエラーが表示されてしまいます。 別クラスのFunctionを使用する時、引数には構造体は指定できないのでしょうか？ なにか文法上の誤りがあるのでしょうか？ 初心者なので変な質問してたらスイマセン。 詳しい方がいらっしゃいましたらよろしくお願いします。 ------------------------------------------------------ Public Class Form1 Public Structure str_IN Public in_aaa As String End Structure Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) ～ Dim stin As New str_IN '------------------------------------ stin.in_aaa = "aaa" Label1.Text = Test_Sub(stin) '<------- これはｏｋ '------------------------------------- Dim cls = New Class1 stin.in_aaa = "aaa" Label1.Text = cls.CFnk(stin) '<----- エラーになる End Sub Private Function Test_Sub(ByVal prm_in As str_IN) As String Dim stin As New str_IN Dim sout As String sout = "test_aaa" Return sout End Function End Class ------------------------------------------------------------ Public Class Class1 '新たに作成したクラス Public Structure str_IN Public in_aaa As String End Structure Public Function CFnk(ByVal prm_in As str_IN) As String Dim stin As New str_IN Dim sout As String sout = "test_aaa" Return sout End Function End Class
- ベストアンサー
- Visual Basic
- CSVから構造体へ代入
お世話になります。 Private Type TestRecord Col1 As String * 255 Col2 As String * 255 Col3 As String * 255 End Type Sub ボタン1_Click() Dim FName As String Dim FileNo As Integer Dim LineData As String Dim TestRec() As TestRecord FileNo = FreeFile '選択したファイル名の取得 FName = Application.GetOpenFilename("CSV ファイル (*.CSV),*.CSV") If FName = "False" Then Exit Sub End If Open FName For Input As #FileNo Do Until EOF(FileNo) i = i + 1 Line Input #FileNo, LineData ReDim TestRec(i) TestRec() = Split(LineData, ",") Debug.Print buf Loop Close #FileNo End Sub ファイルの中身 "テストID１","テスト姓１","テスト名１" "テストID２","テスト姓２","テスト名２" 以上のコードを実行するとTestRec() =～の部分で型が一致しません とエラーが出てしまいます。 よき解決方法があれば教えてください。宜しくお願いします。
- ベストアンサー
- Visual Basic
- この例は「何渡し」と言うのでしょうか？
Sub test1() Call test2("aaa") End Sub Sub test2(str As String) MsgBox str End Sub ByRefもByValも使ってないから 参照渡しでも値渡しでもないですよね？
- ベストアンサー
- Visual Basic
- ニュートン法
フォートランでf(x)=0の解を求めるこのようなプログラムを作りました。 program nyu-ton implicit none real::x,f,dfdx read(*,*)x do call FDF(x,f,dfdx) x=x-f/dfdx write(*,*)x,f if(abs(f)<1e-7)exit end do stop end program nyu-ton subroutine FDF(x,f,dfdx) implicit none real::x,f,dfdx f=x*(x-2.0) dfdx=2.0*x-2.0 end subroutine FDF このプログラムをニュートン法で複素関数の解を求めるプログラムにするには、どこをどのように変えればよいのかわかりません。 z^3+z=0 や z^3=512iのような問題を数値的に解くプログラムを作りたいんですが、教えてください願いします。
- 締切済み
- その他（プログラミング・開発）
- フォートランの動作に関する質問
以下のような短いフォートランプログラムがあります。OS:Windows10 module com integer,parameter ::nd=10 end module program main use com print *, nd call sub stop end subroutine sub use com print *, nd return end 内容はモジュールで宣言したパラメータを確認してみるということです。 このプログラムがgfortranで動作せず、intel fortranでは全く問題ありません。 gfortranの結果は以下のようです。 f951.exe: Fatal Error: Reading module 'com' at line 1 column 1: Unexpected EOF GNU Fortran (Rev1, Built by MSYS2 project) 9.3.0 Copyright (C) 2019 Free Software Foundation, Inc. gfortranのこのバージョンに何か問題があるのでしょうか。前からすこしおかしいことには気づいていたのですが。私のコードに問題があるでしょうか。 ※Cが一番近いと思いましてこちらに上げました。
- 締切済み
- C・C++・C#
- 関数の引数
こんにちわ。 ご存知の方、ご教授してもらえないでしょうか？ VB.net2005を使っているのですが 関数の引数に変数をセットして、別関数で 引数に対してデータをセットすることは可能でしょうか？ C言語でいうところのポインタを引数に渡し ポインタアドレスに書き込むような処理はVB.netでは 可能なんでしょうか？ 下記のような事は試したのですが、うまく出来ませんでした（。。； public sub test1() dim mojiretu as string test2( mojiretu ) msgbox(mojiretu) end sub public sub test2( str as string) str = "文字列" end sub
- ベストアンサー
- Visual Basic
お礼
丁寧なご教示ありがとうございます。 同じ定義であっても複数の個所で定義したときの警告なのですね。道理で同じ定義をINCLUDE文で行っても解決しないわけですね。 初めてのMODULE文で定義すれば解決しました。 ありがとうございました。