Fortran problemes en variables

Salut

Je suis en train de lire des données à partir d'un fichier ascii, dans un nombre de simple précision - le programme original lit en double.

Le code de lecture est comme ça:

Code:

---

1 2 3 4

DOUBLE PRECISION DB(3000), DB2Z/-99999999.d0/ ... READ (*,*,IOSTAT =IN) (DB(K),K=1,NCOEFF)

---

Les chiffres ont en effet 15 décimales (en ascii). Dois-je définir DB comme REAL ou comment puis-je formater le paramètre de lecture?

Plus tard, les données sont écrites dans un fichier:

Code:

---

1 2	WRITE (12,REC=NROUT+2,IOSTAT=OUT) (DB(K),K=1,NCOEFF)

---

Je dois formater à nouveau DB - REAL(DB(K)? Et qu'est-ce que cela signifie REC=NROUT+2 dans le code?

Je vous serais reconnaissant beaucoup pour un peu d'aide.

JKepler

Le fichier 12 est un fichier binaire (il n'y a pas de format) en accès direct (REC=...). L'argument REC = défini à compter de quel « record » se fait l'écriture. Voir aussi le RECL = du open(12) pour la largeur de chaque record.

Un tel fichier doit être lu par un programme (lui-même ou un autre). Tu ne peux pas passer de DOUBLE PRECISION à REAL (simple) sans modifier le RECL du fichier ainsi que le programme qui lit éventuellement ce fichier.

De plus, puisque ton input à 15 décimales, pourquoi voudrais-tu utiliser des simples précisions ?