| avm99963 | 9622dc7 | 2022-04-29 15:44:05 +0200 | [diff] [blame] | 1 | program p2e1 |
| 2 | implicit none | ||||
| 3 | integer*4, PARAMETER :: L = 32 | ||||
| 4 | integer*2 :: S(1:L, 1:L) | ||||
| 5 | real*8 :: MAGNE, ENERG | ||||
| 6 | integer*4 :: PBC(0:L+1), I | ||||
| 7 | |||||
| 8 | PBC(0) = L | ||||
| 9 | PBC(L + 1) = 1 | ||||
| 10 | do I = 1, L | ||||
| 11 | PBC(I) = I | ||||
| 12 | enddo | ||||
| 13 | |||||
| 14 | call WRITECONFIG(S, L) | ||||
| 15 | print *, "Magnetització:" | ||||
| 16 | print *, MAGNE(S, L) | ||||
| 17 | print *, "" | ||||
| 18 | print *, "Energia:" | ||||
| 19 | print *, ENERG(S, L, PBC) | ||||
| 20 | endprogram p2e1 | ||||