anchor.diff:      ! done initializing
       network_initialized = .true.
   
  -    ! rpar is VODE's way of passing information into the RHS and                
  -    ! jacobian routines.  Here we initialize some indices to make               
  -    ! sense of what is stored in the rpar() array.                              
  -    call init_rpar_indices(nrat, nspec)
  -
     end subroutine network_init
   
     
  
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:     short_spec_names(ihe4) = "He4"
      short_spec_names(ih1) = "H1"    
  
      ! set the species properties
      aion(ic12) = TWELVE
      aion(io14) = 14.0_dp_t
  