fortran怎么实现给数列的奇数项赋值