次元配列 197 2 次元配列 198 構造体 199 ポインタ 201 データ引数の値渡し 204 値を戻す関数 206 単純型データを戻す 206 複素数データを戻す 207 CHARACTER 文字列を戻す 210 名前付き COMMON 212 Fortran と C との入出力の共有 213 選択戻り (あまり使用されません) 21
CHARACTER*n X 1 1 n 1 1 1 1 1 1 COMPLEX X COMPLEX*8 X DOUBLE COMPLEX X COMPLEX*16 X COMPLEX*32 X 8 8 16 16 32 4 4 8 8 8/16 4 4 4 4 4 DOUBLE PRECISION X REAL X REAL*4 X REAL*8 X REAL*16 X 8 4 4 8 16 8 4 4...
SUBROUTINE LOAD(ARRAY, FILE) REAL, ALLOCATABLE, INTENT(OUT) :: ARRAY(:, :, :) CHARACTER(LEN=*), INTENT(IN) :: FILE INTEGER UNIT, N1, N2, N3 INTEGER, EXTERNAL :: GET_LUN UNIT = GET_LUN() ! Returns an unused unit number OPEN(UNIT, FILE=FILE, FORM='UNFORMATTED') READ...
結果は、STRING がスカラーの場合は、それに含まれる文字の数であり、 STRING が配列値の場合は、1 つのエレメントに含まれる文字の数です。 例 C が次のステートメントで宣言されているとします。 CHARACTER (11) C(100) LEN(C) の値は 11 です。
PROGRAM MAIN IMPLICIT NONE INTEGER int1, int2 CHARACTER infile*16,outfile*16 REAL*8 fact1,fact2 NAMELIST /NMINOUT/ infile,outfile NAMELIST /NMFACT/ fact1,fact2 NAMELIST /NMINT/ int1,int2 OPEN(10,file='name.txt') !ファイルの開き方は同じ READ(10,NMINOUT) !書式識別子にNAMELIST名を...
real x / 1.0 /, y / 0.0 / print *, x/y end character string*5, out*20 double precision value external exception_handler i = ieee_handler('set', 'all', exception_handler) string = '1e310' print *, '入力文字列', string, ' は: ', value print *, '1e300 * 1e10 の値は:'...
1977 Fortran 規格および Fortran 95 において、CHARACTER データ型はこの目的のために提供され、その使用が推奨されています。現在でも古い Fortran のホレリス (n H) 機能を使用して変数を初期化できますが、標準的な使い方ではありません。 次の表に、データ型に適合する文字の最大数を示しま...
pointee_name は、CHARACTER*(*) で型宣言された変数であってはいけません。 pointee_name が配列の宣言子である場合は、明示的な実体があるもの (定数または非定数のサイズを持つもの)、または仮のサイズを持つものでなければいけません。 Cray ポインタを配列にすることはできません。 Cray ...
f95では 7 つしか配列添字を使用できません。f77では 20 個まで使用できます。 f95は、PARAMETER文での非定数を許可しません。 CHARACTER型宣言の初期化子では整数値は使用できません。 REAL()組み込み関数は、引数をREAL*4に変換する代わりに、複素引数の実数部を返します。これにより、引数が...
内部ファイルは、変数、部分列、配列、配列要素、構造化記録の欄のような、CHARACTER型のオブジェクトです。内部ファイルからのREADの場合は、文字列の定数であってもかまいません。内部ファイルにおける入出力は、データをある文字実体から他のデータ実体に転送し、変換することによって、書式付き...