Commit 6ee9fc7b authored by Frank Freimuth's avatar Frank Freimuth

Update eig66_hdf.F90: z(:,i) = CMPLX( z1(1,:,1) ,z1(2,:,1) ) in line 321 instead of

the previous  z(:,i) = CMPLX( z1(1,:,i) ,z1(2,:,i) ) avoids getting error message "3-rd index is 2 but upper bound
is 1" when doing array-bound-checking    
parent 9ca630e3
......@@ -318,7 +318,7 @@ CONTAINS
DO i=1,SIZE(list)
CALL io_read_real3(d%evsetid,(/1,1,list(i),nk,jspin/),&
& (/2,nmat,1,1,1/),z1)
z(:,i) = CMPLX( z1(1,:,i) ,z1(2,:,i) )
z(:,i) = CMPLX( z1(1,:,1) ,z1(2,:,1) )
ENDDO
END IF
END SUBROUTINE priv_r_vecc
......
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