anchor.diff:  
         lerror = .false.
   
  -      write(lout,*) ''
  -      write(lout,10010)
  -      write(lout,*) ' CALL TO CHECK_COUPLING_INTEGRITY '
  -      write(lout,*) ' NB: only entrance/exit markers are listed;'
  -      write(lout,*) '     a single entry is by definition righteous'
  -      write(lout,10010)
  -      write(lout,*) ''
  -      write(lout,*) ''
  -      write(lout,*) '        keys to FLUKA types:'
  -      write(lout,*) FLUKA_ELEMENT,' --> simple element'
  -      write(lout,*) FLUKA_ENTRY,' --> entrance point'
  -      write(lout,*) FLUKA_EXIT,' --> exit point'
  -      write(lout,*) ''
  -      write(lout,*) ''
  +      write(lout,'(a)') 'FLUKA> '
  +      write(lout,10040)
  +      write(lout,'(a)') 'FLUKA> CALL TO CHECK_COUPLING_INTEGRITY '
  +      write(lout,'(a)') 'FLUKA> NB: only entrance/exit markers are listed;'
  +      write(lout,'(a)') 'FLUKA>     a single entry is by definition righteous'
  +      write(lout,10040)
  +      write(lout,'(a)') 'FLUKA> '
  +      write(lout,'(a)') 'FLUKA>         keys to FLUKA types:'
  +      write(lout,'(a,i0,a)') 'FLUKA> ',FLUKA_ELEMENT,' --> simple element'
  +      write(lout,'(a,i0,a)') 'FLUKA> ',FLUKA_ENTRY,' --> entrance point'
  +      write(lout,'(a,i0,a)') 'FLUKA> ',FLUKA_EXIT,' --> exit point'
  +      write(lout,'(a)') 'FLUKA> '
  +      write(lout,10040)
  +      write(lout,10020) 'entry type', 'name', 'ID SING EL', 'ID struct', 'ID geom'
   
         i1=1
         do while ( i1.le.iu )
  
positive.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 + 1
                      lfound = .true.
                      if ( lcurturn ) then
                        exit
  
negative.code: !       go to next accelerator entry
          i1 = i1+1
        enddo
        write(lout,10040)
  
   1983 continue
        if ( lerror ) then
          write(lout,'(a)') ' at least one inconsistency in flagging elements'
          write(lout,'(a)') '    for coupling: please check carefully...'
          call prror
        endif
  
  !     au revoir:
        return
  10020 format('FLUKA> ',1X,A10,1X,A4,12X,3(1X,A10))
  10030 format('FLUKA> ',1X,I10,1X,A16,3(1X,I10))
  10040 format('FLUKA> ',62('-'))
  end subroutine check_coupling_integrity
  
  subroutine check_coupling_start_point()
  