do j=1,1000
a(j)=b(j)*2.71828
end do
SSP0: j=1, 250
SSP1: j=251, 500
SSP2: j=501, 750
SSP3: j=751, 1000