X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Freadrtns_CSA.F;h=ce4c59f25307b98a454799b1417f9357c5b7b82b;hb=d2ee52eab91e6055d9cd36a42447313d73b00ea1;hp=577c1ee90753f0c9dd8c3747db94c99b997ff983;hpb=06a7b5d89b58b39f785a1662d35225f4da1cf5d8;p=unres.git

diff --git a/source/unres/src_MD-M/readrtns_CSA.F b/source/unres/src_MD-M/readrtns_CSA.F
index 577c1ee..ce4c59f 100644
--- a/source/unres/src_MD-M/readrtns_CSA.F
+++ b/source/unres/src_MD-M/readrtns_CSA.F
@@ -270,6 +270,7 @@ C      endif
       if (TUBElog.gt.0) then
        call reada(controlcard,"XTUBE",tubecenter(1),0.0d0)
        call reada(controlcard,"YTUBE",tubecenter(2),0.0d0)
+       call reada(controlcard,"ZTUBE",tubecenter(3),0.0d0)
        call reada(controlcard,"RTUBE",tubeR0,0.0d0)
        call reada(controlcard,"TUBETOP",bordtubetop,boxzsize)
        call reada(controlcard,"TUBEBOT",bordtubebot,0.0d0)
@@ -2007,6 +2008,7 @@ c----------------------------------------------------------------------------
       iread=index(rekord,lancuch(:ilen(lancuch))//"=")
       if (iread.eq.0) return
       iread=iread+ilen(lancuch)+1
+
       read (rekord(iread:),*,end=10,err=10) (tablica(i),i=1,dim)
    10 return
       end