XL Fortran for AIX V8.1.1

ランゲージ・リファレンス

IF (ブロック)

目的

ブロック IF ステートメントは、IF 構造体内の最初のステートメントです。

構文



>>-+----------------------+------------------------------------->
   '-IF_construct_name--:-'
 
>--IF--(--scalar_logical_expr--)--THEN-------------------------><
 
 

IF_construct_name
IF 構造体を識別する名前です。

規則

ブロック 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

関連情報


[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]