fc2k_workaround_neutrals.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	itmneutrals (COREIMPUR_ITER, EQUILIBRIUM_ITER, COREPROF_ITER, CORENEUTRALS_OLD, CORENEUTRALS_ITER, CORESOURCE_ITER, CORENEUTRALS_NEW, CONTROL_INTEGER, CONTROL_DOUBLE)
	Module to cope with problems in fc2k. More...

Function/Subroutine Documentation

subroutine itmneutrals	(	type (type_coreimpur), dimension(:), pointer	COREIMPUR_ITER,
		type (type_equilibrium), dimension(:), pointer	EQUILIBRIUM_ITER,
		type (type_coreprof), dimension(:), pointer	COREPROF_ITER,
		type (type_coreneutrals), dimension(:), pointer	CORENEUTRALS_OLD,
		type (type_coreneutrals), dimension(:), pointer	CORENEUTRALS_ITER,
		type (type_coresource), dimension(:), pointer	CORESOURCE_ITER,
		type (type_coreneutrals), dimension(:), pointer	CORENEUTRALS_NEW,
		integer, dimension(1), intent(in)	CONTROL_INTEGER,
		real (r8), dimension(2), intent(in)	CONTROL_DOUBLE
	)

Module to cope with problems in fc2k.

Provides itmets for FC2K with arguments: in COREIMPUR_ITER: TYPE_COREIMPUR in EQUILIBRIUM_ITER: TYPE_equilibrium in COREPROF_ITER: TYPE_COREPROF in CORENEUTRALS_OLD: TYPE_CORENEUTRALS in CORENEUTRALS_ITER: TYPE_CORENEUTRALS in CONTROL_DOUBLE_IMP(4): REAL(R8)

out CORESOURCE_ITER: TYPE_CORESOURCE out CORENEUTRALS_new: TYPE_CORENEUTRALS

Author

I.Ivanova

Version

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

Definition at line 23 of file fc2k_workaround_neutrals.f90.

Here is the call graph for this function: