From: Cezary Czaplewski 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/?p=unres.git;a=commitdiff_plain;h=bad9a29f3d173d1136fe6a2333446ab479351053 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 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 --- 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