comp.lang.ada
 help / color / mirror / Atom feed
From: Preben Randhol <randhol+abuse@pvv.org>
Subject: Re: using charles library
Date: Fri, 30 May 2003 08:48:31 +0000 (UTC)
Date: 2003-05-30T08:48:31+00:00	[thread overview]
Message-ID: <slrnbde6mu.5mk.randhol+abuse@kiuk0152.chembio.ntnu.no> (raw)
In-Reply-To: d3ba4d4c.0305290929.4ba345cb@posting.google.com

Roman V. Isaev wrote:
> 
>     The main question is not the translation itself which is possible. 
> It may pose problems too as these 3000+ lines of "pascal" contain mostly this:
> 
> 	   IF KK=2 THEN GOTO 179;
> 	   GOTO 178;
>     179:   YRR:=YR21;
> 	   YZR:=ABS((1.0+Y2)/Y12-2.0*XY*(XY-Z)-4.0/3.0*
> 	   (Y1+Y2)/Y12*Z+(2.0*XY-Z)*(2.0*XY-Z)*(2.0*XY-Z)/3.0*Z*Y1/(1.0+Y));
> 	   IF YZR>1.E-18 THEN GOTO 190;
> 	   YZR:=1.E-18;
>      190:  YR21:=TAU0*DG*FG/ETA/Q-8.0*Z/YZR;

Oh, Fortran in Pascal :-)

-- 
Preben Randhol                    http://www.pvv.org/~randhol/



  parent reply	other threads:[~2003-05-30  8:48 UTC|newest]

Thread overview: 33+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2003-05-26 13:27 using charles library Roman V. Isaev
2003-05-26 13:40 ` Preben Randhol
2003-05-26 16:44   ` Roman V. Isaev
2003-05-26 17:05     ` Preben Randhol
2003-05-26 17:10       ` Preben Randhol
2003-05-26 22:05         ` Roman V. Isaev
2003-05-26 17:16     ` Jeffrey Carter
2003-05-27 15:05       ` Matthew Heaney
2003-05-27 18:28         ` Stephen Leake
2003-05-26 17:20     ` Preben Randhol
2003-05-26 22:46       ` Roman V. Isaev
2003-05-27  4:35         ` Gautier Write-only
2003-05-29 17:29           ` Roman V. Isaev
2003-05-29 18:56             ` Gautier Write-only
2003-05-29 23:19             ` Gautier Write-only
2003-05-30  7:56               ` Roman V. Isaev
2003-05-30 13:49                 ` Gautier
2003-05-30 14:36               ` Robert C. Leif
2003-05-30 17:32                 ` Preben Randhol
2003-05-30 19:21               ` Randy Brukardt
2003-05-31 11:50                 ` Gautier Write-only
2003-05-31 14:24                   ` Bill Findlay
2003-06-01  3:42                   ` Randy Brukardt
2003-06-02 11:02                   ` Georg Bauhaus
2003-06-02 20:25                     ` Gautier Write-only
2003-05-30  8:48             ` Preben Randhol [this message]
2003-05-27 10:31         ` Preben Randhol
2003-05-29 20:30           ` Roman V. Isaev
2003-05-30  9:01             ` Preben Randhol
2003-05-30 22:02               ` Roman V. Isaev
2003-05-31 13:34                 ` Preben Randhol
2003-05-27 18:27     ` Stephen Leake
2003-05-27 20:24 ` Matthew Heaney
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox