! begin file my_constant_e_matrix_inc ** INACTIVE ** ! ................................................................... ! ** GET_CONSTANT_E PROBLEM DEPENDENT STATEMENTS FOLLOW ** ! For REAL(DP), INTENT(INOUT) :: E (N_R_B, N_R_B) ! Given INTEGER, INTENT(IN) :: IE ! ................................................................... ! 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_E_MATRIX .OR. DEBUG_INCLUDE ) PRINT *, & 'NOTE: USED INACTIVE my_constant_e_matrix_inc' END IF ! APPLICATION DEPENDENT CONSTANT CONSTITUTIVE MATRIX STOP ' No my_constant_e_matrix_inc has been defined' ! end file my_constant_e_matrix_inc