1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
module nested_07_testmod_der1
private
public fcn
contains
subroutine fcn(x, fvec)
real, intent(in) :: x
real, intent(out) :: fvec
integer :: i
do i = 1, 3
print *, "x(1) = ", x
fvec = x+1
print *, "fvec(i) = ", fvec
end do
end subroutine
end module
program main
use nested_07_testmod_der1, only: fcn
real :: x, fvec
! The following starting values provide a rough fit.
x = 1.0
call check_deriv()
contains
subroutine check_deriv()
call fcn(x, fvec)
end subroutine
end program
|
