From bd234a8189b3a07c77f090222ac9c543ff96b97b Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Mon, 14 Sep 2020 15:05:55 +0200
Subject: [PATCH] Juan 14/09/2020: mode_device.f90 , early RETURN to suppress
debug check/init
---
src/LIB/SURCOUCHE/src/mode_device.f90 | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/src/LIB/SURCOUCHE/src/mode_device.f90 b/src/LIB/SURCOUCHE/src/mode_device.f90
index 4fabf5c98..6b56e3921 100644
--- a/src/LIB/SURCOUCHE/src/mode_device.f90
+++ b/src/LIB/SURCOUCHE/src/mode_device.f90
@@ -245,6 +245,8 @@ CONTAINS
REAL :: ZVALUE
CHARACTER(LEN=:),ALLOCATABLE :: YNAME
+ RETURN
+
IF (PRESENT(PVALUE)) THEN
ZVALUE = PVALUE
ELSE
@@ -294,6 +296,8 @@ print *,'Initializing ',trim(YNAME),' on host'
REAL :: ZVALUE
CHARACTER(LEN=:),ALLOCATABLE :: YNAME
+ RETURN
+
IF (PRESENT(PVALUE)) THEN
ZVALUE = PVALUE
ELSE
@@ -343,6 +347,8 @@ print *,'Initializing ',trim(YNAME),' on host'
REAL :: ZVALUE
CHARACTER(LEN=:),ALLOCATABLE :: YNAME
+ RETURN
+
IF (PRESENT(PVALUE)) THEN
ZVALUE = PVALUE
ELSE
--
GitLab