cc Omicron is flat angle depending on the value of first digit
c(see comment below)
- gloci=0.0D0
- do intertyp=1,1 !intertyp
+
+ do intertyp=1,3 !intertyp
cc Added 09 May 2012 (Adasko)
cc Intertyp means interaction type of backbone mainchain correlation:
c 1 = SC...Ca...Ca...Ca
c 2 = Ca...Ca...Ca...SC
-c 3 = SC...Ca...Ca...SC
+c 3 = SC...Ca...Ca...SCi
+ gloci=0.0D0
if (((intertyp.eq.3).and.((itype(i-2).eq.10).or.
& (itype(i-1).eq.10).or.(itype(i-2).eq.21).or.
& (itype(i-1).eq.21)))