| commit | ebb87790813a741ac8c65f92ce47a8c27ace30c4 | [log] [tgz] |
|---|---|---|
| author | Adrià Vilanova Martínez <me@avm99963.com> | Sat Jun 04 20:07:20 2022 +0200 |
| committer | Adrià Vilanova Martínez <me@avm99963.com> | Sat Jun 04 20:07:20 2022 +0200 |
| tree | c428936c1b22ffb40d927545721f7b7a8ef7b2b8 | |
| parent | 61897898c5b660cdec6e1d3a06804f88fede4a89 [diff] [blame] |
Minor changes to fenomens p4 Change-Id: I2eafd58ea0a4dbb32f5f2e94ca05d9a472949a0d
diff --git a/quad10/fenomens/lab/p4/energ.f90 b/quad10/fenomens/lab/p4/energ.f90 index ba7841c..431a296 100644 --- a/quad10/fenomens/lab/p4/energ.f90 +++ b/quad10/fenomens/lab/p4/energ.f90
@@ -1,4 +1,4 @@ -real*8 function ENERG(S, L) +real*8 function energ(S, L) integer*2 :: S(1:64, 1:64) integer*4 :: I, J, L, PBC real*8 :: ENE