Examples

Example 1: Assign the statement number of an executable statement:

       IF(LB.EQ.0) ASSIGN 9 TO K 
       ... 
       GO TO K 
       ... 
9      AKX = 0.0

Example 2: Assign the statement number of a format statement:

       INTEGER PHORMAT 
2      FORMAT ( A80 ) 
       ASSIGN 2 TO PHORMAT 
       ... 
       WRITE ( *, PHORMAT ) 'Assigned a FORMAT statement no.'