From: Cezary Czaplewski <czarek@chem.univ.gda.pl>
Date: Sat, 16 Feb 2013 01:31:51 +0000 (+0100)
Subject: small changes to compile in gfortran
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=64e3877f68e81e622f5e742cf97b19d022054af2;p=unres.git

small changes to compile in gfortran
---

diff --git a/source/unres/src_MD/MD_A-MTS.F b/source/unres/src_MD/MD_A-MTS.F
index d4d6be6..95f174d 100644
--- a/source/unres/src_MD/MD_A-MTS.F
+++ b/source/unres/src_MD/MD_A-MTS.F
@@ -1096,7 +1096,7 @@ c Backup the coordinates, velocities, and accelerations
 
        if(tnp .or. tnp1) then
 #ifndef G77
-        write (iout,'(a3,7f)') "TTT",EK,s_np,potE,pi_np,Csplit,
+        write (iout,'(a3,7f20.10)') "TTT",EK,s_np,potE,pi_np,Csplit,
      &                          E_long,energia_short(0)
 #else
         write (iout,'(a3,7f20.10)') "TTT",EK,s_np,potE,pi_np,Csplit,
diff --git a/source/unres/src_MD/parmread.F b/source/unres/src_MD/parmread.F
index 62a0ddf..cd9bda2 100644
--- a/source/unres/src_MD/parmread.F
+++ b/source/unres/src_MD/parmread.F
@@ -565,7 +565,8 @@ cc maxinter is maximum interaction sites
       do l=1,maxinter    
       do i=1,nsccortyp
 	do j=1,nsccortyp
-	  read (isccor,*,end=1113,err=1113) nterm_sccor(i,j),nlor_sccor(i,j)
+	  read (isccor,*,end=1113,err=1113) 
+     &           nterm_sccor(i,j),nlor_sccor(i,j)
           v0ijsccor=0.0d0
           si=-1.0d0