10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-29 16:34:50 +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"] += """ self.data["declarations"] += """
double precision, intent(inout) :: select_max_out""" 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["size_max"] = str(1024*128)
self.data["copy_buffer"] = """ self.data["copy_buffer"] = """
call copy_h_apply_buffer_to_wf call copy_h_apply_buffer_to_wf
@ -242,8 +242,8 @@ class H_apply(object):
!$ call omp_unset_lock(lck) !$ call omp_unset_lock(lck)
cycle cycle
endif endif
select_max(i_generator) = 0.d0
endif endif
select_max(i_generator) = 0.d0
""" """

View File

@ -18,9 +18,9 @@ fi
##################### #####################
declare -A EXECUTABLES 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 do
EXECUTABLES["$(basename "${EXE}")"]="${EXE}" EXECUTABLES[$(basename ${EXE})]="${EXE}"
done done
function print_list() function print_list()
@ -122,6 +122,3 @@ esac