anchor.diff:            write(0,'("geo:    ",I5)'),geo
             write(0,'("p:      ",I5)'),p
             write(0,'("invert: ",I5)'),invert
  +          write(0,'("ostyle: ",I5)'),ostyle
             write(0,*)
         endif
         call chkin(fltf,obsf)
  
positive.code:       endif
        read(line,*) temp0,cool,nitmax
        nsoln = 1
        read(59,*,end=557) nsoln
    557 continue
        close(59)
        RETURN
        END
  
negative.code: C----
  C Write nsoln best solutions to file best_nsoln.dat
  C----
  C      write(nsolnc,'(I0.2)') nsoln
  C      open(unit=53,file='best_'//nsolnc//'.dat',status='unknown')
        open(unit=53,file='best0.dat',status='unknown')
        write(53,'(50F12.6)') (obj0(j),j=1,nsoln)
        do 521 i = 1,nflt
            write(53,'(50F12.6)') (best0(i,1,j),j=1,nsoln)
    521 continue
  