Fortran如何实现1000个变量循环赋10个值

alohomora100

目下，我有1000个变量，想循环赋10个值，也就是说变量1-10赋值1-10，变量11-20还是赋值1-10，不知道该如何实现，望大家帮助下，多谢

alohomora100

vvt 发表于 2017-7-7 15:10
[mw_shl_code=fortran,true]real :: a(1000)
  integer :: i
  Do i = 1 , 10

多谢多谢，刚学写程序好多都不太会。

alohomora100

vvt 发表于 2017-7-7 15:10
real :: a(1000)
  integer :: i
  Do i = 1 , 10

我是想这么赋值的，不知道行不行？多谢      

[Fortran] 纯文本查看 复制代码

program aweigh
          implicit real*8 (a-h,o-z)
          dimension wa(10000,1)
          real::a(10000)
          parameter(N=14.00672)
          parameter(H=1.00795)
          parameter(C=12.01078)
          open(13,file='aweigh.txt')
          do i=1,10
            if ((i.eq.1).or.(i.eq.5)) 
                then a(i::10)=N
                endif
                if ((i.eq.3).or.(i.eq.4).or.(i.eq.8)) 
                then a(i::10)=C
                else a(i::10)=H
                endif
      enddo                
          do i=1,10000
          write(3,*)a(i)
          enddo
          close(13)
          end

alohomora100

百事可乐 发表于 2017-7-7 15:27
还有更简便的写法

...

多谢多谢

alohomora100

vvt 发表于 2017-7-7 16:31
[mw_shl_code=fortran,true]program aweigh
  implicit none !//这句话非常非常重要！！请一定要写 implici ...

多谢多谢