anchor.diff:  !         SINGLE ELEMENT
             ix1=ic(i1)-nblo
             if ( fluka_type(ix1).eq.FLUKA_ENTRY ) then
  -            write(lout,*) ''
  -            write(lout,*) ''
  -            write(lout,10020) 'entry type', 'name', 'ID SING EL', 'ID struct', 'ID geom'
  +            write(lout,10040)
               write(lout,10030) fluka_type(ix1), bez(ix1), ix1, i1, fluka_geo_index(ix1)
               istart = i1+1
               istop  = iu
  
positive.code: !       go to next accelerator entry
          i1 = i1+1
        enddo
  
   1983 continue
        if ( lerror ) then
          write(lout,*) ' at least one inconsistency in flagging elements'
          write(lout,*) '    for coupling: please check carefully...'
          call prror
        endif
  
  !     au revoir:
        return
  10010 format(132('-'))
  10020 format(1X,A10,1X,A4,12X,3(1X,A10))
  10030 format(1X,I10,1X,A16,3(1X,I10))
  end subroutine check_coupling_integrity
  
  subroutine check_coupling_start_point()
  
negative.code:                 if ( fluka_type(ix2).eq.FLUKA_EXIT ) then
                    if(fluka_geo_index(ix1).eq.fluka_geo_index(ix2))then
                      write(lout,10030) fluka_type(ix2), bez(ix2), ix2, i2, fluka_geo_index(ix2)
                      i1 = i2
                      lfound = .true.
                      if ( lcurturn ) then
                        exit
  