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

Go to the source code of this file.

Functions/Subroutines
subroutine	FACIES (CDNOMC, KTYPTR, PSLAPO, PCLOPO, PSLOPO, PCODIL, KTRONC, KNLATI, KNXLON, KNLOPA, KNOZPA, PSINLA, KNIVER, PREFER, PAHYBR, PBHYBR, LDGARD)

---

Function/Subroutine Documentation

subroutine FACIES	(	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_com_default%jpxpah)	KNLOPA,
		INTEGER, dimension (fa_com_default%jpxind)	KNOZPA,
		REAL (KIND=JPDBLR), dimension (fa_com_default%jpxgeo)	PSINLA,
		INTEGER	KNIVER,
		REAL (KIND=JPDBLR)	PREFER,
		REAL (KIND=JPDBLR), dimension (0:fa_com_default%jpxniv)	PAHYBR,
		REAL (KIND=JPDBLR), dimension (0:fa_com_default%jpxniv)	PBHYBR,
		LOGICAL	LDGARD
	)

Definition at line 2 of file facies.F.

Here is the call graph for this function:

Here is the caller graph for this function: