anchor.diff:      short_spec_names(ihe4) = "He4"
       short_spec_names(ih1) = "H1"    
   
  -    reac_names(irlambCNO) = "rlambdaCNO"
  -    reac_names(irag15o) = "rag15o"
  -    reac_names(irr1) = "rr1"
  -    reac_names(irag16o) = "rag16o"
  -    reac_names(irpg16o) = "rpg16o"
  -    reac_names(irpg17f) = "rpg17f"
  -    reac_names(irgp17f) = "rgp17f"
  -    reac_names(irlambda2) = "rlambda2"
  -    reac_names(irap14o) = "rap14o"
  -    reac_names(irs1) = "rs1"
  -    reac_names(irlambda1) = "rlambda1"
  -    reac_names(ir3a) = "r3a"
  -    reac_names(irpg12c) = "rpg12c"
  -    reac_names(irwk14o) = "wk14o"
  -    reac_names(irwk17f) = "wk17f"
  -    reac_names(irwk15o) = "wk15o"
  -    reac_names(irLweak) = "Lweak"
  -    reac_names(irla2) = "la2"
  -
       ! set the species properties
       aion(ic12) = TWELVE
       aion(io14) = 14.0_dp_t
  
positive.code:   character (len= 5), save :: short_spec_names(nspec)
    character (len= 5), save :: short_aux_names(naux)
  
    character (len=10), save :: reac_names(nrat)
  
    real(kind=dp_t), save :: aion(nspec), zion(nspec), ebin(nspec)
  
    logical, save :: network_initialized = .false.
  
negative.code:     ! done initializing
      network_initialized = .true.
  
    end subroutine network_init
  
    
  