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