anchor.diff:  END IF
   IF (iost > 0) THEN
       IF (PRESENT(xtab)) THEN
  +       WRITE(funit, *)
          WRITE(funit, 1005) ln, xtab
       ELSE
  +       WRITE(funit, *)
          WRITE(funit, 1004) ln
       END IF
       WRITE(funit,*) mess
       IF (PRESENT(xtab)) THEN
  +      WRITE(*,*)
         WRITE(*, 1005) ln, xtab
       ELSE
  +      WRITE(*,*)
         WRITE(*, 1004) ln
       END IF
       WRITE(*,*) mess
  
positive.code: ALLOCATE(xsigr (nmat,ng))
  ALLOCATE(chi  (nmat,ng))
  
  ! Reading MACROSCOPIC CXs
  DO i= 1, nmat
      DO g= 1, 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
            WRITE(ounit, *) '  ERROR: SLASH (/) OR BACKSLASH (\) NOT ACCEPTED IN %XSEC CARD '
            WRITE(*, *) '  ERROR: SLASH (/) OR BACKSLASH (\) NOT ACCEPTED IN %XSEC CARD '
            STOP
          END IF
          BACKSPACE(xbunit)
  
          READ(xbunit, *, IOSTAT=ios) ind, ln, xsigtr(i,g), &
          xsiga(i,g), xnuf(i,g), xsigf(i,g), &
          chi(i,g), (xsigs(i,g,h), h = 1, ng)
  
negative.code: 
  IF (iost < 0) THEN
      IF (PRESENT(xtab)) THEN
        WRITE(funit, *)
        WRITE(funit, 1014) ln, xtab
      ELSE
        WRITE(funit, *)
        WRITE(funit, 1013) ln
      END IF
      WRITE(funit,*) mess
      IF (PRESENT(xtab)) THEN
        WRITE(*,*)
        WRITE(*, 1014) ln, xtab
      ELSE
        WRITE(*,*)
        WRITE(*, 1013) ln
      END IF
      WRITE(*,*) mess
  