Fortran Wiki
internalproc (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 (追記ここまで)

A simple example of using internal procedures, which have explicit interfaces. See this thread on comp.lang.fortran for details.

! internalproc.f90 -- internal procedure example
program internalproc
 implicit none
 real :: y
 real :: x = 100.0
 y = functiontest(x)
contains
 function functiontest(argument)
 real :: functiontest
 real, intent(in) :: argument
 functiontest = argument * 2.0
 end function functiontest
end program internalproc

Created on May 10, 2009 15:52:32 by Jason Blevins (74.251.196.253) (622 characters / 0.0 pages)

Edit | Views: Print | TeX | Source | Linked from: Code, 2009