fortran
Differences
This shows you the differences between two versions of the page.
|
fortran [2010/04/09 09:30] zdech |
fortran [2011/02/18 13:13] |
||
|---|---|---|---|
| Line 1: | Line 1: | ||
| - | **manual svn** [[http://svnbook.red-bean.com/en/1.1/ch03s05.html]] | ||
| - | |||
| - | |||
| - | |||
| - | ====== Pointers on functions and subroutines in Fortran ====== | ||
| - | |||
| - | === It works with both ifort and gfortran-4.4 === | ||
| - | |||
| - | ===== example 1: main.f90 ===== | ||
| - | module HelloWorld | ||
| - | | ||
| - | procedure(), pointer :: ptr | ||
| - | | ||
| - | contains | ||
| - | | ||
| - | subroutine Hello1() | ||
| - | print *,'Ahoj' | ||
| - | end subroutine | ||
| - | | ||
| - | subroutine Hello2(a) | ||
| - | integer, intent(in) :: a | ||
| - | print *,'Nazdar',a | ||
| - | end subroutine | ||
| - | | ||
| - | end module | ||
| - | | ||
| - | program main | ||
| - | use HelloWorld | ||
| - | implicit none | ||
| - | | ||
| - | ptr => Hello1 | ||
| - | call ptr | ||
| - | | ||
| - | ptr => Hello2 | ||
| - | call ptr(2) | ||
| - | | ||
| - | end program | ||
| - | |||
| - | ==== output: ==== | ||
| - | zdenka@pc209:~/simulations/fireball/ptr_func$ ifort -c main.f90 -o main.o;ifort main.o -o test;./test | ||
| - | Ahoj | ||
| - | Nazdar 2 | ||
| - | ===== Example 2: main.f90 ===== | ||
| - | |||
| - | module HelloWorld | ||
| - | | ||
| - | procedure(Hello1), pointer :: ptr | ||
| - | | ||
| - | contains | ||
| - | | ||
| - | subroutine Hello1(a,b) | ||
| - | integer, intent(in) :: a | ||
| - | real, intent(in) :: b | ||
| - | print *,'Ahoj',a,b | ||
| - | end subroutine | ||
| - | | ||
| - | subroutine Hello2(a,b) | ||
| - | integer, intent(in) :: a | ||
| - | real, intent(in) :: b | ||
| - | print *,'Nazdar',a,b | ||
| - | end subroutine | ||
| - | | ||
| - | end module | ||
| - | | ||
| - | program main | ||
| - | use HelloWorld | ||
| - | | ||
| - | ptr => Hello1 | ||
| - | call ptr(1,1.0) | ||
| - | | ||
| - | ptr => Hello2 | ||
| - | call ptr(2,2.0) | ||
| - | end program | ||
| - | |||
| - | ==== output ==== | ||
| - | zdenka@pc209:~/simulations/fireball/ptr_func$ ifort -c main.f90 -o main.o;ifort main.o -o test;./test | ||
| - | Ahoj 1 1.000000 | ||
| - | Nazdar 2 2.000000 | ||
| - | |||
| - | ====== Links - new features in fortran 95/2003: ====== | ||
| - | [[ftp://ftp.nag.co.uk/sc22wg5/N1601-N1650/N1648.pdf|The New Features of Fortran 2003]] | ||
| - | |||
| - | [[http://www-users.york.ac.uk/~mijp1/COL/fortran_2003.pdf|Fortran 2003: the latest Fortran Standard]] | ||
fortran.txt ยท Last modified: 2011/02/18 13:13 (external edit)
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Noncommercial-Share Alike 4.0 International
