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),
iphi_end=iturn3_end+2
iturn3_start=iturn3_start-1
iturn3_end=iturn3_end-1
+ call int_bounds(nres-3,itau_start,itau_end)
+ itau_start=itau_start+3
+ itau_end=itau_end+3
call int_bounds(nres-3,iphi1_start,iphi1_end)
iphi1_start=iphi1_start+3
iphi1_end=iphi1_end+3
idihconstr_end=ndih_constr
iphid_start=iphi_start
iphid_end=iphi_end-1
+ itau_start=4
+ itau_end=nres
ibond_start=2
ibond_end=nres-1
ibondp_start=nnt+1
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