[Dart-dev] [3781] DART/trunk/utilities/PrecisionCheck.f90: fixed lysdexic quoting

nancy at ucar.edu nancy at ucar.edu
Fri Feb 27 10:56:11 MST 2009


An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090227/d3e1055e/attachment.html 
-------------- next part --------------
Modified: DART/trunk/utilities/PrecisionCheck.f90
===================================================================
--- DART/trunk/utilities/PrecisionCheck.f90	2009-02-27 17:43:00 UTC (rev 3780)
+++ DART/trunk/utilities/PrecisionCheck.f90	2009-02-27 17:56:11 UTC (rev 3781)
@@ -63,7 +63,7 @@
       write(*,*)'PRECISION = ',precision(realr4)
 
       write(*,'(''----------------------------------------------'')')
-      write(*,*)'"real(r8") r8 = SELECTED_REAL_KIND(13)'
+      write(*,*)'"real(r8)" r8 = SELECTED_REAL_KIND(13)'
       write(*,*)'DIGITS    = ',   digits(realr8)
       write(*,*)'EPSILON   = ',  epsilon(realr8)
       write(*,*)'HUGE      = ',     huge(realr8)


More information about the Dart-dev mailing list