1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
diff -ru ffr.old/FFR2VIZ/src/tovtk.f ffr.new/FFR_V3.1.004/FFR2VIZ/src/tovtk.f
--- ffr.old/FFR2VIZ/src/tovtk.f 2009-05-27 10:57:50.000000000 +0900
+++ ffr.new/FFR2VIZ/src/tovtk.f 2020-04-07 18:55:05.000000000 +0900
@@ -190,7 +190,7 @@
character(len=*), parameter :: FNAME = "write_vtk_points: "
c character(len=*), parameter ::fmt_data = "(3E)"
- character(len=*), parameter ::fmt_data = "(9E)"
+ character(len=*), parameter ::fmt_data = "(9E15.7)"
integer :: ii
write(*, *)'dbg> ', FNAME, ' writing...'
@@ -491,7 +491,7 @@
character(len=*), parameter :: FNAME = "write_vtk_scalar: "
c character(len=*), parameter ::fmt_data = "(E)"
- character(len=*), parameter ::fmt_data = "(9E)"
+ character(len=*), parameter ::fmt_data = "(9E15.7)"
integer :: ii
write(*, *)'dbg> ', FNAME, ' writing...', trim(byname)
@@ -541,7 +541,7 @@
character(len=*), parameter :: FNAME = "write_vtk_vector: "
c character(len=*), parameter ::fmt_data = "(3E)"
- character(len=*), parameter ::fmt_data = "(9E)"
+ character(len=*), parameter ::fmt_data = "(9E15.7)"
integer :: ii
write(*, *)'dbg> ', FNAME, ' writing...', trim(byname)
|
