korc_fio – KORC

Uses

- iso_c_binding
- korc_types
- korc_input
- korc_HDF5
- mpi
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Variables

FIO_SUCCESS FIO_OUT_OF_BOUNDS FIO_NO_DATA FIO_M3DC1_SOURCE FIO_NIMROD_SOURCE FIO_TIMESLICE FIO_SPECIES FIO_ELECTRON FIO_MAIN_ION FIO_DENSITY FIO_TEMPERATURE FIO_ELECTRIC_FIELD FIO_MAGNETIC_FIELD FIO_VECTOR_POTENTIAL FIO_TIME

Interfaces

fio_add_field fio_allocate_search_hint fio_close_field fio_close_series fio_close_source fio_create_compound_field fio_deallocate_search_hint fio_eval_field fio_eval_field_deriv fio_eval_series fio_get_options fio_get_available_fields fio_open_source fio_get_field fio_set_int_option fio_get_real_field_parameter

Functions

FIO_MAKE_SPECIES

Subroutines

initialize_m3d_c1 initialize_nimrod initialize_m3d_c1_imp finalize_fio

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=C_INT),	public,	parameter	::	FIO_SUCCESS	=	0
integer(kind=C_INT),	public,	parameter	::	FIO_OUT_OF_BOUNDS	=	10002
integer(kind=C_INT),	public,	parameter	::	FIO_NO_DATA	=	10006
integer(kind=C_INT),	public,	parameter	::	FIO_M3DC1_SOURCE	=	3
integer(kind=C_INT),	public,	parameter	::	FIO_NIMROD_SOURCE	=	5
integer(kind=C_INT),	public,	parameter	::	FIO_TIMESLICE	=	1
integer(kind=C_INT),	public,	parameter	::	FIO_SPECIES	=	3
integer(kind=C_INT),	public,	parameter	::	FIO_ELECTRON	=	1
integer(kind=C_INT),	public,	parameter	::	FIO_MAIN_ION	=	-1
integer(kind=C_INT),	public,	parameter	::	FIO_DENSITY	=	102
integer(kind=C_INT),	public,	parameter	::	FIO_TEMPERATURE	=	103
integer(kind=C_INT),	public,	parameter	::	FIO_ELECTRIC_FIELD	=	1001
integer(kind=C_INT),	public,	parameter	::	FIO_MAGNETIC_FIELD	=	1003
integer(kind=C_INT),	public,	parameter	::	FIO_VECTOR_POTENTIAL	=	1002
integer(kind=C_INT),	public,	parameter	::	FIO_TIME	=	7001

Interfaces

interface

public function fio_add_field(icfield, ifield, op, fac) bind(C, NAME='fio_add_field')

Arguments

Type	Intent	Attributes		Name
integer(kind=C_INT),	intent(in),	VALUE	::	icfield
integer(kind=C_INT),	intent(in),	VALUE	::	ifield
integer(kind=C_INT),	intent(in),	VALUE	::	op
real(kind=C_DOUBLE),	intent(in),	VALUE	::	fac

Return Value integer(kind=C_INT)

interface

public function fio_allocate_search_hint(isrc, hint) bind(C, NAME='fio_allocate_search_hint')

Arguments

Type Intent Optional Attributes Name

integer(kind=C_INT), intent(in), VALUE :: isrc

type(C_PTR), intent(out) :: hint

Return Value integer(kind=C_INT)

interface

public function fio_close_field(ifield) bind(C, NAME='fio_close_field')

Arguments

Type Intent Optional Attributes Name

integer(kind=C_INT), intent(in), VALUE :: ifield

Return Value integer(kind=C_INT)

interface

public function fio_close_series(iseries) bind(C, NAME='fio_close_series')

Arguments

Type Intent Optional Attributes Name

integer(kind=C_INT), intent(in), VALUE :: iseries

Return Value integer(kind=C_INT)

interface

public function fio_close_source(isrc) bind(C, NAME='fio_close_source')

Arguments

Type Intent Optional Attributes Name

integer(kind=C_INT), intent(in), VALUE :: isrc

Return Value integer(kind=C_INT)

interface

public function fio_create_compound_field(ifield) bind(C, NAME='fio_create_compound_field')

Arguments

Type Intent Optional Attributes Name

integer(kind=C_INT), intent(in) :: ifield

Return Value integer(kind=C_INT)

Type	Intent	Optional	Attributes		Name
integer(kind=C_INT),	intent(in)			::	ifield

interface

public function fio_deallocate_search_hint(isrc, hint) bind(C, NAME='fio_deallocate_search_hint')

Arguments

Type Intent Optional Attributes Name

integer(kind=C_INT), intent(in), VALUE :: isrc

type(C_PTR), intent(inout) :: hint

Return Value integer(kind=C_INT)

interface

public function fio_eval_field(ifield, x, v, hint) bind(C, NAME='fio_eval_field')

Arguments

Type	Intent	Attributes		Name
integer(kind=C_INT),	intent(in),	VALUE	::	ifield
real(kind=C_DOUBLE),	intent(in)		::	x
real(kind=C_DOUBLE),	intent(out)		::	v
type(C_PTR),	intent(in),	VALUE	::	hint

Return Value integer(kind=C_INT)

interface

public function fio_eval_field_deriv(ifield, x, v, hint) bind(C, NAME='fio_eval_field_deriv')

Arguments

Type	Intent	Attributes		Name
integer(kind=C_INT),	intent(in),	VALUE	::	ifield
real(kind=C_DOUBLE),	intent(in)		::	x
real(kind=C_DOUBLE),	intent(out)		::	v
type(C_PTR),	intent(in),	VALUE	::	hint

