Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Normal
Revision Log

domain_interface_attr.F90 @ 2622

Last change on this file since 2622 was 2616, checked in by jderouillat, 4 months ago
Add XIOS3 fortran interfaces (resources management, chunking, compression)
Property copyright set to Software name : XIOS (Xml I/O Server) http://forge.ipsl.jussieu.fr/ioserver Creation date : January 2009 Licence : CeCCIL version2 see license file in root directory : Licence_CeCILL_V2-en.txt or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement) CNRS/IPSL (Institut Pierre Simon Laplace) Project Manager : Yann Meurdesoif yann.meurdesoif@cea.fr
File size: 39.8 KB

Rev	Line
[326]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
[532]	4	#include "../fortran/xios_fortran_prefix.hpp"
[326]	5
	6	MODULE domain_interface_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
[581]	8
	9	INTERFACE
	10	! Do not call directly / interface FORTRAN 2003 <-> C99
	11
[674]	12	SUBROUTINE cxios_set_domain_area(domain_hdl, area, extent) BIND(C)
[611]	13	USE ISO_C_BINDING
	14	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	15	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area
[674]	16	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[611]	17	END SUBROUTINE cxios_set_domain_area
	18
[674]	19	SUBROUTINE cxios_get_domain_area(domain_hdl, area, extent) BIND(C)
[611]	20	USE ISO_C_BINDING
	21	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	22	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area
[674]	23	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[611]	24	END SUBROUTINE cxios_get_domain_area
	25
	26	FUNCTION cxios_is_defined_domain_area(domain_hdl) BIND(C)
	27	USE ISO_C_BINDING
	28	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_area
	29	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	30	END FUNCTION cxios_is_defined_domain_area
	31
	32
[2616]	33	SUBROUTINE cxios_set_domain_area_1d(domain_hdl, area_1d, extent) BIND(C)
	34	USE ISO_C_BINDING
	35	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	36	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area_1d
	37	INTEGER (kind = C_INT), DIMENSION(*) :: extent
	38	END SUBROUTINE cxios_set_domain_area_1d
	39
	40	SUBROUTINE cxios_get_domain_area_1d(domain_hdl, area_1d, extent) BIND(C)
	41	USE ISO_C_BINDING
	42	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	43	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area_1d
	44	INTEGER (kind = C_INT), DIMENSION(*) :: extent
	45	END SUBROUTINE cxios_get_domain_area_1d
	46
	47	FUNCTION cxios_is_defined_domain_area_1d(domain_hdl) BIND(C)
	48	USE ISO_C_BINDING
	49	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_area_1d
	50	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	51	END FUNCTION cxios_is_defined_domain_area_1d
	52
	53
	54	SUBROUTINE cxios_set_domain_area_2d(domain_hdl, area_2d, extent) BIND(C)
	55	USE ISO_C_BINDING
	56	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	57	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area_2d
	58	INTEGER (kind = C_INT), DIMENSION(*) :: extent
	59	END SUBROUTINE cxios_set_domain_area_2d
	60
	61	SUBROUTINE cxios_get_domain_area_2d(domain_hdl, area_2d, extent) BIND(C)
	62	USE ISO_C_BINDING
	63	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	64	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area_2d
	65	INTEGER (kind = C_INT), DIMENSION(*) :: extent
	66	END SUBROUTINE cxios_get_domain_area_2d
	67
	68	FUNCTION cxios_is_defined_domain_area_2d(domain_hdl) BIND(C)
	69	USE ISO_C_BINDING
	70	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_area_2d
	71	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	72	END FUNCTION cxios_is_defined_domain_area_2d
	73
	74
[674]	75	SUBROUTINE cxios_set_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent) BIND(C)
[449]	76	USE ISO_C_BINDING
	77	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	78	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_1d
[674]	79	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	80	END SUBROUTINE cxios_set_domain_bounds_lat_1d
[581]	81
[674]	82	SUBROUTINE cxios_get_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent) BIND(C)
[449]	83	USE ISO_C_BINDING
	84	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	85	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_1d
[674]	86	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	87	END SUBROUTINE cxios_get_domain_bounds_lat_1d
[581]	88
[664]	89	FUNCTION cxios_is_defined_domain_bounds_lat_1d(domain_hdl) BIND(C)
[449]	90	USE ISO_C_BINDING
[664]	91	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat_1d
[449]	92	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	93	END FUNCTION cxios_is_defined_domain_bounds_lat_1d
[581]	94
	95
[674]	96	SUBROUTINE cxios_set_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent) BIND(C)
[449]	97	USE ISO_C_BINDING
	98	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	99	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_2d
[674]	100	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	101	END SUBROUTINE cxios_set_domain_bounds_lat_2d
[581]	102
[674]	103	SUBROUTINE cxios_get_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent) BIND(C)
[449]	104	USE ISO_C_BINDING
	105	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	106	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_2d
[674]	107	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	108	END SUBROUTINE cxios_get_domain_bounds_lat_2d
[581]	109
[664]	110	FUNCTION cxios_is_defined_domain_bounds_lat_2d(domain_hdl) BIND(C)
[449]	111	USE ISO_C_BINDING
[664]	112	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat_2d
[449]	113	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	114	END FUNCTION cxios_is_defined_domain_bounds_lat_2d
[581]	115
	116
[1492]	117	SUBROUTINE cxios_set_domain_bounds_lat_name(domain_hdl, bounds_lat_name, bounds_lat_name_size) BIND(C)
	118	USE ISO_C_BINDING
	119	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	120	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_lat_name
	121	INTEGER (kind = C_INT) , VALUE :: bounds_lat_name_size
	122	END SUBROUTINE cxios_set_domain_bounds_lat_name
	123
	124	SUBROUTINE cxios_get_domain_bounds_lat_name(domain_hdl, bounds_lat_name, bounds_lat_name_size) BIND(C)
	125	USE ISO_C_BINDING
	126	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	127	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_lat_name
	128	INTEGER (kind = C_INT) , VALUE :: bounds_lat_name_size
	129	END SUBROUTINE cxios_get_domain_bounds_lat_name
	130
	131	FUNCTION cxios_is_defined_domain_bounds_lat_name(domain_hdl) BIND(C)
	132	USE ISO_C_BINDING
	133	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat_name
	134	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	135	END FUNCTION cxios_is_defined_domain_bounds_lat_name
	136
	137
[674]	138	SUBROUTINE cxios_set_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent) BIND(C)
[664]	139	USE ISO_C_BINDING
	140	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	141	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_1d
[674]	142	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	143	END SUBROUTINE cxios_set_domain_bounds_lon_1d
	144
[674]	145	SUBROUTINE cxios_get_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent) BIND(C)
[664]	146	USE ISO_C_BINDING
	147	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	148	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_1d
[674]	149	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	150	END SUBROUTINE cxios_get_domain_bounds_lon_1d
	151
	152	FUNCTION cxios_is_defined_domain_bounds_lon_1d(domain_hdl) BIND(C)
	153	USE ISO_C_BINDING
	154	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon_1d
	155	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	156	END FUNCTION cxios_is_defined_domain_bounds_lon_1d
	157
	158
[674]	159	SUBROUTINE cxios_set_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent) BIND(C)
[664]	160	USE ISO_C_BINDING
	161	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	162	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_2d
[674]	163	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	164	END SUBROUTINE cxios_set_domain_bounds_lon_2d
	165
[674]	166	SUBROUTINE cxios_get_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent) BIND(C)
[664]	167	USE ISO_C_BINDING
	168	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	169	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_2d
[674]	170	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	171	END SUBROUTINE cxios_get_domain_bounds_lon_2d
	172
	173	FUNCTION cxios_is_defined_domain_bounds_lon_2d(domain_hdl) BIND(C)
	174	USE ISO_C_BINDING
	175	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon_2d
	176	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	177	END FUNCTION cxios_is_defined_domain_bounds_lon_2d
	178
	179
[1492]	180	SUBROUTINE cxios_set_domain_bounds_lon_name(domain_hdl, bounds_lon_name, bounds_lon_name_size) BIND(C)
	181	USE ISO_C_BINDING
	182	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	183	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_lon_name
	184	INTEGER (kind = C_INT) , VALUE :: bounds_lon_name_size
	185	END SUBROUTINE cxios_set_domain_bounds_lon_name
	186
	187	SUBROUTINE cxios_get_domain_bounds_lon_name(domain_hdl, bounds_lon_name, bounds_lon_name_size) BIND(C)
	188	USE ISO_C_BINDING
	189	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	190	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_lon_name
	191	INTEGER (kind = C_INT) , VALUE :: bounds_lon_name_size
	192	END SUBROUTINE cxios_get_domain_bounds_lon_name
	193
	194	FUNCTION cxios_is_defined_domain_bounds_lon_name(domain_hdl) BIND(C)
	195	USE ISO_C_BINDING
	196	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon_name
	197	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	198	END FUNCTION cxios_is_defined_domain_bounds_lon_name
	199
	200
[2616]	201	SUBROUTINE cxios_set_domain_chunking_weight_i(domain_hdl, chunking_weight_i) BIND(C)
	202	USE ISO_C_BINDING
	203	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	204	REAL (KIND=C_DOUBLE) , VALUE :: chunking_weight_i
	205	END SUBROUTINE cxios_set_domain_chunking_weight_i
	206
	207	SUBROUTINE cxios_get_domain_chunking_weight_i(domain_hdl, chunking_weight_i) BIND(C)
	208	USE ISO_C_BINDING
	209	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	210	REAL (KIND=C_DOUBLE) :: chunking_weight_i
	211	END SUBROUTINE cxios_get_domain_chunking_weight_i
	212
	213	FUNCTION cxios_is_defined_domain_chunking_weight_i(domain_hdl) BIND(C)
	214	USE ISO_C_BINDING
	215	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_chunking_weight_i
	216	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	217	END FUNCTION cxios_is_defined_domain_chunking_weight_i
	218
	219
	220	SUBROUTINE cxios_set_domain_chunking_weight_j(domain_hdl, chunking_weight_j) BIND(C)
	221	USE ISO_C_BINDING
	222	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	223	REAL (KIND=C_DOUBLE) , VALUE :: chunking_weight_j
	224	END SUBROUTINE cxios_set_domain_chunking_weight_j
	225
	226	SUBROUTINE cxios_get_domain_chunking_weight_j(domain_hdl, chunking_weight_j) BIND(C)
	227	USE ISO_C_BINDING
	228	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	229	REAL (KIND=C_DOUBLE) :: chunking_weight_j
	230	END SUBROUTINE cxios_get_domain_chunking_weight_j
	231
	232	FUNCTION cxios_is_defined_domain_chunking_weight_j(domain_hdl) BIND(C)
	233	USE ISO_C_BINDING
	234	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_chunking_weight_j
	235	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	236	END FUNCTION cxios_is_defined_domain_chunking_weight_j
	237
	238
[1492]	239	SUBROUTINE cxios_set_domain_comment(domain_hdl, comment, comment_size) BIND(C)
	240	USE ISO_C_BINDING
	241	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	242	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment
	243	INTEGER (kind = C_INT) , VALUE :: comment_size
	244	END SUBROUTINE cxios_set_domain_comment
	245
	246	SUBROUTINE cxios_get_domain_comment(domain_hdl, comment, comment_size) BIND(C)
	247	USE ISO_C_BINDING
	248	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	249	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment
	250	INTEGER (kind = C_INT) , VALUE :: comment_size
	251	END SUBROUTINE cxios_get_domain_comment
	252
	253	FUNCTION cxios_is_defined_domain_comment(domain_hdl) BIND(C)
	254	USE ISO_C_BINDING
	255	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_comment
	256	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	257	END FUNCTION cxios_is_defined_domain_comment
	258
	259
[326]	260	SUBROUTINE cxios_set_domain_data_dim(domain_hdl, data_dim) BIND(C)
	261	USE ISO_C_BINDING
	262	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	263	INTEGER (KIND=C_INT) , VALUE :: data_dim
	264	END SUBROUTINE cxios_set_domain_data_dim
[581]	265
[326]	266	SUBROUTINE cxios_get_domain_data_dim(domain_hdl, data_dim) BIND(C)
	267	USE ISO_C_BINDING
	268	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	269	INTEGER (KIND=C_INT) :: data_dim
	270	END SUBROUTINE cxios_get_domain_data_dim
[581]	271
	272	FUNCTION cxios_is_defined_domain_data_dim(domain_hdl) BIND(C)
[432]	273	USE ISO_C_BINDING
	274	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_dim
	275	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	276	END FUNCTION cxios_is_defined_domain_data_dim
[581]	277
	278
[674]	279	SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent) BIND(C)
[326]	280	USE ISO_C_BINDING
	281	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	282	INTEGER (KIND=C_INT) , DIMENSION(*) :: data_i_index
[674]	283	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[326]	284	END SUBROUTINE cxios_set_domain_data_i_index
[581]	285
[674]	286	SUBROUTINE cxios_get_domain_data_i_index(domain_hdl, data_i_index, extent) BIND(C)
[326]	287	USE ISO_C_BINDING
	288	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	289	INTEGER (KIND=C_INT) , DIMENSION(*) :: data_i_index
[674]	290	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[326]	291	END SUBROUTINE cxios_get_domain_data_i_index
[581]	292
	293	FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl) BIND(C)
[432]	294	USE ISO_C_BINDING
	295	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_i_index
	296	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	297	END FUNCTION cxios_is_defined_domain_data_i_index
[581]	298
	299
[326]	300	SUBROUTINE cxios_set_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
	301	USE ISO_C_BINDING
	302	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	303	INTEGER (KIND=C_INT) , VALUE :: data_ibegin
	304	END SUBROUTINE cxios_set_domain_data_ibegin
[581]	305
[326]	306	SUBROUTINE cxios_get_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
	307	USE ISO_C_BINDING
	308	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	309	INTEGER (KIND=C_INT) :: data_ibegin
	310	END SUBROUTINE cxios_get_domain_data_ibegin
[581]	311
	312	FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl) BIND(C)
[432]	313	USE ISO_C_BINDING
	314	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ibegin
	315	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	316	END FUNCTION cxios_is_defined_domain_data_ibegin
[581]	317
	318
[674]	319	SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent) BIND(C)
[326]	320	USE ISO_C_BINDING
	321	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	322	INTEGER (KIND=C_INT) , DIMENSION(*) :: data_j_index
[674]	323	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[326]	324	END SUBROUTINE cxios_set_domain_data_j_index
[581]	325
[674]	326	SUBROUTINE cxios_get_domain_data_j_index(domain_hdl, data_j_index, extent) BIND(C)
[326]	327	USE ISO_C_BINDING
	328	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	329	INTEGER (KIND=C_INT) , DIMENSION(*) :: data_j_index
[674]	330	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[326]	331	END SUBROUTINE cxios_get_domain_data_j_index
[581]	332
	333	FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl) BIND(C)
[432]	334	USE ISO_C_BINDING
	335	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_j_index
	336	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	337	END FUNCTION cxios_is_defined_domain_data_j_index
[581]	338
	339
[326]	340	SUBROUTINE cxios_set_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
	341	USE ISO_C_BINDING
	342	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	343	INTEGER (KIND=C_INT) , VALUE :: data_jbegin
	344	END SUBROUTINE cxios_set_domain_data_jbegin
