anchor.diff:                 //'   FISS. SOURCE REL. ERROR    DOPPLER ERROR'
   WRITE(ounit,*) ' -----------------------------------------------------------' &
                 // '-------------------------------------------'
  -		
  -! Terminal Output		
  +
  +! Terminal Output
   WRITE(*,*)
   WRITE(*,*)
   WRITE(*,*) ' ==============================================' &
  
positive.code:     WRITE(*,'(I5, F15.2, F23.5)') n, bcon, Ke
      IF ((ABS(Ke - 1.0) < 1.e-5) .AND. (ser < 1.e-5) .AND. (fer < 1.e-5)) EXIT
      n = n + 1
      IF (bcon > 2999. .AND. bcon < 3000.) THEN
          WRITE(ounit,*) '  CRITICAL BORON CONCENTRATION EXCEEDS THE LIMIT(3000 ppm)'
          WRITE(ounit,*) '  ADPRES IS STOPPING'
          STOP
      END IF
      IF (bcon > 0. .AND. bcon < 1.) THEN
          WRITE(ounit,*) '  CRITICAL BORON CONCENTRATION IS NOT FOUND (LESS THAN ZERO)'
          WRITE(ounit,*) '  ADPRES IS STOPPING'
          STOP
      END IF
      IF (n == 30) THEN
          WRITE(ounit,*) '  MAXIMUM ITERATION FOR CRITICAL BORON SEARCH IS REACHING MAXIMUM'
          WRITE(ounit,*) '  ADPRES IS STOPPING'
          STOP
      END IF
  END DO
  
negative.code: WRITE(*,*) ' ==============================================' &
              // '=========='
  WRITE(*,*)
  WRITE(*,*) '  Itr  Boron Concentration          K-EFF    '
  WRITE(*,*) ' --------------------------------------------------------'
  
  
  bcon = rbcon
  