projects
/
unres.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7dd2a07
)
wham thermal gfortran end of line $
author
Cezary Czaplewski
<czarek@chem.univ.gda.pl>
Tue, 2 Apr 2019 11:06:50 +0000
(13:06 +0200)
committer
Cezary Czaplewski
<czarek@chem.univ.gda.pl>
Tue, 2 Apr 2019 11:06:50 +0000
(13:06 +0200)
source/wham/src-M/wham_calc1.F
patch
|
blob
|
history
diff --git
a/source/wham/src-M/wham_calc1.F
b/source/wham/src-M/wham_calc1.F
index
536dae6
..
1632a6f
100644
(file)
--- a/
source/wham/src-M/wham_calc1.F
+++ b/
source/wham/src-M/wham_calc1.F
@@
-1404,9
+1404,16
@@
c write (iout,*) "ftbis",ftbis
write (iout,*)
write (34,'(f7.1,2f15.5,$)') startGridT+i*delta_T,
& sumW(i,iparm),sumE(i,iparm)
write (iout,*)
write (34,'(f7.1,2f15.5,$)') startGridT+i*delta_T,
& sumW(i,iparm),sumE(i,iparm)
- write (34,'(f10.5,$)') (sumQ(j,i,iparm),j=1,nQ+2)
- write (34,'(e15.5,$)') sumEsq(i,iparm)-sumEbis(i,iparm),
- & (sumQsq(j,i,iparm),j=1,nQ+2),(sumEQ(j,i,iparm),j=1,nQ+2)
+ do j=1,nQ+2
+ write (34,'(f10.5,$)') sumQ(j,i,iparm)
+ enddo
+ write (34,'(e15.5,$)') sumEsq(i,iparm)-sumEbis(i,iparm)
+ do j=1,nQ+2
+ write (34,'(e15.5,$)') sumQsq(j,i,iparm)
+ enddo
+ do j=1,nQ+2
+ write (34,'(e15.5,$)') sumEQ(j,i,iparm)
+ enddo
write (34,*)
call flush(34)
enddo
write (34,*)
call flush(34)
enddo