Документ взят из кэша поисковой машины. Адрес оригинального документа : http://star.arm.ac.uk/f77to90/c8.html
Дата изменения: Sun Feb 11 17:29:52 1996
Дата индексирования: Mon Oct 1 20:59:16 2012
Кодировка:

Поисковые слова: spiral galaxy
Keyword arguments and default arguments

8. Keyword arguments and default arguments

Routines can now be called with keyword arguments and can use default arguments, that means that some arguments can be given with keywords instead of position and some do not have to be given at all, in which case a standard or default value is used.

The use of keyword and default argument is not just as simple as it appears from Appendix 3, section 6, program units. It is one of the cases where an explicit interface is required. Therefore we give a complete example here. As keywords the formal parameters of the interface are being used, they do not have to be the same names as in the actual subprogram. They shall not be specified in the calling program unit.


       IMPLICIT NONE

       INTERFACE

          SUBROUTINE SOLVE (A, B, N)

             INTEGER, INTENT (IN)          : : N

             REAL, INTENT(OUT)             : : A

             REAL, INTENT(IN), OPTIONAL    : : B

          END SUBROUTINE SOLVE

       END INTERFACE



       REAL X

!      Note that A, B and N are not specified as REAL

!      or INTEGER in this unit.



       CALL SOLVE(B=10.0,N=50,A=X)

       WRITE(*,*) X

       CALL SOLVE(B=10.0,N=100,A=X)

       WRITE(*,*) X

       CALL SOLVE(N=100,A=X)

       WRITE(*,*) X

       END



       SUBROUTINE SOLVE(A, B, N)

       REAL, OPTIONAL, INTENT (IN)  : : B

       IF (PRESENT(B)) THEN

              TEMP_B = B

       ELSE

              TEMP_B = 20.0

       END IF

       A = TEMP_B + N

       RETURN

       END

Note that the statement IMPLICIT NONE in the main program does not work automatically also in the subroutine SOLVE. This subroutine therefore ought to be given its own IMPLICIT NONE satement and the specification of all variables used (A, B, N and TEMP_B).

It is run with the following statements


       % f90 program.f90

       % a.out

          60.0000000

           1.1000000E+02

           1.2000000E+02

       %

In the last case the default argument is used, since B is not given explicitly, it means that the default value 20 is added to the actual argument N = 100, which gives A = 120.

It is convenient to place the interface INTERFACE in a module so the user does not have to care so much about it. The interface is a natural complement to the routine library. Fortran 90 looks automatically for modules in the present directory, in the directories given in the I-list and also in /usr/local/lib/f90 (this is the standard library for Fortran 90 using UNIX). The concept I-list is explained in Appendix 6. If you forget INTERFACE or have an incorrect interface, usually compilation or execution gives the error message "Segmentation error", and nothing more.

Note that if an output variable is given as OPTIONAL and INTENT(OUT) then you have to have it included in the argument list, if the program at execution assigns a value to this variable. You can therefore not use OPTIONAL in order to get a choice whether you wish to have a certain variable outputted or not. The solution to this problem will be discussed a little later, the PRESENT statement.

Exercises

(8.1) Write a routine for the calculation of an integral of a function. You will use keyword arguments and default arguments so that

Solution.

(8.2) Write the interface that is required in the calling routine in order to use the above integration routine.
Solution.


Last modified: 16 November 1995
boein@nsc.liu.se