crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Added listing in Nuclide derived type.

Browse source
This commit is contained in:
Paul Romano 2012-07-02 23:59:37 -04:00
parent fa09b97077
commit 33464eb581
2 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/ace.F90
View file

@ -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)

9
src/ace_header.F90
View file

@ -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