A 回答 (6件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
とりあえずプログラムを全部見せて.
この回答への補足
こんな感じです。
お願いします。いつも、ご意見有難う御座います。
不必要な部分は消しています。(プログラム内容に支障はでませんので、以下で考えてください。)
subroutine func_eta2(theta,val_eta,val_Deta,ix,iy)
implicit none
*
INTEGER :: ix,iy!デバッグ作業のためのix,iy
real*8 :: val_eta,val_Deta
real*8 :: theta,the,theta1,theta2,c,s,pi,theta0
real*8 :: val,theta_m
real*8,PARAMETER :: gusai=0.0d0
real*8,PARAMETER :: k=2.0d0
real*8 :: val1,val2,val3,val4,val5,val6,val7,val8,val9
pi=4.0d0*datan(1.0d0)
val4=-1
val_eta=1.0d0+gusai*val4
*check
if( 23 .le. ix .and. ix .le. 30) then
if( 0 .le. iy .and. iy .le. 5) then
write(6,*) ix,iy
write(6,*) 'val4','gusai','val_eta'
write(6,*) val4,gusai,val_eta
end if
end if
if( 2 .le. ix .and. ix .le. 3) then
if( 0 .le. iy .and. iy .le. 35) then
write(6,*) ix,iy
write(6,*) 'val4','gusai','val_eta'
write(6,*) val4,gusai,val_eta
end if
end if
*
return
end
No.3
- 回答日時:
そのサブルーチンを
real*8 :: a
call func_eta2(a, a, a, 23,0)
end
で呼ぶと、
23 0
val4gusaival_eta
-1.00000000000000000 0.0000000000000000 1.00000000000000000
と、問題ありません。書いてないところに問題があるようです。
この回答への補足
書いてないところに問題があるようです。
>Eに関するコード部分でなくても、Eに影響及ぼすことってあるのでしょうか??
仮にあるとしたら、なぜ、それは影響するのでしょうか??
質問返しで申し訳ありませんが、他の部分に違いがあるとは思えないし(Eに関連したコードでないから)、既述したコードに間違いがあるとも思えません。なので、不思議なのです。
暫定的にif文回避して、難を逃れていますが、疑問点なので、目潰ししたいと思っています。
皆様の知恵をお貸し下さい!!
No.4
- 回答日時:
言語がなんなのかわからない(fortran?)ので、一般論ですが、
そういった場合は、とにかく症状が出る最小限のコードを見つけることです。
ごく単純なコードで症状が出ないのなら、そのコードにない部分に問題があるといえるわけで、それをつきつめていけば、いつかは原因が判明すると思います。
No.5
- 回答日時:
>Eに関するコード部分でなくても、Eに影響及ぼすことってあるのでしょうか??
それはあり得ませんよね。
ただ、「Eに関するコード部分でないとあなたが思っているが実はEに関するコード部分」というのはEに影響を及ぼします。
いずれにせよ、可能性は#2に書いた2つ(ないしその変形)です。
現象のでないコードをいくら呈示されても原因の検討の付けようがないので、現象の出るコードを呈示してください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- IT・エンジニアリング 三菱製PLC Qシリーズで技術的なことをご教示いただければ幸いです。 下記の回路で0.1秒の値をD0 1 2023/02/27 18:44
- 哲学 《自性清浄心》と《聖なる甘え》――ブッダとは目が覚めたという意味である―― 0 2023/05/23 04:15
- 物理学 電界による電子線の偏向についてなのですが 極板AとBの間隔をd0、極板Aの電位を-V0、極板Bの電位 1 2022/10/10 14:51
- その他(プログラミング・Web制作) listへのappendが出来ない件 1 2022/12/06 21:44
- 数学 微分積分の二重積分についての問題がわからないです。 1 2022/07/17 02:36
- 数学 写真の(3)の問題の解説の1行目についてですが、 ①なぜ、曲線Kの囲む図形は、cos(-θ)と表せる 5 2023/01/26 00:36
- その他(プログラミング・Web制作) 物理の斜方投射のシミュレーションにおける位置や速度の単位について 4 2023/05/31 09:50
- その他(プログラミング・Web制作) 物理の斜方投射の目盛り線とx軸、y軸の追加について 3 2023/05/26 21:11
- その他(プログラミング・Web制作) 物理の斜方投射で目盛りに数値を入れたい 2 2023/05/27 06:32
- C言語・C++・C# Cのオブジェクトファイルの逆アセンブル 5 2023/05/13 01:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Exel VBA 別ブックから該当デ...
-
pythonにてseleniumを使うも、...
-
access2003 クエリSQL文に...
-
1、Rstudioで回帰直線を求める...
-
chatgptでつくってもらったコー...
-
MessageBoxで表示される文字列...
-
ExcelのVBAコードについて教え...
-
1日に1人がこなせるプログラム...
-
フィルターかけた後、重複を除...
-
特定行の背景色を変えたいのですが
-
アルファベットに付いて質問し...
-
パイソンプログラム
-
UWSCでMOUSEORG関数が上手く処...
-
COBOLの文法
-
コンパイルエラー 変数が定義...
-
Gitのクローンについて
-
文字コードについて
-
ユーザーフォームに2つのコン...
-
Visual BASIC イベント作成しよ...
-
欠番の抽出について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
access2003 クエリSQL文に...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
pythonにてseleniumを使うも、...
-
ExcelのVBAコードについて教え...
-
ExcelのVBAコードについて教え...
-
chatgptでつくってもらったコー...
-
欠番の抽出について
-
JANコードとPOSコードは同じ?
-
JavaScriptの定数名が取り消し...
-
1、Rstudioで回帰直線を求める...
-
特定行の背景色を変えたいのですが
-
変数名「cur」について
-
PreviewKeyDownイベントが2回...
-
将来AIが進歩してくるにつれて...
-
ACCESSユニオンクエリでORDER B...
-
COBOLの文法
-
VBAでファイルオープン後にコー...
-
Nullの使い方が不正です。
おすすめ情報