| commit | 45a8a462b0f64b2a96796a25ae064ffe252e225d | [log] [tgz] |
|---|---|---|
| author | avm99963 <me@avm99963.com> | Sat Jun 04 12:41:03 2022 +0200 |
| committer | Adrià Vilanova Martínez <me@avm99963.com> | Sat Jun 04 18:47:37 2022 +0200 |
| tree | 6631fcdda187b70505decaceefaeb7934d217c95 | |
| parent | 802583e7b41e076c94a8279782af52dbd5df2f55 [diff] [blame] |
Afegir sessió 4 del lab de fenomens Change-Id: I68a9c725acd6cde3fd43413fe673e5ec7794f7e6
diff --git a/quad10/fenomens/lab/p4/pbc.f90 b/quad10/fenomens/lab/p4/pbc.f90 new file mode 100644 index 0000000..09cfff3 --- /dev/null +++ b/quad10/fenomens/lab/p4/pbc.f90
@@ -0,0 +1,11 @@ +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