1
1

Increase format width in example pi.F to avoid Intel compiler warnings. Thanks to Mark Debbage from QLogic for the patch.

This commit was SVN r25691.
Этот коммит содержится в:
Samuel Gutierrez 2012-01-04 16:44:16 +00:00
родитель bd65bafc4b
Коммит b3bfae129b

Просмотреть файл

@ -62,8 +62,8 @@ c Node 0 prints the answer.
if (rank .eq. 0) then
write(6, 97) iter, pi, abs(pi - PI25DT)
97 format(i3, ' points: pi is approximately: ', F18.16,
+ ' error is: ', F18.16)
97 format(i3, ' points: pi is approximately: ', F19.16,
+ ' error is: ', F19.16)
endif
#ifdef MANUAL