foramtting of random_seed output to align with rest

This commit is contained in:
Philip Eisenlohr 2018-10-08 17:01:27 -04:00
parent 4f666057a6
commit 225a48021d
1 changed files with 2 additions and 2 deletions

View File

@ -502,7 +502,7 @@ subroutine numerics_init
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! Random seeding parameter ! Random seeding parameter
write(6,'(a24,1x,i16,/)') ' random_seed: ',randomSeed write(6,'(a16,1x,i16,/)') ' random_seed: ',randomSeed
if (randomSeed <= 0_pInt) & if (randomSeed <= 0_pInt) &
write(6,'(a,/)') ' random seed will be generated!' write(6,'(a,/)') ' random seed will be generated!'