jetnet.h File Reference

#include "cfortran.h"

Include dependency graph for jetnet.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Classes
struct	JNDAT1_DEF
struct	NWJNWGT_DEF
struct	JNDAT2_DEF
struct	JNINT2_DEF
struct	JNINT1_DEF

Macros
#define	MAXI   1000;
#define	MAXO   1000;
#define	JNDAT1   COMMON_BLOCK(JNDAT1,jndat1)
#define	NWJNWGT   COMMON_BLOCK(NWJNWGT,nwjnwgt)
#define	JNDAT2   COMMON_BLOCK(JNDAT2,jndat2)
#define	JNINT2   COMMON_BLOCK(JNINT2,jnint2)
#define	JNINT1   COMMON_BLOCK(JNINT1,jnint1)
#define	JNINDX(IL, I, J)
#define	GAUSJN(IDUM)
#define	RJN(IDUM)
#define	JNINIT()
#define	JNTRAL()
#define	JNTEST()
#define	JNDUMP(NF)
#define	JNREAD(NF)
#define	JNSTAT(IS)
#define	JNSEFI(ILA, I1, I2, J1, J2, NO)
#define	REWIND(UNIT)

Functions
	COMMON_BLOCK_DEF (JNDAT1_DEF, JNDAT1)
	COMMON_BLOCK_DEF (NWJNWGT_DEF, NWJNWGT)
	COMMON_BLOCK_DEF (JNDAT2_DEF, JNDAT2)
	COMMON_BLOCK_DEF (JNINT2_DEF, JNINT2)
	COMMON_BLOCK_DEF (JNINT1_DEF, JNINT1)

Macro Definition Documentation

GAUSJN

#define GAUSJN

(

IDUM

)

Value:

CCALLSFFUN1(GAUSJN,gausjn,INT,IDUM)

Definition at line 120 of file jetnet.h.

JNDAT1

#define JNDAT1   COMMON_BLOCK(JNDAT1,jndat1)

Definition at line 42 of file jetnet.h.

JNDAT2

#define JNDAT2   COMMON_BLOCK(JNDAT2,jndat2)

Definition at line 65 of file jetnet.h.

JNDUMP

#define JNDUMP

(

NF

)

Value:

CCALLSFSUB1(JNDUMP,jndump,INT,NF);

Definition at line 154 of file jetnet.h.

JNINDX

#define JNINDX	(		IL,
			I,
			J )

Value:

CCALLSFFUN3(JNINDX,jnindx,INT,INT,INT,IL,I,J)

Definition at line 112 of file jetnet.h.

JNINIT

#define JNINIT

(

)

Value:

CCALLSFSUB0(JNINIT,jninit)

Definition at line 134 of file jetnet.h.

JNINT1

#define JNINT1   COMMON_BLOCK(JNINT1,jnint1)

Definition at line 103 of file jetnet.h.

JNINT2

#define JNINT2   COMMON_BLOCK(JNINT2,jnint2)

Definition at line 83 of file jetnet.h.

JNREAD

#define JNREAD

(

NF

)

Value:

CCALLSFSUB1(JNREAD,jnread,INT,NF);

Definition at line 161 of file jetnet.h.

JNSEFI

#define JNSEFI	(		ILA,
			I1,
			I2,
			J1,
			J2,
			NO )

Value:

CCALLSFSUB6(JNSEFI,jnsefi,INT,INT,INT,INT,INT,INT,ILA,I1,I2,J1,J2,NO);

Definition at line 173 of file jetnet.h.

JNSTAT

#define JNSTAT

(

IS

)

Value:

CCALLSFSUB1(JNSTAT,jnstat,INT,IS);

Definition at line 167 of file jetnet.h.

JNTEST

#define JNTEST

(

)

Value:

CCALLSFSUB0(JNTEST,jntest)

Definition at line 148 of file jetnet.h.

JNTRAL

#define JNTRAL

(

)

Value:

CCALLSFSUB0(JNTRAL,jntral)

Definition at line 141 of file jetnet.h.

MAXI

#define MAXI   1000;

Definition at line 28 of file jetnet.h.

MAXO

#define MAXO   1000;

Definition at line 29 of file jetnet.h.

NWJNWGT

#define NWJNWGT   COMMON_BLOCK(NWJNWGT,nwjnwgt)

Definition at line 51 of file jetnet.h.

REWIND

#define REWIND

(

UNIT

)

Value:

CCALLSFSUB1(REWIND,rewind,INT,UNIT);

Definition at line 179 of file jetnet.h.

RJN

#define RJN

(

IDUM

)

Value:

CCALLSFFUN1(RJN,rjn,INT,IDUM)

Definition at line 127 of file jetnet.h.

Function Documentation

COMMON_BLOCK_DEF() [1/5]

COMMON_BLOCK_DEF	(	JNDAT1_DEF	,
		JNDAT1	)

COMMON_BLOCK_DEF() [2/5]

COMMON_BLOCK_DEF	(	JNDAT2_DEF	,
		JNDAT2	)

COMMON_BLOCK_DEF() [3/5]

COMMON_BLOCK_DEF	(	JNINT1_DEF	,
		JNINT1	)

COMMON_BLOCK_DEF() [4/5]

COMMON_BLOCK_DEF	(	JNINT2_DEF	,
		JNINT2	)

COMMON_BLOCK_DEF() [5/5]

COMMON_BLOCK_DEF	(	NWJNWGT_DEF	,
		NWJNWGT	)