! DO NOT EDIT THIS FILE - IT HAS BEEN GENERATED BY COMPINFO.C
-! 0 40376 54
+! 0 40376 55
subroutine cinfo
! include 'COMMON.IOUNITS'
use io_units
write(iout,*)'++++ Compile info ++++'
- write(iout,*)'Version 0.40376 build 54'
- write(iout,*)'compiled Wed Feb 15 09:03:06 2017'
+ write(iout,*)'Version 0.40376 build 55'
+ write(iout,*)'compiled Fri Feb 17 01:55:34 2017'
write(iout,*)'compiled by czarek@piasek4'
write(iout,*)'OS name: Linux '
write(iout,*)'OS release: 3.2.0-111-generic '
etors=0.0D0
do i=iphi_start,iphi_end
if (itype(i-2).eq.ntyp1 .or. itype(i-1).eq.ntyp1 &
+ .or. itype(i-3).eq.ntyp1 &
.or. itype(i).eq.ntyp1) cycle
etors_ii=0.0D0
if (iabs(itype(i)).eq.20) then
do i=iphid_start,iphid_end
etors_d_ii=0.0D0
if (itype(i-2).eq.ntyp1 .or. itype(i-1).eq.ntyp1 &
+ .or. itype(i-3).eq.ntyp1 &
.or. itype(i).eq.ntyp1 .or. itype(i+1).eq.ntyp1) cycle
itori=itortyp(itype(i-2))
itori1=itortyp(itype(i-1))