/usr/include/pbio/fort2c.h is in libemos-dev 000392+dfsg.1-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 | /**
* Copyright 1981-2012 ECMWF.
*
* This software is licensed under the terms of the Apache Licence
* Version 2.0 which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
*
* In applying this licence, ECMWF does not waive the privileges and immunities
* granted to it by virtue of its status as an intergovernmental organisation
* nor does it submit to any jurisdiction.
*/
#ifndef FORT2C_H
#define FORT2C_H
/*
fort2c.h
*/
#ifdef CRAY
/* #include <fortran.h> */
typedef int _f_int6;
typedef long _f_int8;
typedef _f_int6 _f_int;
typedef _f_int8 _f_int4;
typedef _f_int8 _f_int2;
typedef _f_int8 _f_int1;
typedef long _f_log8;
typedef _f_log8 _f_log;
typedef _f_log8 _f_log4;
typedef _f_log8 _f_log2;
typedef _f_log8 _f_log1;
typedef double _f_real8;
typedef long double _f_real16;
typedef _f_real8 _f_real;
typedef _f_real16 _f_dble;
typedef _f_real8 _f_real4;
typedef _Complex double _f_comp8;
typedef _f_comp8 _f_comp;
typedef union _FCD {
char *c_pointer;
struct {
unsigned bit_offset : 6,
fcd_len : 26,
word_addr : 32;
} _F;
} _dcf;
typedef void *_fcd;
typedef void *_GPTR;
typedef const void *_GPTR2CONST;
extern _fcd _cptofcd (char *_Ccp, unsigned _Len);
extern char * _fcdtocp (_fcd _Fcd);
extern unsigned int _fcdlen (_fcd _Fcd);
extern _f_log _btol (long _BV);
extern long _lvtob (_f_log _LV);
extern long _ltob (_f_log *_LP);
extern char * _f2ccpy (_fcd f, ...);
extern char * _fc_copy (_fcd f, char *s, int slen);
extern char * _fc_acopy (_fcd f);
extern int _c2fcpy(char *c, _fcd f);
extern int _isfcd (long _P);
static _fcd
__cptofcd(char *c, unsigned int l);
#pragma _CRI inline __cptofcd
static _fcd
__cptofcd(char *c, unsigned int l)
{
_dcf f;
f.c_pointer = c;
f._F.fcd_len = l << 3;
return ((*(_fcd *) &f));
}
static char *
__fcdtocp(_fcd f);
#pragma _CRI inline __fcdtocp
static char *
__fcdtocp(_fcd f)
{
char *c;
_dcf d;
d = (*(_dcf *) &f);
d._F.fcd_len = 0;
c = d.c_pointer;
return (c);
}
#else
#define _fcd char *
#define _fcdtocp(a) a
#define _fcdlen(a) strlen(a)
#endif
#ifdef VAX
typedef struct {short length; short magic; char * address;}DESC;
#define _fcdtocp(a) fcdtocp(a)
#define _fcd DESC *
#endif
char *fcd2char(); /* fortran to c string convertion (alloc memory) */
#endif /* end of FORT2C_H */
|