Opened 16 years ago

Closed 7 years ago

#2 closed defect (fixed)

Argument "found" dans "iostart.F90"

Reported by: lguez Owned by: meurdesoif
Priority: trivial Milestone:
Component: I/O Keywords:
Cc:

Description

Dans les procédures "Get_Field_r1" et compagnie, on trouve :

IF (PRESENT(found)) THEN

CALL Get_field_rgen(field_name,field,1,found)

ELSE

CALL Get_field_rgen(field_name,field,1)

ENDIF

C'est un alourdissement inutile. On écrit :

CALL Get_field_rgen(field_name,field,1,found)

et le paramètre optionnel n'est retransmis que s'il est présent.

Change History (12)

comment:1 Changed 16 years ago by guez@…

J'ai oublié de signer. Lionel Guez

comment:2 Changed 16 years ago by anonymous

Owner: changed from somebody to anonymous
Priority: major → trivial
Status: new → assigned

Ok, je note. Il me semblait que l'argument optionnel avait une valeur indéfinie lorsqu'il n'était pas présent et donc qu'il était passé tel quel à la subroutine. Mais c'est plus logique comme ça. De toute façon au niveau syntaxe du fortran 90, tu es incollable, je te fais confiance.

Yann

comment:3 Changed 16 years ago by Laurent Fairhead

Owner: changed from anonymous to yann meurdesoif
Status: assigned → new

comment:4 Changed 16 years ago by Laurent Fairhead

Reporter: changed from anonymous to lguez

comment:5 Changed 16 years ago by anonymous

Owner: changed from yann meurdesoif to anonymous
Status: new → assigned

comment:6 Changed 16 years ago by anonymous

Owner: changed from anonymous to meurdesoif
Status: assigned → new

comment:7 Changed 16 years ago by anonymous

Owner: changed from meurdesoif to anonymous
Status: new → assigned

comment:8 Changed 16 years ago by anonymous

Owner: changed from anonymous to meurdesoif
Status: assigned → new

comment:9 Changed 16 years ago by Laurent Fairhead

Owner: changed from meurdesoif to Laurent Fairhead
Status: new → assigned

comment:10 Changed 16 years ago by Laurent Fairhead

Owner: changed from Laurent Fairhead to meurdesoif
Status: assigned → new

comment:11 Changed 16 years ago by Laurent Fairhead

Component: component1 → I/O

comment:12 Changed 7 years ago by Laurent Fairhead

Resolution: → fixed
Status: new → closed

Fixed with revision 3070

Note: See TracTickets for help on using tickets.