small changes to compile in gfortran

diff --git a/bin/unres/MD/unres_gfortran_single_GAB.exe b/bin/unres/MD/unres_gfortran_single_GAB.exe
index 2999c52..56d88f3 100755 (executable)
Binary files a/bin/unres/MD/unres_gfortran_single_GAB.exe and b/bin/unres/MD/unres_gfortran_single_GAB.exe differ

diff --git a/source/unres/src_MD/MD_A-MTS.F b/source/unres/src_MD/MD_A-MTS.F
index d4d6be6..95f174d 100644 (file)
--- 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 (file)
--- 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