program getlablist                                                        
                                                                                
C****||************************************************************             
                                                                                
      integer       dallist                                                     
      integer       i                                                           
      integer       nlabels                                                     
      integer       listlen                                                     
      integer       reflist( 20 )                                               
      character*15  labellist( 20 )                                             
      character*9   ddname /'dd:myfile'/                                        
                                                                                
                                                                                
      write( 6,* ) ' startpos: 1 ', ' nlabels: ', nlabels                       
      nlabels = dallist( ddname, 700, reflist, labellist,                       
     ^                   20, 15, 1                  )                           
                                                                                
      write( 6,* ) ' nlabels: ', nlabels                                        
      do 100 i = 1,nlabels                                                      
         write( 6,* ) ' Ref number: ', reflist( i ),                            
     ^                ' Label: ',      labellist( i )                           
100   continue                                                                  
      stop                                                                      
      end