projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Makefiles for mpich2 and some corrections to Makefiles
[unres.git]
/
source
/
unres
/
src_MD
/
MD_A-MTS.F
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,