Fix an uninitialized variable.

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