TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2025-01-03 10:06:09 +01:00
Code Issues Projects Releases Wiki Activity

transa -> transb: Thanks to Axel Auweter ;-)

Browse Source
This commit is contained in:
Anthony Scemama 2022-06-03 15:38:02 +02:00
parent 7e854175cc
commit 222574e985
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
org/qmckl_distance.org
View File

@ -133,7 +133,7 @@ integer function qmckl_distance_sq_f(context, transa, transb, m, n, &
if (transb == 'N' .or. transb == 'n') then if (transb == 'N' .or. transb == 'n') then
continue continue
else if (transa == 'T' .or. transa == 't') then else if (transb == 'T' .or. transb == 't') then
transab = transab + 2 transab = transab + 2
else else
transab = -100 transab = -100
@ -533,7 +533,7 @@ integer function qmckl_distance_f(context, transa, transb, m, n, &
if (transb == 'N' .or. transb == 'n') then if (transb == 'N' .or. transb == 'n') then
continue continue
else if (transa == 'T' .or. transa == 't') then else if (transb == 'T' .or. transb == 't') then
transab = transab + 2 transab = transab + 2
else else
transab = -100 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 if (transb == 'N' .or. transb == 'n') then
continue continue
else if (transa == 'T' .or. transa == 't') then else if (transb == 'T' .or. transb == 't') then
transab = transab + 2 transab = transab + 2
else else
transab = -100 transab = -100