fortran如何写这样的do循环,有80000个数据,改变1~50,再变401~450的数值,如此直到79901到79950?

fortran如何写这样的do循环,有80000个数据,改变1~50,再变401~450的数值,如此直到79901到79950?
fortran如何写这样的do循环,有80000个数据,改变1~50,再变401~450的数值,如此直到79901到79950?

fortran如何写这样的do循环,有80000个数据,改变1~50,再变401~450的数值,如此直到79901到79950?
1-50
401-450
79901-79950
请原谅我看不出来这组数据的规律.
或许下面的结果可能是你想要的.
real data( 80000 )
integer i
i = 1
Do while( i