10
1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2024-11-06 22:23:39 +01:00
This commit is contained in:
Anthony Scemama 2017-10-10 10:26:23 +02:00
parent 8f978d95c2
commit cf003c3e08
2 changed files with 3 additions and 3 deletions

View File

@ -67,7 +67,7 @@ file = open(tmp_filename,'w')
# ----
print >>file, """
(* File generated by ${QMCCHEM_PATH}/src/create_properties.py. Do not
(* File generated by ${QMCCHEM_PATH}/scripts/create_properties.py. Do not
modify here
*)
@ -125,7 +125,7 @@ for p in properties:
print >>file, """;;
let of_string s =
match (String.lowercase s) with
match (String.lowercase_ascii s) with
| "cpu" -> Cpu
| "wall" -> Wall
| "accep" -> Accep"""

View File

@ -1543,7 +1543,7 @@ END_PROVIDER
DaC = 0.d0
CDb = 0.d0
if (det_num < ishft(det_alpha_num*det_beta_num,2)) then
if (det_num < ishft(det_alpha_num*det_beta_num,-2)) then
det_num4 = iand(det_num,not(3))
!DIR$ VECTOR ALIGNED