fortran.h File Reference

#include <sys/cdefs.h>

Include dependency graph for fortran.h:

Go to the source code of this file.

Classes
struct	_FCD
Defines
#define	_fcdtodcf(f)   (f)
#define	_dcftofcd(f)   (f)
#define	__fcdtocp(f)   ((_fcdtodcf(f)).c_pointer)
#define	__fcdlen(f)   ((unsigned long) (_fcdtodcf(f)).byte_len)
#define	__devl_len(dvl)   ((long)((dvl) >> 3))
#define	_cptofcd(_C, _L)   __cptofcd(_C, _L)
#define	_fcdtocp(_F)   __fcdtocp(_F)
#define	_fcdlen(_F)   __fcdlen(_F)
#define	_btol(_BV)   __btol(_BV)
#define	_lvtob(_LV)   __lvtob(_LV)
#define	_ltob(_LP)   __lvtob(*(_f_log *)_LP)
#define	__dvel_len(_DVEL)   __dvel_len(long _DVEL)
#define	_isfcd(_U)   __isfcd(_U)
#define	_issddptr(_P)   0
#define	_S2PC(_PTR, _SIZE)   ((void *)(_PTR))
Typedefs
typedef struct _FCD	_fcd
typedef _fcd	_dcf
Functions
__BEGIN_DECLS _fcd	_cptofcd (char *_Ccp, unsigned _Len)
char *	_fcdtocp (_fcd _Fcd)
unsigned long	_fcdlen (_fcd _Fcd)
_f_log	_btol (long _BV)
long	_lvtob (_f_log _LV)
long	_ltob (_f_log *_LP)
char *	_fc_copy (_fcd f, char *s, int slen)
char *	_fc_acopy (_fcd f)
int	_c2fcpy (char *c, _fcd f)
unsigned long	_dvel_len (long _DVEL)
static __END_DECLS _fcd	__cptofcd (char *c, unsigned long l)

---

Define Documentation

#define __devl_len

(

dvl

)

((long)((dvl) >> 3))

Definition at line 711 of file fortran.h.

#define __dvel_len

(

_DVEL

)

__dvel_len(long _DVEL)

Definition at line 721 of file fortran.h.

#define __fcdlen

(

f

)

((unsigned long) (_fcdtodcf(f)).byte_len)

Definition at line 588 of file fortran.h.

#define __fcdtocp

(

f

)

((_fcdtodcf(f)).c_pointer)

Definition at line 586 of file fortran.h.

#define _btol

(

_BV

)

__btol(_BV)

Definition at line 718 of file fortran.h.

#define _cptofcd	(		_C,
			_L
	)		__cptofcd(_C, _L)

Definition at line 715 of file fortran.h.

#define _dcftofcd

(

f

)

(f)

Definition at line 474 of file fortran.h.

Referenced by __cptofcd().

#define _fcdlen

(

_F

)

__fcdlen(_F)

Definition at line 717 of file fortran.h.

#define _fcdtocp

(

_F

)

__fcdtocp(_F)

Definition at line 716 of file fortran.h.

#define _fcdtodcf

(

f

)

(f)

Definition at line 473 of file fortran.h.

#define _isfcd

(

_U

)

__isfcd(_U)

Definition at line 725 of file fortran.h.

Referenced by _getfchar(), and _LOC_().

#define _issddptr

(

_P

)

0

Definition at line 738 of file fortran.h.

Referenced by _ld_read(), _ld_write(), _rb(), _rdfmt(), _wb(), and _wrfmt().

#define _ltob

(

_LP

)

__lvtob(*(_f_log *)_LP)

Definition at line 720 of file fortran.h.

#define _lvtob

(

_LV

)

__lvtob(_LV)

Definition at line 719 of file fortran.h.

#define _S2PC	(		_PTR,
			_SIZE
	)		((void *)(_PTR))

Definition at line 739 of file fortran.h.

---

Typedef Documentation

typedef _fcd _dcf

Definition at line 469 of file fortran.h.

typedef struct _FCD _fcd

---

