Skip to content

Commit 77d1010

Browse files
committed
docs: improved the file logic
1 parent 85b693a commit 77d1010

File tree

2 files changed

+30
-4
lines changed

2 files changed

+30
-4
lines changed
Original file line numberDiff line numberDiff line change
@@ -1,2 +1,15 @@
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 numberDiff line numberDiff line change
@@ -1,2 +1,15 @@
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

0 commit comments

Comments
 (0)