+C Lipidic input file for parameters range 60-79
+ iliptranpar=60
+C input file for transfer sidechain and peptide group inside the
+C lipidic environment if lipid is implicite
+
+C DNA input files for parameters range 80-99
+C Suger input files for parameters range 100-119
+C All-atom input files for parameters range 120-149
if (lprint)
&write (iout,*) 'INIT_INT_TABLE nres=',nres,' nnt=',nnt,' nct=',nct
n_sc_int_tot=(nct-nnt+1)*(nct-nnt)/2-nss
if (lprint)
&write (iout,*) 'INIT_INT_TABLE nres=',nres,' nnt=',nnt,' nct=',nct
n_sc_int_tot=(nct-nnt+1)*(nct-nnt)/2-nss
#ifdef MPI
if (lprint) write (*,*) 'Processor',fg_rank,' CG Group',kolor,
& ' absolute rank',myrank,' iatsc_s=',iatsc_s,' iatsc_e=',iatsc_e
#ifdef MPI
if (lprint) write (*,*) 'Processor',fg_rank,' CG Group',kolor,
& ' absolute rank',myrank,' iatsc_s=',iatsc_s,' iatsc_e=',iatsc_e
call int_bounds(nct-nnt,ibondp_start,ibondp_end)
ibondp_start=ibondp_start+nnt
ibondp_end=ibondp_end+nnt
call int_bounds(nct-nnt,ibondp_start,ibondp_end)
ibondp_start=ibondp_start+nnt
ibondp_end=ibondp_end+nnt
call int_bounds1(nres-1,ivec_start,ivec_end)
c print *,"Processor",myrank,fg_rank,fg_rank1,
c & " ivec_start",ivec_start," ivec_end",ivec_end
call int_bounds1(nres-1,ivec_start,ivec_end)
c print *,"Processor",myrank,fg_rank,fg_rank1,
c & " ivec_start",ivec_start," ivec_end",ivec_end
& ' ivec_start',ivec_start,' ivec_end',ivec_end,
& ' iset_start',iset_start,' iset_end',iset_end,
& ' idihconstr_start',idihconstr_start,' idihconstr_end',
& ' ivec_start',ivec_start,' ivec_end',ivec_end,
& ' iset_start',iset_start,' iset_end',iset_end,
& ' idihconstr_start',idihconstr_start,' idihconstr_end',
write (*,*) 'Processor:',fg_rank,myrank,' igrad_start',
& igrad_start,' igrad_end',igrad_end,' ngrad_start',ngrad_start,
& ' ngrad_end',ngrad_end
write (*,*) 'Processor:',fg_rank,myrank,' igrad_start',
& igrad_start,' igrad_end',igrad_end,' ngrad_start',ngrad_start,
& ' ngrad_end',ngrad_end