move typical charge back into star

Author: evbauer

star/defaults/profile_columns.list

@@ -341,11 +341,13 @@
 
 
    ! typical charge for given species
+   ! (used by diffusion)
    !typical_charge he4
    !typical_charge c12
    !typical_charge fe52
 
    ! ionization state for given species
+   ! (same as typical charge, except that it's unsmoothed)
    !ionization he4
    !ionization c12
    !ionization fe52

star/make/makefile_base

@@ -165,6 +165,8 @@ SRCS = \
    pulse_saio.f90 \
    pulse_gr1d.f90 \
    pulse_utils.f90 \
+   ionization_potentials.f90 \
+   mod_typical_charge.f90 \
    profile_getval.f90 \
    profile.f90 \
    mesh_functions.f90 \

star/private/diffusion_procs.f90

@@ -1184,7 +1184,7 @@ subroutine setup_struct_info( &
 
 
          subroutine do1(k)
-            use ionization_lib, only: eval_typical_charge
+            use mod_typical_charge, only: eval_typical_charge
             integer, intent(in) :: k
             integer :: i