default base domain FORTRAN.

pattern before_advice_stmt() : execution_part_construct_list
  =
  "CALL START_TIMER;".


pattern after_advice_stmt() : execution_part_construct_list
  =
  "CALL STOP_TIMER;".


pattern init() : LABEL
  =
  "1".


pattern exit() : LABEL
  =
  "10".


pattern within_code() : NAME
  =
  " define_AB".


external pattern around_advice_for(program : Fortran90_program, proceed_bef : execution_part_construct_list, proceed_after : execution_part_construct_list, withincode : NAME, init : LABEL, exit : LABEL) : Fortran90_program
  =
'around_advice_for' in domain FORTRAN.

rule loop_timer(
  program : Fortran90_program)
:
  Fortran90_program->
  Fortran90_program
=
  program
->
  around_advice_for(program, before_advice_stmt(), after_advice_stmt(), within_code(), init(), exit())
  if program ~= around_advice_for(program, before_advice_stmt(), after_advice_stmt(), within_code(), init(), exit())
  .


public ruleset demo_do = {loop_timer}.