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)   CCALLSFFUN3(JNINDX,jnindx,INT,INT,INT,IL,I,J)
#define	GAUSJN(IDUM)   CCALLSFFUN1(GAUSJN,gausjn,INT,IDUM)
#define	RJN(IDUM)   CCALLSFFUN1(RJN,rjn,INT,IDUM)
#define	JNINIT()   CCALLSFSUB0(JNINIT,jninit)
#define	JNTRAL()   CCALLSFSUB0(JNTRAL,jntral)
#define	JNTEST()   CCALLSFSUB0(JNTEST,jntest)
#define	JNDUMP(NF)   CCALLSFSUB1(JNDUMP,jndump,INT,NF);
#define	JNREAD(NF)   CCALLSFSUB1(JNREAD,jnread,INT,NF);
#define	JNSTAT(IS)   CCALLSFSUB1(JNSTAT,jnstat,INT,IS);
#define	JNSEFI(ILA, I1, I2, J1, J2, NO)   CCALLSFSUB6(JNSEFI,jnsefi,INT,INT,INT,INT,INT,INT,ILA,I1,I2,J1,J2,NO);
#define	REWIND(UNIT)   CCALLSFSUB1(REWIND,rewind,INT,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

)

CCALLSFFUN1(GAUSJN,gausjn,INT,IDUM)

Definition at line 121 of file jetnet.h.

JNDAT1

#define JNDAT1   COMMON_BLOCK(JNDAT1,jndat1)

Definition at line 43 of file jetnet.h.

JNDAT2

#define JNDAT2   COMMON_BLOCK(JNDAT2,jndat2)

Definition at line 66 of file jetnet.h.

JNDUMP

#define JNDUMP

(

NF

)

CCALLSFSUB1(JNDUMP,jndump,INT,NF);

Definition at line 155 of file jetnet.h.

JNINDX

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

Definition at line 113 of file jetnet.h.

JNINIT

#define JNINIT

(

)

CCALLSFSUB0(JNINIT,jninit)

Definition at line 135 of file jetnet.h.

JNINT1

#define JNINT1   COMMON_BLOCK(JNINT1,jnint1)

Definition at line 104 of file jetnet.h.

JNINT2

#define JNINT2   COMMON_BLOCK(JNINT2,jnint2)

Definition at line 84 of file jetnet.h.

JNREAD

#define JNREAD

(

NF

)

CCALLSFSUB1(JNREAD,jnread,INT,NF);

Definition at line 162 of file jetnet.h.

JNSEFI

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

Definition at line 174 of file jetnet.h.

JNSTAT

#define JNSTAT

(

IS

)

CCALLSFSUB1(JNSTAT,jnstat,INT,IS);

Definition at line 168 of file jetnet.h.

JNTEST

#define JNTEST

(

)

CCALLSFSUB0(JNTEST,jntest)

Definition at line 149 of file jetnet.h.

JNTRAL

#define JNTRAL

(

)

CCALLSFSUB0(JNTRAL,jntral)

Definition at line 142 of file jetnet.h.

MAXI

#define MAXI   1000;

Definition at line 29 of file jetnet.h.

MAXO

#define MAXO   1000;

Definition at line 30 of file jetnet.h.

NWJNWGT

#define NWJNWGT   COMMON_BLOCK(NWJNWGT,nwjnwgt)

Definition at line 52 of file jetnet.h.

REWIND

#define REWIND

(

UNIT

)

CCALLSFSUB1(REWIND,rewind,INT,UNIT);

Definition at line 180 of file jetnet.h.

RJN

#define RJN

(

IDUM

)

CCALLSFFUN1(RJN,rjn,INT,IDUM)

Definition at line 128 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
	)