Copy a Ntuple variable into a Vector

Copy a Ntuple variable into a Vector
      hi/file 2 rwn_ptuple.hbook
1     UWFUNC 10 copy.f E                                                                       
2     NT/LOOP 10 copy.f(age)                                                                   
      zone 1 2
      vect/draw x
      vect/plot x

The routine copy.f
      REAL FUNCTION COPY(VAR)
      REAL
     +CATEGORY,DIVISION,FLAG    ,AGE     ,SERVICE ,CHILDREN,
     +GRADE   ,STEP    ,NATION  ,HRWEEK  ,COST
      COMMON/PAWIDN/IDNEVT,OBS(13)
     +CATEGORY,DIVISION,FLAG    ,AGE     ,SERVICE ,CHILDREN,
     +GRADE   ,STEP    ,NATION  ,HRWEEK  ,COST
*
3     VECTOR X(3354)                                                                           
      X(IDNEVT)=VAR
      END

This command allows to define the skeleton of the FORTRAN routine used by NTUPLE/LOOP .
For each event, NTUPLE/LOOP calls copy.f . Ntuple variables (and alos KUIP vectors) can be passed as parameters.
The declaration VECTOR may be used inside a COMIS routine to address a KUIP vector. If the vector does not exist, it is created with the specifications provided by the declared dimension.

			PAW Tutorial	Last update: 1999/04/01 14.59	Olivier.Couet@Cern.Ch