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/magne.f90 b/quad10/fenomens/lab/p4/magne.f90 index be56bc9..118a965 100644 --- a/quad10/fenomens/lab/p4/magne.f90 +++ b/quad10/fenomens/lab/p4/magne.f90
@@ -1,4 +1,4 @@ -real*8 function MAGNE(S, L) +real*8 function magne(S, L) implicit none integer*4, intent(in) :: L integer*2, intent(out) :: S(1:64,1:64) @@ -14,4 +14,4 @@ magne = mag return -end function MAGNE +end function magne