Parent Directory | Revision Log | Revision Graph | Patch
revision 1.2 by adcroft, Fri Feb 2 21:36:29 2001 UTC | revision 1.3 by heimbach, Tue Apr 10 22:35:27 2001 UTC | |
---|---|---|
# | Line 42 C Local | Line 42 C Local |
42 | ENDDO | ENDDO |
43 | Frms=sqrt(Frms/float(cnt)) | Frms=sqrt(Frms/float(cnt)) |
44 | ||
45 | write(0,'(a,1p4e12.5,1x,a)') | write(*,'(a,1p4e12.5,1x,a)') |
46 | & 'CHKSUM_TILED: ',Fmin,Fmax,Fmn,Frms,str | & 'CHKSUM_TILED: ',Fmin,Fmax,Fmn,Frms,str |
47 | ||
48 | RETURN | RETURN |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |