--- aspic-1.0.1/src/ni/nimain.f90.orig	2019-04-17 20:03:04.649230438 +0200
+++ aspic-1.0.1/src/ni/nimain.f90	2019-04-17 20:03:14.199545771 +0200
@@ -40,7 +40,7 @@
   real(kp) :: lnRradMin, lnRradMax, lnRrad
   real(kp) :: VendOverVstar, eps1End, xend
 
-  fvalues(1)=4_kp
+  fvalues(1)=4._kp
   fvalues(2)=5._kp
   fvalues(3)=6._kp
   fvalues(4)=7._kp
--- aspic-1.0.1/src/bsusybi/bsusybimain.f90.orig	2019-04-16 18:43:55.000000000 +0200
+++ aspic-1.0.1/src/bsusybi/bsusybimain.f90	2019-04-17 20:23:57.600568765 +0200
@@ -67,7 +67,7 @@
   ngamma=2
   nxend=8
 
-  gammamin=10._kp**(-2_kp)
+  gammamin=10._kp**(-2._kp)
   gammamax=1._kp/sqrt(3._kp)*0.05_kp
 
   w=0._kp
--- aspic-1.0.1/src/cnci/cncimain.f90.orig	2019-04-17 20:25:08.152894774 +0200
+++ aspic-1.0.1/src/cnci/cncimain.f90	2019-04-17 20:25:25.963481938 +0200
@@ -94,7 +94,7 @@
      endif
      if (alpha .eq. 0.2_kp) then
         xendmin=cnci_xendmin(65._kp,alpha)
-        xendmax=2_kp*xendmin
+        xendmax=2._kp*xendmin
         nxend=30
      endif
 
--- aspic-1.0.1/src/sfbi/sfbimain.f90.orig	2019-04-17 20:26:54.676406396 +0200
+++ aspic-1.0.1/src/sfbi/sfbimain.f90	2019-04-17 20:27:01.396627920 +0200
@@ -22,7 +22,7 @@
   logical, parameter :: inversion = .true.
 
   p = 4._kp
-  mu = 1_kp
+  mu = 1._kp
   wreh = -0.3_kp
 
   Pstar = powerAmpScalar