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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
Fix fortran line length/indentation issues in Fortran test programs.
Reported to upstream maintainer.
diff --git a/samples/he5_gd_writedataF_32.f b/samples/he5_gd_writedataF_32.f
index 515edf9..9c86299 100755
--- a/samples/he5_gd_writedataF_32.f
+++ b/samples/he5_gd_writedataF_32.f
@@ -77,26 +77,26 @@ c ------------------------------
attr4 = "ABCDEFGH"
count(1) = 8
- status = he5_gdwrattr(gdid,"GLOBAL_CHAR_ATTR",HE5T_NATIVE_CHAR,
- 1 count,attr4)
+ status = he5_gdwrattr(gdid,"GLOBAL_CHAR_ATTR"
+ & ,HE5T_NATIVE_CHAR,count,attr4)
write(*,*) 'Status returned by he5_gdwrattr(): ',status
attr4 = "111"
count(1) = 3
- status = he5_gdwrgattr(gdid,"GLOBAL_CHAR_ATTR_1",HE5T_NATIVE_CHAR,
- 1 count,attr4)
+ status = he5_gdwrgattr(gdid,"GLOBAL_CHAR_ATTR_1"
+ & ,HE5T_NATIVE_CHAR,count,attr4)
write(*,*) 'Status returned by he5_gdwrgattr(): ',status
attr4 = "222222"
count(1) = 6
- status = he5_ehwrglatt(gdfid,"GLOBAL_CHAR_ATTR_2",HE5T_NATIVE_CHAR,
- 1 count,attr4)
+ status = he5_ehwrglatt(gdfid,"GLOBAL_CHAR_ATTR_2"
+ & ,HE5T_NATIVE_CHAR,count,attr4)
write(*,*) 'Status returned by he5_ehwrglatt(): ',status
attr5 = "abcdefgh111111111111"
count(1) = 20
- status = he5_gdwrlattr(gdid,"Vegetation","LocalAttribute_0",
- 1 HE5T_NATIVE_CHAR,count,attr5)
+ status = he5_gdwrlattr(gdid,"Vegetation"
+ & ,"LocalAttribute_0",HE5T_NATIVE_CHAR,count,attr5)
write(*,*) 'Status returned by he5_gdwrlattr(): ',status
endif
diff --git a/samples/he5_gd_writedataF_64.f b/samples/he5_gd_writedataF_64.f
index eff04f5..62a7398 100755
--- a/samples/he5_gd_writedataF_64.f
+++ b/samples/he5_gd_writedataF_64.f
@@ -77,26 +77,26 @@ c ------------------------------
attr4 = "ABCDEFGH"
count(1) = 8
- status = he5_gdwrattr(gdid,"GLOBAL_CHAR_ATTR",HE5T_NATIVE_CHAR,
- 1 count,attr4)
+ status = he5_gdwrattr(gdid,"GLOBAL_CHAR_ATTR"
+ & ,HE5T_NATIVE_CHAR,count,attr4)
write(*,*) 'Status returned by he5_gdwrattr(): ',status
attr4 = "111"
count(1) = 3
- status = he5_gdwrgattr(gdid,"GLOBAL_CHAR_ATTR_1",HE5T_NATIVE_CHAR,
- 1 count,attr4)
+ status = he5_gdwrgattr(gdid,"GLOBAL_CHAR_ATTR_1"
+ & ,HE5T_NATIVE_CHAR,count,attr4)
write(*,*) 'Status returned by he5_gdwrgattr(): ',status
attr4 = "222222"
count(1) = 6
- status = he5_ehwrglatt(gdfid,"GLOBAL_CHAR_ATTR_2",HE5T_NATIVE_CHAR,
- 1 count,attr4)
+ status = he5_ehwrglatt(gdfid,"GLOBAL_CHAR_ATTR_2"
+ & ,HE5T_NATIVE_CHAR,count,attr4)
write(*,*) 'Status returned by he5_ehwrglatt(): ',status
attr5 = "abcdefgh111111111111"
count(1) = 20
- status = he5_gdwrlattr(gdid,"Vegetation","LocalAttribute_0",
- 1 HE5T_NATIVE_CHAR,count,attr5)
+ status = he5_gdwrlattr(gdid,"Vegetation"
+ & ,"LocalAttribute_0",HE5T_NATIVE_CHAR,count,attr5)
write(*,*) 'Status returned by he5_gdwrlattr(): ',status
endif
diff --git a/samples/he5_sw_writedataF_32.f b/samples/he5_sw_writedataF_32.f
index 7abab9b..fedd49a 100755
--- a/samples/he5_sw_writedataF_32.f
+++ b/samples/he5_sw_writedataF_32.f
@@ -173,20 +173,21 @@ c Write Global Attribute
c ----------------------
attr4 = "ABCDEFGH"
count(1) = 8
- status = he5_swwrattr(swid,"GLOBAL_CHAR_ATTR",HE5T_NATIVE_CHAR,
- 1 count,attr4)
+ status = he5_swwrattr(swid,"GLOBAL_CHAR_ATTR"
+ & ,HE5T_NATIVE_CHAR,count,attr4)
write(*,*) 'Status returned by he5_swwrattr(): ',status
attr4 = "111"
count(1) = 3
- status = he5_swwrgattr(swid,"GLOBAL_CHAR_ATTR_1",HE5T_NATIVE_CHAR,
- 1 count,attr4)
+ status = he5_swwrgattr(swid,"GLOBAL_CHAR_ATTR_1"
+ & ,HE5T_NATIVE_CHAR,count,attr4)
write(*,*) 'Status returned by he5_swwrgattr(): ',status
attr4 = "222222"
count(1) = 6
- status = he5_ehwrglatt(swfid,"GLOBAL_CHAR_ATTR_2",HE5T_NATIVE_CHAR,
- 1 count,attr4)
+ status = he5_ehwrglatt(swfid
+ & ,"GLOBAL_CHAR_ATTR_2",HE5T_NATIVE_CHAR
+ & ,count,attr4)
write(*,*) 'Status returned by he5_ehwrglatt(): ',status
c Write Local Attribute
diff --git a/samples/he5_sw_writedataF_64.f b/samples/he5_sw_writedataF_64.f
index 79e34bd..e5d74cb 100755
--- a/samples/he5_sw_writedataF_64.f
+++ b/samples/he5_sw_writedataF_64.f
@@ -162,25 +162,27 @@ c Write Global Attribute
c ----------------------
attr4 = "ABCDEFGH"
count(1) = 8
- status = he5_swwrattr(swid,"GLOBAL_CHAR_ATTR",HE5T_NATIVE_CHAR,
- 1 count,attr4)
+ status = he5_swwrattr(swid,"GLOBAL_CHAR_ATTR"
+ & ,HE5T_NATIVE_CHAR,count,attr4)
attr4 = "111"
count(1) = 3
- status = he5_swwrgattr(swid,"GLOBAL_CHAR_ATTR_1",HE5T_NATIVE_CHAR,
- 1 count,attr4)
+ status = he5_swwrgattr(swid,"GLOBAL_CHAR_ATTR_1"
+ & ,HE5T_NATIVE_CHAR,count,attr4)
attr4 = "222222"
count(1) = 6
- status = he5_ehwrglatt(swfid,"GLOBAL_CHAR_ATTR_2",HE5T_NATIVE_CHAR,
- 1 count,attr4)
+ status = he5_ehwrglatt(swfid
+ & ,"GLOBAL_CHAR_ATTR_2",HE5T_NATIVE_CHAR
+ & ,count,attr4)
c Write Local Attribute
c ---------------------
attr5 = "abababababababababab"
count(1) = 20
- status = he5_swwrlattr(swid,"Density","LocalAttribute_0",
- 1 HE5T_NATIVE_CHAR,count,attr5)
+ status = he5_swwrlattr(swid,"Density"
+ & ,"LocalAttribute_0",HE5T_NATIVE_CHAR,count
+ & ,attr5)
endif
--
2.10.0
|
