! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Sparse Hessian Data Structures File ! ! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor ! (http://www.cs.vt.edu/~asandu/Software/KPP) ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) ! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa ! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech ! With important contributions from: ! M. Damian, Villanova University, USA ! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany ! ! File : cbm_HessianSP.f90 ! Time : Fri Mar 15 14:04:58 2013 ! Working directory : /home/sandu/kpp-2.2.3/examples/Cbm_fortran ! Equation file : cbm.kpp ! Output root filename : cbm ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MODULE cbm_HessianSP PUBLIC SAVE ! Hessian Sparse Data ! INTEGER, PARAMETER, DIMENSION(258) :: IHESS_I = (/ & 2, 2, 3, 4, 4, 4, 5, 6, 7, 8, 8, 8, & 8, 8, 8, 9, 9, 9, 9, 10, 10, 11, 11, 11, & 12, 12, 12, 12, 12, 13, 13, 14, 14, 14, 14, 15, & 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 16, 16, & 16, 16, 16, 16, 17, 17, 17, 17, 17, 17, 18, 18, & 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, & 18, 18, 18, 18, 18, 18, 19, 19, 19, 19, 20, 20, & 20, 20, 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, & 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 22, & 22, 22, 22, 23, 23, 23, 23, 23, 24, 24, 24, 24, & 24, 24, 24, 24, 24, 24, 24, 24, 24, 25, 25, 25, & 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 26, 26, & 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, & 26, 26, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, & 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, & 27, 27, 27, 27, 27, 27, 27, 28, 28, 28, 28, 28, & 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, & 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, & 29, 29, 29, 29, 29, 29, 29, 30, 30, 30, 30, 30, & 30, 30, 30, 30, 30, 31, 31, 31, 31, 31, 31, 31, & 31, 31, 31, 31, 31, 31, 31, 32, 32, 32, 32, 32, & 32, 32, 32, 32, 32, 32 /) INTEGER, PARAMETER, DIMENSION(258) :: IHESS_J = (/ & 2, 28, 26, 4, 14, 14, 5, 26, 7, 8, 20, 22, & 22, 23, 23, 9, 9, 26, 27, 10, 26, 5, 7, 11, & 12, 14, 21, 24, 26, 13, 20, 5, 7, 14, 14, 7, & 15, 19, 22, 22, 16, 17, 17, 19, 19, 21, 21, 21, & 22, 22, 23, 23, 17, 17, 17, 22, 22, 22, 5, 7, & 14, 15, 17, 17, 18, 18, 19, 19, 20, 22, 22, 23, & 23, 23, 23, 28, 31, 32, 11, 14, 19, 19, 7, 20, & 22, 22, 23, 23, 23, 23, 17, 17, 17, 19, 19, 21, & 21, 21, 22, 22, 23, 23, 23, 23, 28, 31, 32, 22, & 22, 22, 22, 22, 23, 23, 23, 23, 17, 19, 20, 22, & 22, 22, 23, 23, 23, 23, 24, 24, 24, 17, 19, 22, & 23, 25, 25, 25, 25, 4, 9, 9, 10, 11, 13, 18, & 23, 25, 25, 26, 26, 26, 26, 26, 26, 28, 29, 30, & 31, 31, 2, 5, 7, 9, 10, 12, 14, 15, 16, 17, & 17, 19, 19, 20, 21, 21, 22, 22, 23, 23, 23, 24, & 24, 25, 25, 26, 27, 28, 28, 2, 5, 7, 11, 14, & 16, 17, 17, 17, 19, 19, 20, 21, 21, 21, 22, 22, & 22, 23, 23, 23, 25, 25, 26, 28, 28, 28, 31, 32, & 17, 21, 22, 23, 24, 26, 29, 12, 14, 21, 22, 23, & 24, 25, 26, 26, 30, 8, 9, 11, 18, 25, 26, 26, & 26, 27, 28, 29, 30, 31, 31, 15, 19, 19, 22, 24, & 24, 24, 26, 28, 31, 32 /) INTEGER, PARAMETER, DIMENSION(258) :: IHESS_K = (/ & 27, 28, 32, 26, 27, 30, 27, 30, 27, 31, 27, 27, & 30, 29, 30, 9, 27, 31, 31, 27, 28, 27, 27, 31, & 27, 30, 30, 30, 27, 26, 27, 27, 27, 27, 30, 27, & 27, 25, 25, 27, 27, 25, 29, 25, 27, 27, 29, 30, & 25, 29, 25, 29, 25, 27, 29, 25, 27, 29, 27, 27, & 27, 27, 27, 29, 18, 31, 25, 27, 27, 27, 29, 25, & 27, 29, 30, 32, 32, 32, 31, 27, 25, 27, 27, 27, & 25, 29, 25, 27, 29, 30, 25, 27, 29, 25, 27, 27, & 29, 30, 25, 27, 25, 27, 29, 30, 32, 32, 32, 25, & 27, 29, 30, 29, 25, 27, 29, 30, 27, 25, 27, 25, & 27, 29, 25, 27, 29, 30, 27, 29, 30, 25, 25, 25, & 25, 26, 27, 28, 31, 26, 9, 27, 27, 31, 26, 31, & 30, 26, 31, 27, 28, 29, 30, 31, 32, 31, 31, 31, & 31, 32, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, & 29, 25, 27, 27, 27, 29, 25, 27, 25, 27, 29, 27, & 29, 27, 28, 27, 31, 31, 32, 27, 27, 27, 31, 27, & 27, 25, 27, 29, 25, 27, 27, 27, 29, 30, 25, 27, & 29, 25, 27, 29, 27, 28, 28, 28, 31, 32, 32, 32, & 29, 29, 29, 29, 29, 29, 31, 27, 30, 30, 30, 30, & 30, 26, 29, 30, 31, 31, 9, 31, 31, 31, 29, 30, & 31, 31, 31, 31, 31, 31, 32, 27, 25, 27, 27, 27, & 29, 30, 32, 32, 32, 32 /) END MODULE cbm_HessianSP