      subroutine write_progress(iud,ctxt,irpt,iact,acpt)
c bernd berg dec 16 2000. open/close write to monitor progress.
      include '../../libs/fortran/implicit.sta'
      character*(*) ctxt
      open(iud,file="progress.d",form="formatted",status="unknown")
      rewind iud
      write(iud,'(a33,2i12,g15.5)') ctxt,irpt,iact,acpt
      close(iud)
      return
      end 
