72 |
C full precision, do not write the volume: |
C full precision, do not write the volume: |
73 |
c WRITE(nUnit,'(I3,1P4E20.12)') k,(statGlob(i,k,j),i=1,nStats) |
c WRITE(nUnit,'(I3,1P4E20.12)') k,(statGlob(i,k,j),i=1,nStats) |
74 |
C reduced precision + write the volume (usefull for testing): |
C reduced precision + write the volume (usefull for testing): |
75 |
WRITE(nUnit,'(I3,1P4E18.10,1X,1PE12.5)') |
WRITE(nUnit,'(I3,1P5E18.10)') |
76 |
& k, (statGlob(i,k,j),i=1,nStats), statGlob(0,k,j) |
& k, (statGlob(i,k,j),i=1,nStats), statGlob(0,k,j) |
77 |
ENDDO |
ENDDO |
78 |
ENDIF |
ENDIF |