! file: my_mixed_bc_inc ! .............................................................. ! *** MIXED_BC_MATRIX PROBLEM DEPENDENT STATEMENTS FOLLOW *** ! (NOTE: IS_MIXED SHOULD BE TRUE 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 STOP 'No matrices defined in my_mixed_bc_inc' ! .............................................................. ! *** END MIXED_BC_MATRIX PROBLEM DEPENDENT STATEMENTS *** ! .............................................................. ! end file: my_mixed_bc_inc