From: "Mr. Veli Suorsa" <VJSuorsa AT Surfeu DOT Fi>
Sender: vjsuorsa AT Surfeu DOT Fi
To: Djgpp AT delorie DOT com
Cc: VJSuorsa AT Surfeu DOT Fi
Date: Sun, 11 Mar 2001 00:59:58 +0200
Subject: WANTED GOOD CONVERTER
X-Mailer: CWMail Web to Mail Gateway 2.6k, http://netwinsite.com/top_mail.htm
Message-id: <3aaab1ee.5884.0@surfeu.fi>
X-User-Info: 193.167.106.194
MIME-Version: 1.0
Content-Type: multipart/mixed;
	boundary="-=_webmail3aaab1ee"
Reply-To: djgpp AT delorie DOT com

This is a multi-part message in MIME format.

---=_webmail3aaab1ee
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hi!

I have tried some converting from Gnu Fortran and Pascal to C/ C++, but the
results is not so good I have hoped. Not even Pascal compiler installation instructions
were good enough to succeed to install compiler. So I went for a while to watch
television...

P2c works fine (as you can see from appendix), but f2c give me something "nonsense"
like this:

---
/* pay3_4.f -- translated by f2c (version 19950201).
   You must link the resulting object file with the libraries:
=09-lf2c -lm   (in that order)
*/

#include "f2c.h"

/* Table of constant values */

static integer c__9 =3D 9;
static integer c__1 =3D 1;
static integer c__5 =3D 5;
static real c_b24 =3D (float)14.4;
static integer c__4 =3D 4;

/* Main program */ MAIN__()
{
    /* Builtin functions */
    integer s_wsle(), do_lio(), e_wsle(), s_rsle(), e_rsle();
    /* Subroutine */ int s_stop();

    /* Local variables */
    static doublereal gross, super, taxabl, tax, nettpay;

    /* Fortran I/O blocks */
    static cilist io___1 =3D { 0, 6, 0, 0, 0 };
    static cilist io___2 =3D { 0, 5, 0, 0, 0 };
    static cilist io___8 =3D { 0, 6, 0, 0, 0 };
    static cilist io___9 =3D { 0, 6, 0, 0, 0 };
    static cilist io___10 =3D { 0, 6, 0, 0, 0 };
    static cilist io___11 =3D { 0, 6, 0, 0, 0 };
    static cilist io___12 =3D { 0, 6, 0, 0, 0 };
    static cilist io___13 =3D { 0, 6, 0, 0, 0 };



/*  A program to calculate the nett pay of a British worker */
/*  (pay3_4.for), made in Gnu Fortran 77 */

/*     REAL GROSS, SUPER, TAXABL, TAX, NETTPAY */
/*  Read gross pay */
    s_wsle(&io___1);
    do_lio(&c__9, &c__1, "Type gross pay before deductions :", 34L);
    e_wsle();
    s_rsle(&io___2);
    do_lio(&c__5, &c__1, (char *)&gross, (ftnlen)sizeof(doublereal));
    e_rsle();
/*  Superannuation is 6 % of gross pay */
    super =3D gross * (float).06;
/*  Tax is 25 % of pay, excluding superannuation contributions */
    taxabl =3D gross - super;
    tax =3D taxabl * (float).25;
/*  Fixed weekly deductions of =9C14.40 */
    nettpay =3D taxabl - tax - (float)14.4;
/*  Print details */
    s_wsle(&io___8);
    do_lio(&c__9, &c__1, "Gross pay      : ", 17L);
    do_lio(&c__5, &c__1, (char *)&gross, (ftnlen)sizeof(doublereal));
    e_wsle();
    s_wsle(&io___9);
    do_lio(&c__9, &c__1, "Superannuation : ", 17L);
    do_lio(&c__5, &c__1, (char *)&super, (ftnlen)sizeof(doublereal));
    e_wsle();
    s_wsle(&io___10);
    do_lio(&c__9, &c__1, "Tax            : ", 17L);
    do_lio(&c__5, &c__1, (char *)&tax, (ftnlen)sizeof(doublereal));
    e_wsle();
    s_wsle(&io___11);
    do_lio(&c__9, &c__1, "Insurance      : ", 17L);
    do_lio(&c__4, &c__1, (char *)&c_b24, (ftnlen)sizeof(real));
    e_wsle();
    s_wsle(&io___12);
    do_lio(&c__9, &c__1, " ", 1L);
    e_wsle();
    s_wsle(&io___13);
    do_lio(&c__9, &c__1, "Nett pay       : ", 17L);
    do_lio(&c__5, &c__1, (char *)&nettpay, (ftnlen)sizeof(doublereal));
    e_wsle();
    s_stop("", 0L);
} /* MAIN__ */

