diff --git a/sammy/src/xct/mxct27.f90 b/sammy/src/xct/mxct27.f90
index 8bf899b44269506e4cfbb54839ea767d5dd970ee..19520ca527ce940b614bf5b6812782a8a5c26255 100644
--- a/sammy/src/xct/mxct27.f90
+++ b/sammy/src/xct/mxct27.f90
@@ -92,9 +92,6 @@ module mxct27_m
         Sigxxx(Nnnsss,*), Dasigx(Nnnsss,*), Dbsigx(Nnnsss,Ndbxxx,*)
 !
       Kk = Kkkkkk
-      IF (Large.EQ.1) THEN
-         Kk = 1
-      END IF
       DO Iso=1,Iq_Iso
          DO Isig=1,Nnnsss
             Wsigxx(Isig,Iso,Kk) = Sigxxx(Isig,Iso)
@@ -134,9 +131,6 @@ module mxct27_m
 !
 !
       Kk = Kkkkkk
-      IF (Large.EQ.1) THEN
-         Kk = 1
-      END IF
 !
       DO Jsig=1,Nnnsig
          Theory(Jsig,Jj) = 0.0d0