! begin file my_post_el_inc
! ...................................................................
! ** POST_PROCESS_ELEM PROBLEM DEPENDENT STATEMENTS FOLLOW **
!   Post process any standard element using user stored data on
!   units N_TAPE1, N_TAPE2 and/or given arguments:
!   PRT_L_PT (LT_N, N_NP_FLO), PRT_MAT (MISC_FL), 
!   L_PT_PROP (LT_N, N_NP_FIX), ITER, IE
!   Given modules: Elem_Type_Data, Interface_Header, Select_source,
!     System_Constants, Sys_Properties_Data so
! H_INTG (LT_N) Integral of interpolation functions, H, available
! ...................................................................
! 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_POST_EL .OR. DEBUG_INCLUDE ) PRINT *, &
        'NOTE: USED my_post_el_inc'
      PRINT *,'NOTE: NO APPLICATION my_post_el_inc GIVEN' ! <=====
    END IF

!   For example see plane_stress_post_el_inc
    PRINT *, 'NO my_post_el_inc PROVIDED'

! suppress compiler warnings (touch is never true)
  IF ( TOUCH ) CALL TOUCH_UNUSED_ITEMS_1 (AJ, AJ_INV, B, BODY, DGH, &
               DGV, E, EB, G, H_INTG, IE, L_PT_PROP, PRT_L_PT,      &
               PRT_MAT, STRAIN, STRAIN_0, STRESS, XYZ)
  IF ( TOUCH ) PRINT *, ITER

! Any CONTAINS goes here

!  *** END POST_PROCESS_ELEM PROBLEM DEPENDENT STATEMENTS ***
! end file my_post_el_inc