Commit ebcccf8e authored by Daniel Wortmann's avatar Daniel Wortmann
Browse files

Fixed small syntax problem

parent 87d45ae0
......@@ -43,7 +43,7 @@ MODULE m_types_mat
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