anchor.diff:  DO
       READ(xbunit, *, IOSTAT=ios) ind, ln, rot
       message = ' error in reading ADF Rotation'
  -    CALL er_message(ounit, ios, ln, message)
  +    CALL er_message(ounit, ios, ln, message, buf=xbunit)
       IF (rot < 1) EXIT
       IF (rot > 3) THEN
           WRITE(ounit,*) '  ERROR: MAXIMUM ADF ROTATION IS 3 TIMES'
  
positive.code: ALLOCATE(chi  (nmat,ng))
  
  ! To ancticipate users make mistake when they use %XTAB instead of %XSEC
  READ(xbunit, '(A100)') iline
  comm1 = INDEX(iline, '/')
  comm2 = INDEX(iline, '\')
  IF (comm1 > 0 .OR. comm2 > 0) THEN
  
negative.code:   READ(tunit, *, IOSTAT=iost) ind, ln, par(1:dim)
    message = ' ERROR IN XTAB FILE '// TRIM(ADJUSTL(fname))&
     // ': CANNOT READ BRANCH PARAMETERS ' // messPar
    CALL er_message(ounit, iost, ln, message, XTAB=matnum)
    DO k = 2, dim
      IF (par(k-1) > par(k)) THEN
        WRITE(ounit,*) "  ERROR IN XTAB FILE  ", fname
        WRITE(ounit,*) "  ", messPar, " PARAMETER SHALL BE IN ORDER, SMALL to BIG"
        WRITE(*,*) "  ERROR IN XTAB FILE  ", fname
        WRITE(*,*) "  ", messPar, " PARAMETER SHALL BE IN ORDER, SMALL to BIG"
        STOP
      END IF
    END DO
  