Examples

Example 1: IF-THEN-ELSE:

       IF ( L ) THEN 
              N=N+1 
              CALL CALC 
       ELSE 
              K=K+1 
              CALL DISP 
       END IF 

Example 2: IF-THEN-ELSE-IF with ELSE-IF:

       IF ( C .EQ. 'a' ) THEN 
              NA=NA+1 
              CALL APPEND 
       ELSE IF ( C .EQ. 'b' ) THEN 
              NB=NB+1 
              CALL BEFORE 
       ELSE IF ( C .EQ. 'c' ) THEN 
              NC=NC+1 
              CALL CENTER 
       END IF

Example 3: Nested IF-THEN-ELSE:

       IF ( PRESSURE .GT 1000.0 ) THEN 
              IF ( N .LT. 0.0 ) THEN 
                     X = 0.0 
                     Y = 0.0 
              ELSE 
                     Z = 0.0 
              END IF 
       ELSE IF ( TEMPERATURE .GT. 547.0 ) THEN 
              Z = 1.0 
       ELSE 
              X = 1.0 
              Y = 1.0 
       END IF