Question

如何在第二个results(k(i))循环中使用第一个do循环中的do？现在我在第二个do循环中得到了错误的结果。

  WRITE(*,*) "Enter PRESSURE,TEMPERATURE"
  READ *,p,t
  WRITE(*,*) "Approximate K values for each component using Wilson's 
  correlation are;"
  do i=1,6
  K = (pc(I)/p)*EXP(5.37*(1+w(I))*(1-(tc(I)/t)))
  write(*,99001)K(i)
  end do

  !.......vapor fraction..............
  do i=1,6
  FV=(Z(I)*(K(i)-1))/((VOLD*(K(i)-1))+1)
  FPV=-(Z(I)*((K(i)-1)**2)/(1+(VOLD*(K(i)-1)))**2)
  write(*,99001)fv,fpv
  end do
  99001 FORMAT (9F15.6)
  END program

Answer 1

K = (pc(I)/p)*EXP(5.37*(1+w(I))*(1-(tc(I)/t)))

如果K是一个数组，我想你的意思是：

K(I) = (pc(I)/p)*EXP(5.37*(1+w(I))*(1-(tc(I)/t)))

如果K不是数组，我认为它应该是。

如何在第二个do循环中使用第一个do循环中的`results（k（i））`？

1 个答案: