comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-29 06:35:28 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

TMC: loop control variable issue fixed in send_analysis_task

Browse source 
svn-origin-rev: 14209
This commit is contained in:
Mandes Schönherr 2014-08-20 13:26:32 +00:00
parent fd29a53e08
commit 280ac9dba5
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/tmc/tmc_master.F
View file

@ -193,7 +193,7 @@ CONTAINS
CHARACTER(LEN=*), PARAMETER :: routineN = 'send_analysis_tasks', &
routineP = moduleN//':'//routineN
INTEGER :: stat, wg
INTEGER :: dest, stat, wg
LOGICAL :: failure
TYPE(elem_list_type), POINTER :: list_tmp
@ -207,7 +207,8 @@ CONTAINS
IF(.NOT.ASSOCIATED(ana_list)) EXIT wg_loop
IF(.NOT.ana_worker_info(wg)%busy) THEN
stat = TMC_STAT_ANALYSIS_REQUEST
CALL tmc_message(msg_type=stat, send_recv=send_msg, dest=wg, &
dest = wg
CALL tmc_message(msg_type=stat, send_recv=send_msg, dest=dest, &
para_env=para_env, tmc_params=tmc_env%params, &
list_elem=ana_list, error=error)
IF(.NOT.ASSOCIATED(ana_list%next)) THEN