diff options
Diffstat (limited to 'interface/fortran_example.f90')
| -rw-r--r-- | interface/fortran_example.f90 | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/interface/fortran_example.f90 b/interface/fortran_example.f90 new file mode 100644 index 0000000..3b0d7b0 --- /dev/null +++ b/interface/fortran_example.f90 @@ -0,0 +1,17 @@ +function foo(p) + double precision foo + double precision p(2) + foo=p(1)**2+p(2)**2; + return +end function foo + + +program main + double precision foo + double precision p(2) + p(1)=4 + p(2)=5 + write(*,*) p,foo(p) + call optimize_powell(foo,2,p,1E-10) + write(*,*) p,foo(p) +end program main |