Commit ebcccf8e authored by Daniel Wortmann's avatar Daniel Wortmann

Fixed small syntax problem

parent 87d45ae0
......@@ -43,7 +43,7 @@ MODULE m_types_mat
REAL,ALLOCATABLE:: work(:)
INTEGER,allocatable::ipiv(:)
IF ((mat%l_real.NE.vec%l_real).OR.(mat%matsize1.NE.mat%matsize2).OR.(mat%matsize1.NE.vec%matsize1)) &
IF ((mat%l_real.NEQV.vec%l_real).OR.(mat%matsize1.NE.mat%matsize2).OR.(mat%matsize1.NE.vec%matsize1)) &
CALL judft_error("Invalid matices in t_mat_lproblem")
IF (mat%l_real) THEN
IF (ALL(ABS(mat%data_r-TRANSPOSE(mat%data_r))<1E-8)) THEN
......
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