Takuya Miyashita

Start:
* function [#m148737b] ** 基本 [#kf9f3f2d] Fortran の function は subrountine よりもっと単純な式で戻... #codeprettify(lang-fortran){{ ! 風速に応じた海面抵抗係数Cdを返す関数 function dragcoef_seasurf(windvel) result(cd) implicit none real(kind=8) :: windvel real(kind=8) :: cd if (windvel < 8.0d0) then cd = (1.290d0 - 0.024d0*windvel) * 1.0d-3 else cd = (0.581d0 + 0.063d0*min(45.0d0,windvel)) * 1.0d-3 endif end function dragcoef_seasurf }} 上記の #codeprettify(lang-fortran){{ result(cd) }} という箇所を書かなかった場合は，関数名を戻り値の変数とし... #codeprettify(lang-fortran){{ ! 風速に応じた海面抵抗係数Cdを返す関数 real(kind=8) function dragcoef_seasurf(windvel) implicit none real(kind=8) :: windvel if (windvel < 8.0d0) then dragcoef_seasurf = (1.290d0 - 0.024d0*windvel) * 1.... else dragcoef_seasurf = (0.581d0 + 0.063d0*min(45.0d0,wi... endif end function dragcoef_seasurf }} こっちはちょっと読みにくいし，grep や検索する時も邪魔なの... ~ 戻り値を2つ以上にしたい場合は，配列を定義して1つの変数に... ~ ~

End:
* function [#m148737b] ** 基本 [#kf9f3f2d] Fortran の function は subrountine よりもっと単純な式で戻... #codeprettify(lang-fortran){{ ! 風速に応じた海面抵抗係数Cdを返す関数 function dragcoef_seasurf(windvel) result(cd) implicit none real(kind=8) :: windvel real(kind=8) :: cd if (windvel < 8.0d0) then cd = (1.290d0 - 0.024d0*windvel) * 1.0d-3 else cd = (0.581d0 + 0.063d0*min(45.0d0,windvel)) * 1.0d-3 endif end function dragcoef_seasurf }} 上記の #codeprettify(lang-fortran){{ result(cd) }} という箇所を書かなかった場合は，関数名を戻り値の変数とし... #codeprettify(lang-fortran){{ ! 風速に応じた海面抵抗係数Cdを返す関数 real(kind=8) function dragcoef_seasurf(windvel) implicit none real(kind=8) :: windvel if (windvel < 8.0d0) then dragcoef_seasurf = (1.290d0 - 0.024d0*windvel) * 1.... else dragcoef_seasurf = (0.581d0 + 0.063d0*min(45.0d0,wi... endif end function dragcoef_seasurf }} こっちはちょっと読みにくいし，grep や検索する時も邪魔なの... ~ 戻り値を2つ以上にしたい場合は，配列を定義して1つの変数に... ~ ~

Page: Edit with a page name which already exists