- if (itype(i).eq.ntyp1.or. itype(i+1).eq.ntyp1
- & .or. itype(i+2).eq.ntyp1 .or. itype(i+3).eq.ntyp1
- & .or. itype(i-1).eq.ntyp1
- & .or. itype(i+4).eq.ntyp1
- & ) cycle
+c AL 7/8/16 CHUJ DUPA I KAMIENI KUPA. PRZECIEZ TO BYLO KURWA MAC W INNYCH
+C WERSJACH DAWNO DO CHUJA JEBANEGO POPRAWIONE!!!
+c Wylaczamy oddzialywanie 1-3 tylko wtedy gdy ktoras grupa peptydowa
+c jest dummy a to oznacza, ze reszta i lub i+1 lub i+2 lub i+3 jest dummy
+c reszta i0-1 do tego nie nalezy!
+c if (itype(i).eq.ntyp1.or. itype(i+1).eq.ntyp1
+c & .or. itype(i+2).eq.ntyp1 .or. itype(i+3).eq.ntyp1
+c & .or. itype(i-1).eq.ntyp1
+c & .or. itype(i+4).eq.ntyp1
+c & ) cycle
+ if (itype(i).eq.ntyp1 .or. itype(i+1).eq.ntyp1
+ & .or. itype(i+2).eq.ntyp1
+ & .or. itype(i+3).eq.ntyp1) cycle