*file member=anl_define_ntuple library=snoman language=fortran77
    *file date=02:May:1997
 <<<      logical function anl_define_ntuple( lntpr,
         +                                    num_names,
         +                                    num_names_stored,
         +                                    c_ntuple_name,
         +                                    cnames,
         +                                    iaddr_stored )
     
    *     Event Analyser (ANL): Record n-tuple definition.
     
    *     Contact:      N. West,  Oxford
     
    *     Parameters:-
    *     ==========
     
    *     lntpr             in    Link to NTPR bank
    *     num_names         in    Number of variable names
    *     num_names_stored  in    Number of stored variable names
    *     c_ntuple_name     in    char*(*) n-tuple name.
    *     cnames            in    char*(*) array of names
    *     iaddr_stored      in    Mapping: Compressed -> Uncompressed addresses.
    *                             for stored names.  See NTP.INC INTP_ADDR_STORED.
    *     anl_define_ntuple out   .true. if n-tuple is to be accepted.
     
     
    *     Common Block Access:-
    *     ===================
    *     (ignoring internal and environmental access)
     
    *     /ANL_COM/  out       *.
     
     
    *     Specification:-
    *     =============
     
    * o   Save link to request.
     
     
    *     Program Notes:-
    *     =============
     
    *     When ANL calls NTP_INIT_REQUEST, NTP calls this routine each time a
    *     new n-tuple request is processed.
     
     
    *     Revision History:-
    *     ================
     
    *     3.00  N. West     First version.
    *     3.01  N. West     New call sequence.
     
          implicit none
     
          include 'anl_com.inc'
          include 'future_call_args.inc'
     
     
    *     Argument Declarations:-
    *     =====================
     
          integer           lntpr, num_names, num_names_stored,
         +                  iaddr_stored(num_names_stored)
          character*(*)     cnames(num_names), c_ntuple_name
     
    *endheader
     
     
    *     Local Variable Declarations:-
    *     ===========================
     
     
    *     None.
     
    *     Invent use for unused args.
     
          dummy_call_args(1)  = num_names
          dummy_call_args(2)  = num_names_stored
          dummy_call_args(3)  = iaddr_stored(1)
          cdummy_call_args(1) = cnames(1)
          cdummy_call_args(2) = c_ntuple_name
     
    *     Save link to request.
     
          ianl_num_ntpr = ianl_num_ntpr + 1
          if ( ianl_num_ntpr .le. KANL_MX_NTPR )
         +                          link_ntpr(ianl_num_ntpr) = lntpr
     
          anl_define_ntuple = .true.
     
          return
          end
    *endfile member=anl_define_ntuple