fortran数组赋值