fortran中的do循环得到的一个有很多值的数，在do之外应该怎么用

wulalalana

我在程序中调用evbas得到 v 值，然后让  vev= vapang+ v ，代码如下
       call evbas(r,v)
         vev= vapang+ v

但是，evbas子程序中v 是通过下面代码来计算的，所以v应该是有227个值，但是我do循环结束后只有一个v值输出，如果我需要让每一个 v 值都与vapang相加得到多个vev值，这个应该怎么办呢？
      do k=1,227
        v= c(k)*b(k)
     enddo

St_Maxwell

要计算多个v，那么显然v应该是数组啊。所以你要把v和vev定义为数组，并且向子程序传递数组。（传数组的方法见http://fcode.cn/guide-103-1.html）

1. subroutine evbas(r, v)
   
2.     sometype :: r
   
3.     real, dimension(:) :: v
   
4. 
   
5.     do k=1,227
   
6.         v(k) = c(k)*b(k)
   
7.     enddo
   
8.     ! or v = c * k
   
9. 
   
10. end subroutine evbas

复制代码

调用evbas的地方也不需要太大改动

1. call evbas(r, v)
   
2. vev = vapang + v ! vev 和 v 都是大小为227的数组

复制代码