[581]	345
[326]	346	SUBROUTINE cxios_get_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
	347	USE ISO_C_BINDING
	348	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	349	INTEGER (KIND=C_INT) :: data_jbegin
	350	END SUBROUTINE cxios_get_domain_data_jbegin
[581]	351
	352	FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl) BIND(C)
[432]	353	USE ISO_C_BINDING
	354	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_jbegin
	355	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	356	END FUNCTION cxios_is_defined_domain_data_jbegin
[581]	357
	358
[326]	359	SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C)
	360	USE ISO_C_BINDING
	361	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	362	INTEGER (KIND=C_INT) , VALUE :: data_ni
	363	END SUBROUTINE cxios_set_domain_data_ni
[581]	364
[326]	365	SUBROUTINE cxios_get_domain_data_ni(domain_hdl, data_ni) BIND(C)
	366	USE ISO_C_BINDING
	367	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	368	INTEGER (KIND=C_INT) :: data_ni
	369	END SUBROUTINE cxios_get_domain_data_ni
[581]	370
	371	FUNCTION cxios_is_defined_domain_data_ni(domain_hdl) BIND(C)
[432]	372	USE ISO_C_BINDING
	373	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ni
	374	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	375	END FUNCTION cxios_is_defined_domain_data_ni
[581]	376
	377
[326]	378	SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C)
	379	USE ISO_C_BINDING
	380	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	381	INTEGER (KIND=C_INT) , VALUE :: data_nj
	382	END SUBROUTINE cxios_set_domain_data_nj
[581]	383
[326]	384	SUBROUTINE cxios_get_domain_data_nj(domain_hdl, data_nj) BIND(C)
	385	USE ISO_C_BINDING
	386	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	387	INTEGER (KIND=C_INT) :: data_nj
	388	END SUBROUTINE cxios_get_domain_data_nj
[581]	389
	390	FUNCTION cxios_is_defined_domain_data_nj(domain_hdl) BIND(C)
[432]	391	USE ISO_C_BINDING
	392	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_nj
	393	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	394	END FUNCTION cxios_is_defined_domain_data_nj
[581]	395
	396
[1492]	397	SUBROUTINE cxios_set_domain_dim_i_name(domain_hdl, dim_i_name, dim_i_name_size) BIND(C)
	398	USE ISO_C_BINDING
	399	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	400	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_i_name
	401	INTEGER (kind = C_INT) , VALUE :: dim_i_name_size
	402	END SUBROUTINE cxios_set_domain_dim_i_name
	403
	404	SUBROUTINE cxios_get_domain_dim_i_name(domain_hdl, dim_i_name, dim_i_name_size) BIND(C)
	405	USE ISO_C_BINDING
	406	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	407	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_i_name
	408	INTEGER (kind = C_INT) , VALUE :: dim_i_name_size
	409	END SUBROUTINE cxios_get_domain_dim_i_name
	410
	411	FUNCTION cxios_is_defined_domain_dim_i_name(domain_hdl) BIND(C)
	412	USE ISO_C_BINDING
	413	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_dim_i_name
	414	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	415	END FUNCTION cxios_is_defined_domain_dim_i_name
	416
	417
	418	SUBROUTINE cxios_set_domain_dim_j_name(domain_hdl, dim_j_name, dim_j_name_size) BIND(C)
	419	USE ISO_C_BINDING
	420	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	421	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_j_name
	422	INTEGER (kind = C_INT) , VALUE :: dim_j_name_size
	423	END SUBROUTINE cxios_set_domain_dim_j_name
	424
	425	SUBROUTINE cxios_get_domain_dim_j_name(domain_hdl, dim_j_name, dim_j_name_size) BIND(C)
	426	USE ISO_C_BINDING
	427	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	428	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_j_name
	429	INTEGER (kind = C_INT) , VALUE :: dim_j_name_size
	430	END SUBROUTINE cxios_get_domain_dim_j_name
	431
	432	FUNCTION cxios_is_defined_domain_dim_j_name(domain_hdl) BIND(C)
	433	USE ISO_C_BINDING
	434	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_dim_j_name
	435	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	436	END FUNCTION cxios_is_defined_domain_dim_j_name
	437
	438
[546]	439	SUBROUTINE cxios_set_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C)
	440	USE ISO_C_BINDING
	441	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	442	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref
	443	INTEGER (kind = C_INT) , VALUE :: domain_ref_size
	444	END SUBROUTINE cxios_set_domain_domain_ref
[581]	445
[546]	446	SUBROUTINE cxios_get_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C)
	447	USE ISO_C_BINDING
	448	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	449	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref
	450	INTEGER (kind = C_INT) , VALUE :: domain_ref_size
	451	END SUBROUTINE cxios_get_domain_domain_ref
[581]	452
	453	FUNCTION cxios_is_defined_domain_domain_ref(domain_hdl) BIND(C)
[546]	454	USE ISO_C_BINDING
	455	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_ref
	456	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	457	END FUNCTION cxios_is_defined_domain_domain_ref
[581]	458
	459
