anchor.diff:    end if
   
     ! Crystal Files
  -  if(coll_hasCrystal) then
  -    if(dowrite_crycoord) then
  +  if(coll_hasCrystal .and. dowrite_crycoord) then
  +    if(st_debug) 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))") &
  
positive.code:   use mod_time
    use mod_common
    use coll_common
    use mod_common_main
    use mod_common_track
    use coll_db
  
negative.code:       part_abs_pos, part_abs_turn, part_impact, part_indiv, part_linteract,             &
        onesided, nhit_stage, 1, nabs_type, linside)
  
      if(cdb_isCrystal(icoll) .and. dowrite_crycoord) then
        if(st_debug) then
          do j=1,napx
            isHit = part_hit_pos(j) == ie .and. part_hit_turn(j) == iturn
            isAbs = part_abs_pos(j) == ie .and. part_abs_turn(j) == iturn
  