c---------------------------------
      subroutine csa_read
      implicit real*8 (a-h,o-z)
      include 'DIMENSIONS'
      include 'COMMON.CSA'
      include 'COMMON.BANK'
      include 'COMMON.IOUNITS'

      open(icsa_in,file=csa_in,status="old",err=100)
       read(icsa_in,*) nconf
       read(icsa_in,*) jstart,jend
       read(icsa_in,*) nstmax
       read(icsa_in,*) n1,n2,n3,n4,n5,n6,n7,n8,is1,is2
       read(icsa_in,*) nran0,nran1,irr
       read(icsa_in,*) nseed
       read(icsa_in,*) ntotal,cut1,cut2
       read(icsa_in,*) estop
       read(icsa_in,*) icmax,irestart
       read(icsa_in,*) ntbankm,dele,difcut
       read(icsa_in,*) iref,rmscut,pnccut
       read(icsa_in,*) ndiff
      close(icsa_in)

      return

 100  continue
      return
      end
c---------------------------------
      subroutine initial_write
      implicit real*8 (a-h,o-z)
      include 'DIMENSIONS'
      include 'COMMON.CSA'
      include 'COMMON.BANK'
      include 'COMMON.IOUNITS'

      open(icsa_seed,file=csa_seed,status="unknown")
       write(icsa_seed,*) "seed"
      close(31)
#if defined(AIX) || defined(PGI)
       open(icsa_history,file=csa_history,status="unknown",
     &  position="append")
#else
       open(icsa_history,file=csa_history,status="unknown",
     &  access="append")
#endif
       write(icsa_history,*) nconf
       write(icsa_history,*) jstart,jend
       write(icsa_history,*) nstmax
       write(icsa_history,*) n1,n2,n3,n4,n5,n6,n7,n8,is1,is2
       write(icsa_history,*) nran0,nran1,irr
       write(icsa_history,*) nseed
       write(icsa_history,*) ntotal,cut1,cut2
       write(icsa_history,*) estop
       write(icsa_history,*) icmax,irestart
       write(icsa_history,*) ntbankm,dele,difcut
       write(icsa_history,*) iref,rmscut,pnccut
       write(icsa_history,*) ndiff

       write(icsa_history,*)
      close(icsa_history)

      open(icsa_bank1,file=csa_bank1,status="unknown")
       write(icsa_bank1,*) 0
      close(icsa_bank1)

      return
      end
c---------------------------------
      subroutine restart_write
      implicit real*8 (a-h,o-z)
      include 'DIMENSIONS'
      include 'COMMON.IOUNITS'
      include 'COMMON.CSA'
      include 'COMMON.BANK'

#if defined(AIX) || defined(PGI)
       open(icsa_history,file=csa_history,position="append")
#else
       open(icsa_history,file=csa_history,access="append")
#endif
       write(icsa_history,*)
       write(icsa_history,*) "This is restart"
       write(icsa_history,*)
       write(icsa_history,*) nconf
       write(icsa_history,*) jstart,jend
       write(icsa_history,*) nstmax
       write(icsa_history,*) n1,n2,n3,n4,n5,n6,n7,n8,is1,is2
       write(icsa_history,*) nran0,nran1,irr
       write(icsa_history,*) nseed
       write(icsa_history,*) ntotal,cut1,cut2
       write(icsa_history,*) estop
       write(icsa_history,*) icmax,irestart
       write(icsa_history,*) ntbankm,dele,difcut
       write(icsa_history,*) iref,rmscut,pnccut
       write(icsa_history,*) ndiff
       write(icsa_history,*)
       write(icsa_history,*) "irestart is: ", irestart

       write(icsa_history,*)
      close(icsa_history)

      return
      end
c---------------------------------