[691]	460	SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent) BIND(C)
[690]	461	USE ISO_C_BINDING
[467]	462	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	463	INTEGER (KIND=C_INT) , DIMENSION(*) :: i_index
[674]	464	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[467]	465	END SUBROUTINE cxios_set_domain_i_index
[581]	466
[674]	467	SUBROUTINE cxios_get_domain_i_index(domain_hdl, i_index, extent) BIND(C)
[467]	468	USE ISO_C_BINDING
	469	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	470	INTEGER (KIND=C_INT) , DIMENSION(*) :: i_index
[674]	471	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[467]	472	END SUBROUTINE cxios_get_domain_i_index
[581]	473
	474	FUNCTION cxios_is_defined_domain_i_index(domain_hdl) BIND(C)
[467]	475	USE ISO_C_BINDING
	476	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_i_index
	477	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	478	END FUNCTION cxios_is_defined_domain_i_index
[581]	479
	480
[326]	481	SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C)
	482	USE ISO_C_BINDING
	483	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	484	INTEGER (KIND=C_INT) , VALUE :: ibegin
	485	END SUBROUTINE cxios_set_domain_ibegin
[581]	486
[326]	487	SUBROUTINE cxios_get_domain_ibegin(domain_hdl, ibegin) BIND(C)
	488	USE ISO_C_BINDING
	489	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	490	INTEGER (KIND=C_INT) :: ibegin
	491	END SUBROUTINE cxios_get_domain_ibegin
[581]	492
	493	FUNCTION cxios_is_defined_domain_ibegin(domain_hdl) BIND(C)
[432]	494	USE ISO_C_BINDING
	495	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ibegin
	496	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	497	END FUNCTION cxios_is_defined_domain_ibegin
[581]	498
	499
[674]	500	SUBROUTINE cxios_set_domain_j_index(domain_hdl, j_index, extent) BIND(C)
[326]	501	USE ISO_C_BINDING
[467]	502	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	503	INTEGER (KIND=C_INT) , DIMENSION(*) :: j_index
[674]	504	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[467]	505	END SUBROUTINE cxios_set_domain_j_index
[581]	506
[674]	507	SUBROUTINE cxios_get_domain_j_index(domain_hdl, j_index, extent) BIND(C)
[467]	508	USE ISO_C_BINDING
	509	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	510	INTEGER (KIND=C_INT) , DIMENSION(*) :: j_index
[674]	511	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[467]	512	END SUBROUTINE cxios_get_domain_j_index
[581]	513
	514	FUNCTION cxios_is_defined_domain_j_index(domain_hdl) BIND(C)
[467]	515	USE ISO_C_BINDING
	516	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_j_index
	517	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	518	END FUNCTION cxios_is_defined_domain_j_index
[581]	519
	520
[326]	521	SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C)
	522	USE ISO_C_BINDING
	523	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	524	INTEGER (KIND=C_INT) , VALUE :: jbegin
	525	END SUBROUTINE cxios_set_domain_jbegin
[581]	526
[326]	527	SUBROUTINE cxios_get_domain_jbegin(domain_hdl, jbegin) BIND(C)
	528	USE ISO_C_BINDING
	529	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	530	INTEGER (KIND=C_INT) :: jbegin
	531	END SUBROUTINE cxios_get_domain_jbegin
[581]	532
	533	FUNCTION cxios_is_defined_domain_jbegin(domain_hdl) BIND(C)
[432]	534	USE ISO_C_BINDING
	535	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jbegin
	536	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	537	END FUNCTION cxios_is_defined_domain_jbegin
[581]	538
	539
[1492]	540	SUBROUTINE cxios_set_domain_lat_name(domain_hdl, lat_name, lat_name_size) BIND(C)
	541	USE ISO_C_BINDING
	542	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	543	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: lat_name
	544	INTEGER (kind = C_INT) , VALUE :: lat_name_size
	545	END SUBROUTINE cxios_set_domain_lat_name
	546
	547	SUBROUTINE cxios_get_domain_lat_name(domain_hdl, lat_name, lat_name_size) BIND(C)
	548	USE ISO_C_BINDING
	549	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	550	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: lat_name
	551	INTEGER (kind = C_INT) , VALUE :: lat_name_size
	552	END SUBROUTINE cxios_get_domain_lat_name
	553
	554	FUNCTION cxios_is_defined_domain_lat_name(domain_hdl) BIND(C)
	555	USE ISO_C_BINDING
	556	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lat_name
	557	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	558	END FUNCTION cxios_is_defined_domain_lat_name
	559
	560
[674]	561	SUBROUTINE cxios_set_domain_latvalue_1d(domain_hdl, latvalue_1d, extent) BIND(C)
[326]	562	USE ISO_C_BINDING
	563	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	564	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_1d
[674]	565	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	566	END SUBROUTINE cxios_set_domain_latvalue_1d
[581]	567
[674]	568	SUBROUTINE cxios_get_domain_latvalue_1d(domain_hdl, latvalue_1d, extent) BIND(C)
[326]	569	USE ISO_C_BINDING
	570	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	571	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_1d
[674]	572	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	573	END SUBROUTINE cxios_get_domain_latvalue_1d
[581]	574
[664]	575	FUNCTION cxios_is_defined_domain_latvalue_1d(domain_hdl) BIND(C)
[432]	576	USE ISO_C_BINDING
[664]	577	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue_1d
[432]	578	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	579	END FUNCTION cxios_is_defined_domain_latvalue_1d
[581]	580
	581
