! begin file my_iter_start_inc
! ...................................................................
! ** START_DOF_VALUE PROBLEM DEPENDENT STATEMENTS FOLLOW **
!           For REAL (DP) :: START_DOF_VALUE  ! result
!   Given INTEGER,  INTENT(IN) :: IG            ! local dof number
!         REAL(DP), INTENT(IN) :: XYZ (N_SPACE) ! position
!   Given modules: Select_source, System_Constants1
! ...................................................................
! 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_iter_start_inc'
      PRINT *,'NOTE: NO APPLICATION my_iter_start_inc GIVEN'
    END IF
!-->   ASSIGN UNIT STARTING VALUE ONLY
    START_DOF_VALUE = 1.d0
    IF( IG /= 1) START_DOF_VALUE = 0.d0
! ** END PROBLEM DEPENDENT START STATEMENTS **
! end file my_iter_start_inc