  G  x   k820309    M          9.1         	ĀčH                                                                                                       
       xyz_bc_module.f90 XYZ_BC_MODULE       $   BOUNDARYXSYM_PYZ BOUNDARYXASYM_PYZ BOUNDARYXCYC_PYZ BOUNDARYYSYM_XQZ BOUNDARYYASYM_XQZ BOUNDARYYCYC_XQZ BOUNDARYZSYM_XYR BOUNDARYZASYM_XYR BOUNDARYZCYC_XYR gen@BOUNDARYXSYM_XYZ gen@BOUNDARYXSYM_XQZ gen@BOUNDARYXSYM_XYR gen@BOUNDARYXASYM_XYZ gen@BOUNDARYXASYM_XQZ gen@BOUNDARYXASYM_XYR gen@BOUNDARYXCYC_XYZ gen@BOUNDARYXCYC_XQZ gen@BOUNDARYXCYC_XYR gen@BOUNDARYYSYM_XYZ gen@BOUNDARYYSYM_PYZ gen@BOUNDARYYSYM_XYR gen@BOUNDARYYASYM_XYZ gen@BOUNDARYYASYM_PYZ gen@BOUNDARYYASYM_XYR gen@BOUNDARYYCYC_XYZ gen@BOUNDARYYCYC_PYZ gen@BOUNDARYYCYC_XYR gen@BOUNDARYZSYM_XYZ gen@BOUNDARYZSYM_PYZ gen@BOUNDARYZSYM_XQZ gen@BOUNDARYZASYM_XYZ gen@BOUNDARYZASYM_PYZ gen@BOUNDARYZASYM_XQZ gen@BOUNDARYZCYC_XYZ gen@BOUNDARYZCYC_PYZ gen@BOUNDARYZCYC_XQZ                  @                       
       DBKIND DP      @          @                       
       IMIN IMAX      @          @                       
       JMIN JMAX      @          @                       
       KMIN KMAX                  @                       
       BOUNDARYSYM_X BOUNDARYASYM_X BOUNDARYCYC_X BOUNDARYSYM_P BOUNDARYASYM_P BOUNDARYCYC_P                  @                       
       BOUNDARYSYM_Y BOUNDARYASYM_Y BOUNDARYCYC_Y BOUNDARYSYM_Q BOUNDARYASYM_Q BOUNDARYCYC_Q                  @                       
       BOUNDARYSYM_Z BOUNDARYASYM_Z BOUNDARYCYC_Z BOUNDARYSYM_R BOUNDARYASYM_R BOUNDARYCYC_R                                            u #BOUNDARYXSYM_XAA    #     @     @X                                       #XAA_VAR 	        
D @@                     	            
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p                                                         u #BOUNDARYXSYM_XAA                                               u #BOUNDARYXSYM_XAA                                               u #BOUNDARYXASYM_XAA    #     @     @X                                       #XAA_VAR         
D @@                                 
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p                                                         u #BOUNDARYXASYM_XAA                                               u #BOUNDARYXASYM_XAA                                               u #BOUNDARYXCYC_XAA    #     @     @X                                       #XAA_VAR         
D @@                                 
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p                                                         u #BOUNDARYXCYC_XAA                                               u #BOUNDARYXCYC_XAA                                               u #BOUNDARYYSYM_AYA    #     @     @X                                       #AYA_VAR         
D @@                                 
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p                                                         u #BOUNDARYYSYM_AYA                                               u #BOUNDARYYSYM_AYA                                               u #BOUNDARYYASYM_AYA    #     @     @X                                       #AYA_VAR         
D @@                                 
 	        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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p                                                         u #BOUNDARYYASYM_AYA                                               u #BOUNDARYYASYM_AYA                                               u #BOUNDARYYCYC_AYA    #     @     @X                                       #AYA_VAR         
D @@                                 
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p                                                         u #BOUNDARYYCYC_AYA                                               u #BOUNDARYYCYC_AYA                                               u #BOUNDARYZSYM_AAZ    #     @     @X                                       #AAZ_VAR         
D @@                                 
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p                                                         u #BOUNDARYZSYM_AAZ                                               u #BOUNDARYZSYM_AAZ                                               u #BOUNDARYZASYM_AAZ    #     @     @X                                       #AAZ_VAR         
D @@                                 
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p                                                         u #BOUNDARYZASYM_AAZ                                               u #BOUNDARYZASYM_AAZ                                               u #BOUNDARYZCYC_AAZ    #     @     @X                                       #AAZ_VAR         
D @@                                 
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p                                                         u #BOUNDARYZCYC_AAZ                                               u #BOUNDARYZCYC_AAZ                                             u #BOUNDARYCYC     #     @     @                                     #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #VAR !                                                                         
                                                                                                                                                                         
  @                     !            
     5 r "     & 5 r "   5 r #         5 r #   5 r "   p                                                       u #BOUNDARYCYC                                              u #BOUNDARYCYC $   #     @     @                  $                  #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #VAR %        
  @                     %            
     5 r &     & 5 r &   5 r '         5 r '   5 r &   p                                                       u #BOUNDARYCYC $                                            u #BOUNDARYCYC (   #     @     @                  (                  #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #VAR )        
  @                     )            
     5 r *     & 5 r *   5 r +         5 r +   5 r *   p                                                        u #BOUNDARYCYC (   #     @                         ,                  #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #X_VAR -        
  @                     -            
     5 r "     & 5 r "   5 r #         5 r #   5 r "   p              #     @                         .                  #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #X_VAR /        
  @                     /            
     5 r "     & 5 r "   5 r #         5 r #   5 r "   p              #     @                         0                  #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #P_VAR 1        
  @                     1            
     5 r "     & 5 r "   5 r #         5 r #   5 r "   p              #     @                         2                  #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #P_VAR 3        
  @                     3            
     5 r "     & 5 r "   5 r #         5 r #   5 r "   p              #     @                         4                  #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #Y_VAR 5        
  @                     5            
     5 r &     & 5 r &   5 r '         5 r '   5 r &   p              #     @                         6                  #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #Y_VAR 7        
  @                     7            
     5 r &     & 5 r &   5 r '         5 r '   5 r &   p              #     @                         8                  #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #Q_VAR 9        
  @                     9            
     5 r &     & 5 r &   5 r '         5 r '   5 r &   p              #     @                         :                  #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #Q_VAR ;        
  @                     ;            
     5 r &     & 5 r &   5 r '         5 r '   5 r &   p              #     @                         <                  #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #Z_VAR =        
  @                     =            
     5 r *     & 5 r *   5 r +         5 r +   5 r *   p              #     @                         >                  #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #Z_VAR ?        
  @                     ?            
     5 r *     & 5 r *   5 r +         5 r +   5 r *   p              #     @                         @                  #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #R_VAR A        
  @                     A            
     5 r *     & 5 r *   5 r +         5 r +   5 r *   p              #     @                         B                  #KMAX    #KMIN 
   #JMAX    #JMIN    #IMAX    #IMIN    #R_VAR C        
  @                     C            
     5 r *     & 5 r *   5 r +         5 r +   5 r *   p              #     @                          D                   #PYZ_VAR E        
D @@                     E            
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p              #     @                          F                   #PYZ_VAR G        
D @@                     G            
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p              #     @                          H                   #PYZ_VAR I        
D @@                     I            
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p              #     @                          J                   #XQZ_VAR K        
D @@                     K            
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p              #     @                          L                   #XQZ_VAR M        
D @@                     M            
 
        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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p              #     @                          N                   #XQZ_VAR O        
