! begin file my_exact_normal_flux_inc ! ................................................................... ! ** APPLICATION EXACT NORMAL FLUX SOLUTION STATEMENTS FOLLOW ** ! For REAL (DP), INTENT (OUT) :: FLUX ! Given REAL (DP), INTENT (IN) :: XYZ (N_SPACE) ! Default is FLUX = 0.d0 before reaching 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_EXACT .OR. DEBUG_INCLUDE ) PRINT *, & 'NOTE: USED my_exact_normal_flux_inc' PRINT *,'NOTE: NO APPLICATION my_exact_normal_flux_inc GIVEN' FLUX = 0.d0 END IF ! or ! CALL POISSON_ANNULUS_ARC_NORMAL_FLUX (XYZ, FLUX) ! end file my_exact_normal_flux_inc