目的
ブロック IF ステートメントは、IF 構造体内の最初のステートメントです。
構文
>>-+----------------------+-------------------------------------> '-IF_construct_name--:-' >--IF--(--scalar_logical_expr--)--THEN------------------------->< |
規則
ブロック IF ステートメントは論理式を計算し、IF 構造体に含まれるブロックのうちの最大 1 つを実行します。
IF_construct_name を指定する場合、この名前を END IF ステートメントで必ず指定する必要がありますが、IF 構造体内の ELSE IF または ELSE ステートメントへの指定は任意です。
例
WHICHC: IF (CMD .EQ. 'RETRY') THEN IF (LIMIT .GT. FIVE) THEN ! Nested IF constructs
·
·
·
CALL STOP ELSE CALL RETRY END IF ELSE IF (CMD .EQ. 'STOP') THEN WHICHC CALL STOP ELSE IF (CMD .EQ. 'ABORT') THEN CALL ABORT ELSE WHICHC GO TO 100 END IF WHICHC
関連情報