anchor.diff:  
   
         real(kind=fPrec) PC_in_dan     !daniele
  -      integer PROC_dan    !daniele
         real(kind=fPrec) xp_in,yp_in,kxmcs,kymcs
   
         write(*,*) "Entering MOVE_CH"
  
positive.code: !---------------------------
  
        real(kind=fPrec) PC_in_dan     !daniele
        integer PROC_dan    !daniele
        real(kind=fPrec) xp_in,yp_in,kxmcs,kymcs
  
        write(*,*) "Entering MOVE_AM"
  
negative.code:       yp=yp/1000
  
  
  
  
                 write(*,*) "MOVE_AM done"
  