/* Main program alias */ int pay_ () { MAIN__ (); }
---

WANTED GOOD CONVERTER

1) Fortran -> C 
Newer found from 
>Top-level netlib pages include
>
>=09http://netlib.bell-labs.com/netlib/
>=09http://www.netlib.org/
>>=09ftp://netlib.bell-labs.com/netlib/f2c

2) Qbasic -> C

3) C -> C++


Thanks in advance!

Veli Suorsa
---
"People must believe to the future to be able to live!"
---------------------------------- J.V.Snellman, 1890.

Oulu, FINLAND
Mailto:VJSuorsa AT Surfeu DOT Fi
http://members.surfeu.fi/veli.suorsa/
http://www.surfeu.fi

---=_webmail3aaab1ee
Content-Type: application/x-zip-compressed; name="pay.zip"
Content-Transfer-Encoding: base64

UEsDBBQAAAAIAMOjZyoZyFOsegEAAPkCAAAKAAAAUEFZM180LkJBU2VS3W6b
MBS+j5R3+IQ0dasg6tasF5V6QZYURdoIAyptV5MDp6lVake2UZN36cPWGNiA
Wb7y+X4PXKA5SbqL0vAHjuw8n13YC4Q4KnlQ7AVGomBVUVfMEMwTQZAxDRTy
EQwrxQ3XT3iV6pmU4360w+s/y8We6U8+XlhJ4AI/V2G2/eb0nSnWm/ssjhD5
iH1kQe647ft69X3ynhIrcVBS6zYluuDbOIeXn4/0b4g9PUpFKKmsC8Ol0Lj1
esY2Th5yROkuy5xuVh9JMSFq1iDBNW7woWn2n1f2kGxS3GFxdYPLgULOTg3t
y9eWZxk+6FRUdcnFAXqsX0hhFN/XLlavnIe/Qlv4rhVF0FoNpo2r1b/skM72
np+oxCvRc3UeVrUR3j4vF8urnh9v8jwJf1uNzidwkgEalJNKFBfGahjGKz1Z
bfR3q+7cwvP77iPcZI8ON6rRfyq7rcFxOBtngtoKXVu1ggaoNu4IBm/yEPe/
5oDX9e+Rm3g9n81n71BLAwQUAAAACABMQWgqKfpB6TwCAAByBAAACAAAAFBB
WTNfNC5DhVNhb9owFPyOxH94YmICFALtaDWRbVKKKELqKCKp1KntkElMsBrs
yHFa0LR/sh+7ZzvQsH6YIxJi37u7d3Z6HbgtVFYoWEuxhew8ckBtKMxJHpG0
q0R3BEoSnqdECQmdXr2GJdcay7gpYymFRkb2n5YDNyN5w2D09YHxKC1iCl+Q
tYc/d/PNrmwJ4y0iE9TC+0u7XmNc6b+RV6+NNgR19PzDE77+qtcAUBJ8yKRI
JNmCEoDeogItUWOWU6UALYBYA4EryRTLN/Aq5DO1li1D681l24EtQWuMw4QX
ZbelcwvG8YJGJovbIHAguJuPFw6E/r1/dWOeDszGYTj3fwxBUpJ+9kqhWBQr
TOT/dd6b1oKSGBIp8tx0YULuAcz9YOTfLL/701k1LQ9wcc12Jgex3VKuNFEm
McR1qxHuM1ohW9G1kBRiGheRYoLnMHzkjbanS7BpjhXNNGl2Hn4+8qeGAx+N
c7ueUBXhbrTsm3YaFBmVhPOCaC5gOVxCU8d+6h5s4/AV+m7/Ejo2jiNLSHa6
9PzC1mKVA3SnDwvjCeSnGpHgSrJVYc1bdpsn0hte6Fo5r1wyskjeKXFH3Wu2
ozG8Uvqc7quJoIc/ZwN30C/pyx1CnlKoa2i7oEFHtrkOHGkUYenB2GETJsc4
zBhio+7FGIN3oJLvAf1PqlW0aewUrdOrjCoaXZ5ipzwvkDmi77G6l1MwHA/G
YWZ2+LDel5cZWTzdMdUa30/DZXA3Go1tf7/tx64vjGvMY9eE9BdQSwMEFAAA
AAgAI6RnKpJuywSWAQAAYQMAAAgAAABQQVkzXzQuRo1S3WriQBS+L/gO301x
V6K4u1ZB2ItYUxHcJCQR2qtlTKZ2aDojkwnVd+nD9mRibNSbHgITcr6/czKw
FUbBInL/IXSfOjf39AAudlptNXuDUUhZnpY5MxzmhUNyY7BjB6hnMMy0MKJ4
wbvSr1xb7g9q/vk/Gjwr/dPBG8s4hMRClnhQ2mgmMZk0PlSR566wiII4dhCv
Qy9ykLiP7mxlTwe+lyQ2WR12HqxnK48ye/fLeBn436KSU8RZhq1WRVGFb9TC
aOkn6DnoJocd/+pjwyk+R8azMjVCyQLTbkOixPOKY52teFzuOA0mS1ZhIQqM
cVst6MrQxsRfDAfDMXotiYTtK97vu5pIFAd8n+ZlJuQWxblBqqTRYlPaZI10
PTppW1H0a69WtzoqZ/LoHdHW+kHseYZ3zl/zQ3tiivHxazQYDRuN4z5J5OjV
t7J9VCgrFWohDWkYJvLiesmL035tTdE9bfESerFSCz0bqPXraHWtslDKdQ1c
yqIkzZS3gHX0SyS619/85uK32BeXM06CsHn3/Hnn5hNQSwMEFAAAAAgANEFo
KpL/Gf2dAQAAgQMAAAoAAABQQVkzXzQuUEFTlVPLaiJBFN0H/IezCRppxZkx
EpQsDGRkYMg02oHMKpTdV1OkU9XUY1SG/Ek+NvXw0Qm9SW0uVJ3XPXRXSq4V
e0HKdh0uKmsSaY0bF5PWWevsPzDFAWIkclbmtmSGYJ4IgoxBxXaQKzDcKG64
fsJGqmdSeA3sjnv+8TjsV0xfJHhhBYELzIR1htqpeVgAuvOPKczmfxaLBIv7
9HaeIJs+TG9+h5ng7jbL0unfMRSx8mrimfgyL2y1pDUXwXVOrMBaSa3DHkfJ
jduFStFpZ7uKaoAlraQiFFTY3HApNMZt31RkOYPCkWIY+HtnsbAVKSaEZZ4A
rjHCuW+swTbEx/gag/5ghG4UijIZ23ru98tIdrQEtM1LW3Cxhv5okkthFF/a
GPEoH2vx+jFhLxpOau9+BH9n1N0TYoCffEsFNkTP5a5egAvz9m3YHw5OPvvG
vdDeshe0e/DAKJcqLozTMYyXuqH42bGdcMZoJzH1qe4j9lPFARs2a8D6Hmsn
YF22BuQvoa1TzamG9PkboGg3XN4d/o4af9+MR5Mo+v5jfAdQSwECGgAUAAAA
CADDo2cqGchTrHoBAAD5AgAACgAAAAAAAAABACAAAAAAAAAAUEFZM180LkJB
U1BLAQIaABQAAAAIAExBaCop+kHpPAIAAHIEAAAIAAAAAAAAAAEAIAAAAKIB
AABQQVkzXzQuQ1BLAQIaABQAAAAIACOkZyqSbssElgEAAGEDAAAIAAAAAAAA
AAEAIAAAAAQEAABQQVkzXzQuRlBLAQIaABQAAAAIADRBaCqS/xn9nQEAAIED
AAAKAAAAAAAAAAEAIAAAAMAFAABQQVkzXzQuUEFTUEsFBgAAAAAEAAQA3AAA
AIUHAAAAAA==

---=_webmail3aaab1ee--