fortc - Online sa Cloud

PROGRAMA:

NAME

fortc - Unidata utility upang makabuo ng fortran-compatible na C code

SINOPSIS

kuta [-L LibDir] [-O OpSys] file

DESCRIPTION

kuta Binabasa ang C code mula sa `file', binabago ito sa FORTRAN compatible code, at pagkatapos
isinusulat ang resulta sa karaniwang output. Ang pagbabago ay nakasalalay sa operating-system
dahil walang pamantayan sa usaping ito.

Ang target na operating-system ay maaaring tukuyin sa maraming paraan. Kung ang `-O' ang pagpipilian ay
ibinigay, pagkatapos ay ginagamit ang operating-system na tinukoy ng argumento nito; kung hindi, kung ang
variable ng kapaligiran `OS' ay umiiral, kung gayon ang operating-system na tinukoy ng halaga nito ay
ginamit; kung hindi, ang default na operating-system -- tinutukoy sa oras ng pag-install -- ay
ginagamit.

Mga pandaigdigang pangalan na hindi mga kahulugan ng function ngunit naa-access mula sa parehong C
at FORTRAN ay dapat na nakapaloob sa `FC_NAME()' macro:

extern int FC_NAME(foo)(void); /* FORTRAN function */

panlabas na struct {
lumutang f;
int i;
} FC_NAME(comblk); /* FORTRAN common block */

cfoo()
{
ibalik ang FC_NAME(foo)(); /* tawagan ang FORTRAN function */
}

Ang mga function ng C na tatawagin mula sa FORTRAN ay nakasulat tulad ng sumusunod:

int
/*FORTRAN*/
foo(
pathname ng character, /* pangalan ng file ng bagong file */
tunay na halaga, /* halaga upang i-frobdicate ng */
doubleprecision dbl, /* halaga sa kiliti ng */
void function errf, /* error routine */
integer rcode /* nagbalik ng error code */)
{
...

o, katumbas nito,

int
/*FORTRAN*/
foo(char* pathname, float* amount, double* dbl,
void (*errf)(), int* rcode)
{
...

Ang mga puntong dapat tandaan sa pagsulat ng mga function na katugma sa FORTRAN ay:

1. Ang mga function na babaguhin ay minarkahan ng isang pagpapatuloy `/*FORTRAN*/' komento, na
dapat lumitaw sa linya bago ang pangalan ng function. Ang anumang mga deklarasyon ng uri ng pagbabalik ay dapat
ituloy ang komento.

2. Ang mga pormal na parameter ay dapat ideklara sa loob ng mga panaklong function at paghiwalayin ng
mga kuwit.

3. Ang mga pormal na parameter ay limitado sa mga sumusunod na uri:

katangian or char*
Para sa Fortran character-variables.

doubleprecision or doble*"
Para sa double-precision na mga floating-point na halaga.

tunay or lumutang*
Para sa mga value ng floating-point na single-precision.

kabuuan or int *
Para sa mga halaga ng integer.

uri tungkulin pangalan or uri (*pangalan)()
Para sa mga function na bumabalik na uri `uri'.

4. Dapat ay walang mahalaga pagkatapos ng pambungad na brace, `{', at sa parehong linya.

Ang mga function ay dapat na nakasulat gamit ang mga variable na may parehong mga pangalan bilang ang pormal
mga parameter, at may parehong semantika. Sa kaso ng mga pormal na parameter ng uri
`katangian' (ibig sabihin, Fortran character-variables), isang variable na may parehong pangalan ang iiral
at magiging uri `char*'. Bilang karagdagan, para sa bawat argumento ng character-variable, isang lokal
Ang variable ng integral type ay malilikha at ang halaga nito ay ang laki ng nauugnay
character-variable. Ang pangalan ng variable na ito ay magiging pangalan ng nauugnay
variable ng character na may "_len" idinagdag (hal. "pathname_len"). Ang mga variable na ito ng haba ay maaaring
gamitin sa function tulad ng iba pang variable.

Halimbawa, sa ilalim ng SunOS ang dating function ay magiging (kung ito ay nakapaloob sa
file `foo.src'):

#line 1 "foo.src"
unsigned int
#line 2 "foo.src"
foo_(pathname, halaga, errf, rcode, pathname_len)
char *pathname;
int pathname_len;
lumutang *halaga;
walang bisa (*errf)();
int *rcode;
{
#line 9 "foo.src"

Tandaan na 1) naidagdag ang mga direktiba ng linya ng preprocessor; 2) ang pangalan ng function ay
may panlapi na may salungguhit; at 3) isang pormal na parameter, `pathname_len', ay nilikha.

Sa ilalim ng UNICOS, ang parehong file ay magiging

#isama
#line 1 "foo.src"
unsigned int
#line 2 "foo.src"
FOO(na-pathname, halaga, errf, rcode)
_fcd pathnamed;
lumutang *halaga;
walang bisa (*errf)();
int *rcode;
{
char *pathname = _fcdtocp (pathname);
unsigned pathname_len = _fcdlen (pathnamed);
#line 9 "foo.src"

Tandaan, sa partikular, ang karagdagang `#include ' at ang paglikha at
pagsisimula ng mga lokal na variable `pangalan ng landas' at 'pathname_len'.

Ang utility na ito ay ipinatupad bilang isang script at ginagamit ang mga utility na ibinigay ng system uhaw(1) at
m4Na (1).

Opsyon

-L LibDir"
Tinutukoy ang direktoryo na naglalaman ng mga file ng library ng `fortc'. Ang default ay
tinutukoy sa oras ng pag-install.

-O OpSys
Tinutukoy ang operating-system bilang OpSys. Kabilang sa mga kilalang halaga ang `aix', `convexos',
`domainos', `hpux', `irix', `msoft', `next-absoft', `newsos', `sunos', `ultrix',
`unicos', at `vms'. Upang payagan ang higit na kakayahang umangkop, maaaring mayroon ang mga kilalang halaga
anumang suffix (hal. `sunos_4.1').

Kapaligiran

OS Tinutukoy ang operating system kung ang opsyon na `-O' ay hindi tinukoy. Mga kilalang halaga
ay pareho sa mga -O pagpipilian.

Gumamit ng fortc online gamit ang mga serbisyo ng onworks.net