00001 module loopcounters_module 00002 implicit none 00003 private 00004 save 00005 public execute_counter 00006 integer :: execute_counter = 0 00007 end module loopcounters_module 00008