diff --git a/kinddef.F90 b/kinddef.F90
index ef369d95..43cd3d49 100644
--- a/kinddef.F90
+++ b/kinddef.F90
@@ -16,7 +16,7 @@ module kinddef
       integer, parameter :: kind_dbl_prec = 8
       integer, parameter :: kind_io8      = 8
 
-#ifdef __PGI
+#ifdef NO_QUAD_PRECISION
       integer, parameter :: kind_qdt_prec = 8
 #else
       integer, parameter :: kind_qdt_prec = 16
diff --git a/spectral_transforms.F90 b/spectral_transforms.F90
index 71e14bb2..59eeb9ac 100644
--- a/spectral_transforms.F90
+++ b/spectral_transforms.F90
@@ -1972,7 +1972,12 @@ subroutine glats_stochy(lgghaf,colrad,wgt,rcs2)
                                              cons2 = 2.d0, cons4 = 4.d0, &
                                              cons180 = 180.d0, &
                                              cons0p25 = 0.25d0
+#ifdef NO_QUAD_PRECISION
+      real(kind=kind_qdt_prec), parameter :: eps = 1.d-12
+#else
       real(kind=kind_qdt_prec), parameter :: eps = 1.d-20
+#endif
+
 !
 ! for better accuracy to select smaller number
 !     eps = 1.d-12