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.i90 309 B

12345678910111213
  1. # 1 "/home/admin/SimulationCore2/Simulation/logging.f90"
  2. module logging
  3. integer::log_level=0
  4. contains
  5. subroutine logg(level,message)
  6. integer::level
  7. character(len=*)::message
  8. if(log_level>=level) then
  9. print *,message
  10. endif
  11. end subroutine
  12. end module