Slatec PCHIP routines convert LOGICAL to INTEGER*4 for LTO reasons - #…

…468
PDLPorters · Apr 1, 2024 · ca6671a · ca6671a
1 parent 9469b35
commit ca6671a
Show file tree

Hide file tree

Showing 10 changed files with 20 additions and 20 deletions.
diff --git a/Libtmp/Slatec/slatec/dpchcm.f b/Libtmp/Slatec/slatec/dpchcm.f
@@ -141,7 +141,7 @@ SUBROUTINE DPCHCM (N, X, F, D, INCFD, SKIP, ISMON, IERR)
       implicit integer*8(i-n)
       INTEGER*8 N, INCFD, ISMON(N), IERR
       DOUBLE PRECISION  X(N), F(INCFD,N), D(INCFD,N)
-      LOGICAL  SKIP
+      INTEGER*4  SKIP
 C
 C  DECLARE LOCAL VARIABLES.
 C
@@ -152,7 +152,7 @@ SUBROUTINE DPCHCM (N, X, F, D, INCFD, SKIP, ISMON, IERR)
 C  VALIDITY-CHECK ARGUMENTS.
 C
 C***FIRST EXECUTABLE STATEMENT  DPCHCM
-      IF (SKIP)  GO TO 5
+      IF (SKIP.NE.0)  GO TO 5
 C
       IF ( N.LT.2 )  GO TO 5001
       IF ( INCFD.LT.1 )  GO TO 5002

diff --git a/Libtmp/Slatec/slatec/dpchfd.f b/Libtmp/Slatec/slatec/dpchfd.f
@@ -148,7 +148,7 @@ SUBROUTINE DPCHFD (N, X, F, D, INCFD, SKIP, NE, XE, FE, DE, IERR)
       INTEGER*8  N, INCFD, NE, IERR
       DOUBLE PRECISION  X(*), F(INCFD,*), D(INCFD,*), XE(*), FE(*),
      * DE(*)
-      LOGICAL  SKIP
+      INTEGER*4  SKIP
 C
 C  DECLARE LOCAL VARIABLES.
 C
@@ -157,7 +157,7 @@ SUBROUTINE DPCHFD (N, X, F, D, INCFD, SKIP, NE, XE, FE, DE, IERR)
 C  VALIDITY-CHECK ARGUMENTS.
 C
 C***FIRST EXECUTABLE STATEMENT  DPCHFD
-      IF (SKIP)  GO TO 5
+      IF (SKIP.NE.0)  GO TO 5
 C
       IF ( N.LT.2 )  GO TO 5001
       IF ( INCFD.LT.1 )  GO TO 5002

diff --git a/Libtmp/Slatec/slatec/dpchfe.f b/Libtmp/Slatec/slatec/dpchfe.f
@@ -134,7 +134,7 @@ SUBROUTINE DPCHFE (N, X, F, D, INCFD, SKIP, NE, XE, FE, IERR)
       implicit integer*8(i-n)
       INTEGER*8  N, INCFD, NE, IERR
       DOUBLE PRECISION  X(*), F(INCFD,*), D(INCFD,*), XE(*), FE(*)
-      LOGICAL  SKIP
+      INTEGER*4  SKIP
 C
 C  DECLARE LOCAL VARIABLES.
 C
@@ -143,7 +143,7 @@ SUBROUTINE DPCHFE (N, X, F, D, INCFD, SKIP, NE, XE, FE, IERR)
 C  VALIDITY-CHECK ARGUMENTS.
 C
 C***FIRST EXECUTABLE STATEMENT  DPCHFE
-      IF (SKIP)  GO TO 5
+      IF (SKIP.NE.0)  GO TO 5
 C
       IF ( N.LT.2 )  GO TO 5001
       IF ( INCFD.LT.1 )  GO TO 5002

