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

Changed to ifdef to be consistent with the rest of the codebase

Browse source
This commit is contained in:
Nick Horelik 2014-05-06 10:34:46 -04:00
parent 6385b3c6c7
commit 57d3d9d301
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/progress_header.F90
View file

@ -4,7 +4,7 @@ module progress_header
implicit none
#if (UNIX)
#ifdef UNIX
interface
function check_isatty(fd) bind(C, name = 'isatty')
use, intrinsic :: ISO_C_BINDING, only: c_int
@ -39,7 +39,7 @@ contains
istty = .true.
#if (UNIX)
#ifdef UNIX
if (check_isatty(1) == 0) istty = .false.
#else
istty = .false.