Discussion :

[peuf23]

Bonjour à tous,

Je suis sous MAC OS X 10.4.11 (Tiger) et je souhaite compiler des codes en fortran venus d'une vielle machine SUN. Je ne suis pas un as de la compilation alors je fais appel à vous.

Que dois-je changer dans le makefile?
Voici le makefile avec un fichier au pif pour que vous puissiez essayer.

Pour l'instant j'ai oté les options -fast -xtarget=ultra2 -xcache=16/32/1:4096/64/1 -Bstatic -dn de FFLAGS et ca a l'air de marcher (j'ai des warnings et des erreurs alors qu'avant j'avais un "f77: language cache=16/32/1:4096/64/1 not recognized")

La première erreur est la suivante:
reads.f:124:
READ (LU, 1000, END=999, ERR=998) NC, RECORD
1000 FORMAT (Q, A)
^
Unsupported FORMAT specifier at (^)

Merci d'avance

[Sylvain Bergeron]

Le problème ne semble pas lié au makefile, mais au fait que le Q dans le format est une extension non supportée par ton compilateur.

Tu dois donc modifier le programme pour ne plus utiliser cette extension, ou utiliser un compilateur supportant cette extension.

[peuf23]

Merci pour ta réponse.

Connais-tu un compilateur sous MAC OS X (Tiger) qui soit capable de prendre en compte cette extention? Personnellement, je n'ai jamais vu cette extension "Q". Tu sais à quoi elle peut correspondre?

[FR119492]

Salut!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
READ (LU, 1000, END=999, ERR=998) NC, RECORD
1000 FORMAT (Q, A)

Dans mon manuel Compaq Fortran, le descripteur Q est expliqué mais indiqué comme non standard:

The character count edit descriptor returns the remaining number of characters in the current input record

Jean-Marc Blanc

[peuf23]

Merci

Et sais tu à quoi il correspond, et surtout comment le remplacer dans le format standard??

[genteur slayer]

Returning the Number of Bytes: The Q Descriptor

The Q edit descriptor returns the number of bytes remaining on the
current input record. The value is returned to the next item on the
input list, which must be an integer variable. This descriptor applies
to input only and is ignored by the WRITE or PRINT statements.

For example, in the program:

PROGRAM q_format_input

CHARACTER string(80)

READ(5,100) len, (string(i), i = 1, min(len, 80))
100 FORMAT(Q, 80A1)

END

the variable len gets assigned the current length of the string. The Q
edit descriptor is used to avoid an error from reading more bytes from
the input record than are available, or from having blanks provided that
were not in the input file.


donc je ne sais pas trop comment le "transformer" en standard...