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

Merge pull request #479 from wbinventor/longer-names

Browse source 
Doubled string name length
This commit is contained in:
Paul Romano 2015-10-13 20:32:32 +07:00
commit 32946edecb
4 changed files with 5 additions and 5 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/surface_header.F90
View file

@ -15,7 +15,7 @@ module surface_header
neighbor_pos(:), & ! List of cells on positive side
neighbor_neg(:) ! List of cells on negative side
integer :: bc ! Boundary condition
character(len=52) :: name = "" ! User-defined name
character(len=104) :: name = "" ! User-defined name
contains
procedure :: sense
procedure :: reflect

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