Как использовать `results (k (i))` из первого цикла do во втором цикле do?

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 не является массивом, я полагаю, что это должно быть.