Salut à tous,

Avant de me lancer dans l'écriture d'une longue subroutine, et n'ayant jamais touché aux modules avec fortran95, j'ai fait un petit programme test afin de me familiariser avec ce nouvel outil.
Mais, au malheur, l'allocation dynamique d'un tableau dans un module, n'aboutit qu'à recevoir les insultes du compilateur...

Je laisse le module en copie, si quelqu'un a une idée, je le remercie par avance de sauver l'amitié que j'avais lié avec mon compilateur.
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
23
24
25
26
27
 	MODULE conf_ini
	IMPLICIT NONE
 
	REAL (KIND=8), DIMENSION(:), ALLOCATABLE :: atom
	INTEGER (KIND=4) :: ntot
	INTEGER (KIND=4) :: x,compt
 
	CONTAINS
	SUBROUTINE CPA(atom,ntot)
 
	REAL (KIND=8), DIMENSION(:), ALLOCATABLE :: atom
	INTEGER (KIND=4) :: ntot
	INTEGER (KIND=4) :: x,compt
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	ntot=9
	allocate(atom(ntot))
	compt=0
 
	DO x=1,ntot  
	compt=compt+1
	atom(x)=real(compt)
	ENDDO
 
	deallocate(atom)	
 
	END SUBROUTINE CPA
	END MODULE conf_ini