From 9e9f8ac5d9fb1abbf39cab7f2a3293bbe991a8d4 Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Tue, 2 Apr 2019 13:06:50 +0200 Subject: [PATCH] wham thermal gfortran end of line $ --- source/wham/src-M/wham_calc1.F | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/source/wham/src-M/wham_calc1.F b/source/wham/src-M/wham_calc1.F index 536dae6..1632a6f 100644 --- 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 (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 -- 1.7.9.5