use statement for marc was wrong (preprocessor)

This commit is contained in:
Martin Diehl 2015-04-11 05:09:15 +00:00
parent d008b566b4
commit 6170209198
1 changed files with 5 additions and 6 deletions

View File

@ -490,18 +490,17 @@ subroutine mesh_init(ip,el)
use DAMASK_interface 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, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
use IO, only: & use IO, only: &
IO_timeStamp, &
IO_error, &
IO_write_jobFile, &
#ifdef Abaqus #ifdef Abaqus
IO_abaqus_hasNoPart, & IO_abaqus_hasNoPart, &
#endif #endif
#ifdef Spectral #ifdef Spectral
IO_open_file IO_open_file, &
#else #else
use numerics, only: & IO_open_InputFile, &
IO_open_InputFile
#endif #endif
IO_timeStamp, &
IO_error, &
IO_write_jobFile
use debug, only: & use debug, only: &
debug_e, & debug_e, &
debug_i, & debug_i, &