From 00189554cd8847a1c9000edecaeff56960bd8f75 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 6 Jun 2019 13:22:46 +0200 Subject: [PATCH] correct style --- src/DAMASK_marc.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/DAMASK_marc.f90 b/src/DAMASK_marc.f90 index 822b7abc4..2ebec5cdc 100644 --- a/src/DAMASK_marc.f90 +++ b/src/DAMASK_marc.f90 @@ -97,7 +97,7 @@ end subroutine DAMASK_interface_init !-------------------------------------------------------------------------------------------------- !> @brief solver job name (no extension) as combination of geometry and load case name !-------------------------------------------------------------------------------------------------- -function getSolverJobName +function getSolverJobName() implicit none character(1024) :: getSolverJobName, inputName