From 1753d35e875b8804ce0b83fac3b23efe4cc46bb9 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 3 May 2016 17:07:51 +0200 Subject: [PATCH] corrected subroutine description --- code/DAMASK_marc.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/DAMASK_marc.f90 b/code/DAMASK_marc.f90 index bef54489e..5750b8850 100644 --- a/code/DAMASK_marc.f90 +++ b/code/DAMASK_marc.f90 @@ -385,7 +385,7 @@ end subroutine hypela2 !-------------------------------------------------------------------------------------------------- -!> @brief thermomechanical coupling +!> @brief solve the heat equation !-------------------------------------------------------------------------------------------------- subroutine flux(f,ts,n,time) use prec, only: & @@ -413,7 +413,7 @@ end subroutine flux !-------------------------------------------------------------------------------------------------- !> @brief sets user defined output variables for Marc -!> @details select a variable contour plotting (user subroutine). +!> @details select a variable contour plotting (user subgiroutine). !-------------------------------------------------------------------------------------------------- subroutine plotv(v,s,sp,etot,eplas,ecreep,t,m,nn,layer,ndi,nshear,jpltcd) use prec, only: &