*******  This is approximately what the output from ann.test  *******
*******  should look like                                     *******

putSDS_RISan o1 30 40 1



putSDS_RISan o2 30 40 10

getSDSan o1

Data set # 1
    No label
    No description 

+++++++++++++++++++++++++

getSDSan o2

Data set # 1
    No label
    No description 

Data set # 2
    Label: Array #1
    Description: 2-D fp array #1. Produces spectrum with grid.
	Dimensions:
		height = 30
		width = 40

Data set # 3
    Label: Array #2
    Description: 2-D fp array #2. Produces spectrum with grid.
	Dimensions:
		height = 30
		width = 40

Data set # 4
    No label
    No description 

Data set # 5
    Label: Array #4
    Description: 2-D fp array #4. Produces spectrum with grid.
	Dimensions:
		height = 30
		width = 40

Data set # 6
    Label: Array #5
    Description: 2-D fp array #5. Produces spectrum with grid.
	Dimensions:
		height = 30
		width = 40

Data set # 7
    No label
    No description 

Data set # 8
    Label: Array #7
    Description: 2-D fp array #7. Produces spectrum with grid.
	Dimensions:
		height = 30
		width = 40

Data set # 9
    Label: Array #8
    Description: 2-D fp array #8. Produces spectrum with grid.
	Dimensions:
		height = 30
		width = 40

Data set # 10
    No label
    No description 

+++++++++++++++++++++++++

getSDSlablist o1

Labels of scientific data sets in file o1

	0	Ref number: 1	Label: 

getSDSlablist o2

Labels of scientific data sets in file o2

	0	Ref number: 1	Label: 
	1	Ref number: 5	Label: Array #1
	2	Ref number: 11	Label: Array #2
	3	Ref number: 17	Label: 
	4	Ref number: 21	Label: Array #4
	5	Ref number: 27	Label: Array #5
	6	Ref number: 33	Label: 
	7	Ref number: 37	Label: Array #7
	8	Ref number: 43	Label: Array #8
	9	Ref number: 49	Label: 

file_ann_test o3

***Now reading label lengths and labels***
Label length: 8	ret: 8	Label: Label #0
Label length: 8	ret: 8	Label: Label #1
Label length: 8	ret: 8	Label: Label #2
Label length: 8	ret: 8	Label: Label #3

***End of labels***


Description length: 370

***Just read description. ret: 370
Description: 
Here is the loop used to write labels to this file:

for (i=0; i<4; i++) {
 outlabel[7] = '0' + (char) i;
 if (DFANaddfileann(dfile,outlabel,strlen(outlabel),DFAN_LABEL)<0){
   printf("Error adding label. DFerror: %d.\nProgram aborted.\n",
                                                           DFerror);
       exit(1);
   }
}

This is the end of the description.



***End of description***
 
NOW FOR THE FORTRAN TESTS...enter o2 when prompted for a file name
 
get1anF

Enter HDF file name.  The HDF file should contain two
SDSs with a label and description for the second one.
File name:
o2 
Label: Array #1
Description: 

2-D fp array #1. Produces spectrum with grid.
	Dimensions:
		height = 30
		width = 40

getSDSlablistF

Enter name of an HDF file that contains some labels
for SDSs:
o2
Labels of scientific data sets in o2                  
  Ref number:   1  Label:                
  Ref number:   5  Label: Array #1       
  Ref number:   11  Label: Array #2       
  Ref number:   17  Label:                
  Ref number:   21  Label: Array #4       
  Ref number:   27  Label: Array #5       
  Ref number:   33  Label:                
  Ref number:   37  Label: Array #7       
  Ref number:   43  Label: Array #8       
  Ref number:   49  Label:                

file_ann_testF

Enter HDF file name:
o2
***** Now reading file ID lengths and IDs ******
Length:   10  Ret:  10  Label:Label #1  
Length:   10  Ret:  10  Label:Label #2  
Length:   10  Ret:  10  Label:Label #3  
Length:   10  Ret:  10  Label:Label #4  
*** End of file IDs ***
Description length:   400
*** just read description.***
Description:

 This loop was used to write out labels.

      do 100 i=1,4
        outlabel = baselabel//char(48+i)
        ret = DFANaddfid(dfile,outlabel,len(outlabel))
        if (ret.lt.0)fatalerror('Error adding label.')
  100 continue

This is the end of the description.

                                                                                                                                       
*** End of description ***

