Changeset 3395 for palm/trunk/UTIL/inifor/src/control.f90
- Timestamp:
- Oct 22, 2018 5:32:49 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/inifor/src/control.f90
r3183 r3395 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Suppress debugging messages unless --debug option is given 29 ! 30 ! 31 ! 3183 2018-07-27 14:25:55Z suehring 28 32 ! Added version and copyright output 29 33 ! … … 57 61 CONTAINS 58 62 59 SUBROUTINE report(routine, message) 60 61 CHARACTER(LEN=*), INTENT(IN) :: routine 62 CHARACTER(LEN=*), INTENT(IN) :: message 63 INTEGER :: u 64 LOGICAL, SAVE :: is_first_run = .TRUE. 65 66 PRINT *, "inifor: " // TRIM(message) // " [ " // TRIM(routine) // " ]" 63 SUBROUTINE report(routine, message, debug) 64 65 CHARACTER(LEN=*), INTENT(IN) :: routine 66 CHARACTER(LEN=*), INTENT(IN) :: message 67 LOGICAL, OPTIONAL, INTENT(IN) :: debug 68 INTEGER :: u 69 LOGICAL, SAVE :: is_first_run = .TRUE. 70 LOGICAL :: suppress_message 71 67 72 68 73 IF (is_first_run) THEN … … 73 78 END IF 74 79 75 WRITE(u, *) TRIM(message) // " [ " // TRIM(routine) // " ]" 80 81 suppress_message = .FALSE. 82 IF (PRESENT(debug)) THEN 83 IF (.NOT. debug) suppress_message = .TRUE. 84 END IF 85 86 IF (.NOT. suppress_message) THEN 87 PRINT *, "inifor: " // TRIM(message) // " [ " // TRIM(routine) // " ]" 88 WRITE(u, *) TRIM(message) // " [ " // TRIM(routine) // " ]" 89 END IF 76 90 77 91 CLOSE(u)
Note: See TracChangeset
for help on using the changeset viewer.