! begin file my_el_post_inc ! ................................................................... ! ** ELEM_POST_DATA PROBLEM DEPENDENT STATEMENTS FOLLOW ** ! Given: INTEGER, INTENT(IN) :: IE, L_PT_PROP (LT_N, N_NP_FIX) ! REAL(DP), INTENT(IN) :: PRT_L_PT (LT_N, N_NP_FLO) ! REAL(DP), INTENT(IN) :: PRT_MAT (MISC_FL) ! REAL(DP), INTENT(IN) :: FLUX (L_B_N, N_G_FLUX) ! REAL(DP), INTENT(INOUT) :: E (N_R_B, N_R_B) ! Given modules: Elem_Type_Data, Interface_Header, Select_source, ! System_Constants, Sys_Properties_Data ! ................................................................... ! 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_POST .OR. DEBUG_INCLUDE ) PRINT *, & 'NOTE: USED my_el_post_inc' PRINT *,'NOTE: NO APPLICATION my_el_post_inc PROVIDED' END IF IF ( I_BUG > 0 ) WRITE (N_BUG, *) 'Entering my_el_post_inc' ! Usually generate & save data to N_FILE1 to N_FILE5 ! *** END ELEM_POST_DATA PROBLEM DEPENDENT STATEMENTS *** ! end file my_el_post_inc