diff options
Diffstat (limited to 'interface/fortran_example.f90')
| -rw-r--r-- | interface/fortran_example.f90 | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/interface/fortran_example.f90 b/interface/fortran_example.f90 index 3b0d7b0..024abb2 100644 --- a/interface/fortran_example.f90 +++ b/interface/fortran_example.f90 @@ -9,9 +9,13 @@ end function foo program main double precision foo double precision p(2) - p(1)=4 - p(2)=5 + integer np + double precision precision + np=2 + precision=1e-10 + p(1)=4000 + p(2)=5000 write(*,*) p,foo(p) - call optimize_powell(foo,2,p,1E-10) + call optimize_powell(foo,np,p,precision) write(*,*) p,foo(p) end program main |