real c0n07(8),c1n07(8),c2n07(8),c0n09(8),c1n09(8),
     1     c2n09(8),c0n11(8),c1n11(8),c2n11(8),c0n14(8),
     2     c1n14(8),c2n14(8),c0n16(8),c1n16(8),c2n16(8),
     3     c0(8),c1(8),c2(8) 
c
      common/absoft/c0n07,c1n07,c2n07,c0n09,c1n09,c2n09,
     1              c0n11,c1n11,c2n11,c0n14,c1n14,c2n14,
     2              c0n16,c1n16,c2n16,c0,c1,c2