目的
ブロック 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
関連情報