Juan 15/06/2023:ZSOLVER/dyn_sources.f90 , comment debug print in DEBUG compilation

17199194 · ESCOBAR MUNOZ Juan · 0de407cc · 17199194
Commit 17199194 authored 1 year ago by ESCOBAR MUNOZ Juan
--- a/src/ZSOLVER/dyn_sources.f90
+++ b/src/ZSOLVER/dyn_sources.f90
@@ -275,7 +275,7 @@ CALL MNH_MEM_GET( ZRVT, JIU, JJU, JKU )
 ZRUT(:,:,:) = PUT(:,:,:) * MXM(PRHODJ(:,:,:))
 ZRVT(:,:,:) = PVT(:,:,:) * MYM(PRHODJ(:,:,:))

-print *,"PUT(1,1,1)",PUT(1,1,1)
+!print *,"PUT(1,1,1)",PUT(1,1,1)
 #else
 CALL MXM_DEVICE(PRHODJ(:,:,:), ZTMP1_DEVICE (:,:,:))
 CALL MYM_DEVICE(PRHODJ(:,:,:), ZTMP2_DEVICE (:,:,:))