anchor.diff:    use mod_time
     use mod_common
     use coll_common
  +  use mod_settings
     use mod_common_main
     use mod_common_track
     use coll_db
  
positive.code:   end if
  
    ! Crystal Files
    if(coll_hasCrystal) then
      if(dowrite_crycoord) then
        call f_requestUnit(coll_cryEntFile,coll_cryEntUnit)
        call f_open(unit=coll_cryEntUnit,file=coll_cryEntFile,formatted=.true.,mode="w",status="replace")
        write(coll_cryEntUnit,"(a1,1x,a6,1x,a8,1x,a20,1x,a4,2(1x,a3),5(1x,a15))") &
  
negative.code:   use mod_units
    use string_tools
    use mod_common, only : numl
    use mod_settings
    use coll_common
  #ifdef HDF5
    use hdf5_output
  