<?xml version="1.0" encoding="ISO-8859-1"?>
<AFortran xmi:version="2.0" xmlns:xmi="http://www.omg.org/XMI" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="AFortran" xmlns:_1="GAspect" location="1:1-14:2" name="calldemo">
  <domain location="1:1-1:16" name="FORTRAN"/>
  <pointcut location="5:2-6:45" name="func_call">
    <pctexpr xsi:type="CallExpr" location="5:25-5:52">
      <func_sub_Sig xsi:type="FuncOrSubCallExpr" location="5:30-5:51" name="RANDOM_NUMBER">
        <params location="5:49-5:50" name="*"/>
      </func_sub_Sig>
    </pctexpr>
    <pctexpr xsi:type="WithinCodeExpr" location="6:7-6:44">
      <func_sub_Sig xsi:type="SubDef" location="6:18-6:43" name="define_AB">
        <paramdefs location="6:39-6:42" name="*" type="*"/>
      </func_sub_Sig>
    </pctexpr>
  </pointcut>
  <advice xsi:type="_1:BeforeAdvice" location="8:2-10:3" pctname="//@pointcut.0">
    <advStmt xsi:type="_1:OpaqueStatement" location="9:3-9:44" stmt="PRINT *, 'Before Calling Random...';"/>
  </advice>
  <advice xsi:type="_1:AfterAdvice" location="11:2-13:3" pctname="//@pointcut.0">
    <advStmt xsi:type="_1:OpaqueStatement" location="12:3-12:43" stmt="PRINT *, 'After Calling Random...';"/>
  </advice>
</AFortran>

