anchor.diff:       &t62,f15.9,1x,f15.10,f15.9/                                        &
        &t10,'  Y  ',f14.10,2(1x,g15.8),1x,f15.9,1x,f15.10,f15.9/          &
        &t62,f15.9,1x,f15.10,f15.9/)
  -10180 format(t5//t5,'BACK-TRACKING'/ t5, '============='//)
   10190 format(t10,'TRACKING FOR CONSTANT MOMENTUM DEVIATION'// 15x,      &
        &'ACCELERATION WITH PHASE = ',f8.4/ t15,                           &
        &'       TUNE         CLO            CLOP           ',             &
  
positive.code: 10350 format(4X,I8,1X,'SURVIVING PARTICLES:')
  10360 format(2(1X,A8),8(1X,A16))
  10370 format(2(1X,I8),8(1X,1PE16.9))
  10380 format(10x,f47.33)
  #endif
  end program maincr
  
negative.code:   write(lout,"(a)") ""
    write(lout,"(a)") str_divLine
    write(lout,"(a)") ""
    call time_timeStamp(time_afterTracking)
  
    if(st_partsum .eqv. .false.) then
  