fortc - Online di Cloud

PROGRAM:

NAMA

fortc - Utilitas Unidata untuk menghasilkan kode C yang kompatibel dengan fortran

RINGKASAN

benteng [-L LibDir] [-HAI OpSys] fillet

DESKRIPSI

benteng Membaca kode C dari `fillet', mengubahnya menjadi kode yang kompatibel dengan FORTRAN, dan kemudian
menulis hasilnya ke output standar. Transformasi bergantung pada sistem operasi
karena tidak ada standar dalam hal ini.

Sistem operasi target dapat ditentukan dalam beberapa cara. Jika `-O' pilihannya adalah
diberikan, maka sistem operasi yang ditentukan oleh argumennya digunakan; sebaliknya, jika
variabel lingkungan `OS' ada, maka sistem operasi yang ditentukan oleh nilainya adalah
digunakan; jika tidak, sistem operasi default -- ditentukan pada waktu penginstalan -- adalah
bekas.

Nama global yang bukan definisi fungsi tetapi dapat diakses dari kedua C
dan FORTRAN harus diapit oleh `FC_NAME()' makro:

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

struktur luar {
mengapung f;
di aku;
} FC_NAME(comblk); /* FORTRAN blok umum */

cfoo()
{
kembali FC_NAME(foo)(); /* memanggil fungsi FORTRAN */
}

Fungsi-fungsi C yang akan dipanggil dari FORTRAN ditulis sebagai berikut:

int
/*FORTRAN*/
foo(
nama path karakter, /* nama file dari file baru */
jumlah sebenarnya, /* jumlah yang akan disita oleh */
doubleprecision dbl, /* jumlah yang menggelitik */
fungsi batal errf, /* kesalahan rutin */
integer rcode /* mengembalikan kode kesalahan */)
{
...

atau, setara,

int
/*FORTRAN*/
foo(char* pathname, float* jumlah, double* dbl,
batal (*errf)(), int* kode)
{
...

Hal-hal yang perlu diperhatikan dalam penulisan fungsi yang kompatibel dengan FORTRAN adalah:

1. Fungsi yang akan ditransformasikan ditandai dengan ` . berproses/*FORTRAN*/' komentar, yang
harus muncul pada baris sebelum nama fungsi. Deklarasi tipe pengembalian apa pun harus
lanjutkan komentarnya.

2. Parameter formal harus dideklarasikan di dalam tanda kurung fungsi dan dipisahkan oleh
koma.

3. Parameter formal dibatasi pada tipe berikut:

karakter or arang*
Untuk variabel karakter Fortran.

presisi ganda or dobel*"
Untuk nilai floating-point presisi ganda.

nyata or mengambang*
Untuk nilai floating-point presisi tunggal.

bilangan bulat or int *
Untuk nilai bilangan bulat.

mengetik fungsi nama or mengetik (*nama)()
Untuk fungsi yang mengembalikan ketik `mengetik'.

4. Tidak boleh ada yang penting setelah kurung kurawal pembuka, `{', dan pada baris yang sama.

Fungsi harus ditulis menggunakan variabel dengan nama yang sama dengan formal
parameter, dan dengan semantik yang sama. Dalam kasus parameter formal tipe
`karakter' (yaitu variabel karakter Fortran), variabel dengan nama yang sama akan ada
dan akan bertipe `arang*'. Selain itu, untuk setiap argumen karakter-variabel, lokal
variabel tipe integral akan dibuat dan nilainya akan menjadi ukuran yang terkait
karakter-variabel. Nama variabel ini akan menjadi nama yang terkait
variabel karakter dengan "_len" ditambahkan (misalnya "pathname_len"). Variabel panjang ini mungkin
digunakan dalam fungsi seperti variabel lainnya.

Misalnya, di bawah SunOS, fungsi sebelumnya akan menjadi (jika terkandung dalam
berkas `foo.src'):

#baris 1 "foo.src"
tidak ditandatangani
#baris 2 "foo.src"
foo_(nama path, jumlah, errf, rcode, pathname_len)
char *nama jalur;
int nama jalur_len;
mengambang *jumlah;
batal (*errf)();
int *rkode;
{
#baris 9 "foo.src"

Perhatikan bahwa 1) arahan baris praprosesor telah ditambahkan; 2) nama fungsi telah
diakhiri dengan garis bawah; dan 3) parameter formal, `pathname_len', telah dibuat.

Di bawah UNICOS, file yang sama akan menjadi

#termasuk
#baris 1 "foo.src"
tidak ditandatangani
#baris 2 "foo.src"
FOO (nama jalur, jumlah, errf, rcode)
_fcd nama jalur;
mengambang *jumlah;
batal (*errf)();
int *rkode;
{
char *nama jalur = _fcdtocp (bernama jalur);
pathname_len yang tidak ditandatangani = _fcdlen (nama path);
#baris 9 "foo.src"

Perhatikan, khususnya, tambahan `#include ' dan penciptaan dan
inisialisasi variabel lokal `nama jalur' dan `pathname_len'.

Utilitas ini diimplementasikan sebagai skrip dan menggunakan utilitas yang disediakan sistem sed(1) dan
m4(1).

PILIHAN

-L LibDir"
Mendefinisikan direktori yang berisi file library `fortc'. Standarnya adalah
ditentukan pada saat pemasangan.

-O OpSys
Mendefinisikan sistem operasi sebagai OpSys. Nilai yang diketahui termasuk `aix', `convexos',
`domainos', `hpux', `irix', `msoft', `next-absoft', `newsos', `sunos', `ultrix',
`unicos', dan `vms'. Untuk memungkinkan fleksibilitas yang lebih besar, nilai-nilai yang diketahui mungkin memiliki:
akhiran apapun (misalnya `sunos_4.1').

LINGKUNGAN

OS Mendefinisikan sistem operasi jika opsi `-O' tidak ditentukan. Nilai yang diketahui
sama dengan -O .

Gunakan fortc online menggunakan layanan onworks.net