/home/dasprezs/EXPORT_v7_3/src/LIB/XRD38/FA/mt/facadi_mt.F File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	FACADI_MT (FA, KREP, CDNOMC, KTYPTR, PSLAPO, PCLOPO, PSLOPO, PCODIL, KTRONC, KNLATI, KNXLON, KNLOPA, KNOZPA, PSINLA, KNIVER, PREFER, PAHYBR, PBHYBR, LDMODC, LDREDF, KPHASE, KRANGC, KLNOMC, KGARDE)

---

Function/Subroutine Documentation

subroutine FACADI_MT	(	TYPE(FA_COM)	FA,
		INTEGER	KREP,
		CHARACTER, dimension(*)	CDNOMC,
		INTEGER	KTYPTR,
		REAL (KIND=JPDBLR)	PSLAPO,
		REAL (KIND=JPDBLR)	PCLOPO,
		REAL (KIND=JPDBLR)	PSLOPO,
		REAL (KIND=JPDBLR)	PCODIL,
		INTEGER	KTRONC,
		INTEGER	KNLATI,
		INTEGER	KNXLON,
		INTEGER, dimension (fa%jpxpah)	KNLOPA,
		INTEGER, dimension (fa%jpxind)	KNOZPA,
		REAL (KIND=JPDBLR), dimension (fa%jpxgeo)	PSINLA,
		INTEGER	KNIVER,
		REAL (KIND=JPDBLR)	PREFER,
		REAL (KIND=JPDBLR), dimension (0:kniver)	PAHYBR,
		REAL (KIND=JPDBLR), dimension (0:kniver)	PBHYBR,
		LOGICAL	LDMODC,
		LOGICAL	LDREDF,
		INTEGER	KPHASE,
		INTEGER	KRANGC,
		INTEGER	KLNOMC,
		INTEGER	KGARDE
	)

Definition at line 2 of file facadi_mt.F.

Here is the call graph for this function:

Here is the caller graph for this function: