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 intrinsic qualifer to ISO modules.

Browse source
This commit is contained in:
Paul Romano 2012-02-15 15:38:52 -05:00
parent 1a84260070
commit c8cb7f1fc0
3 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/error.F90
View file

@ -1,6 +1,6 @@
module error
use ISO_FORTRAN_ENV
use, intrinsic :: ISO_FORTRAN_ENV
use global, only: master, free_memory, message, mpi_err
@ -63,7 +63,6 @@ contains
code = -1
end if
! Only allow master to print to screen
write(ERROR_UNIT, fmt='(1X,A7)', advance='no') 'ERROR: '
n_lines = (len_trim(message)-1)/72 + 1

2
src/intercycle.F90
View file

@ -1,6 +1,6 @@
module intercycle
use ISO_FORTRAN_ENV
use, intrinsic :: ISO_FORTRAN_ENV
use error, only: fatal_error, warning
use global

2
src/output.F90
View file

@ -1,6 +1,6 @@
module output
use ISO_FORTRAN_ENV
use, intrinsic :: ISO_FORTRAN_ENV
use ace_header, only: Nuclide, Reaction, UrrData
use constants