From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <liakh@dol.ru>
X-Spam-Checker-Version: SpamAssassin 3.2.5 (2008-06-10) on sa.int.altlinux.org
X-Spam-Level: *
X-Spam-Status: No, score=1.1 required=5.0 tests=BAYES_50,DNS_FROM_OPENWHOIS
	autolearn=no version=3.2.5
From: "Andrey Liakhovets" <liakh@dol.ru>
To: ALT Linux Sisyphus discussions <sisyphus@lists.altlinux.org>
X-Mailer: CommuniGate Pro WebUser v5.0.14
Date: Mon, 27 Jun 2011 14:05:32 +0400
Message-ID: <web-948107819@cgp.dol.ru>
In-Reply-To: <201106271330.20043.serpiph@nikiet.ru>
References: <201106271118.05653.serpiph@nikiet.ru>
	<BANLkTimOHe2AGmpTupKup-=rgo16YtSEew@mail.gmail.com>
	<201106271330.20043.serpiph@nikiet.ru>
MIME-Version: 1.0
Content-Type: text/plain; charset="KOI8-R"
Content-Transfer-Encoding: 8bit
Subject: Re: [sisyphus] =?koi8-r?b?88LP0svBIEZPUlRSQU4t0NLPx9LBzc0=?=
X-BeenThere: sisyphus@lists.altlinux.org
X-Mailman-Version: 2.1.12
Precedence: list
Reply-To: ALT Linux Sisyphus discussions <sisyphus@lists.altlinux.org>
List-Id: ALT Linux Sisyphus discussions <sisyphus.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/options/sisyphus>,
	<mailto:sisyphus-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/sisyphus>
List-Post: <mailto:sisyphus@lists.altlinux.org>
List-Help: <mailto:sisyphus-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Mon, 27 Jun 2011 10:05:37 -0000
Archived-At: <http://lore.altlinux.org/sisyphus/web-948107819@cgp.dol.ru/>
List-Archive: <http://lore.altlinux.org/sisyphus/>
List-Post: <mailto:sisyphus@altlinux.ru>

On Mon, 27 Jun 2011 13:30:19 +0400 Sergei Epiphanov wrote:
>В сообщении от 27 июня 2011 12:49:44 автор vx8400 написал:
>> Оригинальный кусок можно сюда показать, если код разрешен к открытой
>> публикации? Без контекста непонятно, что имелось в виду.
>
>Оригинальный код разбросан по полусотне фортрановских файлов в полностью 
>неудобоваримой форме из смеси Fortran 77, Fortran90 и Fortran 2003. Смесь 
>дикая ещё и потому, что использованы множественные COMMON, EQUIVALENCE (причём 
>переменных разных типов данных) и IMPLICIT из-за больших ограничений 
>тогдашнего Фортрана. Я уже 4 года разгребаю эти авгиевы конюшни, но до конца 
>пока так и не смог разобрать.
>
>Вот кусок (за вычетом ненужного):
>
>SUBROUTINE TRAN2F(...)
>...
>character nqs(10000)
>integer(4) nq(10000)
>character lsp
>equivalence(nq(1),nqs(1))
>...
>DATA lsp/' '/
>...
>do 1 i=400
>1 nqs(i)=lsp
>...

Да-а...
Судя по объяснению Сергея Власова, остаётся честно написать "do1i=400",
после чего ЭТО должно странслироваться.
А уж потом разбираться, что же имели ввиду авторы...

Андрей Ляховец