diff --git a/org/qmckl_distance.org b/org/qmckl_distance.org
index 6d3900e..2160ed7 100644
--- a/org/qmckl_distance.org
+++ b/org/qmckl_distance.org
@@ -133,7 +133,7 @@ integer function qmckl_distance_sq_f(context, transa, transb, m, n, &
 
   if (transb == 'N' .or. transb == 'n') then
      continue
-  else if (transa == 'T' .or. transa == 't') then
+  else if (transb == 'T' .or. transb == 't') then
      transab = transab + 2
   else
      transab = -100
@@ -533,7 +533,7 @@ integer function qmckl_distance_f(context, transa, transb, m, n, &
 
   if (transb == 'N' .or. transb == 'n') then
      continue
-  else if (transa == 'T' .or. transa == 't') then
+  else if (transb == 'T' .or. transb == 't') then
      transab = transab + 2
   else
      transab = -100
@@ -1314,7 +1314,7 @@ integer function qmckl_distance_rescaled_deriv_e_f(context, transa, transb, m, n
 
   if (transb == 'N' .or. transb == 'n') then
      continue
-  else if (transa == 'T' .or. transa == 't') then
+  else if (transb == 'T' .or. transb == 't') then
      transab = transab + 2
   else
      transab = -100