From: Sergei Epiphanov <serpiph@nikiet.ru>
To: ALT Linux Sisyphus discussions <sisyphus@lists.altlinux.org>
Subject: Re: [sisyphus] Сборка FORTRAN-программ
Date: Mon, 27 Jun 2011 13:30:19 +0400
Message-ID: <201106271330.20043.serpiph@nikiet.ru> (raw)
In-Reply-To: <BANLkTimOHe2AGmpTupKup-=rgo16YtSEew@mail.gmail.com>
В сообщении от 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
...
Большее открыть не могу, придётся весь код передавать для анализа. Да и
testcase уже есть. :)
--
С уважением, Епифанов Сергей
next prev parent reply other threads:[~2011-06-27 9:30 UTC|newest]
Thread overview: 14+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-06-27 7:18 Sergei Epiphanov
2011-06-27 7:38 ` vx8400
2011-06-27 7:53 ` vx8400
2011-06-27 8:19 ` Andrey Liakhovets
2011-06-27 9:14 ` Sergei Epiphanov
2011-06-27 9:11 ` Sergei Epiphanov
2011-06-27 9:27 ` Andrey Liakhovets
2011-06-27 10:00 ` Sergei Epiphanov
2011-06-27 10:11 ` Andrey Liakhovets
2011-06-27 8:49 ` vx8400
2011-06-27 9:30 ` Sergei Epiphanov [this message]
2011-06-27 10:05 ` Andrey Liakhovets
2011-06-27 9:49 ` Sergey Vlasov
2011-06-27 10:06 ` Sergei Epiphanov
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=201106271330.20043.serpiph@nikiet.ru \
--to=serpiph@nikiet.ru \
--cc=sisyphus@lists.altlinux.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
ALT Linux Sisyphus discussions
This inbox may be cloned and mirrored by anyone:
git clone --mirror http://lore.altlinux.org/sisyphus/0 sisyphus/git/0.git
# If you have public-inbox 1.1+ installed, you may
# initialize and index your mirror using the following commands:
public-inbox-init -V2 sisyphus sisyphus/ http://lore.altlinux.org/sisyphus \
sisyphus@altlinux.ru sisyphus@altlinux.org sisyphus@lists.altlinux.org sisyphus@lists.altlinux.ru sisyphus@lists.altlinux.com sisyphus@linuxteam.iplabs.ru sisyphus@list.linux-os.ru
public-inbox-index sisyphus
Example config snippet for mirrors.
Newsgroup available over NNTP:
nntp://lore.altlinux.org/org.altlinux.lists.sisyphus
AGPL code for this site: git clone https://public-inbox.org/public-inbox.git