1PAGE 1    VERSION 2 TABLE FUNCTIONS NDTRAN                  (C) 1978 UND
 
     * * * * *    S O U R C E    L I S T I N G    * * * * *

     0001  TITLE VERSION 2 TABLE FUNCTIONS NDTRAN                                  
     0002  * NOSTATS                                                               
     0003  * EULER                                                                 
     0004  * NARROW                                                                
     0005  * NOWARN                                                                
     0006  L LEV.K=INTGRL(TEST1.JK)                                                
     0007  N LEV=1                                                                 
     0008  R TEST1.KL=LEV.K*AUX.K                                                  
     0009  A AUX.K=TABND(TAB1,TIME.K,3,7)                                          
     0010  A AU1.K=TABHL(TAB1,TIME.K,3,7,1)                                        
     0011  A AU2.K=TABFL(TAB1,TIME.K,3,7)                                          
     0012  T TAB1=-5,0,1,8,27                                                      
     0013  PARM DT=.1                                                              
     0014  PARM START=0                                                            
     0015  PARM STOP=10                                                            
     0016  PARM PLTPER=.25                                                         
     0017  PLOT AUX=#,AU1=*,AU2=+                                                  
1PAGE 2    VERSION 2 TABLE FUNCTIONS NDTRAN                  (C) 1978 UND
 
      #=AUX       *=AU1       +=AU2       
 
   +*#  -20           6             32            58            84            
     0  # . . . * . . . . . . . . . . . . . . . . . . . . . . . .        
        .#      *     .             .             .             .        
        .  #    *     .             .             .             .        
 T      . + #   *     .             .             .             .        
 I      .   +#  *     .             .             .             .        
 M      .     +#*     .             .             .             .        
 E      .       #     .             .             .             .  #*+   
        .        *#   .             .             .             .  #+    
        .          #  .             .             .             .  #*+   
        .          #  .             .             .             .  #*+   
     5  . . . . . .#. . . . . . . . . . . . . . . . . . . . . . .  #*+   
        .            #.             .             .             .  #*+   
        .             .#            .             .             .  #*+   
        .             .    #*       .             .             .  #+    
        .             .          #  .             .             .  #*+   
        .             .          * +. #           .             .        
        .             .          *  . +     #     .             .        
        .             .          *  .   +        #.             .        
        .             .          *  .     +       .   #         .        
        .             .          *  .       +     .        #    .        
    10  . . . . . . . . . . . . .*. . . . . . + . . . . . . . . #