Fortran Wiki
present (Rev #1, changes)

Skip the Navigation Links | Home Page | All Pages | Recently Revised | Authors | Feeds | Export |

Showing changes from revision #0 to #1: (追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)

Description

Determines whether an optional dummy argument is present.

Standard

Fortran 95 and later

Class

Inquiry function

Syntax

result = present(a)

Arguments

• a - May be of any type and may be a pointer, scalar or array value, or a dummy procedure. It shall be the name of an optional dummy argument accessible within the current subroutine or function.

Return value

Returns either true if the optional argument a is present, or false otherwise.

Example

program test_present
 write(*,*) f(), f(42) ! "f t"
contains
 logical function f(x)
 integer, intent(in), optional :: x
 f = present(x)
 end function
end program

Revision from April 26, 2009 19:22:16 by Jason Blevins

Forward in time (2 more) | See current | History | Rollback | View: Source | Linked from: Intrinsic procedures