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

Lengthened string names for cells, materials and tallies to 104 for BEAVRS compatibility

Browse source
This commit is contained in:
Will Boyd 2015-10-12 13:37:20 -04:00
parent 3ffc466083
commit 8624c784f2
3 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/geometry_header.F90
View file

@ -24,7 +24,7 @@ module geometry_header
type, abstract :: Lattice
integer :: id ! Universe number for lattice
character(len=52) :: name = "" ! User-defined name
character(len=104) :: name = "" ! User-defined name
real(8), allocatable :: pitch(:) ! Pitch along each axis
integer, allocatable :: universes(:,:,:) ! Specified universes
integer :: outside ! Material to fill area outside
@ -119,7 +119,7 @@ module geometry_header
type Cell
integer :: id ! Unique ID
character(len=52) :: name = "" ! User-defined name
character(len=104) :: name = "" ! User-defined name
integer :: type ! Type of cell (normal, universe,
! lattice)
integer :: universe ! universe # this cell is in

2
src/material_header.F90
View file

@ -8,7 +8,7 @@ module material_header
type Material
integer :: id ! unique identifier
character(len=52) :: name = "" ! User-defined name
character(len=104) :: name = "" ! User-defined name
integer :: n_nuclides ! number of nuclides
integer, allocatable :: nuclide(:) ! index in nuclides array
real(8) :: density ! total atom density in atom/b-cm

2
src/tally_header.F90
View file

@ -74,7 +74,7 @@ module tally_header
! Basic data
integer :: id ! user-defined identifier
character(len=52) :: name = "" ! user-defined name
character(len=104) :: name = "" ! user-defined name
integer :: type ! volume, surface current
integer :: estimator ! collision, track-length
real(8) :: volume ! volume of region