      subroutine  rmasave(iunit,cfile) ! bernd berg sep 24 2000.
      include '../../libs/fortran/implicit.sta'
      character*(*) cfile
      common/raset1/u(97),c,cd,cm,i,j
      open(unit=iunit,file=cfile,status='unknown',form='unformatted')
      write(iunit) u,c,cd,cm,i,j
      close(iunit)
      return
      end
