projects/guix·blob python-team · refs

156 lines · 5.5 KiB

1Fix fortran line length/indentation issues in Fortran test programs.
2Reported to upstream maintainer.
3
4diff --git a/samples/he5_gd_writedataF_32.f b/samples/he5_gd_writedataF_32.f
5index 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
43diff --git a/samples/he5_gd_writedataF_64.f b/samples/he5_gd_writedataF_64.f
44index 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
82diff --git a/samples/he5_sw_writedataF_32.f b/samples/he5_sw_writedataF_32.f
83index 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
114diff --git a/samples/he5_sw_writedataF_64.f b/samples/he5_sw_writedataF_64.f
115index 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--
1552.10.0
156