LCPQ
/
qmcchem
mirror of https://gitlab.com/scemama/qmcchem.git
10
1
Fork 1
Code Releases Activity

DGEMV

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scripts/create_properties_ezfio.py
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"""

2
src/det.irp.f
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