Вы не можете выбрать более 25 тем
Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.
|
- module logging
- integer::log_level=0
- contains
- subroutine logg(level,message)
- integer::level
- character(len=*)::message
-
- if(log_level>=level) then
- print *,message
- endif
- end subroutine
- end module
|