Finding undefined tua...
authorAdam Sieradzan <adasko@piasek4.chem.univ.gda.pl>
Wed, 25 Feb 2015 09:36:46 +0000 (10:36 +0100)
committerAdam Sieradzan <adasko@piasek4.chem.univ.gda.pl>
Wed, 25 Feb 2015 09:36:46 +0000 (10:36 +0100)
source/unres/src_MD/checkder_p.F

index ff70fa1..fda3a7b 100644 (file)
@@ -534,6 +534,7 @@ c-------------------------------------------------------------------------
          tauangle(1,i+1)=beta(i-1+nres,i-1,i,i+1)
          omicron(1,i)=alpha(i-2,i-1,i-1+nres)
          omicron(2,i)=alpha(i-1+nres,i-1,i)
+C        print *,i,omicron(1,i),omicron(2,i)
         endif
         if (itype(i).ne.10) then
          tauangle(2,i+1)=beta(i-2,i-1,i,i+nres)