













































































































































































































































































































































































































































































































































C
      subroutine aces_io_recovery
      
      Implicit None
      Integer maxcor, length, iuhf, ioff
C
C Read list IO files to extract T, L or C amplitudes. 
C


c icore.com : begin

c icore(1) is an anchor in memory that allows subroutines to address memory
c allocated with malloc. This system will fail if the main memory is segmented
c or parallel processes are not careful in how they allocate memory.

      integer icore(1)
      common / / icore

c icore.com : end







c machsp.com : begin

c This data is used to measure byte-lengths and integer ratios of variables.

c iintln : the byte-length of a default integer
c ifltln : the byte-length of a double precision float
c iintfp : the number of integers in a double precision float
c ialone : the bitmask used to filter out the lowest fourth bits in an integer
c ibitwd : the number of bits in one-fourth of an integer

      integer         iintln, ifltln, iintfp, ialone, ibitwd
      common /machsp/ iintln, ifltln, iintfp, ialone, ibitwd
      save   /machsp/

c machsp.com : end



c istart.com : begin
      integer         i0, icrsiz
      common /istart/ i0, icrsiz
      save   /istart/
c istart.com : end
c flags.com : begin
      integer        iflags(100)
      common /flags/ iflags
c flags.com : end
c flags2.com : begin
      integer         iflags2(500)
      common /flags2/ iflags2
c flags2.com : end
c
      iuhf = 0
      if (iflags(11).ne.0) iuhf = 1
      maxcor=icrsiz
      ioff = 0
c
      call read_tlc_amps(icore(i0), maxcor, ioff, length, iuhf)
      call write_tlc_amps(icore(i0), length, "TGUESS  ")
      
      Return
      End 
