! my_el_sq_inc
! ..............................................................
!    ***  ELEM_SQ_MATRIX PROBLEM DEPENDENT STATEMENTS FOLLOW ***
!      For required REAL (DP) :: S (LT_FREE, LT_FREE)
!      and optional REAL (DP) :: C (LT_FREE)
! Given: E (N_R_B, N_R_B), H_INTG (LT_N), PRT_L_PT (LT_N, N_NP_FLO),
!        PRT_MAT (MISC_FL), L_PT_PROP (LT_N, N_NP_FIX), IE
!   Given modules: Elem_Type_Data, Interface_Header, Select_source,
!     System_Constants, Sys_Properties_Data, Geometric_Properties
!..................................................................
!   The following automatic arrays are often used here.
!   Un-comment them if they are needed:

! Define any new array or variable types:
!..................................................................
! INTEGER,  SAVE ::                           ! Needed on next call
! REAL(DP), SAVE ::                           ! Needed on next call
! LOGICAL,  SAVE ::                           ! Needed on next call
!
! INTEGER  ::                                 ! Local use
! REAL(DP) ::                                 ! Local use
! LOGICAL  ::                                 ! Local use
! ..............................................................
  INTEGER, SAVE :: NOTE = 0
    IF ( NOTE == 0 ) THEN ; NOTE = 1;
      IF ( DEBUG_EL_SQ .OR. DEBUG_INCLUDE ) PRINT *, &
        'NOTE: USED my_el_sq_inc'
      PRINT *,'NOTE: NO APPLICATION my_el_sq_inc PROVIDED'
    END IF
!    ***  END ELEM_SQ_MATRIX PROBLEM DEPENDENT STATEMENTS ***