| avm99963 | 9622dc7 | 2022-04-29 15:44:05 +0200 | [diff] [blame] | 1 | program p1e3 |
| 2 | implicit none | ||||
| 3 | integer*4, PARAMETER :: L = 64 | ||||
| 4 | integer*2 :: S(1:L, 1:L) | ||||
| 5 | real*8 :: MAGNE | ||||
| 6 | |||||
| 7 | call WRITECONFIG(S, L) | ||||
| 8 | print *, "Magnetització:" | ||||
| 9 | print *, MAGNE(S, L) | ||||
| 10 | endprogram p1e3 | ||||