fc2k_workaround_eqstart.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	eqstart (PROF_FLAG, J0_FLAG, Q0_FLAG, COREPROF_IN, EQUILIBRIUM_IN, TOROIDFIELD_IN, COREPROF_OUT, EQUILIBRIUM_OUT)
	Module to cope with problems in fc2k. More...

Function/Subroutine Documentation

subroutine eqstart	(	integer	PROF_FLAG,
		integer	J0_FLAG,
		integer	Q0_FLAG,
		type (type_coreprof), dimension(:), pointer	COREPROF_IN,
		type (type_equilibrium), dimension(:), pointer	EQUILIBRIUM_IN,
		type (type_toroidfield), dimension(:), pointer	TOROIDFIELD_IN,
		type (type_coreprof), dimension(:), pointer	COREPROF_OUT,
		type (type_equilibrium), dimension(:), pointer	EQUILIBRIUM_OUT
	)

Module to cope with problems in fc2k.

Provides EQUIL_INPUT for FC2K with arguments: in COREPROF: TYPE_COREPROF

Author

D.Kalupin

Definition at line 10 of file fc2k_workaround_eqstart.f90.

Here is the call graph for this function: