X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Funres%2Fsrc_CSA%2Finitialize_p.F;h=b3affabcceb5e89ff9a9a8a5068e6e2508f4aa0f;hb=88af2feafd40050318384e0a14aac77a4f9fffa4;hp=5cbf7d18200c3f1997a645310e76d5b8cf1f05c1;hpb=cadc0d00a03443856adc813c4d30a9265fd25263;p=unres.git

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