anchor.diff: -!-----GRD-----GRD-----GRD-----GRD-----GRD-----GRD-----GRD-----GRD-----GRD-----
  -!-----                                                                   -----
  -!-----    NEW BLOCKS PROVIDED FOR THE COLLIMATION STUDIES VIA SIXTRACK   -----
  -!-----                                                                   -----
  -!-----        G. ROBERT-DEMOLAIZE, October 27th, 2004                    -----
  -!-----                                                                   -----
  -!-----GRD-----GRD-----GRD-----GRD-----GRD-----GRD-----GRD-----GRD-----GRD-----
  -
  -! Useful names for future reference in the code:
  -!GRD Guillaume Robert-Demolaize
  -!RA  Ralph Assmann
  -!TW  Thomas Weiler
  -!CB  Chiara Bracco
  -!SR  Stefano Redaelli
  -!RB  Roderik Bruce
  -!DM  Daniele Mirarchi
  -!YIL Yngve Inntjore Levinsen
  -!CT  Claudia Tambasco
  +! ================================================================================================ !
  +!
  +!  SixTrack Collimation Module
  +! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  +!
  +!  G. Robert-Demolaize, R. Assmann, T. Weiler, C. Bracco, S. Redaelli, R. Bruce, D. Mirarchi,
  +!  Y.I. Levinsen, C. Tambasco, J. Molson, K.N. Sjobak, V.K. Berglyd Olsen
  +!
  +!  Created: 2004-10-27
  +!  Updated: 2019-03-25
  +!
  +! ================================================================================================ !
   
   module collimation
   
  
positive.code:   use mod_commons
    use mod_common_track
    use mod_common_da
  
    implicit none
  
  
negative.code:   use mod_common_track
    use mod_common_da
    use numerical_constants, only : c5m4
    use coll_db
  
    implicit none
  
  