test_12 – Fortran Program

public subroutine test_12(error_cnt)

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	error_cnt	report number of errors to caller

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	imx	=	5
integer,	public,	parameter	::	jmx	=	3
integer,	public,	parameter	::	kmx	=	4	dimensions for raw work array of primitive type
type(json_core),	public		::	json			factory for manipulating `json_value` pointers
integer,	public,	dimension(3)	::	shape			shape of work array
integer,	public,	dimension(:), allocatable	::	fetched_shape			retrieved shape
type(json_value),	public,	pointer	::	root
type(json_value),	public,	pointer	::	meta_array			json nodes to work with
type(json_value),	public,	pointer	::	tmp_json_ptr
type(json_file),	public		::	my_file
real(kind=wp),	public,	dimension(imx,jmx,kmx)	::	raw_array			raw work array
real(kind=wp),	public		::	array_element
real(kind=wp),	public,	dimension(:), allocatable	::	fetched_array
character(kind=CK,len=:),	public,	allocatable	::	description
integer,	public		::	i
integer,	public		::	j
integer,	public		::	k			loop indices
integer,	public		::	array_length
integer,	public		::	lun
logical,	public		::	existed
logical,	public,	dimension(:), allocatable	::	SOS

Type	Intent	Optional	Attributes		Name
logical,	intent(in),	optional		::	assertion

check for errors in json

Type	Intent	Optional	Attributes		Name
logical,	intent(in),	optional		::	assertion

check for errors in my_file

Type	Intent	Attributes		Name
class(json_core),	intent(inout)		::	json
type(json_value),	intent(in),	pointer	::	element
integer,	intent(in)		::	i	index
integer,	intent(in)		::	count	size of array

array callback function