File tree Expand file tree Collapse file tree 2 files changed +30
-4
lines changed
example_packages/preprocess_fypp/src Expand file tree Collapse file tree 2 files changed +30
-4
lines changed Original file line number Diff line number Diff line change 1- #:set LOGLEVEL = 1
2- print *, "LOGLEVEL: ${LOGLEVEL}$"
1+ #: set SHOW = 1
2+
3+ module my_mod1
4+ implicit none
5+
6+ real, parameter :: pi = 3.1415926536
7+ real, parameter :: e = 2.7182818285
8+
9+ contains
10+
11+ subroutine show_consts()
12+ print *, "pi = ", pi
13+ if (${SHOW}$ == 1) print *, "e = ", e
14+ end subroutine show_consts
15+ end module my_mod1
Original file line number Diff line number Diff line change 1- #:set LOGLEVEL = 2
2- print *, "LOGLEVEL: ${LOGLEVEL}$"
1+ #: set SHOW = 2
2+
3+ module my_mod2
4+ implicit none
5+
6+ real, parameter :: pi = 3.1415926536
7+ real, parameter :: e = 2.7182818285
8+
9+ contains
10+
11+ subroutine show_consts2()
12+ print *, "pi = ", pi
13+ if (${SHOW}$ == 1) print *, "e = ", e
14+ end subroutine show_consts2
15+ end module my_mod2
You can’t perform that action at this time.
0 commit comments