D @@                     O            
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p              #     @                          P                   #XYR_VAR Q        
D @@                     Q            
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p              #     @                          R                   #XYR_VAR S        
D @@                     S            
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p              #     @                          T                   #XYR_VAR U        
D @@                     U            
         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          5 r    5 r    p        5 r    5 r    p        5 r    5 r 
   p                       @  !                   *                 @  !                   +                 @  !                   &                 @  !                   '                 @  !                   "                 @  !                   #              (      fn#fn #   Ä   č  b   uapp(XYZ_BC_MODULE    ¬  >   J  DC_TYPES    ź  >   j  X_BASE_MODULE    (  >   j  Y_BASE_MODULE    f  >   j  Z_BASE_MODULE    ¤     J  X_BC_MODULE    .     J  Y_BC_MODULE    ø     J  Z_BC_MODULE %   B  J       gen@BOUNDARYXSYM_XYZ !     I      BOUNDARYXSYM_XAA )   Õ  “  a   BOUNDARYXSYM_XAA%XAA_VAR %     J       gen@BOUNDARYXSYM_XQZ %   Ó  J       gen@BOUNDARYXSYM_XYR &   	  K       gen@BOUNDARYXASYM_XYZ "   h	  I      BOUNDARYXASYM_XAA *   ±	  “  a   BOUNDARYXASYM_XAA%XAA_VAR &   e  K       gen@BOUNDARYXASYM_XQZ &   °  K       gen@BOUNDARYXASYM_XYR %   ū  J       gen@BOUNDARYXCYC_XYZ !   E  I      BOUNDARYXCYC_XAA )     “  a   BOUNDARYXCYC_XAA%XAA_VAR %   B  J       gen@BOUNDARYXCYC_XQZ %     J       gen@BOUNDARYXCYC_XYR %   Ö  J       gen@BOUNDARYYSYM_XYZ !      I      BOUNDARYYSYM_AYA )   i  “  a   BOUNDARYYSYM_AYA%AYA_VAR %     J       gen@BOUNDARYYSYM_PYZ %   g  J       gen@BOUNDARYYSYM_XYR &   ±  K       gen@BOUNDARYYASYM_XYZ "   ü  I      BOUNDARYYASYM_AYA *   E  “  a   BOUNDARYYASYM_AYA%AYA_VAR &   ł  K       gen@BOUNDARYYASYM_PYZ &   D  K       gen@BOUNDARYYASYM_XYR %     J       gen@BOUNDARYYCYC_XYZ !   Ł  I      BOUNDARYYCYC_AYA )   "  “  a   BOUNDARYYCYC_AYA%AYA_VAR %   Ö  J       gen@BOUNDARYYCYC_PYZ %      J       gen@BOUNDARYYCYC_XYR %   j  J       gen@BOUNDARYZSYM_XYZ !   “  I      BOUNDARYZSYM_AAZ )   ż  “  a   BOUNDARYZSYM_AAZ%AAZ_VAR %   ±  J       gen@BOUNDARYZSYM_PYZ %   ū  J       gen@BOUNDARYZSYM_XQZ &   E  K       gen@BOUNDARYZASYM_XYZ "     I      BOUNDARYZASYM_AAZ *   Ł  “  a   BOUNDARYZASYM_AAZ%AAZ_VAR &     K       gen@BOUNDARYZASYM_PYZ &   Ų  K       gen@BOUNDARYZASYM_XQZ %   #  J       gen@BOUNDARYZCYC_XYZ !   m  I      BOUNDARYZCYC_AAZ )   ¶  “  a   BOUNDARYZCYC_AAZ%AAZ_VAR %   j  J       gen@BOUNDARYZCYC_PYZ %   “  J       gen@BOUNDARYZCYC_XQZ .   ž  E       gen@BOUNDARYCYC_X+X_BC_MODULE 4   C         BOUNDARYCYC+X_BC_MODULE=BOUNDARYCYC #   Ä   0     KMAX+Z_BASE_MODULE #   ō   0     KMIN+Z_BASE_MODULE #   $!  0     JMAX+Y_BASE_MODULE #   T!  0     JMIN+Y_BASE_MODULE #   !  0     IMAX+X_BASE_MODULE #   “!  0     IMIN+X_BASE_MODULE ,   ä!  ¤   e   BOUNDARYCYC%VAR+X_BC_MODULE .   "  E       gen@BOUNDARYCYC_P+X_BC_MODULE .   Ķ"  E       gen@BOUNDARYCYC_Y+Y_BC_MODULE 4   #        BOUNDARYCYC+Y_BC_MODULE=BOUNDARYCYC ,   #  ¤   e   BOUNDARYCYC%VAR+Y_BC_MODULE .   7$  E       gen@BOUNDARYCYC_Q+Y_BC_MODULE .   |$  E       gen@BOUNDARYCYC_Z+Z_BC_MODULE 4   Į$        BOUNDARYCYC+Z_BC_MODULE=BOUNDARYCYC ,   B%  ¤   e   BOUNDARYCYC%VAR+Z_BC_MODULE .   ę%  E       gen@BOUNDARYCYC_R+Z_BC_MODULE *   +&         BOUNDARYSYM_X+X_BC_MODULE 0   ®&  ¤   e   BOUNDARYSYM_X%X_VAR+X_BC_MODULE +   R'         BOUNDARYASYM_X+X_BC_MODULE 1   Õ'  ¤   e   BOUNDARYASYM_X%X_VAR+X_BC_MODULE *   y(         BOUNDARYSYM_P+X_BC_MODULE 0   ü(  ¤   e   BOUNDARYSYM_P%P_VAR+X_BC_MODULE +    )         BOUNDARYASYM_P+X_BC_MODULE 1   #*  ¤   e   BOUNDARYASYM_P%P_VAR+X_BC_MODULE *   Ē*         BOUNDARYSYM_Y+Y_BC_MODULE 0   J+  ¤   e   BOUNDARYSYM_Y%Y_VAR+Y_BC_MODULE +   ī+         BOUNDARYASYM_Y+Y_BC_MODULE 1   q,  ¤   e   BOUNDARYASYM_Y%Y_VAR+Y_BC_MODULE *   -         BOUNDARYSYM_Q+Y_BC_MODULE 0   -  ¤   e   BOUNDARYSYM_Q%Q_VAR+Y_BC_MODULE +   <.         BOUNDARYASYM_Q+Y_BC_MODULE 1   æ.  ¤   e   BOUNDARYASYM_Q%Q_VAR+Y_BC_MODULE *   c/         BOUNDARYSYM_Z+Z_BC_MODULE 0   ę/  ¤   e   BOUNDARYSYM_Z%Z_VAR+Z_BC_MODULE +   0         BOUNDARYASYM_Z+Z_BC_MODULE 1   1  ¤   e   BOUNDARYASYM_Z%Z_VAR+Z_BC_MODULE *   ±1         BOUNDARYSYM_R+Z_BC_MODULE 0   42  ¤   e   BOUNDARYSYM_R%R_VAR+Z_BC_MODULE +   Ų2         BOUNDARYASYM_R+Z_BC_MODULE 1   [3  ¤   e   BOUNDARYASYM_R%R_VAR+Z_BC_MODULE !   ’3  I       BOUNDARYXSYM_PYZ )   H4  “  a   BOUNDARYXSYM_PYZ%PYZ_VAR "   ü5  I       BOUNDARYXASYM_PYZ *   E6  “  a   BOUNDARYXASYM_PYZ%PYZ_VAR !   ł7  I       BOUNDARYXCYC_PYZ )   B8  “  a   BOUNDARYXCYC_PYZ%PYZ_VAR !   ö9  I       BOUNDARYYSYM_XQZ )   ?:  “  a   BOUNDARYYSYM_XQZ%XQZ_VAR "   ó;  I       BOUNDARYYASYM_XQZ *   <<  “  a   BOUNDARYYASYM_XQZ%XQZ_VAR !   š=  I       BOUNDARYYCYC_XQZ )   9>  “  a   BOUNDARYYCYC_XQZ%XQZ_VAR !   ķ?  I       BOUNDARYZSYM_XYR )   6@  “  a   BOUNDARYZSYM_XYR%XYR_VAR "   źA  I       BOUNDARYZASYM_XYR *   3B  “  a   BOUNDARYZASYM_XYR%XYR_VAR !   ēC  I       BOUNDARYZCYC_XYR )   0D  “  a   BOUNDARYZCYC_XYR%XYR_VAR (   äE  0      KMIN+Z_BASE_MODULE=KMIN (   F  0      KMAX+Z_BASE_MODULE=KMAX (   DF  0      JMIN+Y_BASE_MODULE=JMIN (   tF  0      JMAX+Y_BASE_MODULE=JMAX (   ¤F  0      IMIN+X_BASE_MODULE=IMIN (   ŌF  0      IMAX+X_BASE_MODULE=IMAX 