double precision pi,pi2,alfa integer i1,i2 common/p/pi,pi2,alfa,i1(8),i2(8)