Simulation Core
Não pode escolher mais do que 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
 
 
 
 
 
 

14 linhas
309 B

  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