質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
86.12%
FORTRAN

FORTRAN(フォートラン)は科学時術計算に向いた手続き型プログラミング言語です。 並列計算の最適化が行いやすい特性上、数値予報および気候モデルなどの大規模な計算を行う分野のスーパーコンピュータで使われています。

受付中

あるnuを引数として、p(nu)であったりη(nu)を計算するサブルーチンを作りたい

sena_wanwan
sena_wanwan

総合スコア0

FORTRAN

FORTRAN(フォートラン)は科学時術計算に向いた手続き型プログラミング言語です。 並列計算の最適化が行いやすい特性上、数値予報および気候モデルなどの大規模な計算を行う分野のスーパーコンピュータで使われています。

0回答

0リアクション

0クリップ

105閲覧

投稿2022/09/19 03:39

前提

あるnuを用いてp(nu)であったりη(nu)を計算するサブルーチンを作りたい

実現したいこと

サブルーチン内で計算した値を主プログラムで
write(,) を使って呼び出したときに思っていた値が呼び出されない。

発生している問題・エラーメッセージ

たとえばη(nu)なら電卓で計算すると0.287くらいになるがこのプログラムを実行すると桁数が全く合わない値が
出てきてしまう。

該当のソースコード

module cylinder
integer(kind=4), parameter :: NXmin=-16,NXmax=128
integer(kind=4), parameter :: NYmin=-32,NYmax=32
real(8) , parameter :: nu = 0.121d0
real(8) , parameter :: siita = 0.10d0
real(8) , parameter :: nu_c = 0.82d0
real(8) , parameter :: nu_o= 0.7006d0
real(8) , parameter :: e= 0.798d0
real(8) , parameter :: mo= 0.0111d0
real(8) :: dh
contains

subroutine muzigennka(nu)
real(8) nu
real(8) Pi,gf,gc,g,p,guzai,iita
Pi = 2.0d0acos(0.0d0)
gf=((1.d0+e)nu(sqrt(nu_c/nu-1.d0)))**(-1.d0)
gc= (1.d0-7.d0
nu/16.d0)/(1-nu)2
g = gc + (gf - gc)/(1.d0+exp(-(nu-nu_o)/mo))
p =0.5d0nu(1.d0+(1.d0+e)nug)
guzai =(1.d0+e)gnu
2/sqrt(2.d0Pi)
iita =sqrt(Pi/2.d0)
(1.d0/((7.d0-3.d0e)g) + (1.d0+e)(3.d0e+1.d0)nu/(4.d0(7.d0-3.d0e)) &
+ ((1.d0+e)
(3.d0e-1.d0)/(8.d0(7.d0-3.d0e)) + 1.d0/Pi)(1.d0+e)gnu**2)

end subroutine muzigennka

end module cylinder

program main
use cylinder
implicit none
real(8) guzai
real(8) iita

call muzigennka(nu) write(*,*) guzai write(*,*) iita

end program main```ここに言語名を入力
ソースコード

### 試したこと ここに問題に対して試したことを記載してください。 ### 補足情報(FW/ツールのバージョンなど) プログラム初心者なので至らないところばかりだと思いますが,どなたか教えていただける方おられないでしょうか?

以下のような質問にはリアクションをつけましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

リアクションが多い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

下記のような質問は推奨されていません。

  • 間違っている
  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

chirimen

2022/09/21 05:37

ソースコードの引用方法(バッククォートで括っている部分)が正しくなくて表示がおかしくなっています。 直してもらえないでしょうか。

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
86.12%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

FORTRAN

FORTRAN(フォートラン)は科学時術計算に向いた手続き型プログラミング言語です。 並列計算の最適化が行いやすい特性上、数値予報および気候モデルなどの大規模な計算を行う分野のスーパーコンピュータで使われています。