INIT.FT

   1 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   2 C                        PRELOAD VALUE OF INIT
   3        BLOCK DATA
   4        INTEGER INIT
   5        COMMON /PARAM3/INIT
   6        DATA INIT/0/
   7        END
   8 CCCCCCCCCCCCCCCCCCCCCCCC