anchor.diff:  CALL er_message(ounit, ios, ln, message)
   
   !ASSIGN CCDEN TO CDEN
  -IF (bther == 0) ALLOCATE (cden(nnod)) 
  +IF (bther == 0) ALLOCATE (cden(nnod))
   cden = ccden
   
   ! Read CX changes per Coolant Density change
  
positive.code: 
  ! Guess fuel and moderator temperature
  ALLOCATE(tfm(nnod, nt+1)) ! Allocate fuel pin mesh temperature
  tfm = 1200.
  
  ALLOCATE(ent(nnod))
  ALLOCATE(heatf(nnod))
  
negative.code: ! ASSIGN CMTEM to MTEM
  IF (bther == 0) ALLOCATE (mtem(nnod))
  mtem = cmtem
  
  ! Read CX changes per moderator temperature change
  ALLOCATE(msigtr(nmat,ng), msiga(nmat,ng), mnuf(nmat,ng), msigf(nmat,ng), msigs(nmat,ng,ng))
  DO i = 1, nmat
  