Gitiles
Code Review
Sign In
gerrit.avm99963.com
/
edu
/
college-misc
/
1ee4edb9c6ed2762405ed5ede51782ac7c9267c7
/
.
/
quad10
/
fenomens
/
lab
/
p4
/
pbc.f90
blob: 09cfff3af489ab22d293cd4cb1eea687f79169c6 [
file
] [
log
] [
blame
]
integer
*
4
function
PBC
(
N
,
L
)
integer
*
4
,
intent
(
in
)
::
N
,
L
if
(
N
==
0
)
then
PBC
=
L
else
if
(
N
==
L
+
1
)
then
PBC
=
1
else
PBC
=
N
endif
return
endfunction