anchor.diff:  ! Purpose:
   !    To read case card in input
   !
  -!   Date                Programmer           History
  -!  ========================================================
  -!  6 FEB 2017         Muhammad Imron       Original code
   
   IMPLICIT NONE
   
  
positive.code: TYPE(MAT_ASGN), DIMENSION(:), ALLOCATABLE :: plnr       ! planar
  INTEGER, DIMENSION(:,:,:), ALLOCATABLE :: mnum
  
  !! LOCAL CXs
  REAL, DIMENSION(:,:), ALLOCATABLE :: xsigtr          ! Transport macroscopic cx
  REAL, DIMENSION(:,:), ALLOCATABLE :: xsiga           ! Absorption macroscopic cx
  REAL, DIMENSION(:,:), ALLOCATABLE :: xnuf            ! nu* fission macroscopic cx
  REAL, DIMENSION(:,:), ALLOCATABLE :: xsigf           ! fission macroscopic cx
  REAL, DIMENSION(:,:), ALLOCATABLE :: xchi            ! neutron fission spectrum
  REAL, DIMENSION(:,:,:), ALLOCATABLE :: xsigs         ! Scattering macroscopic cx
  REAL, DIMENSION(:,:), ALLOCATABLE :: xD              ! Diffusion coefficient
  REAL, DIMENSION(:,:), ALLOCATABLE :: xsigr           ! Removal macroscopic cx
  
  !Core Height
  REAL :: coreh
  
  
  CONTAINS
  
negative.code: !    input and gives the description
  !    to the user about his/her input
  !
  
  
  USE sdata, ONLY: ng, nnod, mode, al
  
  