fortran
Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision Next revision | Previous revision Next revision Both sides next revision | ||
|
fortran [2010/03/22 10:58] zdech |
fortran [2010/04/09 09:30] zdech |
||
|---|---|---|---|
| Line 1: | Line 1: | ||
| - | ====== Pointers on functions and subroutines in Fortran ====== | + | **manual svn** [[http://svnbook.red-bean.com/en/1.1/ch03s05.html]] |
| - | === It works with both ifort and gfortran-4.4 === | ||
| ===== example 1: main.f90 ===== | ===== example 1: main.f90 ===== | ||
| Line 40: | Line 40: | ||
| module HelloWorld | module HelloWorld | ||
| + | | ||
| procedure(Hello1), pointer :: ptr | procedure(Hello1), pointer :: ptr | ||
| | | ||
| Line 58: | Line 58: | ||
| | | ||
| end module | end module | ||
| - | | ||
| | | ||
| program main | program main | ||
| use HelloWorld | use HelloWorld | ||
| + | | ||
| ptr => Hello1 | ptr => Hello1 | ||
| call ptr(1,1.0) | call ptr(1,1.0) | ||
| + | | ||
| ptr => Hello2 | ptr => Hello2 | ||
| call ptr(2,2.0) | call ptr(2,2.0) | ||
| end program | 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: ====== | ====== Links - new features in fortran 95/2003: ====== | ||
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
