Mail Archives: djgpp/2001/03/10/18:01:40
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--
- Raw text -