X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Fwham_calc1.F;h=314644809179e868ebbcdb1026be418d3fb8c4eb;hb=405152d874868fee918caf87158b9f4eadcaa878;hp=868d34aae667fa20a1c45d42318e7cf0b9c312b8;hpb=92c3c76e053a3475ccb6f02c55eb4400e5c336e0;p=unres.git

diff --git a/source/wham/src/wham_calc1.F b/source/wham/src/wham_calc1.F
index 868d34a..3146448 100644
--- a/source/wham/src/wham_calc1.F
+++ b/source/wham/src/wham_calc1.F
@@ -92,6 +92,7 @@ c      parameter (MaxHdim=200000)
       character*2 licz2
       character*3 licz3
       character*128 nazwa
+      character*30 frm_write
       integer ilen
       external ilen
       write(licz2,'(bz,i2.2)') islice
@@ -1381,8 +1382,10 @@ c        write (iout,*) "i",i," potEmin",potEmin
         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),
+        write(frm_write,'( "(",i3,"e15.5,$)" )' ) nQ+2
+        write (34,frm_write) (sumQ(j,i,iparm),j=1,nQ+2)
+        write(frm_write,'( "(",i3,"e15.5,$)" )' ) (nQ+2)*2+1
+        write (34,frm_write) sumEsq(i,iparm)-sumEbis(i,iparm),
      &   (sumQsq(j,i,iparm),j=1,nQ+2),(sumEQ(j,i,iparm),j=1,nQ+2)
         write (34,*) 
       enddo