anchor.diff:  INTEGER, INTENT(IN) :: xbunit
   
   INTEGER :: ln   !Line number
  -INTEGER :: ios  ! IOSTAT status
  +INTEGER :: ios, iosc  ! IOSTAT status
   
   INTEGER :: i, j, g, h
   INTEGER, DIMENSION(nx, ny) :: bmap       ! Radial control rod bank map (assembly wise)
  
positive.code: 
  !! CROD PRINT OPTION
  READ(xbunit, *, IOSTAT=ios) ind, ln, popt
  IF (ios == 0 .AND. popt > 0) THEN
  
      WRITE(ounit,1201) nb
      WRITE(ounit,1216) NINT(nstep)
      WRITE(ounit,1202) pos0
      WRITE(ounit,1203) ssize
  
      ALLOCATE(bank(nb))
      DO i = 1, nb
  
negative.code: END IF
  
  1201 FORMAT(2X, 'NUMBER OF CONTROL ROD BANK  :', I3)
  1216 FORMAT(2X, 'MAX. NUMBER OF STEPS        :', I4)
  1202 FORMAT(2X, 'FULLY INSERTED POSITION (cm): ', F4.1, ' (FROM BOTTOM OF THE CORE)')
  1203 FORMAT(2X, 'STEP SIZE (cm)              : ', F8.4)
  1204 FORMAT(2X, 10(:, 2X, 'Bank ', I2))
  