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
31
32
33
34
35
36
37
38
39
40
41
42
|
diff -ru ffr.old/FFR_V3.1.004/FFR2VIZ/src/tovtk.f ffr.new/FFR_V3.1.004/FFR2VIZ/src/tovtk.f
--- ffr.old/FFR_V3.1.004/FFR2VIZ/src/tovtk.f 2009-05-27 10:57:50.000000000 +0900
+++ ffr.new/FFR_V3.1.004/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)
diff -ru ffr.old/FFR_V3.1.004/FFR2VIZ/src/writeFLUENTHeader.f ffr.new/FFR_V3.1.004/FFR2VIZ/src/writeFLUENTHeader.f
--- ffr.old/FFR_V3.1.004/FFR2VIZ/src/writeFLUENTHeader.f 2009-05-27 10:57:50.000000000 +0900
+++ ffr.new/FFR_V3.1.004/FFR2VIZ/src/writeFLUENTHeader.f 2020-04-07 18:24:57.000000000 +0900
@@ -162,7 +162,7 @@
end if
120 format(A)
- 121 format(A,3I,A)
+ 121 format(A,3I10,A)
122 format(A,A,A)
status=0
|