Return Value integer(kind=C_INT)

interface

public function fio_eval_series(iseries, x, v) bind(C, NAME='fio_eval_series')

Arguments

Type	Intent	Attributes		Name
integer(kind=C_INT),	intent(in),	VALUE	::	iseries
real(kind=C_DOUBLE),	intent(in)		::	x
real(kind=C_DOUBLE),	intent(out)		::	v

Return Value integer(kind=C_INT)

interface

public function fio_get_options(isrc) bind(C, NAME='fio_get_options')

Arguments

Type Intent Optional Attributes Name

integer(kind=C_INT), intent(in), VALUE :: isrc

Return Value integer(kind=C_INT)

interface

public function fio_get_available_fields(isrc, n, f) bind(C, NAME='fio_get_available_fields')

Arguments

Type	Intent	Attributes		Name
integer(kind=C_INT),	intent(in),	VALUE	::	isrc
integer(kind=C_INT),	intent(out)		::	n
integer(kind=C_INT),	intent(out),	DIMENSION(:)	::	f

Return Value integer(kind=C_INT)

interface

public function fio_open_source(itype, filename, handle) bind(C, NAME='fio_open_source')

Arguments

Type	Intent	Attributes		Name
integer(kind=C_INT),	intent(in),	VALUE	::	itype
character(kind=C_CHAR,len=1),	intent(in)		::	filename
integer(kind=C_INT),	intent(out)		::	handle

Return Value integer(kind=C_INT)

interface

public function fio_get_field(isrc, type, handle) bind(C, NAME='fio_get_field')

Arguments

Type	Intent	Attributes		Name
integer(kind=C_INT),	intent(in),	VALUE	::	isrc
integer(kind=C_INT),	intent(in),	VALUE	::	type
integer(kind=C_INT),	intent(inout)		::	handle

Return Value integer(kind=C_INT)

interface

public function fio_set_int_option(iopt, v) bind(C, NAME='fio_set_int_option')

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=C_INT),	intent(in),		VALUE	::	iopt
integer(kind=C_INT),	intent(in),		VALUE	::	v

Return Value integer(kind=C_INT)

interface

public function fio_get_real_field_parameter(ifield, t, p) bind(C, NAME='fio_get_real_field_parameter')

Arguments

Type	Intent	Attributes		Name
integer(kind=c_int),	intent(in),	value	::	ifield
integer(kind=c_int),	intent(in),	value	::	t
real(kind=c_double)			::	p

Return Value integer(kind=C_INT)

Functions

public function FIO_MAKE_SPECIES(m, p, e)

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	p
integer,	intent(in)	::	e

Return Value integer(kind=C_INT)

Subroutines

public subroutine initialize_m3d_c1(params, F, P, spp, init)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params
type(FIELDS),	intent(inout)		::	F
type(PROFILES),	intent(inout)		::	P
type(SPECIES),	intent(inout),	DIMENSION(:)	::	spp
logical,	intent(in)		::	init

public subroutine initialize_nimrod(params, F, P, spp, init)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params
type(FIELDS),	intent(inout)		::	F
type(PROFILES),	intent(inout)		::	P
type(SPECIES),	intent(inout),	DIMENSION(:)	::	spp
logical,	intent(in)		::	init

public subroutine initialize_m3d_c1_imp(params, F, P, num_imp, init)

Arguments

Type	Intent		Name
type(KORC_PARAMS),	intent(in)	::	params
type(FIELDS),	intent(in)	::	F
type(PROFILES),	intent(inout)	::	P
integer,	intent(in)	::	num_imp
logical,	intent(in)	::	init

public subroutine finalize_fio(params, F, P)

Arguments

Type	Intent		Name
type(KORC_PARAMS),	intent(in)	::	params
type(FIELDS),	intent(in)	::	F
type(PROFILES),	intent(inout)	::	P

korc_fio Module

Contents

Uses

Used by

Contents

Variables

Interfaces

interface

public function fio_add_field(icfield, ifield, op, fac) bind(C, NAME='fio_add_field')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_allocate_search_hint(isrc, hint) bind(C, NAME='fio_allocate_search_hint')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_close_field(ifield) bind(C, NAME='fio_close_field')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_close_series(iseries) bind(C, NAME='fio_close_series')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_close_source(isrc) bind(C, NAME='fio_close_source')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_create_compound_field(ifield) bind(C, NAME='fio_create_compound_field')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_deallocate_search_hint(isrc, hint) bind(C, NAME='fio_deallocate_search_hint')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_eval_field(ifield, x, v, hint) bind(C, NAME='fio_eval_field')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_eval_field_deriv(ifield, x, v, hint) bind(C, NAME='fio_eval_field_deriv')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_eval_series(iseries, x, v) bind(C, NAME='fio_eval_series')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_get_options(isrc) bind(C, NAME='fio_get_options')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_get_available_fields(isrc, n, f) bind(C, NAME='fio_get_available_fields')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_open_source(itype, filename, handle) bind(C, NAME='fio_open_source')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_get_field(isrc, type, handle) bind(C, NAME='fio_get_field')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_set_int_option(iopt, v) bind(C, NAME='fio_set_int_option')

Arguments

Return Value integer(kind=C_INT)

interface

public function fio_get_real_field_parameter(ifield, t, p) bind(C, NAME='fio_get_real_field_parameter')

Arguments

Return Value integer(kind=C_INT)

Functions

public function FIO_MAKE_SPECIES(m, p, e)

Arguments

Return Value integer(kind=C_INT)

Subroutines

public subroutine initialize_m3d_c1(params, F, P, spp, init)

Arguments

public subroutine initialize_nimrod(params, F, P, spp, init)

Arguments