how to sum results from an argument,that come in array form : i have this fortran 95 do-loop code which return answers in array form, please how do i find the SUM of the answers (fv) without writing them out,because they're iterative and subject to change. thanks 
                                                                        
      !.......vapor fraction..............
      do i=1,6
      FV=Z(I)*(K(i)-1)/(VOLD*(K(i)-1)+1)
      write(*,99001)FV
      END DO