1
program he5_gd_readdataF_32
27
c Open HDF-EOS "grid.he5" file
28
c -----------------------------
29
gdfid = he5_gdopen("grid.he5",HE5F_ACC_RDWR)
30
write(*,*) 'File ID returned by he5_gdopen(): ',gdid
32
if (gdfid .ne. FAIL) then
34
c Attach to the UTM grid
35
c ----------------------
36
gdid = he5_gdattach(gdfid, "UTMGrid")
37
write(*,*) 'Grid ID returned by he5_gdattach(): ',gdid
39
if (gdid .ne. FAIL) then
47
c Read the data from "Vegetation" field
48
c -------------------------------------
49
status = he5_gdrdfld(gdid,"Vegetation",
50
1 start,stride,count,veg)
51
write(*,*) 'Status returned by he5_gdrdfld(): ',status
54
c Read global attribute "float"
55
c -----------------------------
56
status = he5_gdrdattr(gdid, "float", f)
57
write(*,*) 'Status returned by he5_gdrdattr(): ',status
58
write(*,*) 'global attribute value: ', f
62
c Detach from the grid
63
c --------------------
64
status = he5_gddetach(gdid)
65
write(*,*) 'Status returned by he5_gddetach(): ',status
69
status = he5_gdclose(gdfid)
70
write(*,*) 'Status returned by he5_gdclose(): ',status