anchor.diff:  !--FIND MINIMUM VALUE OF THE DISTANCE IN PHASESPACE
   !----------------------------------------------------------------------
     190 ifipa=0
  -!STF case: read tracking data until one reaches right particle.
  +      ! read tracking data until one reaches right particle.
         if(ntwin.eq.1) then
            read(nfile,end=200,iostat=ierro) ia_stf,ifipa_stf,b_tmp,c_tmp,d_tmp,e_tmp,f_tmp,g_tmp,h_tmp,p_tmp
   
  
positive.code:             iskc=iskc+1
              if(mod(iskc,iskip).ne.0) goto 460
              if((ia-nstart).lt.0) goto 460
              if(progrm.eq.'MAD') then !NON-STF only
  #ifndef STF
                c=c*c1e3
                d=d*c1e3
                e=e*c1e3
                f=f*c1e3
                g=g*c1e3
                p=p*c1e3
  
                if(ntwin.eq.2) then
                  c1=c1*c1e3
                  d1=d1*c1e3
                  e1=e1*c1e3
                  f1=f1*c1e3
                  g1=g1*c1e3
                  p1=p1*c1e3
                end if
  #else
          write(lout,*) "ERROR in postpr: program=MAD not valid for STF."
          call prror
  #endif
  
              end if
  !--LYAPUNOV
              if(ntwin.eq.2) then
  
negative.code:       if((ia-nstart).lt.0) goto 190
  
        if(progrm.eq.'MAD') then
          write(lerr,"(a)") "POSTPR> ERROR Program=MAD no longer supported"
          call prror
        endif
  
        if(ntwin.eq.2) then
          x(1,1)=c
  