fc2k_workaround_impurity.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	itmimpurity (EQUILIBRIUM_ITER, COREPROF_ITER, CORETRANSP_ITER, COREIMPUR_OLD, COREIMPUR_ITER, CORENEUTRALS_ITER, CORESOURCE_ITER, CORESOURCE_NEW, COREIMPUR_NEW, CONTROL_INTEGER, CONTROL_DOUBLE)
	Module to cope with problems in fc2k. More...

Function/Subroutine Documentation

subroutine itmimpurity	(	type (type_equilibrium), dimension(:), pointer	EQUILIBRIUM_ITER,
		type (type_coreprof), dimension(:), pointer	COREPROF_ITER,
		type (type_coretransp), dimension(:), pointer	CORETRANSP_ITER,
		type (type_coreimpur), dimension(:), pointer	COREIMPUR_OLD,
		type (type_coreimpur), dimension(:), pointer	COREIMPUR_ITER,
		type (type_coreneutrals), dimension(:), pointer	CORENEUTRALS_ITER,
		type (type_coresource), dimension(:), pointer	CORESOURCE_ITER,
		type (type_coresource), dimension(:), pointer	CORESOURCE_NEW,
		type (type_coreimpur), dimension(:), pointer	COREIMPUR_NEW,
		integer, dimension(2), intent(in)	CONTROL_INTEGER,
		real (r8), dimension(5), intent(in)	CONTROL_DOUBLE
	)

Module to cope with problems in fc2k.

Provides itmets for FC2K with arguments: in EQUILIBRIUM_ITER: TYPE_equilibrium in COREPROF_ITER: TYPE_COREPROF in COREIPUR_OLD: TYPE_COREIMPUR in COREIMPUR_ITER: TYPE_COREIMPUR in CORESOURCE_ITER: TYPE_CORESOURCE in CONTROL_DOUBLE_IMP(4): REAL(R8)

out CORESOURCE_IMP: TYPE_CORESOURCE out COREIMPUR_new: TYPE_COREIMPUR

Author

I.Ivanova

Version

"$Id: fc2k_workaround_impurity.f90 458 2010-12-15 17:37:08Z coster $"

Definition at line 23 of file fc2k_workaround_impurity.f90.

Here is the call graph for this function: