Simulation Core
Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.

123456789101112
  1. module logging
  2. integer::log_level=0
  3. contains
  4. subroutine logg(level,message)
  5. integer::level
  6. character(len=*)::message
  7. if(log_level>=level) then
  8. print *,message
  9. endif
  10. end subroutine
  11. end module