anchor.diff:  ! Read Coolant Density
   READ(xbunit, *, IOSTAT=ios) ind, ln, ccden, rcden
   message = ' error in reading Coolant Density and Coolant Density reference'
  -CALL er_message(ounit, ios, ln, message)
  +CALL er_message(ounit, ios, ln, message, buf=xbunit)
   
   !ASSIGN CCDEN TO CDEN
   IF (bther == 0) ALLOCATE (cden(nnod))
  
positive.code: IF (iost > 0) THEN
    WRITE(funit,*)
    WRITE(*,*)
    WRITE(*,*)''//achar(27)//'[31m OOPS! WE FOUND AN ERROR.'//achar(27)//'[0m.'
  
    IF (PRESENT(xtab)) THEN
       WRITE(funit, 1005) ln, xtab
    ELSE
       WRITE(funit, 1004) ln
    END IF
    WRITE(funit,*) mess
    IF (PRESENT(xtab)) THEN
      WRITE(*, 1005) ln, xtab
    ELSE
      WRITE(*, 1004) ln
    END IF
    WRITE(*,*) mess
    1004 FORMAT(2X, 'ERROR: PLEASE CHECK LINE NUMBER', I4)
    1005 FORMAT(2X, 'ERROR: PLEASE CHECK LINE NUMBER', I4, &
    ' IN XTAB FILE FOR MATERIAL NUMBER ', I4)
    STOP
  
negative.code:     ! Read source spectrum
      READ(xbunit, *, IOSTAT=ios) ind, ln, (spec(g), g = 1, ng)
      message = ' error in reading source spectrum'
      CALL er_message(ounit, ios, ln, message, buf=xbunit)
  
      ! Is total spectrum = 1._DP?
      summ = 0._DP
  