X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Finitialize_p.F;h=b3affabcceb5e89ff9a9a8a5068e6e2508f4aa0f;hb=bc596fe5706a27175d814c9ca6b7ebc3a0a73f48;hp=5cbf7d18200c3f1997a645310e76d5b8cf1f05c1;hpb=65d3fa33ada0d14eb15352d1e95d43cbdbfa0526;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