diff --git a/src/LIB/SURCOUCHE/src/mode_device.f90 b/src/LIB/SURCOUCHE/src/mode_device.f90
index 4fabf5c9884c2ec2dafa859a7ef8f72049c90548..6b56e3921fdcedad18eefe96810f1ae26121d7b1 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