From c78396dd781c4009525d77f280a49b7808f8e1a4 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 20 Aug 2018 22:11:53 +0200 Subject: [PATCH] randomized FILEUNIT matrix inversion error when numerics.config is not there or not present very strange --- src/constitutive.f90 | 2 +- src/debug.f90 | 2 +- src/material.f90 | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/constitutive.f90 b/src/constitutive.f90 index 7833f70cf..ce09c86a0 100644 --- a/src/constitutive.f90 +++ b/src/constitutive.f90 @@ -138,7 +138,7 @@ subroutine constitutive_init() use kinematics_hydrogen_strain implicit none - integer(pInt), parameter :: FILEUNIT = 200_pInt + integer(pInt), parameter :: FILEUNIT = 204_pInt integer(pInt) :: & o, & !< counter in output loop ph, & !< counter in phase loop diff --git a/src/debug.f90 b/src/debug.f90 index 55cc62ca0..2a4edf28e 100644 --- a/src/debug.f90 +++ b/src/debug.f90 @@ -102,7 +102,7 @@ subroutine debug_init IO_EOF implicit none - integer(pInt), parameter :: FILEUNIT = 300_pInt + integer(pInt), parameter :: FILEUNIT = 330_pInt integer(pInt) :: i, what integer(pInt), allocatable, dimension(:) :: chunkPos diff --git a/src/material.f90 b/src/material.f90 index c2c52aaa6..4c5a9ed74 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -370,7 +370,7 @@ subroutine material_init() FE_geomtype implicit none - integer(pInt), parameter :: FILEUNIT = 200_pInt + integer(pInt), parameter :: FILEUNIT = 210_pInt integer(pInt) :: m,c,h, myDebug, myPhase, myHomog integer(pInt) :: & g, & !< grain number