Fortranサブルーチンの引数リストでアスタリスク*記号が意味するものは何ですか？

Question

*はサブルーチンの引数として何を意味していますか？それはラベルを意味し、それはメインプログラムに戻りますか？それはreturn,return 1,ERRまたはERRORに関連していますか？なぜ私たちはこれらを持っているのかわかりませんが、アスタリスクはそれらに関連していると思います。

!>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

これは、関数から代替リターンのラベルです。その代わりに、サブルーチンが呼び出された場所に戻り

return 

の

return 1 

を使用する場合の機能は、最終的に戻ることができる標識です。

このコードは、新しいコードではお勧めできませんが、このコードを使用して例外の種類を特定する方法はありません。

非常に関連する質問、ほとんど重複した（代わりにreturn文を求めて）：Fortran return statement