& "WHOMOLOGY","WDFAD","WDFAT","WDFAN","WDFAB"," "," "/
data nprint_ene /23/
data print_order /1,2,3,17,11,12,13,14,4,5,6,7,8,9,10,16,15,18,19,
- & 20,21,22,23,24,25/
+ & 20,21,22,23,24,25,0,0/
end
c---------------------------------------------------------------------------
subroutine init_int_table
link_start_homo=1
link_end_homo=lim_odl
idihconstr_start_homo=nnt+3
- idihconstr_end_homo=lim_dih+3
+ idihconstr_end_homo=lim_dih+nnt-1+3
write (iout,*)
& ' lim_odl',lim_odl,' link_start=',link_start_homo,
& ' link_end',link_end_homo,' lim_dih',lim_dih,