diff --git a/Libtmp/Slatec/slatec/dpchia.f b/Libtmp/Slatec/slatec/dpchia.f
@@ -118,7 +118,7 @@ DOUBLE PRECISION FUNCTION DPCHIA (N, X, F, D, INCFD, SKIP, A, B,
       implicit integer*8(i-n)
       INTEGER*8  N, INCFD, IERR
       DOUBLE PRECISION  X(*), F(INCFD,*), D(INCFD,*), A, B
-      LOGICAL  SKIP
+      INTEGER*4  SKIP
 C
 C  DECLARE LOCAL VARIABLES.
 C
@@ -135,7 +135,7 @@ DOUBLE PRECISION FUNCTION DPCHIA (N, X, F, D, INCFD, SKIP, A, B,
 C
 C  VALIDITY-CHECK ARGUMENTS.
 C
-      IF (SKIP)  GO TO 5
+      IF (SKIP.NE.0)  GO TO 5
 C
       IF ( N.LT.2 )  GO TO 5001
       IF ( INCFD.LT.1 )  GO TO 5002

diff --git a/Libtmp/Slatec/slatec/dpchid.f b/Libtmp/Slatec/slatec/dpchid.f
@@ -110,7 +110,7 @@ DOUBLE PRECISION FUNCTION DPCHID (N, X, F, D, INCFD, SKIP, IA, IB,
       implicit integer*8(i-n)
       INTEGER*8  N, INCFD, IA, IB, IERR
       DOUBLE PRECISION  X(*), F(INCFD,*), D(INCFD,*)
-      LOGICAL  SKIP
+      INTEGER*4  SKIP
 C
 C  DECLARE LOCAL VARIABLES.
 C
@@ -126,7 +126,7 @@ DOUBLE PRECISION FUNCTION DPCHID (N, X, F, D, INCFD, SKIP, IA, IB,
 C
 C  VALIDITY-CHECK ARGUMENTS.
 C
-      IF (SKIP)  GO TO 5
+      IF (SKIP.NE.0)  GO TO 5
 C
       IF ( N.LT.2 )  GO TO 5001
       IF ( INCFD.LT.1 )  GO TO 5002

diff --git a/Libtmp/Slatec/slatec/pchcm.f b/Libtmp/Slatec/slatec/pchcm.f
@@ -140,7 +140,7 @@ SUBROUTINE PCHCM (N, X, F, D, INCFD, SKIP, ISMON, IERR)
       implicit integer*8(i-n)
       INTEGER*8  N, INCFD, ISMON(N), IERR
       REAL  X(N), F(INCFD,N), D(INCFD,N)
-      LOGICAL  SKIP
+      INTEGER*4  SKIP
 C
 C  DECLARE LOCAL VARIABLES.
 C
@@ -151,7 +151,7 @@ SUBROUTINE PCHCM (N, X, F, D, INCFD, SKIP, ISMON, IERR)
 C  VALIDITY-CHECK ARGUMENTS.
 C
 C***FIRST EXECUTABLE STATEMENT  PCHCM
-      IF (SKIP)  GO TO 5
+      IF (SKIP.NE.0)  GO TO 5
 C
       IF ( N.LT.2 )  GO TO 5001
       IF ( INCFD.LT.1 )  GO TO 5002

diff --git a/Libtmp/Slatec/slatec/pchfd.f b/Libtmp/Slatec/slatec/pchfd.f
@@ -144,7 +144,7 @@ SUBROUTINE PCHFD (N, X, F, D, INCFD, SKIP, NE, XE, FE, DE, IERR)
       implicit integer*8(i-n)
       INTEGER*8  N, INCFD, NE, IERR
       REAL  X(*), F(INCFD,*), D(INCFD,*), XE(*), FE(*), DE(*)
-      LOGICAL  SKIP
+      INTEGER*4  SKIP
 C
 C  DECLARE LOCAL VARIABLES.
 C
@@ -153,7 +153,7 @@ SUBROUTINE PCHFD (N, X, F, D, INCFD, SKIP, NE, XE, FE, DE, IERR)
 C  VALIDITY-CHECK ARGUMENTS.
 C
 C***FIRST EXECUTABLE STATEMENT  PCHFD
-      IF (SKIP)  GO TO 5
+      IF (SKIP.NE.0)  GO TO 5
 C
       IF ( N.LT.2 )  GO TO 5001
       IF ( INCFD.LT.1 )  GO TO 5002

diff --git a/Libtmp/Slatec/slatec/pchfe.f b/Libtmp/Slatec/slatec/pchfe.f
@@ -132,7 +132,7 @@ SUBROUTINE PCHFE (N, X, F, D, INCFD, SKIP, NE, XE, FE, IERR)
       implicit integer*8(i-n)
       INTEGER*8  N, INCFD, NE, IERR
       REAL  X(*), F(INCFD,*), D(INCFD,*), XE(*), FE(*)
-      LOGICAL  SKIP
+      INTEGER*4  SKIP
 C
 C  DECLARE LOCAL VARIABLES.
 C
@@ -141,7 +141,7 @@ SUBROUTINE PCHFE (N, X, F, D, INCFD, SKIP, NE, XE, FE, IERR)
 C  VALIDITY-CHECK ARGUMENTS.
 C
 C***FIRST EXECUTABLE STATEMENT  PCHFE
-      IF (SKIP)  GO TO 5
+      IF (SKIP.NE.0)  GO TO 5
 C
       IF ( N.LT.2 )  GO TO 5001
       IF ( INCFD.LT.1 )  GO TO 5002

diff --git a/Libtmp/Slatec/slatec/pchia.f b/Libtmp/Slatec/slatec/pchia.f
@@ -114,7 +114,7 @@ REAL FUNCTION PCHIA (N, X, F, D, INCFD, SKIP, A, B, IERR)
       implicit integer*8(i-n)
       INTEGER*8  N, INCFD, IERR
       REAL  X(*), F(INCFD,*), D(INCFD,*), A, B
-      LOGICAL  SKIP
+      INTEGER*4  SKIP
 C
 C  DECLARE LOCAL VARIABLES.
 C
@@ -131,7 +131,7 @@ REAL FUNCTION PCHIA (N, X, F, D, INCFD, SKIP, A, B, IERR)
 C
 C  VALIDITY-CHECK ARGUMENTS.
 C
-      IF (SKIP)  GO TO 5
+      IF (SKIP.NE.0)  GO TO 5
 C
       IF ( N.LT.2 )  GO TO 5001
       IF ( INCFD.LT.1 )  GO TO 5002

diff --git a/Libtmp/Slatec/slatec/pchid.f b/Libtmp/Slatec/slatec/pchid.f
@@ -106,7 +106,7 @@ REAL FUNCTION PCHID (N, X, F, D, INCFD, SKIP, IA, IB, IERR)
       implicit integer*8(i-n)
       INTEGER*8  N, INCFD, IA, IB, IERR
       REAL  X(*), F(INCFD,*), D(INCFD,*)
-      LOGICAL  SKIP
+      INTEGER*4  SKIP
 C
 C  DECLARE LOCAL VARIABLES.
 C
@@ -122,7 +122,7 @@ REAL FUNCTION PCHID (N, X, F, D, INCFD, SKIP, IA, IB, IERR)
 C
 C  VALIDITY-CHECK ARGUMENTS.
 C
-      IF (SKIP)  GO TO 5
+      IF (SKIP.NE.0)  GO TO 5
 C
       IF ( N.LT.2 )  GO TO 5001
       IF ( INCFD.LT.1 )  GO TO 5002