anchor.diff:                 //'   FISS. SOURCE REL. ERROR    DOPPLER ERROR'
   WRITE(ounit,*) ' -----------------------------------------------------------' &
                 // '-------------------------------------------'
  -		
  -! Terminal Output		
  +
  +! Terminal Output
   WRITE(*,*)
   WRITE(*,*)
   WRITE(*,*) ' ==============================================' &
  
positive.code: WRITE(*,*) ' ==============================================' &
              // '=========='
  WRITE(*,*)
  WRITE(*,*) '  Itr  Boron Concentration          K-EFF    ' 
  WRITE(*,*) ' --------------------------------------------------------' 
  
  
  ALLOCATE(npow(nnod))
  
negative.code: WRITE(*,*) ' ==============================================' &
              // '=========='
  WRITE(*,*)
  WRITE(*,*) '  Itr  Boron Concentration          K-EFF    '
  WRITE(*,*) ' --------------------------------------------------------'
  
  
  bcon = rbcon
  