Function Documentation

static _fcd __cptofcd	(	char *	c,
		unsigned long	l
	)		[static]

Definition at line 576 of file fortran.h.

References _dcftofcd, _FCD::byte_len, c, _FCD::c_pointer, and f.

_f_log _btol

(

long

_BV

)

Referenced by __all(), __any(), _ALLOCATED(), _ASSOCIATED(), _f_inqu(), _LU2S(), _nexdata(), isattyf90_(), and isattyf90_8_().

int _c2fcpy	(	char *	c,
		_fcd	f
	)

__BEGIN_DECLS _fcd _cptofcd	(	char *	_Ccp,
		unsigned	_Len
	)

Referenced by $DFI(), $EFI(), __OPN(), __transfer(), _ADJUSTL_(), _ADJUSTR_(), _CSHIFT(), _EOSHIFT(), _F90_ADJUSTL(), _F90_ADJUSTR(), _F90_CLOCK_(), _F90_INDEX(), _F90_INDEX_(), _F90_LEN_TRIM_(), _frwd(), _fwwd(), _map_to_dv(), _MERGE(), _PACK(), _REPEAT(), _RESHAPE(), _SPREAD(), _TRIM(), _UNPACK(), gen_internal_dope_vector(), n_getv(), NAME(), rnlcomm_(), rnldelm_(), rnlflag_(), rnlrep_(), rnlsep_(), wnldelm_(), wnlflag_(), wnlrep_(), and wnlsep_().

unsigned long _dvel_len

(

long

_DVEL

)

char* _fc_acopy

(

_fcd

f

)

char* _fc_copy	(	_fcd	f,
		char *	s,
		int	slen
	)

unsigned long _fcdlen

(

_fcd

_Fcd

)

Referenced by __OPN(), __transfer(), _ADJUSTL_(), _ADJUSTR_(), _ASSOCIATED(), _CHAR_(), _CLS(), _cntig_chk(), _CSHIFT(), _EOSHIFT(), _findname(), _FRF(), _FRN(), _FWF(), _FWN(), _getnlval(), _INDEX(), _INQ(), _INQIL(), _is_nonadv(), _LEN_(), _LEN_TRIM_(), _map_to_dv(), _MERGE(), _nl_stride_dv(), _nlrdent(), _nlstrent(), _PACK(), _rb(), _REPEAT(), _RESHAPE(), _rnl90to77(), _SCAN(), _SPREAD(), _stride_dv(), _TRIM(), _UNPACK(), _unpack_arry(), _VERIFY(), _wb(), _wnl90to77(), _xfer_iolist(), AR_INTRIN1(), AR_INTRIN2(), findmatch(), n_getv(), NAME(), RNL(), setup_format(), and WNL().

char* _fcdtocp

(

_fcd

_Fcd

)

Referenced by $DFI(), $EFI(), __OPN(), __transfer(), _ADJUSTL_(), _ADJUSTR_(), _CHAR_(), _CLS(), _cntig_chk(), _CSHIFT(), _EOSHIFT(), _findname(), _FRF(), _FRN(), _FWF(), _FWN(), _getfchar(), _getnlval(), _ICHAR_(), _INDEX(), _INQ(), _is_nonadv(), _LEN_TRIM_(), _LOC_(), _map_to_dv(), _MERGE(), _nl_stride_dv(), _nlrdent(), _nlstrent(), _PACK(), _rb(), _REPEAT(), _RESHAPE(), _rnl90to77(), _SCAN(), _SPREAD(), _stride_dv(), _TRIM(), _UNPACK(), _unpack_arry(), _VERIFY(), _wb(), _wnl90to77(), _xfer_iolist(), AR_INTRIN1(), AR_INTRIN2(), findmatch(), n_getv(), NAME(), RNL(), setup_format(), and WNL().

long _ltob

(

_f_log *

_LP

)

Referenced by _INDEX(), _MERGE(), _SCAN(), and _VERIFY().

long _lvtob

(

_f_log

_LV

)

Referenced by _ld_write(), _S2UL(), and l_write().