差分

このページの2つのバージョン間の差分を表示します。

--- seminar:fortran入門 [2020/08/18 10:23] – [例題 8] kimi
+++ seminar:fortran入門 [2022/08/23 13:34] (現在) – 外部編集 127.0.0.1
@@ 行 1: / 行 1: @@
 ====== FORTRAN入門 ======
+====== Fortran 90 ======
+===== コンパイルと実行 =====
+  * テキストエディタでソースプログラムを作成し、ソースプログラムを、''f90''という拡張子を持ったファイル名、すなわち''○○○○.f90''のような名前で保存する。
+  * ターミナルで <code>
+ $ g95 ○○○○.f90 -o △△△△
+</code>と入力することにより''△△△△''という名前のプログラムが作られる。 (''$''自身は入力しない。）
+  * ターミナルで <code>
+$ ./△△△△
+</code> と入力することにより''△△△△''という名前のプログラムを実行できる。 (''$''自身は入力しない。''./''に注意）
+  * [[数値積分]]
+===== FORTRAN90の書式 =====
+<code fortran>
+PROGRAM EXAMPLE                     ! PROGRAM 文
+  IMPLICIT NONE                     ! IMPLICIT 文
+  INTEGER, PARAMETER:: IMAX = 10    ! 定数（整定数）宣言
+  INTEGER:: I                       ! 変数（整数変数）宣言
+  REAL(8), DIMENSION(0:IMAX):: DD   ! 配列（実数配列）宣言
+  REAL(8):: D, DMAX = 0.D0          ! 変数（実数変数）初期化
+!                                     コメント
+  READ (*, *) DD                    ! 入力
+  DO I = 0, IMAX                    ! DO 文
+    D = DD(I)                       ! 代入文
+    IF (D > DMIN) THEN              ! IF 文
+      DMAX = D                      !   字下げ
+    END IF                          ! END IF文
+    PRINT "(I4, 3E12.5)", I, D, &   ! 書式文字列による書式付出力
+    &     DMIN, DMAX                ! 継続行
+  END DO                            ! END DO文
+  PRINT *, 'MAXIMUM VALUE = ', DMAX ! 出力
+  STOP                              ! STOP文
+END PROGRAM EXAMPLE                 ! END PROGRAM文
+</code>
+===== 定数と変数 =====
+| 定数 | 整定数 |         | 絶対値が2147483647以下の整数    | -10 200 -123456      |
+| 定数 | 実定数 | F形式   | 有効桁数約6桁の実数             | -10.0 3.14159 .00153 |
+|      |        | E形式   | 有効桁数約6桁の実数             | 3.14159E0 15.3E-3    |
+|      |        | D形式   | 有効桁数約16桁の実数            | 3.141592654D0        |
+| 変数 | 整変数 | INTEGER | I,J,K,L,M,Nで始めるのが望ましい | II KJ J123 M123      |
+|      | 実変数 | REAL(8) | A-H, O-Zで始めるのが望ましい    | AA CC D123 B123      |
 ===== 例題 1 =====
 <code fortran>
@@ 行 290: / 行 332: @@
 x=Aからx=Bまでの区間をN分割し、関数値 f(x) を出力するプログラムを作成する。
-  - <latex>
+  - $\begin{array}{*{20}c}{f\left( x \right) = \sqrt x ,} & {\left( {0 \le x \le 10} \right)}\end{array}$
-\begin{array}{*{20}c}
+  - $\begin{array}{*{20}c}{f\left( x \right) = \log |x+1| ,} & {\left( {-1 < x \le 10} \right)}\end{array} $
-   {f\left( x \right) = \sqrt x ,} & {\left( {0 \le x \le 10} \right)}
+  - $\begin{array}{*{20}c}{f\left( x \right) = x^2{\rm e}^{-x} ,} & {\left( {0 \le x \le 6} \right)}\end{array} $
-\end{array}
+  - $\begin{array}{*{20}c}{f\left( x \right) = x^2{\rm e}^{-x^2} ,} & {\left( {-4 \le x \le 4} \right)}\end{array} $
-</latex>
+  - $\begin{array}{*{20}c}{f\left( x \right) = \displaystyle\frac{\sin^2 x}{x^2} ,} & {\left( {-4\pi \le x \le 4\pi} \right)}\end{array} $
-  - <latex>
-\begin{array}{*{20}c}
-   {f\left( x \right) = \log |x+1| ,} & {\left( {-1 < x \le 10} \right)}
-\end{array}
-</latex>
-  - <latex>
-\begin{array}{*{20}c}
-   {f\left( x \right) = x^2{\rm e}^{-x} ,} & {\left( {0 \le x \le 6} \right)}
-\end{array}
-</latex>
-  - $
-\begin{array}{*{20}c}
-   {f\left( x \right) = x^2{\rm e}^{-x^2} ,} & {\left( {-4 \le x \le 4} \right)}
-\end{array}
-$
-  - $
-\begin{array}{*{20}c}
-   {f\left( x \right) = \displaystyle\frac{\sin^2 x}{x^2} ,} & {\left( {-4\pi \le x \le 4\pi} \right)}
-\end{array}
-$