fc2k_workaround_ets_2.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	fc2k_transport_solver_2 (COREPROF_OLD,COREPROF_ITER,COREPROF_NEW,EQUILIBRIUM_OLD,EQUILIBRIUM_ITER,CORETRANSP_ITER,CORESOURCE_ITER,COREIMPUR_ITER,COREFAST_ITER,CONTROL_INTEGER,CONTROL_DOUBLE,
	Module to cope with problems in fc2k. More...

Function/Subroutine Documentation

subroutine fc2k_transport_solver_2	(	type (type_coreprof), dimension(:), pointer	COREPROF_OLD,
		type (type_coreprof), dimension(:), pointer	COREPROF_ITER,
		type (type_coreprof), dimension(:), pointer	COREPROF_NEW,
		type (type_equilibrium), dimension(:), pointer	EQUILIBRIUM_OLD,
		type (type_equilibrium), dimension(:), pointer	EQUILIBRIUM_ITER,
		type (type_coretransp), dimension(:), pointer	CORETRANSP_ITER,
		type (type_coresource), dimension(:), pointer	CORESOURCE_ITER,
		type (type_coreimpur), dimension(:), pointer	COREIMPUR_ITER,
		type (type_corefast), dimension(:), pointer	COREFAST_ITER,
		integer, dimension(4), intent(in)	CONTROL_INTEGER,
		real (r8), dimension(6), intent(in)	CONTROL_DOUBLE
	)

Module to cope with problems in fc2k.

Provides ETS for FC2K with arguments: in COREPROF_OLD: TYPE_COREPROF in COREPROF_ITER: TYPE_COREPROF out COREPROF_NEW: TYPE_COREPROF in EQUILIBRIUM_OLD: TYPE_EQUILIBRIUM in EQUILIBRIUM_ITER: TYPE_EQUILIBRIUM in CORETRANSP_ITER: TYPE_CORETRANSP in CORESOURCE_ITER: TYPE_CORESOURCE in COREIMPUR_ITER: TYPE_COREIMPUR in CONTROL_INTEGER(2): INTEGER in CONTROL_DOUBLE(5): REAL(R8)

Author

D. Coster

Version

"$Id: fc2k_workaround_ets.f90.not_yet_OK 1340 2012-06-29 11:24:40Z coster $"

Definition at line 34 of file fc2k_workaround_ets_2.f90.

Here is the call graph for this function: