anchor.diff:  ! therefore 1E-3 is used to
   
   ! RB: added condition that pencil_distr.ne.3 in order to do the tilt
  -    if((icoll.eq.ipencil).and.(iturn.eq.1).and. (pencil_distr.ne.3)) then
  +  if((icoll.eq.ipencil).and.(iturn.eq.1).and. (pencil_distr.ne.3)) then
   !!               write(*,*) " ************************************** "
   !!               write(*,*) " * INFO> seting tilt for pencil beam  * "
   !!               write(*,*) " ************************************** "
  
positive.code:   end if
  
  !++  Write beam ellipse at selected collimator
    if (((cdb_cNameUC(icoll).eq.name_sel(1:mNameLen)) .or. (cdb_cName(icoll).eq.name_sel(1:mNameLen))) .and. do_select) then
      do j = 1, napx
        write(coll_ellipseUnit,'(1X,I8,6(1X,E15.7),3(1X,I4,1X,I4))') ipart(j),xv1(j), xv2(j), yv1(j), yv2(j), &
       &        ejv(j), sigmv(j),iturn,secondary(j)+tertiary(j)+other(j)+scatterhit(j),nabs_type(j)
      end do
    end if
  
  !-------------------------------------------------------------------
  !++  Output to temporary database and screen
    if(iturn.eq.1.and.firstrun) then
      write(coll_tempDbUnit,*) '# '
      write(coll_tempDbUnit,*) cdb_cNameUC(icoll)!(1:11)
      write(coll_tempDbUnit,*) cdb_cMaterial(icoll)
      write(coll_tempDbUnit,*) cdb_cLength(icoll)
      write(coll_tempDbUnit,*) cdb_cRotation(icoll)
  
negative.code: !!               if (systilt_antisymm) then
  !! to align the jaw/pencil to the beam always use the minus regardless which
  !! orientation of the jaws was used (symmetric/antisymmetric)
      c_tilt(1) = c_tilt(1) +    (xp_pencil0*cos_mb(c_rotation) + sin_mb(c_rotation)*yp_pencil0)
      c_tilt(2) = c_tilt(2) -one*(xp_pencil0*cos_mb(c_rotation) + sin_mb(c_rotation)*yp_pencil0)
      write(lout,*) "INFO> Changed tilt1  ICOLL  to  ANGLE  ", icoll, c_tilt(1)
      write(lout,*) "INFO> Changed tilt2  ICOLL  to  ANGLE  ", icoll, c_tilt(2)
    end if
  !++ TW -- tilt angle changed (added to genetated on if spec. in fort.3)
  
  !-------------------------------------------------------------------
  !++  Further output
  