fixed typos in initialize_p.F

diff --git a/source/unres/src_CSA/initialize_p.F b/source/unres/src_CSA/initialize_p.F
index 5cbf7d1..b3affab 100644 (file)
--- 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