From 61702091988408b69a6c0b15e0b0681e2e70cee9 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 11 Apr 2015 05:09:15 +0000 Subject: [PATCH] use statement for marc was wrong (preprocessor) --- code/mesh.f90 | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/code/mesh.f90 b/code/mesh.f90 index 6960ee325..8b7ebce8d 100644 --- a/code/mesh.f90 +++ b/code/mesh.f90 @@ -490,18 +490,17 @@ subroutine mesh_init(ip,el) use DAMASK_interface use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) use IO, only: & - IO_timeStamp, & - IO_error, & - IO_write_jobFile, & #ifdef Abaqus IO_abaqus_hasNoPart, & #endif #ifdef Spectral - IO_open_file + IO_open_file, & #else - use numerics, only: & - IO_open_InputFile + IO_open_InputFile, & #endif + IO_timeStamp, & + IO_error, & + IO_write_jobFile use debug, only: & debug_e, & debug_i, &