2
! ----------------------------------------------------------------------------
3
! | Copyright (C) 2002 Emergent IT Inc. and Raytheon Systems Company |
4
! ----------------------------------------------------------------------------
7
program he5_za_wrexternaldataF_32
18
integer he5_ehrdwrfile
23
integer data_out_1(100)
24
integer data_out_2(100)
25
integer data_out_3(100)
31
integer*4 num_elements
36
!.....Use this for writing (only) to an existing file
37
integer WRITE_EXISTING_ONLY
38
parameter (WRITE_EXISTING_ONLY=0)
40
!.....Use this for reading (only) from an existing file
42
parameter (READ_ONLY=1)
44
!.....Use this for creating and writing to a file
46
parameter (WRITE_NEW=2)
49
! Create the new data buffer
50
! --------------------------
55
! Open HDF-EOS za file, "za.he5"
56
! ------------------------------
57
zafid = he5_zaopen("za.he5", HE5F_ACC_RDWR)
58
write(*,*) 'File ID returned from he5_zaopen(): ',zafid
60
if (zafid .NE. FAIL) then
61
zaid = he5_zaattach(zafid, "ZA1")
62
write(*,*) 'ZA ID returned from he5_zaattach(): ',zaid
64
if (zaid .NE. FAIL) then
66
! Write new data to the external files
67
! ------------------------------------
72
status = he5_zawrite(zaid,"ExtData",
73
1 start,stride,count,data)
74
write(*,*) 'Status returned from he5_zawrite(): ',status
78
status = he5_ehrdwrfile("extf1.dat",READ_ONLY,
79
1HE5T_NATIVE_INT,num_elements,data_out_1)
80
write(*,*) 'Status returned from he5_ehrdwrfile: ',status
82
status = he5_ehrdwrfile("extf2.dat",READ_ONLY,
83
1HE5T_NATIVE_INT,num_elements,data_out_2)
84
write(*,*) 'Status returned from he5_ehrdwrfile: ',status
86
status = he5_ehrdwrfile("extf3.dat",READ_ONLY,
87
1HE5T_NATIVE_INT,num_elements,data_out_3)
88
write(*,*) 'Status returned from he5_ehrdwrfile: ',status
90
write(*,*)'External file extf1.dat:'
94
write(*,*)'External file extf2.dat:'
98
write(*,*)'External file extf3.dat:'
107
status = he5_zadetach(zaid)
108
write(*,*) 'Status returned from he5_zadetach(): ',status
112
status = he5_zaclose(zafid)
113
write(*,*) 'Status returned from he5_zaclose(): ',status