- if (energy_dec) write (iout,*) "escp_short:",r_cut_int,rlamb
- do i=iatscp_s,iatscp_e
+c if (energy_dec) write (iout,*) "escp_short:",r_cut_int,rlamb
+ if (energy_dec)
+ & write(iout,*) "g_listscp_start_short,g_listscp_end_short",
+ & g_listscp_start_short,g_listscp_end_short
+ do ikont=g_listscp_start_short,g_listscp_end_short
+ i=newcontlistscpi_short(ikont)
+ j=newcontlistscpj_short(ikont)