anchor.diff:      erro = errn       ! Save old fission source error/difference
       DO g = 1, ng
           !!!Calculate total source
  -        CALL TSrcFx2(g)
  -
  +        CALL TSrcFx(g)
           !!!Inner Iteration
           CALL inner4(g)
       END DO
  
positive.code:     erro = errn       ! Save old fission source error/difference
      DO g = 1, ng
          !!!Calculate total source
          CALL TSrc2(g, Keo)
          !!!Inner Iteration
          CALL inner4(g)
      END DO
  
negative.code: 
  
  
  SUBROUTINE TSrc(g, Keff)
  !
  ! Purpose:
  !   To update total source
  