10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-25 22:52:15 +02:00

selectors_max fixed

This commit is contained in:
Manu 2014-06-27 10:36:40 +02:00
parent b8821ce04c
commit a3f1fce4aa
2 changed files with 4 additions and 7 deletions

View File

@ -212,7 +212,7 @@ class H_apply(object):
self.data["declarations"] += """
double precision, intent(inout) :: select_max_out"""
self.data["params_post"] += ", select_max(i_generator)"
self.data["params_post"] += ", select_max(min(i_generator,size(select_max,1)))"
self.data["size_max"] = str(1024*128)
self.data["copy_buffer"] = """
call copy_h_apply_buffer_to_wf
@ -242,8 +242,8 @@ class H_apply(object):
!$ call omp_unset_lock(lck)
cycle
endif
select_max(i_generator) = 0.d0
endif
select_max(i_generator) = 0.d0
"""

View File

@ -18,9 +18,9 @@ fi
#####################
declare -A EXECUTABLES
for EXE in $(find $QPACKAGE_ROOT/src -type f -executable | grep -e "$QPACKAGE_ROOT/src/[^/]*/[^/]*$")
for EXE in $(find $QPACKAGE_ROOT/src -type f -executable | grep -e "$QPACKAGE_ROOT/src/[^/]*/[^/]*$")
do
EXECUTABLES["$(basename "${EXE}")"]="${EXE}"
EXECUTABLES[$(basename ${EXE})]="${EXE}"
done
function print_list()
@ -122,6 +122,3 @@ esac