*file member=anl_fill_ntuple library=snoman language=fortran77
    *file date=11:Apr:1997
 <<<      logical function anl_fill_ntuple( lntpr,
         +                                  num_names,
         +                                  num_names_stored,
         +                                  entry_data )
     
    *     Event Analyser (ANL): Record n-tuple data.
     
    *     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
    *     entry_data        in    N-tuple data. Temporary variables are included.
    *     anl_define_ntuple out   .true. if n-tuple entry is to be accepted.
     
     
    *     Common Block Access:-
    *     ===================
    *     (ignoring internal and environmental access)
     
    *     None.
     
     
    *     Specification:-
    *     =============
     
    * o   No action; ANL does no special processing of n-tuple data.
     
     
    *     Program Notes:-
    *     =============
     
    *     When ANL calls NTP_HARVEST, NTP calls this routine each time a
    *     new n-tuple entry is processed.  The data includes any temporary
    *     variables.  To remove these take a local copy of the data and use
    *     NTP_COMPRESS_DATA on it.  Do NOT modify ENTRY_DATA, it will be compressed
    *     after this call.
     
     
    *     Revision History:-
    *     ================
     
    *     3.00  N. West     First version.
     
          implicit none
     
          include 'future_call_args.inc'
     
     
    *     Argument Declarations:-
    *     =====================
     
          integer           lntpr, num_names, num_names_stored
          real              entry_data(num_names)
     
    *endheader
     
     
    *     Local Variable Declarations:-
    *     ===========================
     
     
    *     None.
     
    *     Invent use for unused args.
     
          dummy_call_args(1)  = lntpr
          dummy_call_args(2)  = num_names
          dummy_call_args(3)  = num_names_stored
          dummy_call_args(4)  = entry_data(1)
     
          anl_fill_ntuple     = .true.
     
          return
          end
    *endfile member=anl_fill_ntuple