anchor.diff:  
       if ( c .le. 0 .or. c .gt. nContainers ) then
   
  -       write(*,*) 'Wrong container number'
  +       if ( VERBOSE ) then
  +          
  +          write(*,FMT=1000) 'SETCURRCONTAINER'
  +          
  +1000      format('ERROR in subr. ',A10,': Wrong container number.')
  +
  +       end if
   
          stop
   
  
positive.code: 
      ! Select items
  
      write(*,*) 'Selected items:'
  
      do i = 1, nItems
  
         if ( x(2 * (i - 1) + 1) + iLength(i) .le. cLength ) then
  
            write(*,*) 'Item', iNumber(i)
  
            call swap(x, iLength, iWidth, iType, iNumber,iId, pos, i)
  
            pos = pos + 1
  
  
negative.code: 
      deallocate(types, tL, tW, tId, tcl)
  
  1000 format('ERROR in subr. ',A10,': Item without container.')
  
  1001 format('INFO: ',I6,' elements of type ',I3,'.')
      
    end subroutine loadData
  
  ! ******************************************************************
  