Removed unused int ISCR from QINIT.
authorilb@NIH.GOV <ilb@NIH.GOV@ba61647d-9d00-f842-95cd-605cb4296b96>
Wed, 29 Nov 2017 20:46:51 +0000 (20:46 +0000)
committerilb@NIH.GOV <ilb@NIH.GOV@ba61647d-9d00-f842-95cd-605cb4296b96>
Wed, 29 Nov 2017 20:46:51 +0000 (20:46 +0000)
git-svn-id: https://citdcbmipav.cit.nih.gov/repos-pub/mipav/trunk@15285 ba61647d-9d00-f842-95cd-605cb4296b96

mipav/src/gov/nih/mipav/model/algorithms/DoublyConnectedSC.java

index f65d648..0492ff1 100644 (file)
@@ -3118,14 +3118,15 @@ double neweps;
                \r
                // ALFA0(M), ALFA1(N), QWORK(1660)\r
                double ALPHA;\r
-               int INODES, ISCR, IWTS, J, K;\r
+               int INODES, IWTS, J, K;\r
+               // int ISCR;\r
                int i;\r
                // B is used for input scratch array, T  for nodes output and W for weights output\r
                double B[] = new double[NPTQ];\r
                double T[] = new double[NPTQ];\r
                double W[] = new double[NPTQ];\r
                \r
-               ISCR = NPTQ * (2 * (M+N) + 2) + 1;\r
+               //ISCR = NPTQ * (2 * (M+N) + 2) + 1;\r
                for (K = 1; K <= M + N; K++) {\r
                    INODES = NPTQ * (K-1) + 1;\r
                    IWTS = NPTQ * (M+N+K) + 1;\r