From a0bec65c7b5a3c69ca0bf37e95ff870189ec084f Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Mon, 9 May 2011 08:49:03 +0000 Subject: [PATCH] Last version didn't compile, because of missing keyword "call" in front of subroutine call to IO_error --- code/mpie_cpfem_marc.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/mpie_cpfem_marc.f90 b/code/mpie_cpfem_marc.f90 index cf31320c3..6b8fbf043 100644 --- a/code/mpie_cpfem_marc.f90 +++ b/code/mpie_cpfem_marc.f90 @@ -1,7 +1,7 @@ -! Copyright 2011 Max-Planck-Institut für Eisenforschung GmbH +! Copyright 2011 Max-Planck-Institut f√ºr Eisenforschung GmbH ! ! This file is part of DAMASK, -! the Düsseldorf Advanced MAterial Simulation Kit. +! the D√ºsseldorf Advanced MAterial Simulation Kit. ! ! DAMASK is free software: you can redistribute it and/or modify ! it under the terms of the GNU General Public License as published by @@ -400,7 +400,7 @@ subroutine plotv(& real(pReal) v, t(*) integer(pInt) m, nn, layer, ndi, nshear, jpltcd - if (jpltcd > materialpoint_sizeResults) IO_error(667,jpltcd) ! complain about out of bounds error + if (jpltcd > materialpoint_sizeResults) call IO_error(667,jpltcd) ! complain about out of bounds error v = materialpoint_results(jpltcd,nn,mesh_FEasCP('elem', m)) return