From 4256f6791934481dde4c50bfb200133bdfc611ee Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 15 Jun 2019 16:21:15 +0200 Subject: [PATCH] polishing --- src/DAMASK_marc.f90 | 3 +-- src/future.f90 | 1 + 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/DAMASK_marc.f90 b/src/DAMASK_marc.f90 index 72017011d..3f527daf5 100644 --- a/src/DAMASK_marc.f90 +++ b/src/DAMASK_marc.f90 @@ -353,8 +353,7 @@ subroutine flux(f,ts,n,time) !-------------------------------------------------------------------------------------------------- -!> @brief sets user defined output variables for Marc -!> @details select a variable contour plotting (user subroutine). +!> @brief trigger writing of results !-------------------------------------------------------------------------------------------------- subroutine uedinc(inc,incsub) use prec diff --git a/src/future.f90 b/src/future.f90 index a8fcd3d8e..214bedc17 100644 --- a/src/future.f90 +++ b/src/future.f90 @@ -32,6 +32,7 @@ function findloc(a,v) end function findloc #endif + #if defined(__PGI) !-------------------------------------------------------------------------------------------------- !> @brief substitute for the norm2 intrinsic (only for real, dimension(3) at the moment)