anchor.diff:  			Emax = ceiling(Emax0 + mult * 8.314472 * Tmax)
   
   			call network_getEnergyGrains(Emin, Emax, dE, nGrains, Elist)
  -			call isomer_getDensityOfStates(net, isom, Elist, nGrains)
  +            call isomer_getDensityOfStates(net, isom, Elist, nGrains)
   			call isomer_getEqDist(isom, Elist, nGrains, Tmax)
   
   			! Find maximum of distribution
  
positive.code:             do i = 1, nIsom
                  E0(i) = net%isomers(i)%E0
                  collFreq(i) = net%isomers(i)%collFreq
                  densStates0 = net%isomers(i)%densStates
                  call collisionmatrix(T, P, Elist, collFreq, densStates0, E0(i), dEdown, Mcoll(i,:,:), msg)
              end do
  
              call estimateratecoefficients_rs(T, P, Elist, Mcoll, densStates, E0, Eres, &
                  Kij, Fim, Gnj, dEdown, nIsom, nReac, nProd, nGrains, K, msg)
  
          end if
  
          ! Check for validity of phenomenological rate coefficients
  
negative.code:         integer, intent(in) :: method
          real(8), dimension(1:nIsom+nReac+nProd,1:nIsom+nReac+nProd), intent(out) :: K
  
          real(8), dimension(1:nIsom,1:nGrains) :: densStates
          real(8), dimension(1:nIsom+nReac+nProd) :: Eres
          real(8), dimension(1:nIsom) :: E0
  