Bonjour,

Je cherche à tester un ancien code F90 qui devrait compiler mais je rencontre l'erreur suivante :
> make
/afs/inria.fr/rocq/home/sisyphe/malassen/intel/fc/10.1.008/bin/ifort -c
-I/afs/inria.fr/rocq/home/sisyphe/malassen/Bearclaw/hdf/include
-I/afs/inria.fr/rocq/home/sisyphe/malassen/Bearclaw/hdf/lib -g -fpp1
-I/afs/inria.fr/rocq/home/sisyphe/malassen/Bearclaw/lib problem.f90
fortcom: Error: problem.f90, line 42: This name does not have a type, and must
have an explicit type. [QSUMFOL]
if (ALLOCATED (qsumfol)) DEALLOCATE(qsumfol)
-------------------^
fortcom: Error: problem.f90, line 42: An array-valued argument is required in
this context. [ALLOCATED]
if (ALLOCATED (qsumfol)) DEALLOCATE(qsumfol)
-------------------^
fortcom: Error: problem.f90, line 44: This name does not have a type, and must
have an explicit type. [QFOL]
if (ALLOCATED (qfol)) DEALLOCATE(qfol)
-------------------^
fortcom: Error: problem.f90, line 44: An array-valued argument is required in
this context. [ALLOCATED]
if (ALLOCATED (qfol)) DEALLOCATE(qfol)
-------------------^
fortcom: Error: problem.f90, line 45: This name does not have a type, and must
have an explicit type. [QMATU]
if (ALLOCATED (qmatu)) DEALLOCATE(qmatu)
-------------------^
fortcom: Error: problem.f90, line 45: An array-valued argument is required in
this context. [ALLOCATED]
if (ALLOCATED (qmatu)) DEALLOCATE(qmatu)
-------------------^
Plutôt que de faire toutes les modifications d'allocation (vu que cela devait
compiler par le passé), je cherche une commande (à mettre dans make ?) qui
permettrait par défaut ce cas de figure.

(Je précise, que j'ai deja testé une version corrigée par mes soins, avec des choses genre
REAL (KIND=qPrec) :: mat_moy, qsum
REAL (KIND=qPrec), DIMENSION( : ), ALLOCATABLE :: qsumfol, qfol, qmatu, qmatfol
mais ce programme devait tourner avant mon arrivée, et ces commandes n'existaient dans aucune version, donc je cherche ce qui manque.
..)


Ou si vous avez d'autres solutions...


Merci d'avance,