From 67fa15673909a133e69218f11aa422286c9d6c86 Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Fri, 23 Nov 2012 12:58:02 +0100 Subject: [PATCH] fixed typos in initialize_p.F --- source/unres/src_CSA/initialize_p.F | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/source/unres/src_CSA/initialize_p.F b/source/unres/src_CSA/initialize_p.F index 5cbf7d1..b3affab 100644 --- a/source/unres/src_CSA/initialize_p.F +++ b/source/unres/src_CSA/initialize_p.F @@ -293,8 +293,8 @@ c--------------------------------------------------------------------------- include 'COMMON.IOUNITS' include 'COMMON.DERIV' include 'COMMON.CONTACTS' - common /przechowalnia/ iturn3_start_all(0:max_fg_proc), - & iturn3_end_all(0:max_fg_procs),iturn4_start_all(0:max_fg_proc), + 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), & ielend_all(maxres,0:max_fg_procs-1), @@ -1113,7 +1113,7 @@ c--------------------------------------------------------------------------- include "COMMON.SETUP" include "COMMON.IOUNITS" integer ii,jj,itask(4),ntask_cont_to, - & itask_cont_to(0:max_fg_proc-1) + & 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 -- 1.7.9.5