mirror of
https://gitlab.com/scemama/qmcchem.git
synced 2024-11-06 22:23:39 +01:00
DGEMV
This commit is contained in:
parent
8f978d95c2
commit
cf003c3e08
@ -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"""
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user