X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Freadrtns.F;h=1d6d0828ba4c4b03220846673ff63ce33e581e4a;hb=492cd1b490a2e0259b8e9447eac11a9466cf6df9;hp=b861fdb35f4c3c32af71ecb9cf79ede974399055;hpb=78529e6af2f9a6106cd562408cd0acc5ed2c9065;p=unres.git

diff --git a/source/unres/src_MD/readrtns.F b/source/unres/src_MD/readrtns.F
index b861fdb..1d6d082 100644
--- a/source/unres/src_MD/readrtns.F
+++ b/source/unres/src_MD/readrtns.F
@@ -1952,7 +1952,12 @@ c----------------------------------------------------------------------------
       do i=1,dim
         tablica(i)=default
       enddo
+#ifdef G77
+      aux=lancuch(:ilen(lancuch))//"="	
+      iread=index(rekord,aux)
+#else
       iread=index(rekord,lancuch(:ilen(lancuch))//"=")
+#endif
       if (iread.eq.0) return
       iread=iread+ilen(lancuch)+1
       read (rekord(iread:),*,end=10,err=10) (tablica(i),i=1,dim)
@@ -1970,7 +1975,12 @@ c----------------------------------------------------------------------------
       do i=1,dim
         tablica(i)=default
       enddo
+#ifdef G77
+      aux=lancuch(:ilen(lancuch))//"="
+      iread=index(rekord,aux)
+#else
       iread=index(rekord,lancuch(:ilen(lancuch))//"=")
+#endif
       if (iread.eq.0) return
       iread=iread+ilen(lancuch)+1
       read (rekord(iread:),*,end=10,err=10) (tablica(i),i=1,dim)
@@ -2611,12 +2621,14 @@ c------------------------------------------------------------------------------
       include "DIMENSIONS"
       include "COMMON.IOUNITS"
       character*(*) source
+      character* 256 tmpfile
       integer ilen
       external ilen
+      tmpfile=source(:ilen(source))
       write (*,*) "Moving ",source(:ilen(source)),
      & " from temporary directory to working directory"
-      write (*,*) "/bin/mv "//source(:ilen(source))//" "//curdir
-      call system("/bin/mv "//source(:ilen(source))//" "//curdir)
+      write (*,*) "/bin/mv "//tmpfile//" "//curdir
+      call system("/bin/mv "//tmpfile//" "//curdir)
       return
       end
 c------------------------------------------------------------------------------