[674]	582	SUBROUTINE cxios_set_domain_latvalue_2d(domain_hdl, latvalue_2d, extent) BIND(C)
[664]	583	USE ISO_C_BINDING
	584	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	585	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_2d
[674]	586	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	587	END SUBROUTINE cxios_set_domain_latvalue_2d
	588
[674]	589	SUBROUTINE cxios_get_domain_latvalue_2d(domain_hdl, latvalue_2d, extent) BIND(C)
[664]	590	USE ISO_C_BINDING
	591	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	592	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_2d
[674]	593	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	594	END SUBROUTINE cxios_get_domain_latvalue_2d
	595
	596	FUNCTION cxios_is_defined_domain_latvalue_2d(domain_hdl) BIND(C)
	597	USE ISO_C_BINDING
	598	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue_2d
	599	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	600	END FUNCTION cxios_is_defined_domain_latvalue_2d
	601
	602
[1492]	603	SUBROUTINE cxios_set_domain_lon_name(domain_hdl, lon_name, lon_name_size) BIND(C)
	604	USE ISO_C_BINDING
	605	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	606	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: lon_name
	607	INTEGER (kind = C_INT) , VALUE :: lon_name_size
	608	END SUBROUTINE cxios_set_domain_lon_name
	609
	610	SUBROUTINE cxios_get_domain_lon_name(domain_hdl, lon_name, lon_name_size) BIND(C)
	611	USE ISO_C_BINDING
	612	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	613	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: lon_name
	614	INTEGER (kind = C_INT) , VALUE :: lon_name_size
	615	END SUBROUTINE cxios_get_domain_lon_name
	616
	617	FUNCTION cxios_is_defined_domain_lon_name(domain_hdl) BIND(C)
	618	USE ISO_C_BINDING
	619	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lon_name
	620	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	621	END FUNCTION cxios_is_defined_domain_lon_name
	622
	623
[326]	624	SUBROUTINE cxios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
	625	USE ISO_C_BINDING
	626	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	627	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name
	628	INTEGER (kind = C_INT) , VALUE :: long_name_size
	629	END SUBROUTINE cxios_set_domain_long_name
[581]	630
[326]	631	SUBROUTINE cxios_get_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
	632	USE ISO_C_BINDING
	633	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	634	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name
	635	INTEGER (kind = C_INT) , VALUE :: long_name_size
	636	END SUBROUTINE cxios_get_domain_long_name
[581]	637
	638	FUNCTION cxios_is_defined_domain_long_name(domain_hdl) BIND(C)
[432]	639	USE ISO_C_BINDING
	640	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_long_name
	641	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	642	END FUNCTION cxios_is_defined_domain_long_name
[581]	643
	644
[674]	645	SUBROUTINE cxios_set_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent) BIND(C)
[326]	646	USE ISO_C_BINDING
	647	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	648	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_1d
[674]	649	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	650	END SUBROUTINE cxios_set_domain_lonvalue_1d
[581]	651
[674]	652	SUBROUTINE cxios_get_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent) BIND(C)
[326]	653	USE ISO_C_BINDING
	654	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	655	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_1d
[674]	656	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	657	END SUBROUTINE cxios_get_domain_lonvalue_1d
[581]	658
[664]	659	FUNCTION cxios_is_defined_domain_lonvalue_1d(domain_hdl) BIND(C)
[432]	660	USE ISO_C_BINDING
[664]	661	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue_1d
[432]	662	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	663	END FUNCTION cxios_is_defined_domain_lonvalue_1d
[581]	664
	665
[674]	666	SUBROUTINE cxios_set_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent) BIND(C)
[326]	667	USE ISO_C_BINDING
	668	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	669	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_2d
[674]	670	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	671	END SUBROUTINE cxios_set_domain_lonvalue_2d
[581]	672
[674]	673	SUBROUTINE cxios_get_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent) BIND(C)
[326]	674	USE ISO_C_BINDING
	675	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	676	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_2d
[674]	677	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	678	END SUBROUTINE cxios_get_domain_lonvalue_2d
[581]	679
[664]	680	FUNCTION cxios_is_defined_domain_lonvalue_2d(domain_hdl) BIND(C)
[432]	681	USE ISO_C_BINDING
[664]	682	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue_2d
[432]	683	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	684	END FUNCTION cxios_is_defined_domain_lonvalue_2d
[581]	685
	686
[674]	687	SUBROUTINE cxios_set_domain_mask_1d(domain_hdl, mask_1d, extent) BIND(C)
[664]	688	USE ISO_C_BINDING
	689	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	690	LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_1d
[674]	691	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	692	END SUBROUTINE cxios_set_domain_mask_1d
	693
[674]	694	SUBROUTINE cxios_get_domain_mask_1d(domain_hdl, mask_1d, extent) BIND(C)
[664]	695	USE ISO_C_BINDING
	696	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	697	LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_1d
