PENTA: comment lscreen

PrincetonUniversity · Nov 13, 2024 · f65ce10 · f65ce10
1 parent cef7043
commit f65ce10
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/PENTA/Sources/penta_interface_mod.f90 b/PENTA/Sources/penta_interface_mod.f90
@@ -1151,11 +1151,11 @@ SUBROUTINE penta_run_4_cleanup
       ! QQ write file with number of roots per surface!
 
       ! Write screen output
-      IF (lscreen) THEN
+      !IF (lscreen) THEN
          write(str_num,*) num_roots
          write(*,'(f7.3,' // trim(adjustl(str_num)) // '(" ",e15.4))') & 
          roa_surf,er_roots(1:num_roots)/100._rknd
-      END IF
+      !END IF
 
       ! DEALLOCATE
       CALL penta_deallocate_species