zmienionwe zostaly i zostal chyba tylko int to cart deriv

[unres.git] / source / unres / src_MD / checkder_p.F

diff --git a/source/unres/src_MD/checkder_p.F b/source/unres/src_MD/checkder_p.F
index ec66acd..719770e 100644 (file)
--- a/source/unres/src_MD/checkder_p.F
+++ b/source/unres/src_MD/checkder_p.F
@@ -502,7 +502,7 @@ c-------------------------------------------------------------------------
       time01=MPI_Wtime()
 #endif
 #if defined(PARINT) && defined(MPI)
-      do i=iint_start,iint_end
+      do i=iint_start,iint_end+1
 #else
       do i=2,nres
 #endif
@@ -514,7 +514,7 @@ c-------------------------------------------------------------------------
         enddo
         be=0.0D0
         if (i.gt.2) then
-        phi(i+1)=beta(i-2,i-1,i,i+1)
+        if (i.le.nres) phi(i+1)=beta(i-2,i-1,i,i+1)
         if (itype(i).ne.10).and.(itype(i-1).ne.10) then
          tauangle(3,i+1)=beta(i+nres-1,i-1,i,i+nres)
         endif
@@ -539,6 +539,7 @@ c-------------------------------------------------------------------------
           vbld_inv(nres+i)=0.0d0
         endif
       enddo   
+
 #if defined(PARINT) && defined(MPI)
        if (nfgtasks1.gt.1) then
 cd       write(iout,*) "iint_start",iint_start," iint_count",