	  .$  8   k820309    Y
          11.1        ‡³ÌQ                                                                                                           
       tpcore_fvdas_mod.F90 TPCORE_FVDAS_MOD              INIT_TPCORE EXIT_TPCORE TPCORE_FVDAS #         @                                                 
   #INIT_TPCORE%REPEAT    #INIT_TPCORE%COS    #INIT_TPCORE%SIN    #INIT_TPCORE%DBLE    #IM    #JM    #KM    #JFIRST 	   #JLAST 
   #NG    #MG    #DT    #AE    #CLAT                                      @                                 REPEAT               @                                 COS               @                                 SIN               @                                 DBLE           
  @@                                                   
   @                                                   
   @                                                   D  @                              	                      D  @                              
                      
   @                                                   
   @                                                   
   @                                  
                
   @                                  
               
   @                                                 
    p          5 “ p        r        5 “ p        r                      #         @                                                     #EXIT_TPCORE%ALLOCATED                  @                                 ALLOCATED #         @                                                 !   #TPCORE_FVDAS%MIN    #TPCORE_FVDAS%MAX    #TPCORE_FVDAS%SUM    #DT    #AE    #IM    #JM    #KM    #JFIRST    #JLAST    #NG    #MG    #NQ    #AK     #BK !   #U "   #V #   #PS1 $   #PS2 %   #PS &   #Q '   #IORD (   #JORD )   #KORD *   #N_ADJ +   #XMASS ,   #YMASS -   #FILL .   #MASSFLEW /   #MASSFLNS 0   #MASSFLUP 1   #AREA_M2 2   #TCVV 3   #ND24 4   #ND25 5   #ND26 6                                      @                                 MIN               @                                 MAX               @                                 SUM           
   @                                 
                
   @                                  
                
  @@                                                  
  @@                                                  
  @@                                                  
  @@                                                   
  @@                                                   
   @                                                   
   @                                                   
   @                                                 
   @                                                  
    p           5 “ p        r    n                                       1     5 “ p        r    n                                      1                                    
   @                             !                    
    p           5 “ p        r    n                                       1     5 “ p        r    n                                      1                                    
   @  �                           "                    
        p          5 “ p        r    5 “ p        r    p        5 “ p        r    5 “ p        r    p          5 “ p        r      & 5 “ p        r    5 “ p        r      5 “ p        r        5 “ p        r        5 “ p        r    5 “ p        r    p          5 “ p        r                               
  @  �                           #                    
         p           5 “ p        r    5 “ p 	       r     5 “ p        r    5 “ p 	       r    p         5 “ p        r    5 “ p 	       r    5 “ p        r    p          5 “ p        r      &  5 “ p        r    5 “ p 	       r     5 “ p        r    5 “ p 	       r      5 “ p        r        5 “ p        r         5 “ p        r    5 “ p 	       r     5 “ p        r    5 “ p 	       r    p          5 “ p        r                               
D @@  �                          $                    
       5 “ p        r    5 “ p        r    p          5 “ p        r      & 5 “ p        r    5 “ p        r        5 “ p        r        5 “ p        r    5 “ p        r    p                                   
D @@  �                          %                    
       5 “ p        r    5 “ p        r    p          5 “ p        r      & 5 “ p        r    5 “ p        r        5 “ p        r        5 “ p        r    5 “ p        r    p                                   D  @  �                           &                    
       5 “ p        r    5 “ p        r    p          5 “ p        r      & 5 “ p        r    5 “ p        r        5 “ p        r        5 “ p        r    5 “ p        r    p                                   
D @@  �                          '                    
           p        5 “ p        r    p           5 “ p        r    5 “ p        r     5 “ p        r    5 “ p        r    p         5 “ p        r    5 “ p        r    5 “ p        r    p          5 “ p        r      &  5 “ p        r    5 “ p        r     5 “ p        r    5 “ p        r      5 “ p        r      5 “ p 
       r        5 “ p        r         5 “ p        r    5 “ p        r     5 “ p        r    5 “ p        r    p          5 “ p        r      5 “ p 
       r                                
  @@                             (                     
  @@                             )                     
  @@                              *                     
   @                              +                    
   @                            ,                    
        p        5 “ p        r    p        5 “ p        r    p          5 “ p        r      5 “ p        r      5 “ p        r        5 “ p        r      5 “ p        r      5 “ p        r                               
   @                            -                    
        p        5 “ p        r    p        5 “ p        r    p          5 “ p        r      5 “ p        r      5 “ p        r        5 “ p        r      5 “ p        r      5 “ p        r                                
   @                             .                     
D  @                            /                   
               &                   &                   &                   &                                                     
D  @                            0                   
               &                   &                   &                   &                                                     
D  @                            1                   
               &                   &                   &                   &                                                    
  @@                            2                    
    p          5 “ p        r        5 “ p        r                               
   @                            3                    
    p          5 “ p 
       r        5 “ p 
       r                                
   @                              4                     
   @                              5                     
   @                              6                  .      fn#fn &   Î   5   b   uapp(TPCORE_FVDAS_MOD            INIT_TPCORE #     ?      INIT_TPCORE%REPEAT     O  <      INIT_TPCORE%COS     ‹  <      INIT_TPCORE%SIN !   Ç  =      INIT_TPCORE%DBLE      @   a   INIT_TPCORE%IM    D  @   a   INIT_TPCORE%JM    „  @   a   INIT_TPCORE%KM #   Ä  @   a   INIT_TPCORE%JFIRST "     @   a   INIT_TPCORE%JLAST    D  @   a   INIT_TPCORE%NG    „  @   a   INIT_TPCORE%MG    Ä  @   a   INIT_TPCORE%DT      @   a   INIT_TPCORE%AE !   D  ´   a   INIT_TPCORE%CLAT    ø  c       EXIT_TPCORE &   [  B      EXIT_TPCORE%ALLOCATED    �  Ý      TPCORE_FVDAS !   z  <      TPCORE_FVDAS%MIN !   ¶  <      TPCORE_FVDAS%MAX !   ò  <      TPCORE_FVDAS%SUM     .	  @   a   TPCORE_FVDAS%DT     n	  @   a   TPCORE_FVDAS%AE     ®	  @   a   TPCORE_FVDAS%IM     î	  @   a   TPCORE_FVDAS%JM     .
  @   a   TPCORE_FVDAS%KM $   n
  @   a   TPCORE_FVDAS%JFIRST #   ®
  @   a   TPCORE_FVDAS%JLAST     î
  @   a   TPCORE_FVDAS%NG     .  @   a   TPCORE_FVDAS%MG     n  @   a   TPCORE_FVDAS%NQ     ®  &  a   TPCORE_FVDAS%AK     Ô  &  a   TPCORE_FVDAS%BK    ú  $  a   TPCORE_FVDAS%U        a   TPCORE_FVDAS%V !   "  „  a   TPCORE_FVDAS%PS1 !   ¦  „  a   TPCORE_FVDAS%PS2     *  „  a   TPCORE_FVDAS%PS    ®  t  a   TPCORE_FVDAS%Q "   "  @   a   TPCORE_FVDAS%IORD "   b  @   a   TPCORE_FVDAS%JORD "   ¢  @   a   TPCORE_FVDAS%KORD #   â  @   a   TPCORE_FVDAS%N_ADJ #   "  ”  a   TPCORE_FVDAS%XMASS #   ¶  ”  a   TPCORE_FVDAS%YMASS "   J  @   a   TPCORE_FVDAS%FILL &   Š  Ô   a   TPCORE_FVDAS%MASSFLEW &   ^   Ô   a   TPCORE_FVDAS%MASSFLNS &   2!  Ô   a   TPCORE_FVDAS%MASSFLUP %   "  ´   a   TPCORE_FVDAS%AREA_M2 "   º"  ´   a   TPCORE_FVDAS%TCVV "   n#  @   a   TPCORE_FVDAS%ND24 "   ®#  @   a   TPCORE_FVDAS%ND25 "   î#  @   a   TPCORE_FVDAS%ND26 