diff --git a/Libtmp/Slatec/slatec/dpchcm.f b/Libtmp/Slatec/slatec/dpchcm.f
index b23974108..3871752c8 100644
--- 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
index 1f8609913..228311780 100644
--- 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
index eef71402f..0b58e76f0 100644
--- 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
index e76f6f4cc..34e64cb4d 100644
--- 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
index 7abe24bd4..3f4de2d41 100644
--- 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
index b19612aa0..36831abc5 100644
--- 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
index bc684c4b8..0ba8156b5 100644
--- 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
index 16bc3e181..8602603a0 100644
--- 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
index 81a1dd3bc..bd1c5d7a2 100644
--- 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
index 744eea7e2..32ee92172 100644
--- 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