X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MIN%2Fgeomout_min.F;h=5385714951b505c20579e77b7b319430bed71a6c;hb=0903f9426ee6ba22fdb87c72d74358a55da14964;hp=5dab339b90336746f157f0ad163d8f70fd29f199;hpb=a45ce81aae2c857c30b821e39e45a7a08356de4d;p=unres.git diff --git a/source/unres/src_MIN/geomout_min.F b/source/unres/src_MIN/geomout_min.F index 5dab339..5385714 100644 --- a/source/unres/src_MIN/geomout_min.F +++ b/source/unres/src_MIN/geomout_min.F @@ -23,7 +23,7 @@ cmodel write (iunit,'(a5,i6)') 'MODEL',1 & restyp(iti),hfrag(1,j)-1, & restyp(itj),hfrag(2,j)-1,1,hfrag(2,j)-hfrag(1,j) else - write (iunit,'(a5,i5,1x,a1,i2,1x,a3,i7,2x,a3,i7,i3)') + write (iunit,'(a5,i5,1x,a1,i2,1x,a3,i7,2x,a3,i7,i3,t76,i5)') & 'HELIX',j,'H',j, & restyp(iti),hfrag(1,j)-1, & restyp(itj),hfrag(2,j)-1,1,hfrag(2,j)-hfrag(1,j)