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

The routine copy.f
                                                                                        
      REAL FUNCTION COPY(XDUMMY)                                                                                        
      REAL                                                                                                              
     +CATEGORY,DIVISION,FLAG    ,AGE     ,SERVICE ,CHILDREN,                                                            
     +GRADE   ,STEP    ,NATION  ,HRWEEK  ,COST                                                                          
      COMMON/PAWIDN/IDNEVT,VIDN1,VIDN2,VIDN3,VIDN(10),                                                                  
     +CATEGORY,DIVISION,FLAG    ,AGE     ,SERVICE ,CHILDREN,                                                            
     +GRADE   ,STEP    ,NATION  ,HRWEEK  ,COST                                                                          
*                                                                                                                       
3     VECTOR X(3354)                                                                                             
      X(IDNEVT)=VIDN1                                                                                                   
      END                                                                                                               

1. This command allows to define the skeleton of the FORTRAN routine used by NTUPLE/LOOP .
2. For each event, NTUPLE/LOOP calls copy.f .
3. 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.