Que signifie le symbole astérisque * dans une liste d'arguments de sous-programme Fortran?

Question

Que signifie le * comme argument dans le sous-programme? Est-ce que ça veut dire une étiquette et ça revient au programme principal? est-il lié à return, return 1, ERR ou ERROR? Je ne sais pas pourquoi nous en avons, mais je pense que l'astérisque leur est apparenté.

!>Start the creation of boundary conditions for the equation set. 
SUBROUTINE BOUNDARY_CONDITIONS_CREATE_START(SOLVER_EQUATIONS,BOUNDARY_CONDITIONS,ERR,ERROR,*) 

!Argument variables 
INTEGER(INTG), INTENT(OUT) :: ERR !<The error code 
TYPE(VARYING_STRING), INTENT(OUT) :: ERROR !<The error string 
!Local Variables 
TYPE(VARYING_STRING) :: LOCAL_ERROR 

ENTERS("BOUNDARY_CONDITIONS_CREATE_START",ERR,ERROR,*999) 

    IF(ASSOCIATED(BOUNDARY_CONDITIONS)) THEN 
     CALL FlagError("Boundary conditions is already associated.",ERR,ERROR,*999) 
    ELSE 
     IF(ASSOCIATED(SOLVER_EQUATIONS%SOLVER_MAPPING)) THEN 
     !Initialise the boundary conditions 
     CALL BOUNDARY_CONDITIONS_INITIALISE(SOLVER_EQUATIONS,ERR,ERROR,*999) 
     ELSE 
     LOCAL_ERROR="Solver equations solver mapping is not associated." 
     CALL FlagError(LOCAL_ERROR,ERR,ERROR,*999) 
     ENDIF 
    ENDIF 
    ENDIF 

EXITS("BOUNDARY_CONDITIONS_CREATE_START") 
RETURN 
999 ERRORSEXITS("BOUNDARY_CONDITIONS_CREATE_START",ERR,ERROR) 
RETURN 1 
END SUBROUTINE BOUNDARY_CONDITIONS_CREATE_START 

Answer 1

C'est une étiquette pour le retour alternatif de la fonction. Il est l'étiquette où la fonction peut éventuellement revenir lors de l'utilisation

return 1 

au lieu de

return 

qui retourne à l'endroit d'où le sous-programme a été appelé.

Cette fonctionnalité est fortement déconseillée pour le nouveau code bien que j'ai vu une proposition sur la façon d'utiliser ce code pour un type d'exceptions.

question très liée, presque un double (demander la déclaration de retour à la place): Fortran return statement