| Adrià Vilanova Martínez | 24d8701 | 2022-06-16 00:29:59 +0200 | [diff] [blame] | 1 | ! Funció que imposa les condicions de contorn periòdiques, enviant l'índex N al |
| 2 | ! valor corresponent en l'interval [1, L]. | ||||
| 3 | ! | ||||
| 4 | ! Prerequisit: N està a l'interval [0, L + 1]. | ||||
| avm99963 | 45a8a46 | 2022-06-04 12:41:03 +0200 | [diff] [blame] | 5 | integer*4 function PBC(N, L) |
| 6 | integer*4, intent(in) :: N, L | ||||
| 7 | if (N == 0) then | ||||
| 8 | PBC = L | ||||
| 9 | else if (N == L + 1) then | ||||
| 10 | PBC = 1 | ||||
| 11 | else | ||||
| 12 | PBC = N | ||||
| 13 | endif | ||||
| 14 | return | ||||
| 15 | endfunction | ||||