From cadac1e363ea47fcdae3646c5ac7f9c19c2a49c0 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 4 Feb 2017 23:53:22 +0100 Subject: [PATCH] no need to inlcude twice --- code/mesh.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/code/mesh.f90 b/code/mesh.f90 index 7da3d4968..30555c34e 100644 --- a/code/mesh.f90 +++ b/code/mesh.f90 @@ -472,9 +472,8 @@ contains !! Order and routines strongly depend on type of solver !-------------------------------------------------------------------------------------------------- subroutine mesh_init(ip,el) - use, intrinsic :: iso_c_binding - 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 DAMASK_interface use IO, only: & #ifdef Abaqus IO_abaqus_hasNoPart, &