anchor.diff:  
   INTEGER :: ng     ! number of groups
   INTEGER :: nmat   ! number of materials
  -! MAterial CX data
  +!! CXs Assigned to Nodes
   REAL, DIMENSION(:,:), ALLOCATABLE :: sigtr          ! Transport macroscopic cx
   REAL, DIMENSION(:,:), ALLOCATABLE :: siga           ! Absorption macroscopic cx
   REAL, DIMENSION(:,:), ALLOCATABLE :: nuf            ! nu* fission macroscopic cx
  
positive.code: REAL :: serc = 1.e-5
  REAL :: ierc = 1.e-5
  INTEGER :: nin = 2
  INTEGER :: nout = 300
  INTEGER :: nac = 5
  
  ! OUTPUT PRINT OPTION
  
negative.code: END TYPE
  TYPE(ADF_TYPE), DIMENSION(:,:), ALLOCATABLE :: al
  
  ! FUEL TEMPERATURE
  REAL, DIMENSION(:), ALLOCATABLE :: ftem       ! Fuel temperature in Kelvin for each nodes
  REAL :: rftem      ! Fuel temperature Reference in Kelvin
  REAL, DIMENSION(:,:), ALLOCATABLE :: fsigtr, fsiga, fnuf, fsigf   ! CX changes per fuel temp changes
  REAL, DIMENSION(:,:,:), ALLOCATABLE :: fsigs
  
  ! MODERATOR TEMPERATURE
  REAL, DIMENSION(:), ALLOCATABLE :: mtem       ! Moderator temperature in Kelvin for each nodes
  REAL :: rmtem      ! Moderator temperature Reference in Kelvin
  REAL, DIMENSION(:,:), ALLOCATABLE :: msigtr, msiga, mnuf, msigf   ! CX changes per Moderator temp changes
  REAL, DIMENSION(:,:,:), ALLOCATABLE :: msigs
  
  ! COOLANT DENSITY
  REAL, DIMENSION(:), ALLOCATABLE :: cden       ! Coolant Density in g/cm3 for each nodes
  REAL :: rcden      ! Coolant Density Reference in g/cm3
  REAL, DIMENSION(:,:), ALLOCATABLE :: lsigtr, lsiga, lnuf, lsigf   ! CX changes per Coolant density changes
  REAL, DIMENSION(:,:,:), ALLOCATABLE :: lsigs
  
  ! Crod changes
  INTEGER :: nb                                                     ! Number of CR banks
  REAL, DIMENSION(:), ALLOCATABLE :: bpos  ! CR bank position
  REAL, DIMENSION(:), ALLOCATABLE :: fbpos    ! Final CR bank position
  REAL, DIMENSION(:,:), ALLOCATABLE :: dsigtr, dsiga, dnuf, dsigf   ! CX incerement or decrement due to CR insertion
  REAL, DIMENSION(:,:,:), ALLOCATABLE :: dsigs
  REAL, DIMENSION(:), ALLOCATABLE :: tmove    ! Time when CR bank starts moving
  REAL, DIMENSION(:), ALLOCATABLE :: bspeed   ! CR bank movement speed
  INTEGER, DIMENSION(:), ALLOCATABLE :: mdir     ! To indicate CR movement direction (0=do not move, 1=down, 2 = up)
  
  ! Boron Concentration
  REAL :: bcon       ! Boron concentration in ppm
  REAL :: rbcon      ! Boron concentration in ppm Reference
  REAL, DIMENSION(:,:), ALLOCATABLE :: csigtr, csiga, cnuf, csigf   ! CX changes due to boron concentration
  REAL, DIMENSION(:,:,:), ALLOCATABLE :: csigs                      ! Used only for CBCS card
  
  ! Transient parameters
  INTEGER, PARAMETER :: nf = 6                       ! Number of delaye dneutron precusor family 
  REAL, DIMENSION(nf) :: ibeta, lamb                 ! beta and precusor decay constant
  ! REAL, DIMENSION(:,:), ALLOCATABLE :: iC            ! neutron precusor density
  REAL, DIMENSION(:), ALLOCATABLE :: velo            ! Neutron velocity
  REAL :: ttot                                       ! TOTAL SIMULATION TIME
  REAL :: tstep1                                     ! FIRST TIME STEP
  REAL :: tstep2                                     ! SECOND TIME STEP
  REAL :: tdiv                                       ! WHEN SECOND TIME STEP APPLY
  
  
  END MODULE sdata
  