Commit f0473bfe authored by giannozz's avatar giannozz

xk and wk arrays are always allocated when reading k-points, even if not

used, to avoid potential problems when routine "init_startk" is subsequently 
called with unallocated arguments. Suggested by Oliviero


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/[email protected] c92efa57-630b-4861-b058-cf58834340f0
parent a9ceca06
......@@ -690,8 +690,8 @@ CONTAINS
('card_kpoints', 'invalid offsets: must be 0 or 1', 1)
IF ( nk1 <= 0 .or. nk2 <= 0 .or. nk3 <= 0 ) CALL errore &
('card_kpoints', 'invalid values for nk1, nk2, nk3', 1)
!
ALLOCATE ( xk(3,1), wk(1) ) ! prevents problems with debug flags
! ! when init_startk is called in iosys
ELSEIF ( ( k_points == 'tpiba' ) .or. ( k_points == 'crystal' ) ) THEN
!
! ... input k-points are in 2pi/a units
......
......@@ -251,7 +251,7 @@ MODULE xml_io_base
! ... keep the line below ( this is the old style RESTARTXX ) !!!
!
! dirname = 'RESTART' // int_to_char( runit )
! the next line is to have seperate RESTART for each image
! the next line is to have separate RESTART for each image
! KNK_nimage
! if (my_image_id > 0) dirname = trim(dirname) // '_' // trim(int_to_char( my_image_id ))
!
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment