anchor.diff:        iEl=1
         ixEl=ix
         bez(ixEl)='s.latt.aper'
  +      bezs(iEl)=bez(ixEl)
         write(lout,"(a)") "APER> -> Inserted empty marker at start of lattice"
   #ifdef FLUKA
       else if( fluka_type(ixEl).eq.FLUKA_ELEMENT.or.fluka_type(ixEl).eq.FLUKA_ENTRY   ) then
  
positive.code: ! do not overwrite interface variables
    iElUp=itElUp
    iElDw=itElDw
  ! markers accross extremes of lattice structure?
    lAccrossLatticeExtremes=iElUp.gt.iElDw
  #ifdef DEBUG
  
negative.code: #endif
  
  subroutine dumpMe
    use parpro, only : mNameLen
    implicit none
  
  ! temporary variables
    integer i, ix
    character(len=mNameLen) tmpC, tmpD
    tmpC="name"
    tmpD="bezs(i)"
    
    write(lout,"(a)") "APER> dumpMe -----------------------------------------------------------------------------"
    write(lout,"(a,2(a8,1x),2(a,1x),a15,1x,a8)") "APER> ","i","ix",tmpC,tmpD,"dcum(i)","kape(ix)"
    do i=1,iu
      ix=ic(i)-nblo
      if( ix.gt.0 ) then
        write(lout,"(a,2(i8,1x),2(a,1x),f15.6,1x,i8)") "APER> ",i,ix,bez(ix),bezs(i),dcum(i),kape(ix)
      else
        write(lout,"(a,2(i8,1x),2(a,1x),f15.6)") "APER> ",i,ic(i),bezb(ic(i)),bezs(i),dcum(i)
      end if
    end do
    write(lout,"(a)") "APER> dumpMe -----------------------------------------------------------------------------"
  