character*2 licz2
character*3 licz3
character*128 nazwa
+ character*30 frm_write
integer ilen
external ilen
write(licz2,'(bz,i2.2)') islice
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