Example

       BLOCK DATA INIT 
       COMMON /RANGE/ X0, X1 
       DATA X0, X1 / 2.0, 6.0 / 
       END