[674]	698	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	699	END SUBROUTINE cxios_get_domain_mask_1d
	700
	701	FUNCTION cxios_is_defined_domain_mask_1d(domain_hdl) BIND(C)
	702	USE ISO_C_BINDING
	703	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask_1d
	704	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	705	END FUNCTION cxios_is_defined_domain_mask_1d
	706
	707
[674]	708	SUBROUTINE cxios_set_domain_mask_2d(domain_hdl, mask_2d, extent) BIND(C)
[664]	709	USE ISO_C_BINDING
	710	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	711	LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_2d
[674]	712	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	713	END SUBROUTINE cxios_set_domain_mask_2d
	714
[674]	715	SUBROUTINE cxios_get_domain_mask_2d(domain_hdl, mask_2d, extent) BIND(C)
[664]	716	USE ISO_C_BINDING
	717	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	718	LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_2d
[674]	719	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	720	END SUBROUTINE cxios_get_domain_mask_2d
	721
	722	FUNCTION cxios_is_defined_domain_mask_2d(domain_hdl) BIND(C)
	723	USE ISO_C_BINDING
	724	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask_2d
	725	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	726	END FUNCTION cxios_is_defined_domain_mask_2d
	727
	728
[326]	729	SUBROUTINE cxios_set_domain_name(domain_hdl, name, name_size) BIND(C)
	730	USE ISO_C_BINDING
	731	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	732	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name
	733	INTEGER (kind = C_INT) , VALUE :: name_size
	734	END SUBROUTINE cxios_set_domain_name
[581]	735
[326]	736	SUBROUTINE cxios_get_domain_name(domain_hdl, name, name_size) BIND(C)
	737	USE ISO_C_BINDING
	738	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	739	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name
	740	INTEGER (kind = C_INT) , VALUE :: name_size
	741	END SUBROUTINE cxios_get_domain_name
[581]	742
	743	FUNCTION cxios_is_defined_domain_name(domain_hdl) BIND(C)
[432]	744	USE ISO_C_BINDING
	745	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_name
	746	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	747	END FUNCTION cxios_is_defined_domain_name
[581]	748
	749
[326]	750	SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C)
	751	USE ISO_C_BINDING
	752	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	753	INTEGER (KIND=C_INT) , VALUE :: ni
	754	END SUBROUTINE cxios_set_domain_ni
[581]	755
[326]	756	SUBROUTINE cxios_get_domain_ni(domain_hdl, ni) BIND(C)
	757	USE ISO_C_BINDING
	758	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	759	INTEGER (KIND=C_INT) :: ni
	760	END SUBROUTINE cxios_get_domain_ni
[581]	761
	762	FUNCTION cxios_is_defined_domain_ni(domain_hdl) BIND(C)
[432]	763	USE ISO_C_BINDING
	764	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni
	765	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	766	END FUNCTION cxios_is_defined_domain_ni
[581]	767
	768
[326]	769	SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
	770	USE ISO_C_BINDING
	771	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	772	INTEGER (KIND=C_INT) , VALUE :: ni_glo
	773	END SUBROUTINE cxios_set_domain_ni_glo
[581]	774
[326]	775	SUBROUTINE cxios_get_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
	776	USE ISO_C_BINDING
	777	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	778	INTEGER (KIND=C_INT) :: ni_glo
	779	END SUBROUTINE cxios_get_domain_ni_glo
[581]	780
	781	FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl) BIND(C)
[432]	782	USE ISO_C_BINDING
	783	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni_glo
	784	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	785	END FUNCTION cxios_is_defined_domain_ni_glo
[581]	786
	787
[326]	788	SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C)
	789	USE ISO_C_BINDING
	790	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	791	INTEGER (KIND=C_INT) , VALUE :: nj
	792	END SUBROUTINE cxios_set_domain_nj
[581]	793
[326]	794	SUBROUTINE cxios_get_domain_nj(domain_hdl, nj) BIND(C)
	795	USE ISO_C_BINDING
	796	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	797	INTEGER (KIND=C_INT) :: nj
	798	END SUBROUTINE cxios_get_domain_nj
[581]	799
	800	FUNCTION cxios_is_defined_domain_nj(domain_hdl) BIND(C)
[432]	801	USE ISO_C_BINDING
	802	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj
	803	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	804	END FUNCTION cxios_is_defined_domain_nj
[581]	805
	806
[326]	807	SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
	808	USE ISO_C_BINDING
	809	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	810	INTEGER (KIND=C_INT) , VALUE :: nj_glo
	811	END SUBROUTINE cxios_set_domain_nj_glo
[581]	812
[326]	813	SUBROUTINE cxios_get_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
	814	USE ISO_C_BINDING
	815	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	816	INTEGER (KIND=C_INT) :: nj_glo
	817	END SUBROUTINE cxios_get_domain_nj_glo
[581]	818
	819	FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl) BIND(C)
[432]	820	USE ISO_C_BINDING
	821	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj_glo
	822	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	823	END FUNCTION cxios_is_defined_domain_nj_glo
[581]	824
	825
[449]	826	SUBROUTINE cxios_set_domain_nvertex(domain_hdl, nvertex) BIND(C)
	827	USE ISO_C_BINDING
	828	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	829	INTEGER (KIND=C_INT) , VALUE :: nvertex
	830	END SUBROUTINE cxios_set_domain_nvertex
