Skip to content

Commit cf37c94

Browse files
committed
change intent of class to inout for the initialize routine
so it doesn't destroy any user variables
1 parent bdb4f98 commit cf37c94

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

src/numerical_differentiation_module.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -975,7 +975,7 @@ subroutine initialize_numdiff_for_diff(me,n,m,xlow,xhigh,&
975975

976976
implicit none
977977

978-
class(numdiff_type),intent(out) :: me
978+
class(numdiff_type),intent(inout):: me
979979
integer,intent(in) :: n !! number of `x` variables
980980
integer,intent(in) :: m !! number of `f` functions
981981
real(wp),dimension(n),intent(in) :: xlow !! lower bounds on `x`
@@ -1274,7 +1274,7 @@ subroutine initialize_numdiff(me,n,m,xlow,xhigh,perturb_mode,dpert,&
12741274

12751275
implicit none
12761276

1277-
class(numdiff_type),intent(out) :: me
1277+
class(numdiff_type),intent(inout) :: me
12781278
integer,intent(in) :: n !! number of `x` variables
12791279
integer,intent(in) :: m !! number of `f` functions
12801280
real(wp),dimension(n),intent(in) :: xlow !! lower bounds on `x`

0 commit comments

Comments
 (0)