[Fortran 90] Allocation

Bonjour,

Je cherche à tester un ancien code F90 qui devrait compiler mais je rencontre l'erreur suivante :

Citation:

---

> 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

Citation:

---

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,

Bonjour,

Comme ca sans tester, ma première question: qPrec est bien une constante?

(Je testerai quand j'aurais accès à un compilateur Intel...)

bonjour,

merci de la réponse, mais ça marchait très bien avec mon qprec,
mais c'etait une correction 'maison',

je cherche une commande qui me ferait éviter ce genre de déclarations et à mettre dans un de mes anciens fichiers récupérés...

merci

Bonjour,

il doit me manquer des choses là. Avec le qprec, ca marche. Mais sans qPrec, cela ne marche pas? Ca devient quoi alors sans le qPrec?

Sinon, le test avec qPrec fonctionne (qPrec devant être parameter). Mais je n'arrive pas à obtenir ton erreur....