BLOCK DATA 
 
      INTEGER  WF1,WF2,WF3,WF4,WF5,WF6,WF7,WF8,WF9,WF10,WF11,WF12,WF13,W
     1F14,WF15,WF16,WF17 
      INTEGER  ICLP16 
      COMMON   / WF / WF1,WF2,WF3,WF4,WF5,WF6,WF7,WF8,WF9,WF10,WF11,WF12
     1,WF13,WF14,WF15,WF16,WF17 
      COMMON   / WF / ICLP16 
 
      DATA  WF1   /  1 / 
      DATA  WF2   /  2 / 
      DATA  WF3   /  3 / 
      DATA  WF4   /  4 / 
      DATA  WF5   /  5 / 
      DATA  WF6   /  6 / 
      DATA  WF7   /  7 / 
      DATA  WF8   /  8 / 
      DATA  WF9   /  9 / 
      DATA  WF10  / 10 / 
      DATA  WF11  / 11 / 
      DATA  WF12  / 12 / 
      DATA  WF13  / 13 / 
      DATA  WF14  / 14 / 
      DATA  WF15  / 15 / 
      DATA  WF16  / 16 / 
      DATA  WF17  / 17 / 
      END