!               MODEL_F90, Standard Array Sizes
!              Copyright J. E. Akin. All rights reserved.
!
!     NOTE: See file notation.f for a description of all variables.
!
!    Many arrays are accessable as globals by their inclusion in 
!    selected F90 "Modules". Items available through such modules are 
!    preceeded with the following symbols:
!     !_p = Sys_Prop_Data,  !_s = System_Constants,
!     !_t = Elem_Type_Data, !_g = Geometric_Properties
     
!     ................ STANDARD ARRAY SIZES ......................

!     AJ             (N_SPACE, N_SPACE)
!     AJ_INV         (N_SPACE, N_SPACE)
!     AVE            (N_R_B + 2, MAX_NP))

!     B              (N_R_B, LT_FREE)
!     BODY           (N_SPACE)

!_t   C              (LT_FREE)
!     CC             (N_D_FRE)
!     CC_IN          (N_D_FRE)
!_g   CENTROID       (N_SPACE)
!_g   CG_SECOND_MOM  (N_SPACE, N_SPACE)
!     COEF_C_EQ      (MAX_ACT, N_CEQ)
!     COORD          (LT_N,    N_SPACE)
 
!_t   D              (LT_FREE)
!     DD             (N_D_FRE)
!     DD_OLD         (N_D_FRE)
!_t   DELETED        (L_S_TOT)
!     DGH            (N_SPACE, LT_N)
!     DGV            (N_SPACE, LT_FREE)
!_t   DLG            (LT_PARM, LT_GEOM)
!_t   DLG_QP         (LT_PARM, LT_GEOM, LT_QP)
!_t   DLH            (LT_PARM, LT_N)
!_t   DLH_QP         (LT_PARM, LT_N, LT_QP)
!_t   DLV            (LT_PARM, LT_FREE)
!_t   DLV_QP         (LT_PARM, LT_FREE, LT_QP)
 
!     E              (N_R_B,   N_R_B)
!     EB             (N_R_B,   LT_FREE)
!_g   ELEM_CENTROID  (N_SPACE)
!_g   ELEM_FIRST_MOM (N_SPACE)
!     ELEM_NODES     (LT_N)
!_g   ELEM_SEC_MOM   (N_SPACE, N_SPACE)
!_p   EL_PROP        (N_LP_FLO)
 
!     FIRST_MOMENTS  (N_SPACE)
!_p   FLT_EL         (L_S_TOT, N_LP_FLO)
!_p   FLT_MISC       (MISC_FL)
!_p   FLT_MX         (N_MIXED, N_MX_FLO)
!_p   FLT_NP         (MAX_NP,  N_NP_FLO)
!_p   FLT_SP         (N_SEG,   N_BS_FLO)
!     FLUX           (L_B_N,   N_G_FLUX)
 
!_t   G              (LT_GEOM)
!_t   GEOMETRY       (LT_GEOM, N_SPACE)
!_t   G_QP           (LT_GEOM, LT_QP)
 
!_t   H              (LT_N)
!     H_INTG         (LT_N)
!_t   H_QP           (LT_N,    LT_QP)
 
!_t   INDEX          (LT_FREE)
!     I_ADD          (MAX_NP)
!     I_BC           (MAX_NP)
!     I_DIAG         (N_D_FRE)
!     I_DOF_HI       (N_D_FRE)
 
!     KODES          (N_G_DOF)

!_p   LP_FIX         (L_S_TOT, N_LP_FIX)
!_t   LT_DATA        (MAX_DAT, N_L_TYPE)
!     L_FIRST        (MAX_NP)
!     L_LAST         (MAX_NP)
!_p   L_PROP         (N_LP_FIX)
!_p   L_PT_PROP      (N_NP_FIX)
!     L_TO_L_NEIGH   (NEIGH_L, N_ELEMS)
!     L_TO_L_SUM     (N_ELEMS)
!     L_TO_N_NEIGH   (NEIGH_N, MAX_NP)
!     L_TO_N_SUM     (MAX_NP)
!_t   L_TYPE         (L_S_TOT)
 
!_p   MISC_FIX       (MISC_FX)
!_p   MX_FIX         (N_MIXED, N_MX_FIX)
!_p   MIX_PROP       (N_MX_FIX)
 
!     NDEX_C_EQ      (MAX_ACT, N_CEQ)
!     NODES          (L_S_TOT, NOD_PER_EL)
!_p   NP_FIX         (MAX_NP,  N_NP_FIX)
!     N_RANGE        (N_G_DOF, 2)
!     N_RES_EQ       (MAX_TYP)
 
!_p   PROP_MIXED     (N_MX_FLO)
!     PRT_L_PT       (LT_N,    N_NP_FLO)
!     PRT_MAT        (MISC_FL)
!_t   PT             (LT_PARM, LT_QP)
 
!     RANGE          (N_G_DOF, 2)
!     REMARK         (16)

!_t   S              (LT_FREE, LT_FREE)
!     SECOND_MOMENTS (N_SPACE, N_SPACE)
!     STRAIN         (N_R_B + 2)
!     STRAIN_0       (N_R_B)
!     STRESS         (N_R_B + 2)
!_p   SP_FIX         (N_SEG,   N_BS_FIX)
!     S_FLUX         (L_B_N,   N_G_FLUX, N_SEG)
!     S_SKY          (N_COEFF)
!     S_SKY_LOWER    (NOT_SYM)
 
!_s   TITLE          (70)
!     USER_EL        (N_G_DOF, LT_N)
!     USER_PT        (N_G_DOF)

!_t   V              (LT_FREE)
!_t   V_QP           (LT_FREE, LT_QP)

!_t   WT             (LT_QP)
 
!     X              (MAX_NP, N_SPACE)
!     XYZ            (N_SPACE)
!     ............................................................