PARAMETER

目的

PARAMETER 属性は定数の名前を指定します。

構文



                 .-,-----------------------------.
                 V                               |
>>-PARAMETER--(----constant_name-- = --init_expr-+--)----------><
 
 

init_expr
初期化式です。

規則

名前付き定数は、型、形状、パラメーターを、同じ有効範囲単位内の 仕様ステートメントで事前に指定するか、暗黙に宣言します。 名前付き定数が暗黙的に型付けされている場合、 後続の型宣言ステートメントまたは属性指定ステートメントに その定数が現れたときは暗黙の型とパラメーターの値を確認しなければなりません。

constant_name は 1 つの有効範囲単位内の 1 つの PARAMETER 属性 に 1 度だけ定義することができます。

初期化式の中で指定されている名前付き定数は事前に定義しておく (直前のステートメントで定義できない場合は同一の PARAMETER の中か、 あるいは型宣言ステートメントの中で定義する) か、または 使用関連付けかホスト関連付けを介してアクセス可能にして おかなければなりません。

初期化は、組み込み割り当ての規則を使用して名前付き定数に割り当てられます。 名前付き定数が文字型で、その長さが継承される場合、 初期化式の長さを採用します。

PARAMETER 属性と互換性のある属性





REAL, PARAMETER :: TWO=2.0
 
COMPLEX      XCONST
REAL         RPART,IPART
PARAMETER    (RPART=1.1,IPART=2.2)
PARAMETER    (XCONST = (RPART,IPART+3.3))
 
CHARACTER*2, PARAMETER :: BB='   '
    
  ·
  ·
  ·
END

関連情報

IBM Copyright 2003