From 33464eb581353a2a37994a55e66511e30753abaa Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Mon, 2 Jul 2012 23:59:37 -0400 Subject: [PATCH] Added listing in Nuclide derived type. --- src/ace.F90 | 5 ++++- src/ace_header.F90 | 9 +++++---- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/src/ace.F90 b/src/ace.F90 index d7edf05be6..a0e6a6af0c 100644 --- a/src/ace.F90 +++ b/src/ace.F90 @@ -73,12 +73,15 @@ contains name = xs_listings(index_list) % name alias = xs_listings(index_list) % alias + ! Keep track of what listing is associated with this nuclide + nuc => nuclides(index_nuclide) + nuc % listing = index_list + ! Read the ACE table into the appropriate entry on the nuclides ! array call read_ace_table(index_nuclide, index_list) ! Print out information on table to cross_sections.out file - nuc => nuclides(index_nuclide) if (master) call print_nuclide(nuc, unit=UNIT_XS) call dict_add_key(already_read, name, 0) diff --git a/src/ace_header.F90 b/src/ace_header.F90 index 5c3344c55b..ccc438fca0 100644 --- a/src/ace_header.F90 +++ b/src/ace_header.F90 @@ -73,10 +73,11 @@ module ace_header !=============================================================================== type Nuclide - character(10) :: name ! name of nuclide, e.g. 92235.03c - integer :: zaid ! Z and A identifier, e.g. 92235 - real(8) :: awr ! weight of nucleus in neutron masses - real(8) :: kT ! temperature in MeV (k*T) + character(10) :: name ! name of nuclide, e.g. 92235.03c + integer :: zaid ! Z and A identifier, e.g. 92235 + integer :: listing ! index in xs_listings + real(8) :: awr ! weight of nucleus in neutron masses + real(8) :: kT ! temperature in MeV (k*T) ! Energy grid information integer :: n_grid ! # of nuclide grid points