! begin file my_flux_inc
!     >>>> Now an obsolete interface <<<
! ...................................................................
! ** BOUNDARY_FLUX PROBLEM DEPENDENT STATEMENTS FOLLOW **
!   For REAL(DP), INTENT(OUT) :: C_SEG (N_FLUX)
!   For REAL(DP), INTENT(OUT) :: S_SEG (N_FLUX, N_FLUX)
!   For INTEGER,  INTENT(OUT) :: I_OPT
! ...................................................................
! 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_INCLUDE ) PRINT *, 'NOTE: USED my_flux_inc'
   END IF

! Note: the IOPT value MUST be set to 1, 2, or 3 for returning
! a square matrix only (1), column matrix only (2), or both (3)
    I_OPT = 0; C_SEG = 0.d0; S_SEG = 0.d0 ! null intent (out)

!   ** END BOUNDARY_FLUX PROBLEM DEPENDENT STATEMENTS **
! end file my_flux_inc