me
/
guix
Archived
1
0
Fork 0
This repository has been archived on 2024-08-07. You can view files and clone it, but cannot push or open issues/pull-requests.
guix/gnu/packages/patches/hdf-eos5-fortrantests.patch

157 lines
5.5 KiB
Diff
Raw Normal View History

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