X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fxdrfpdb%2Fsrc-M%2Fgeomout.F;h=256bc7a95f163a8373abbcfd5cb904d0f7a9e205;hb=57fd9101200e85f97d56c97be8c418396b08e05a;hp=4b871b8fd7309e0388b229ad5464984db5bddf71;hpb=682cfafe9214886e249bc1fe0f7f16813b2c82c5;p=unres.git

diff --git a/source/xdrfpdb/src-M/geomout.F b/source/xdrfpdb/src-M/geomout.F
index 4b871b8..256bc7a 100644
--- a/source/xdrfpdb/src-M/geomout.F
+++ b/source/xdrfpdb/src-M/geomout.F
@@ -98,7 +98,7 @@ c      endif
         if (iti.eq.ntyp1) then
           ichain=ichain+1
           ires=0
-          write (iunit,'(a)') 'TER'
+          if (iti_prev.ne.ntyp1) write (iunit,'(a)') 'TER'
         else
         ires=ires+1
         iatom=iatom+1
@@ -113,6 +113,7 @@ c      endif
 !     &      vtot(i+nres)
         endif
         endif
+        iti_prev=iti
       enddo
       write (iunit,'(a)') 'TER'
       do i=nnt,nct-1