Next: 6.5 FINDW: initiate asynchronous Up: 6 Input/Output routines Previous: 6.3 RESERV: allocate new


6.4 ACCW: add to data on file

      subroutine accw(a,len,ifil,name,ioffs,factor,new)
This routine is functionally equivalent to the code
      if (.not.new) then
        call lesw(buf,len,ifil,name,ioffs)
      else
        call fzero (buf,len)
      end if
      call daxpy(len,factor,a,1,buf,1)
      call sreibw(buf,len,ifil,name,ioffs)
and thus achieves a daxpy operation for a vector on disk rather than in memory. It should be used wherever possible in preference to separate calls to lesw and sreibw, since its implementation on parallel platforms is significantly more efficient.

P.J. Knowles and H.-J. Werner
molpro-support@tc.bham.ac.uk
Jan 10, 2000