Removed debug output

tproffen · May 3, 2018 · 53d32c5 · 53d32c5
1 parent f6b3783
commit 53d32c5
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/discus/prog/structur.f90 b/discus/prog/structur.f90
@@ -763,10 +763,6 @@ SUBROUTINE do_readfree(ianz, maxw, cpara, lpara)
 cr_syst = 1 
 spcgr_para = 1
 CALL get_symmetry_matrices 
-write(*,*) 'IANZ ', ianz
-do i=1,ianz
-  write(*,*) ' PARA ', i, cpara(i)(1:lpara(i))
-enddo
 IF (ianz==0) THEN 
    cr_a0 (:) = 1.0 
    cr_win(:) = 90.0