From: Dawid Jagiela Date: Fri, 23 Nov 2012 10:55:41 +0000 (+0100) Subject: fix 80 column in initialize_p.F X-Git-Tag: v.3.2~51 X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=ebc46a4e9765ff0c011f66bdb7429763885aa959 fix 80 column in initialize_p.F --- 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