Skip to content

Commit dbe588c

Browse files
committed
remove debug prints
1 parent fca10b5 commit dbe588c

File tree

1 file changed

+0
-2
lines changed

1 file changed

+0
-2
lines changed

test/test_hybrd.f90

-2
Original file line numberDiff line numberDiff line change
@@ -414,7 +414,6 @@ subroutine vecfcn(n, x, Fvec, Nprob)
414414
Fvec(4) = c6*temp2 + c4*(x(4) - one) + c5*(x(2) - one)
415415
case (5)
416416
! HELICAL VALLEY FUNCTION.
417-
write(*,*) '1'
418417
tpi = eight*atan(one)
419418
if (x(1) > zero) then
420419
temp1 = atan(x(2)/x(1))/tpi
@@ -427,7 +426,6 @@ subroutine vecfcn(n, x, Fvec, Nprob)
427426
Fvec(1) = ten*(x(3) - ten*temp1)
428427
Fvec(2) = ten*(temp2 - one)
429428
Fvec(3) = x(3)
430-
write(*,*) '2'
431429
case (6)
432430
! WATSON FUNCTION.
433431
do k = 1, n

0 commit comments

Comments
 (0)