anchor.diff:                write(0,'("Solution (ss ds)")')
             endif
         endif
  -      call output(soln,nflt,FLTMAX,ofile,p)
  +      call output(soln,nflt,FLTMAX,ofile,p,ostyle)
   
         END
   
  
positive.code:       endif
        read(line,*) temp0,cool,nitmax
        nsoln = 1
        read(59,*,end=557) nsoln
    557 continue
        close(59)
        RETURN
        END
  
negative.code:       INTEGER time(3),timeseed,idum
        CHARACTER*8 timec
        EXTERNAL ran2
        REAL ran2,random
  C Control file parameters
        CHARACTER*80 annf             ! Name of annealing control file 
        INTEGER      inityp           ! Initial solution type: 0=zero; 1=auto; 2=user
  