Research Article
SPOT: A DSL for Extending Fortran Programs with Metaprogramming
Algorithm 6
The translated example code with the profiling library.
(1) PROGRAM exampleProg | (2) USE profiling_mod | (3) IMPLICIT NONE | (4) REAL a, b, c, result | (5) REAL calculation | (7) CALL profiling(“exampleProg:Input”) | (8) CALL Input(a, b, c) | (9) CALL profiling(“exampleProg:Input”) | (10) CALL profiling(“exampleProg:Calc”) | (11) result = Calc (a, b, c) | (12) CALL profiling(“exampleProg:Calc”) | (13) END |
|