Simulation Core
25'ten fazla konu seçemezsiniz Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.

logging.f90 251 B

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