[581]	831
[449]	832	SUBROUTINE cxios_get_domain_nvertex(domain_hdl, nvertex) BIND(C)
	833	USE ISO_C_BINDING
	834	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	835	INTEGER (KIND=C_INT) :: nvertex
	836	END SUBROUTINE cxios_get_domain_nvertex
[581]	837
	838	FUNCTION cxios_is_defined_domain_nvertex(domain_hdl) BIND(C)
[449]	839	USE ISO_C_BINDING
	840	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nvertex
	841	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	842	END FUNCTION cxios_is_defined_domain_nvertex
[581]	843
	844
[2616]	845	SUBROUTINE cxios_set_domain_nvertex_name(domain_hdl, nvertex_name, nvertex_name_size) BIND(C)
	846	USE ISO_C_BINDING
	847	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	848	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: nvertex_name
	849	INTEGER (kind = C_INT) , VALUE :: nvertex_name_size
	850	END SUBROUTINE cxios_set_domain_nvertex_name
	851
	852	SUBROUTINE cxios_get_domain_nvertex_name(domain_hdl, nvertex_name, nvertex_name_size) BIND(C)
	853	USE ISO_C_BINDING
	854	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	855	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: nvertex_name
	856	INTEGER (kind = C_INT) , VALUE :: nvertex_name_size
	857	END SUBROUTINE cxios_get_domain_nvertex_name
	858
	859	FUNCTION cxios_is_defined_domain_nvertex_name(domain_hdl) BIND(C)
	860	USE ISO_C_BINDING
	861	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nvertex_name
	862	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	863	END FUNCTION cxios_is_defined_domain_nvertex_name
	864
	865
[1158]	866	SUBROUTINE cxios_set_domain_prec(domain_hdl, prec) BIND(C)
	867	USE ISO_C_BINDING
	868	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	869	INTEGER (KIND=C_INT) , VALUE :: prec
	870	END SUBROUTINE cxios_set_domain_prec
	871
	872	SUBROUTINE cxios_get_domain_prec(domain_hdl, prec) BIND(C)
	873	USE ISO_C_BINDING
	874	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	875	INTEGER (KIND=C_INT) :: prec
	876	END SUBROUTINE cxios_get_domain_prec
	877
	878	FUNCTION cxios_is_defined_domain_prec(domain_hdl) BIND(C)
	879	USE ISO_C_BINDING
	880	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_prec
	881	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	882	END FUNCTION cxios_is_defined_domain_prec
	883
	884
[1626]	885	SUBROUTINE cxios_set_domain_radius(domain_hdl, radius) BIND(C)
	886	USE ISO_C_BINDING
	887	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	888	REAL (KIND=C_DOUBLE) , VALUE :: radius
	889	END SUBROUTINE cxios_set_domain_radius
	890
	891	SUBROUTINE cxios_get_domain_radius(domain_hdl, radius) BIND(C)
	892	USE ISO_C_BINDING
	893	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	894	REAL (KIND=C_DOUBLE) :: radius
	895	END SUBROUTINE cxios_get_domain_radius
	896
	897	FUNCTION cxios_is_defined_domain_radius(domain_hdl) BIND(C)
	898	USE ISO_C_BINDING
	899	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_radius
	900	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	901	END FUNCTION cxios_is_defined_domain_radius
	902
	903
[326]	904	SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
	905	USE ISO_C_BINDING
	906	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	907	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name
	908	INTEGER (kind = C_INT) , VALUE :: standard_name_size
	909	END SUBROUTINE cxios_set_domain_standard_name
[581]	910
[326]	911	SUBROUTINE cxios_get_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
	912	USE ISO_C_BINDING
	913	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	914	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name
	915	INTEGER (kind = C_INT) , VALUE :: standard_name_size
	916	END SUBROUTINE cxios_get_domain_standard_name
[581]	917
	918	FUNCTION cxios_is_defined_domain_standard_name(domain_hdl) BIND(C)
[432]	919	USE ISO_C_BINDING
	920	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_standard_name
	921	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	922	END FUNCTION cxios_is_defined_domain_standard_name
[581]	923
	924
[449]	925	SUBROUTINE cxios_set_domain_type(domain_hdl, type, type_size) BIND(C)
	926	USE ISO_C_BINDING
	927	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	928	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: type
	929	INTEGER (kind = C_INT) , VALUE :: type_size
	930	END SUBROUTINE cxios_set_domain_type
[581]	931
[449]	932	SUBROUTINE cxios_get_domain_type(domain_hdl, type, type_size) BIND(C)
	933	USE ISO_C_BINDING
	934	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	935	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: type
	936	INTEGER (kind = C_INT) , VALUE :: type_size
	937	END SUBROUTINE cxios_get_domain_type
[581]	938
	939	FUNCTION cxios_is_defined_domain_type(domain_hdl) BIND(C)
[449]	940	USE ISO_C_BINDING
	941	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_type
	942	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	943	END FUNCTION cxios_is_defined_domain_type
[581]	944
	945	END INTERFACE
	946
[326]	947	END MODULE domain_interface_attr

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: XIOS3/trunk/src/interface/fortran_attr/domain_interface_attr.F90 @ 2622

Download in other formats: