  7H  ‹   k820309    M          9.1         ÂèH                                                                                                       
       xy_base_module.f90 XY_BASE_MODULE       =   IM IMIN IMAX XMARGIN X_X P_X X_DX P_DX JM JMIN JMAX YMARGIN Y_Y Q_Y Y_DY Q_DY X_AVR_P P_AVR_X INTX_P INTX_X AVRX_P AVRX_X Y_AVR_Q Q_AVR_Y INTY_Q INTY_Y AVRY_Q AVRY_Y XY_X XY_Y XY_DX PY_DX XY_DY XQ_DY XY_AXIS_INIT Y_INTX_PY X_INTY_XQ Y_AVRX_PY X_AVRY_XQ INTXY_XY INTXY_XQ INTXY_PY AVRXY_XY AVRXY_PY AVRXY_XQ gen@XY_AVR_PY gen@XQ_AVR_PQ gen@PY_AVR_XY gen@PQ_AVR_XQ gen@XY_AVR_XQ gen@PY_AVR_PQ gen@XQ_AVR_XY gen@PQ_AVR_PY gen@Y_INTX_XY gen@Q_INTX_XQ gen@X_INTY_XY gen@P_INTY_PY gen@Y_AVRX_XY gen@Q_AVRX_XQ gen@X_AVRY_XY gen@P_AVRY_PY                  @                       
       DBKIND DP                  @                       
       IM IMIN IMAX XMARGIN X_AXIS_INIT X_X P_X X_DX P_DX X_AVR_P P_AVR_X INTX_P INTX_X AVRX_P AVRX_X                  @                       
       JM JMIN JMAX YMARGIN Y_AXIS_INIT Y_Y Q_Y Y_DY Q_DY Y_AVR_Q Q_AVR_Y INTY_Q INTY_Y AVRY_Q AVRY_Y                                            u #XA_AVR_PA    (    `   @X ƒ                             	                
#PA_VAR      5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p                   
   @                                 
      5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p                                                         u #XA_AVR_PA                                               u #PA_AVR_XA 
   (    `   @X ƒ                  
                           
#XA_VAR      5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p                   
   @                                 
 
     5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p                                                         u #PA_AVR_XA 
                                              u #AY_AVR_AQ    (    `   @X ƒ                                             
#AQ_VAR      5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p                   
   @                                 
      5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p                                                         u #AY_AVR_AQ                                               u #AQ_AVR_AY    (    `   @X ƒ                                             
#AY_VAR      5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p                   
   @                                 
      5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p                                                         u #AQ_AVR_AY                                               u #A_INTX_XA    (    `   @X ƒ                                            
#XA_VAR    5 r      & 5 r    5 r 	         5 r 	   5 r    p                   
   @                                 
      5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p                                                         u #A_INTX_XA                                               u #A_INTY_AY    (    `   @X ƒ                                            
#AY_VAR    5 r      & 5 r    5 r          5 r    5 r    p                   
   @                                 
      5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p                                                         u #A_INTY_AY                                               u #A_AVRX_XA    (    `   @X ƒ                             !               
#A_AVRX_XA%SUM    #XA_VAR    5 r      & 5 r    5 r 	         5 r 	   5 r    p                        @                         SUM      
  @@                                 
      5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p                                                         u #A_AVRX_XA                                               u #A_AVRY_AY    (    `   @X ƒ                             '               
#A_AVRY_AY%SUM    #AY_VAR    5 r      & 5 r    5 r          5 r    5 r    p                        @                         SUM      
  @@                                 
 %     5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p                                                         u #A_AVRY_AY               !                                        !                                        !                                       !                            #     @                                            #I    #XMG    #XMIN    #XMAX           
   @                                   
   @                                   
   @                          
        
   @                           
        @   !                   !           
        &                                 !                   "           
        &                             @   !                   #           
        &                             @   !                   $           
        &                       (    `                      %                          
#IMAX    #IMIN    #P_VAR &   5 r      & 5 r    5 r          5 r    5 r    p                   
   @                     &            
    5 r      & 5 r    5 r          5 r    5 r    p              (    `                      '           
               
#IMAX    #IMIN    #X_VAR (   5 r      & 5 r    5 r          5 r    5 r    p                   
   @                     (            
    5 r      & 5 r    5 r          5 r    5 r    p              %     @                      )                 
   #IMAX    #IMIN    #INTX_P%SUM *   #P_VAR +             @                    *     SUM      
   @                     +            
    5 r      & 5 r    5 r          5 r    5 r    p              %     @                      ,                 
   #IMAX    #IMIN    #INTX_X%SUM -   #X_VAR .             @                    -     SUM      
   @                     .            
    5 r      & 5 r    5 r          5 r    5 r    p              %     @                       /                 
   #IMAX    #IMIN    #AVRX_P%SUM 0   #P_VAR 1             @                    0     SUM      
   @                     1            
    5 r      & 5 r    5 r          5 r    5 r    p              %     @                       2                 
   #IMAX    #IMIN    #AVRX_X%SUM 3   #X_VAR 4             @                    3     SUM      
   @                     4            
    5 r      & 5 r    5 r          5 r    5 r    p                         !                    5                    !                                        !                    	                   !                    6        #     @                         7                   #J 8   #YMG 9   #YMIN :   #YMAX ;         
   @                      8             
   @                      9             
   @                     :     
        
   @                     ;     
        @   !                   <           
        &                                 !                   =           
        &                             @   !                   >           
        &                             @   !                   ?           
        &                       (    `                      @                          
#JMAX 	   #JMIN    #IMAX    #IMIN    #Q_VAR A   5 r      & 5 r    5 r 	         5 r 	   5 r    p                   
   @                     A            
    5 r      & 5 r    5 r 	         5 r 	   5 r    p              (    `                      B           
               
#JMAX 	   #JMIN    #IMAX    #IMIN    #Y_VAR C   5 r      & 5 r    5 r 	         5 r 	   5 r    p                   
   @                     C            
    5 r      & 5 r    5 r 	         5 r 	   5 r    p              %     @                      D                 
   #JMAX 	   #JMIN    #IMAX    #IMIN    #INTY_Q%SUM E   #Q_VAR F             @                    E     SUM      
   @                     F            
    5 r      & 5 r    5 r 	         5 r 	   5 r    p              %     @                      G                 
   #JMAX 	   #JMIN    #IMAX    #IMIN    #INTY_Y%SUM H   #Y_VAR I             @                    H     SUM      
   @                     I            
    5 r      & 5 r    5 r 	         5 r 	   5 r    p              %     @                       J                 
   #JMAX 	   #JMIN    #IMAX    #IMIN    #AVRY_Q%SUM K   #Q_VAR L             @                    K     SUM      
   @                     L            
    5 r      & 5 r    5 r 	         5 r 	   5 r    p              %     @                       M                 
   #JMAX 	   #JMIN    #IMAX    #IMIN    #AVRY_Y%SUM N   #Y_VAR O             @                    N     SUM      
   @                     O            
    5 r      & 5 r    5 r 	         5 r 	   5 r    p                   @                       P           
        &           &                            @                       Q           
        &           &                            @                       R           
        &           &                            @                       S           
        &           &                            @                       T           
        &           &                            @                       U           
        &           &                       #     @                          V                  #XY_AXIS_INIT%SIZE W   #XY_AXIS_INIT%SPREAD X   #I Y   #J Z   #XMG [   #YMG \   #XMIN ]   #XMAX ^   #YMIN _   #YMAX `             @                    W     SIZE           @                    X     SPREAD       
  @@                      Y             
  @@                      Z             
  @@                      [             
  @@                      \             
  @@                     ]     
        
  @@                     ^     
        
  @@                     _     
        
  @@                     `     
  (    `                      a                           
#PY_VAR b   5 r      & 5 r    5 r 	         5 r 	   5 r    p                   
   @                     b            
      5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p              (    `                      c                           
#XQ_VAR d   5 r      & 5 r    5 r          5 r    5 r    p                   
   @                     d            
      5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p              (    `                       e           $               
#Y_AVRX_PY%SUM f   #PY_VAR g   5 r      & 5 r    5 r 	         5 r 	   5 r    p                        @                    f     SUM      
  @@                     g            
 "     5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p              (    `                       h           *               
#X_AVRY_XQ%SUM i   #XQ_VAR j   5 r      & 5 r    5 r          5 r    5 r    p                        @                    i     SUM      
  @@                     j            
 (     5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p              %     @                      k                   
   #XY_VAR l        
  @@                     l            
 +     5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p              %     @                      m                   
   #XQ_VAR n        
  @@                     n            
 ,     5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p              %     @                      o                   
   #PY_VAR p        
  @@                     p            
 -     5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p              %     @                       q                  
   #AVRXY_XY%SUM r   #XY_VAR s             @                    r     SUM      
  @@                     s            
 .     5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p              %     @                       t                  
   #AVRXY_PY%SUM u   #PY_VAR v             @                    u     SUM      
  @@                     v            
 0     5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p              %     @                       w                  
   #AVRXY_XQ%SUM x   #XQ_VAR y             @                    x     SUM      
  @@                     y            
 /     5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r 	         5 r    5 r    p        5 r 	   5 r    p                 œ   *      fn#fn $   Æ     b   uapp(XY_BASE_MODULE    å  >   J   DC_TYPES    #  “   j  X_BASE_MODULE    ¶  “   j  Y_BASE_MODULE    I  C       gen@XY_AVR_PY    Œ  D     XA_AVR_PA !   Ğ  ,  a   XA_AVR_PA%PA_VAR    ü  C       gen@XQ_AVR_PQ    ?  C       gen@PY_AVR_XY    ‚  D     PA_AVR_XA !   Æ  ,  a   PA_AVR_XA%XA_VAR    ò	  C       gen@PQ_AVR_XQ    5
  C       gen@XY_AVR_XQ    x
  D     AY_AVR_AQ !   ¼  ,  a   AY_AVR_AQ%AQ_VAR    è  C       gen@PY_AVR_PQ    +  C       gen@XQ_AVR_XY    n  D     AQ_AVR_AY !   ²  ,  a   AQ_AVR_AY%AY_VAR    Ş  C       gen@PQ_AVR_PY    !  C       gen@Y_INTX_XY    d  ¼      A_INTX_XA !      ,  a   A_INTX_XA%XA_VAR    L  C       gen@Q_INTX_XQ      C       gen@X_INTY_XY    Ò  ¼      A_INTY_AY !     ,  a   A_INTY_AY%AY_VAR    º  C       gen@P_INTY_PY    ı  C       gen@Y_AVRX_XY    @  Ï      A_AVRX_XA      0      A_AVRX_XA%SUM !   ?  ,  a   A_AVRX_XA%XA_VAR    k  C       gen@Q_AVRX_XQ    ®  C       gen@X_AVRY_XY    ñ  Ï      A_AVRY_AY    À  0      A_AVRY_AY%SUM !   ğ  ,  a   A_AVRY_AY%AY_VAR      C       gen@P_AVRY_PY !   _  0       IM+X_BASE_MODULE #     0       IMIN+X_BASE_MODULE #   ¿  0       IMAX+X_BASE_MODULE &   ï  0       XMARGIN+X_BASE_MODULE *     `       X_AXIS_INIT+X_BASE_MODULE ,     0   e   X_AXIS_INIT%I+X_BASE_MODULE .   ¯  0   e   X_AXIS_INIT%XMG+X_BASE_MODULE /   ß  0   e   X_AXIS_INIT%XMIN+X_BASE_MODULE /     0   e   X_AXIS_INIT%XMAX+X_BASE_MODULE "   ?  \       X_X+X_BASE_MODULE "   ›  \       P_X+X_BASE_MODULE #   ÷  \       X_DX+X_BASE_MODULE #   S  \       P_DX+X_BASE_MODULE &   ¯  Ï       X_AVR_P+X_BASE_MODULE ,   ~  ¤   e   X_AVR_P%P_VAR+X_BASE_MODULE &   "  Ï       P_AVR_X+X_BASE_MODULE ,   ñ  ¤   e   P_AVR_X%X_VAR+X_BASE_MODULE %   •   o       INTX_P+X_BASE_MODULE -   !  0      INTX_P%SUM+X_BASE_MODULE=SUM +   4!  ¤   e   INTX_P%P_VAR+X_BASE_MODULE %   Ø!  o       INTX_X+X_BASE_MODULE -   G"  0      INTX_X%SUM+X_BASE_MODULE=SUM +   w"  ¤   e   INTX_X%X_VAR+X_BASE_MODULE %   #  o       AVRX_P+X_BASE_MODULE -   Š#  0      AVRX_P%SUM+X_BASE_MODULE=SUM +   º#  ¤   e   AVRX_P%P_VAR+X_BASE_MODULE %   ^$  o       AVRX_X+X_BASE_MODULE -   Í$  0      AVRX_X%SUM+X_BASE_MODULE=SUM +   ı$  ¤   e   AVRX_X%X_VAR+X_BASE_MODULE !   ¡%  0       JM+Y_BASE_MODULE #   Ñ%  0       JMIN+Y_BASE_MODULE #   &  0       JMAX+Y_BASE_MODULE &   1&  0       YMARGIN+Y_BASE_MODULE *   a&  `       Y_AXIS_INIT+Y_BASE_MODULE ,   Á&  0   e   Y_AXIS_INIT%J+Y_BASE_MODULE .   ñ&  0   e   Y_AXIS_INIT%YMG+Y_BASE_MODULE /   !'  0   e   Y_AXIS_INIT%YMIN+Y_BASE_MODULE /   Q'  0   e   Y_AXIS_INIT%YMAX+Y_BASE_MODULE "   '  \       Y_Y+Y_BASE_MODULE "   İ'  \       Q_Y+Y_BASE_MODULE #   9(  \       Y_DY+Y_BASE_MODULE #   •(  \       Q_DY+Y_BASE_MODULE &   ñ(  ã       Y_AVR_Q+Y_BASE_MODULE ,   Ô)  ¤   e   Y_AVR_Q%Q_VAR+Y_BASE_MODULE &   x*  ã       Q_AVR_Y+Y_BASE_MODULE ,   [+  ¤   e   Q_AVR_Y%Y_VAR+Y_BASE_MODULE %   ÿ+  ƒ       INTY_Q+Y_BASE_MODULE -   ‚,  0      INTY_Q%SUM+Y_BASE_MODULE=SUM +   ²,  ¤   e   INTY_Q%Q_VAR+Y_BASE_MODULE %   V-  ƒ       INTY_Y+Y_BASE_MODULE -   Ù-  0      INTY_Y%SUM+Y_BASE_MODULE=SUM +   	.  ¤   e   INTY_Y%Y_VAR+Y_BASE_MODULE %   ­.  ƒ       AVRY_Q+Y_BASE_MODULE -   0/  0      AVRY_Q%SUM+Y_BASE_MODULE=SUM +   `/  ¤   e   AVRY_Q%Q_VAR+Y_BASE_MODULE %   0  ƒ       AVRY_Y+Y_BASE_MODULE -   ‡0  0      AVRY_Y%SUM+Y_BASE_MODULE=SUM +   ·0  ¤   e   AVRY_Y%Y_VAR+Y_BASE_MODULE    [1  l       XY_X    Ç1  l       XY_Y    32  l       XY_DX    Ÿ2  l       PY_DX    3  l       XY_DY    w3  l       XQ_DY    ã3  ´       XY_AXIS_INIT "   —4  1      XY_AXIS_INIT%SIZE $   È4  3      XY_AXIS_INIT%SPREAD    û4  0   a   XY_AXIS_INIT%I    +5  0   a   XY_AXIS_INIT%J !   [5  0   a   XY_AXIS_INIT%XMG !   ‹5  0   a   XY_AXIS_INIT%YMG "   »5  0   a   XY_AXIS_INIT%XMIN "   ë5  0   a   XY_AXIS_INIT%XMAX "   6  0   a   XY_AXIS_INIT%YMIN "   K6  0   a   XY_AXIS_INIT%YMAX    {6  ¼       Y_INTX_PY !   77  ,  a   Y_INTX_PY%PY_VAR    c8  ¼       X_INTY_XQ !   9  ,  a   X_INTY_XQ%XQ_VAR    K:  Ï       Y_AVRX_PY    ;  0      Y_AVRX_PY%SUM !   J;  ,  a   Y_AVRX_PY%PY_VAR    v<  Ï       X_AVRY_XQ    E=  0      X_AVRY_XQ%SUM !   u=  ,  a   X_AVRY_XQ%XQ_VAR    ¡>  L       INTXY_XY     í>  ,  a   INTXY_XY%XY_VAR    @  L       INTXY_XQ     e@  ,  a   INTXY_XQ%XQ_VAR    ‘A  L       INTXY_PY     İA  ,  a   INTXY_PY%PY_VAR    	C  ^       AVRXY_XY    gC  0      AVRXY_XY%SUM     —C  ,  a   AVRXY_XY%XY_VAR    ÃD  ^       AVRXY_PY    !E  0      AVRXY_PY%SUM     QE  ,  a   AVRXY_PY%PY_VAR    }F  ^       AVRXY_XQ    ÛF  0      AVRXY_XQ%SUM     G  ,  a   AVRXY_XQ%XQ_VAR 