! begin file my_el_col_inc
! ...................................................................
! ** ELEM_COL_MATRIX PROBLEM DEPENDENT STATEMENTS FOLLOW **
!                 For 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, or
!        THIS_EL from System_Constants
!   Given modules: Elem_Type_Data, 
!     System_Constants, Sys_Properties_Data
!               Note: C = 0 before entering here
! ...................................................................
! Define any new array or variable types, then give statements
! 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_COL .OR. DEBUG_INCLUDE ) PRINT *, &
        'NOTE: USED my_el_col_inc'
      PRINT *,'NO APPLICATION my_el_col_inc PROVIDED.'
    END IF

!   ***  END ELEM_COL_MATRIX PROBLEM DEPENDENT STATEMENTS ***
! end file my_el_col_inc