BUG fix, 'free' did not read the space group symbol correctly on CYWGIN

tproffen · May 3, 2018 · f70fd37 · f70fd37
1 parent 998a852
commit f70fd37
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/discus/prog/structur.f90 b/discus/prog/structur.f90
@@ -743,8 +743,8 @@ SUBROUTINE do_readfree(ianz, maxw, cpara, lpara)
 !
 !CHARACTER(LEN=*),                  INTENT(IN) :: befehl
 !INTEGER         ,                  INTENT(IN) :: lbef
-INTEGER         ,                  INTENT(IN) :: ianz
-INTEGER         ,                  INTENT(IN) :: MAXW
+INTEGER         ,                  INTENT(INOUT) :: ianz
+INTEGER         ,                  INTENT(IN   ) :: MAXW
 CHARACTER(LEN=*), DIMENSION(MAXW), INTENT(INOUT) :: cpara
 INTEGER         , DIMENSION(MAXW), INTENT(INOUT) :: lpara
 !
@@ -763,6 +763,10 @@ 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