Bonjour
Sauriez-vous me dire pourquoi le programme suivant fonctionne pour n allant de 1 à environ 1 040 000 et ne fonctionne plus ensuite ?
Est-ce un problème de mémoire vive ? (pour 8Mo, ce serait fâcheux !)
Merci d'avance
Bien à vous
SXBnano
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 program prog type spmat integer :: n real(8), pointer, dimension( : ) :: e real(8), pointer, dimension( : ) :: f end type integer i,n type(spmat) :: AAA write(*,*) "Donnez la valeur de n" read(*,*) n AAA%n=n write(*,*) "n=",AAA%n allocate(AAA%e(n)) allocate(AAA%f(n)) AAA%e=AAA%f deallocate(AAA%e) deallocate(AAA%f) end program
Partager