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

Go to the source code of this file.

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

---

Function/Subroutine Documentation

subroutine FACADE	(	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 ((1+knlati)/2)	KNLOPA,
		INTEGER, dimension ((1+knlati)/2)	KNOZPA,
		REAL (KIND=JPDBLR), dimension ((1+knlati)/2)	PSINLA,
		INTEGER	KNIVER,
		REAL (KIND=JPDBLR)	PREFER,
		REAL (KIND=JPDBLR), dimension (0:kniver)	PAHYBR,
		REAL (KIND=JPDBLR), dimension (0:kniver)	PBHYBR,
		LOGICAL	LDGARD
	)

Definition at line 2 of file facade.F.

Here is the call graph for this function:

Here is the caller graph for this function: