No more output for idimen

sammy/src/end/msamyy.f

@@ -27,40 +27,13 @@ C
       ELSE IF (Iwhich.EQ.0) THEN
 C ***    Here to write out how much space has been used
          IF (Max.LE.0) THEN
-            Mx = Msize + Max
-            IF (Nowwww.EQ.0) WRITE (21,10100,ERR=40) (Segmen(I),I=1,3),
-     *         Mx
-10100       FORMAT (' ### Estimated array size for SAMMY-', 3A1, ' is',
-     *         I11, ' ###')
-            IF (Nowwww.GT.0) WRITE (21,10200,ERR=40) (Segmen(I),I=1,3),
-     *         Mx
-10200       FORMAT (' ### Array size used for SAMMY-', 3A1, ' is',
-     *         I11, ' ###')
-         ELSE
-            IF (Nowwww.EQ.0) WRITE (21,10300,ERR=40) (Segmen(I),I=1,3),
-     *         Max, Msize
-10300       FORMAT (' ### Estimated array size for SAMMY-', 3A1, ' is',
-     *         I11, ' +', I12, ' ###')
-            IF (Nowwww.GT.0) WRITE (21,10400,ERR=40) (Segmen(I),I=1,3),
-     *         Max, Msize
-10400       FORMAT (' ### Array size used for SAMMY-', 3A1, ' is',
-     *         I11, ' +', I12, ' ###')
+            Mx = Msize + Max            
          END IF
          Nowwww = 1
          IF (Max.GT.Maxt) Maxt = Max
          Max = Kount
          Idimen = 0
          RETURN
-C
-   40    CONTINUE
-C ***    Here if error happened while writing how much space has been used
-         WRITE (6,99995) Max
-99995    FORMAT (' Error occured in writing:'/
-     *      ' ### Array size used is', I13, ' ###')
-         IF (Max.GT.Maxt) Maxt = Max
-         Max = Kount
-         Idimen = 0
-         RETURN
 C
 C
       ELSE
@@ -69,25 +42,6 @@ C ***    Here for usual call to allocate more space
          Idimen = Kount
          Kount = Kount + Many
          IF (Kount.GT.Max) Max = Kount
-C
-         IF (Kount.LT.Nsize) THEN
-            RETURN
-         ELSE
-C ***       Here only if do not have enuf room to continue
-            WRITE ( 6,99999) (Segmen(I),I=1,3), Nsize
-            WRITE (21,99999) (Segmen(I),I=1,3), Nsize
-            K2 = (Nsize+1)/2 + (Kount+1)/2
-            WRITE ( 6,99998) Nsize, K2
-            WRITE (21,99998) Nsize, K2
-99999       FORMAT (' Need more array size in SAM', 3A1, ' ##',I10,'##')
-99998       FORMAT (' The current SAMMY executable was built with    ',
-     *              ' --array-size=',I10, /,
-     *              ' This run requires a SAMMY executable built with',
-     *              ' --array-size=',I10, /,
-     *              ' Please see the INSTALL file in the SAMMY root dire
-     *ctory for details.')
-            STOP '[STOP in Idimen in end/msamyy.f]'
-         END IF
 C
       END IF
       END