eggx.F90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	eggx (PRPI, PRA, KROTEQ, PLONR, PLATR, PBETA, PLON1, PLAT1, PLON2, PLAT2, PLON0, PLAT0, PRPK, KULOUT, KSOTRP, KGIV0, PGELAM, PGELAT, PGM, PGNORX, PGNORY, KDLSA, KDLSUR, KDGSA, KDGEN, KDLUN, KDLUX, KDGUN, KDGUX, PDELX, PDELY)

Function/Subroutine Documentation

eggx()

subroutine eggx	(	real(kind=jprb), intent(in)	PRPI,
		real(kind=jprb), intent(in)	PRA,
		integer(kind=jpim), intent(in)	KROTEQ,
		real(kind=jprb), intent(inout)	PLONR,
		real(kind=jprb), intent(inout)	PLATR,
		real(kind=jprb), intent(in)	PBETA,
		real(kind=jprb), intent(inout)	PLON1,
		real(kind=jprb), intent(inout)	PLAT1,
		real(kind=jprb), intent(inout)	PLON2,
		real(kind=jprb), intent(inout)	PLAT2,
		real(kind=jprb), intent(inout)	PLON0,
		real(kind=jprb), intent(inout)	PLAT0,
		real(kind=jprb), intent(inout)	PRPK,
		integer(kind=jpim), intent(in)	KULOUT,
		integer(kind=jpim), intent(inout)	KSOTRP,
		integer(kind=jpim), intent(in)	KGIV0,
		real(kind=jprb), dimension(kdlsa:kdlsur,kdgsa:kdgen), intent(out)	PGELAM,
		real(kind=jprb), dimension(kdlsa:kdlsur,kdgsa:kdgen), intent(out)	PGELAT,
		real(kind=jprb), dimension(kdlsa:kdlsur,kdgsa:kdgen), intent(out)	PGM,
		real(kind=jprb), dimension(kdlsa:kdlsur,kdgsa:kdgen), intent(out)	PGNORX,
		real(kind=jprb), dimension(kdlsa:kdlsur,kdgsa:kdgen), intent(out)	PGNORY,
		integer(kind=jpim), intent(in)	KDLSA,
		integer(kind=jpim), intent(in)	KDLSUR,
		integer(kind=jpim), intent(in)	KDGSA,
		integer(kind=jpim), intent(in)	KDGEN,
		integer(kind=jpim), intent(in)	KDLUN,
		integer(kind=jpim), intent(in)	KDLUX,
		integer(kind=jpim), intent(in)	KDGUN,
		integer(kind=jpim), intent(in)	KDGUX,
		real(kind=jprb), intent(out)	PDELX,
		real(kind=jprb), intent(out)	PDELY
	)

Definition at line 7 of file eggx.F90.

Here is the call graph for this function:

Here is the caller graph for this function: