Mercurial > octave

changeset 28688:a927fe30358d stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
avoid type mismatch warning in sintdy.f (bug #58791) * sintdy.f (SINTDY): Cast single arg to double in call to XERRWD.
author John W. Eaton <jwe@octave.org>
date Fri, 04 Sep 2020 11:29:59 -0400
parents 22a85c6c1de7
children 2cf0d03afdd4 2a47fa406ed8
files liboctave/external/odepack/sintdy.f
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/external/odepack/sintdy.f	Fri Sep 04 13:25:07 2020 +0200
+++ b/liboctave/external/odepack/sintdy.f	Fri Sep 04 11:29:59 2020 -0400
@@ -104,7 +104,7 @@
      1     30, 52, 0, 0, 0, 0, 1, DBLE (T), 0.0D0)
       CALL XERRWD(
      1   '      T not in interval TCUR - HU (= R1) to TCUR (=R2)      ',
-     1    60, 52, 0, 0, 0, 0, 2, DBLE (TP), TN)
+     1    60, 52, 0, 0, 0, 0, 2, DBLE (TP), DBLE (TN))
       IFLAG = -2
       RETURN
 C----------------------- END OF SUBROUTINE SINTDY ----------------------