File tree 2 files changed +30
-4
lines changed
example_packages/preprocess_fypp/src
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