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

Capitalized several instances of MAX_LINE_LEN.

Browse source
This commit is contained in:
Paul Romano 2011-08-09 21:04:07 -04:00
parent c51a672b6c
commit f7832fb3bc
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/mpi_routines.f90
View file

@ -1,6 +1,6 @@
module mpi_routines
use constants, only: max_line_len
use constants, only: MAX_LINE_LEN
use error, only: fatal_error
use global
use mcnp_random, only: rang, RN_init_particle, RN_skip

10
src/output.f90
View file

@ -298,7 +298,7 @@ contains
integer :: temp
integer :: i
character(max_line_len) :: string
character(MAX_LINE_LEN) :: string
type(Universe), pointer :: u => null()
type(Lattice), pointer :: l => null()
type(Material), pointer :: m => null()
@ -358,7 +358,7 @@ contains
type(Universe), pointer :: univ
integer :: i
character(max_line_len) :: string
character(MAX_LINE_LEN) :: string
type(Cell), pointer :: c => null()
write(ou,*) 'Universe ' // int_to_str(univ % uid)
@ -403,7 +403,7 @@ contains
type(Surface), pointer :: surf
integer :: i
character(max_line_len) :: string
character(MAX_LINE_LEN) :: string
write(ou,*) 'Surface ' // int_to_str(surf % uid)
select case (surf % type)
@ -477,7 +477,7 @@ contains
integer :: i
real(8) :: density
character(max_line_len) :: string
character(MAX_LINE_LEN) :: string
type(Nuclide), pointer :: nuc => null()
write(ou,*) 'Material ' // int_to_str(mat % uid)
@ -506,7 +506,7 @@ contains
integer :: i
integer :: MT
character(max_line_len) :: string
character(MAX_LINE_LEN) :: string
write(ou,*) 'Tally ' // int_to_str(tal % uid)