From ebc46a4e9765ff0c011f66bdb7429763885aa959 Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Fri, 23 Nov 2012 11:55:41 +0100 Subject: [PATCH] fix 80 column in initialize_p.F --- source/unres/src_MD-M/initialize_p.F | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/source/unres/src_MD-M/initialize_p.F b/source/unres/src_MD-M/initialize_p.F index a9414d3..9b62e65 100644 --- a/source/unres/src_MD-M/initialize_p.F +++ b/source/unres/src_MD-M/initialize_p.F @@ -1109,14 +1109,15 @@ c--------------------------------------------------------------------------- include "COMMON.INTERACT" include "COMMON.SETUP" include "COMMON.IOUNITS" - integer ii,jj,itask(4),ntask_cont_to,itask_cont_to(0:max_fg_procs-1) + integer ii,jj,itask(4),ntask_cont_to, + &itask_cont_to(0:max_fg_procs-1) logical flag integer iturn3_start_all,iturn3_end_all,iturn4_start_all, & iturn4_end_all,iatel_s_all,iatel_e_all,ielstart_all,ielend_all common /przechowalnia/ iturn3_start_all(0:max_fg_procs), & iturn3_end_all(0:max_fg_procs),iturn4_start_all(0:max_fg_procs), & iturn4_end_all(0:max_fg_procs),iatel_s_all(0:max_fg_procs), - & iatel_e_all(0:max_fg_procs),ielstart_all(maxres,0:max_fg_procs-1), + &iatel_e_all(0:max_fg_procs),ielstart_all(maxres,0:max_fg_procs-1), & ielend_all(maxres,0:max_fg_procs-1) integer iproc,isent,k,l c Determines whether to send interaction ii,jj to other processors; a given -- 1.7.9.5