Gitiles
Code Review
Sign In
gerrit.avm99963.com
/
edu
/
college-misc
/
5c44479eea498e2c27dd210a2d03cf70344a50ed
/
.
/
quad10
/
fenomens
/
lab
/
p4
/
pbc.f90
blob: 09cfff3af489ab22d293cd4cb1eea687f79169c6 [
file
] [
log
] [
blame
]
avm99963
45a8a46
2022-06-04 12:41:03 +0200
[
diff
] [
blame
]
1
integer
*
4
function
PBC
(
N
,
L
)
2
integer
*
4
,
intent
(
in
)
::
N
,
L
3
if
(
N
==
0
)
then
4
PBC
=
L
5
else
if
(
N
==
L
+
1
)
then
6
PBC
=
1
7
else
8
PBC
=
N
9
endif
10
return
11
endfunction