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)