Juan 14/09/2020: mode_device.f90 , early RETURN to suppress debug check/init

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