Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.F90 @ 1040

Last change on this file since 1040 was 789, checked in by rlacroix, 9 years ago

Domain: Remove the domain_src attribute.

It was added but was never used.

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: 27.4 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
[674]	33	SUBROUTINE cxios_set_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent) BIND(C)
[449]	34	USE ISO_C_BINDING
	35	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	36	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_1d
[674]	37	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	38	END SUBROUTINE cxios_set_domain_bounds_lat_1d
[581]	39
[674]	40	SUBROUTINE cxios_get_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent) BIND(C)
[449]	41	USE ISO_C_BINDING
	42	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	43	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_1d
[674]	44	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	45	END SUBROUTINE cxios_get_domain_bounds_lat_1d
[581]	46
[664]	47	FUNCTION cxios_is_defined_domain_bounds_lat_1d(domain_hdl) BIND(C)
[449]	48	USE ISO_C_BINDING
[664]	49	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat_1d
[449]	50	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	51	END FUNCTION cxios_is_defined_domain_bounds_lat_1d
[581]	52
	53
[674]	54	SUBROUTINE cxios_set_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent) BIND(C)
[449]	55	USE ISO_C_BINDING
	56	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	57	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_2d
[674]	58	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	59	END SUBROUTINE cxios_set_domain_bounds_lat_2d
[581]	60
[674]	61	SUBROUTINE cxios_get_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent) BIND(C)
[449]	62	USE ISO_C_BINDING
	63	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	64	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_2d
[674]	65	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	66	END SUBROUTINE cxios_get_domain_bounds_lat_2d
[581]	67
[664]	68	FUNCTION cxios_is_defined_domain_bounds_lat_2d(domain_hdl) BIND(C)
[449]	69	USE ISO_C_BINDING
[664]	70	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat_2d
[449]	71	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	72	END FUNCTION cxios_is_defined_domain_bounds_lat_2d
[581]	73
	74
[674]	75	SUBROUTINE cxios_set_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent) BIND(C)
[664]	76	USE ISO_C_BINDING
	77	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	78	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_1d
[674]	79	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	80	END SUBROUTINE cxios_set_domain_bounds_lon_1d
	81
[674]	82	SUBROUTINE cxios_get_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent) BIND(C)
[664]	83	USE ISO_C_BINDING
	84	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	85	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_1d
[674]	86	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	87	END SUBROUTINE cxios_get_domain_bounds_lon_1d
	88
	89	FUNCTION cxios_is_defined_domain_bounds_lon_1d(domain_hdl) BIND(C)
	90	USE ISO_C_BINDING
	91	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon_1d
	92	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	93	END FUNCTION cxios_is_defined_domain_bounds_lon_1d
	94
	95
[674]	96	SUBROUTINE cxios_set_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent) BIND(C)
[664]	97	USE ISO_C_BINDING
	98	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	99	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_2d
[674]	100	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	101	END SUBROUTINE cxios_set_domain_bounds_lon_2d
	102
[674]	103	SUBROUTINE cxios_get_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent) BIND(C)
[664]	104	USE ISO_C_BINDING
	105	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	106	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_2d
[674]	107	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	108	END SUBROUTINE cxios_get_domain_bounds_lon_2d
	109
	110	FUNCTION cxios_is_defined_domain_bounds_lon_2d(domain_hdl) BIND(C)
	111	USE ISO_C_BINDING
	112	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon_2d
	113	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	114	END FUNCTION cxios_is_defined_domain_bounds_lon_2d
	115
	116
[326]	117	SUBROUTINE cxios_set_domain_data_dim(domain_hdl, data_dim) BIND(C)
	118	USE ISO_C_BINDING
	119	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	120	INTEGER (KIND=C_INT) , VALUE :: data_dim
	121	END SUBROUTINE cxios_set_domain_data_dim
[581]	122
[326]	123	SUBROUTINE cxios_get_domain_data_dim(domain_hdl, data_dim) BIND(C)
	124	USE ISO_C_BINDING
	125	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	126	INTEGER (KIND=C_INT) :: data_dim
	127	END SUBROUTINE cxios_get_domain_data_dim
[581]	128
	129	FUNCTION cxios_is_defined_domain_data_dim(domain_hdl) BIND(C)
[432]	130	USE ISO_C_BINDING
	131	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_dim
	132	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	133	END FUNCTION cxios_is_defined_domain_data_dim
[581]	134
	135
[674]	136	SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent) BIND(C)
[326]	137	USE ISO_C_BINDING
	138	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	139	INTEGER (KIND=C_INT) , DIMENSION(*) :: data_i_index
[674]	140	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[326]	141	END SUBROUTINE cxios_set_domain_data_i_index
[581]	142
[674]	143	SUBROUTINE cxios_get_domain_data_i_index(domain_hdl, data_i_index, extent) BIND(C)
[326]	144	USE ISO_C_BINDING
	145	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	146	INTEGER (KIND=C_INT) , DIMENSION(*) :: data_i_index
[674]	147	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[326]	148	END SUBROUTINE cxios_get_domain_data_i_index
[581]	149
	150	FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl) BIND(C)
[432]	151	USE ISO_C_BINDING
	152	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_i_index
	153	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	154	END FUNCTION cxios_is_defined_domain_data_i_index
[581]	155
	156
[326]	157	SUBROUTINE cxios_set_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
	158	USE ISO_C_BINDING
	159	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	160	INTEGER (KIND=C_INT) , VALUE :: data_ibegin
	161	END SUBROUTINE cxios_set_domain_data_ibegin
[581]	162
[326]	163	SUBROUTINE cxios_get_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
	164	USE ISO_C_BINDING
	165	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	166	INTEGER (KIND=C_INT) :: data_ibegin
	167	END SUBROUTINE cxios_get_domain_data_ibegin
[581]	168
	169	FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl) BIND(C)
[432]	170	USE ISO_C_BINDING
	171	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ibegin
	172	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	173	END FUNCTION cxios_is_defined_domain_data_ibegin
[581]	174
	175
[674]	176	SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent) BIND(C)
[326]	177	USE ISO_C_BINDING
	178	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	179	INTEGER (KIND=C_INT) , DIMENSION(*) :: data_j_index
[674]	180	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[326]	181	END SUBROUTINE cxios_set_domain_data_j_index
[581]	182
[674]	183	SUBROUTINE cxios_get_domain_data_j_index(domain_hdl, data_j_index, extent) BIND(C)
[326]	184	USE ISO_C_BINDING
	185	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	186	INTEGER (KIND=C_INT) , DIMENSION(*) :: data_j_index
[674]	187	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[326]	188	END SUBROUTINE cxios_get_domain_data_j_index
[581]	189
	190	FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl) BIND(C)
[432]	191	USE ISO_C_BINDING
	192	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_j_index
	193	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	194	END FUNCTION cxios_is_defined_domain_data_j_index
[581]	195
	196
[326]	197	SUBROUTINE cxios_set_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
	198	USE ISO_C_BINDING
	199	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	200	INTEGER (KIND=C_INT) , VALUE :: data_jbegin
	201	END SUBROUTINE cxios_set_domain_data_jbegin
[581]	202
[326]	203	SUBROUTINE cxios_get_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
	204	USE ISO_C_BINDING
	205	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	206	INTEGER (KIND=C_INT) :: data_jbegin
	207	END SUBROUTINE cxios_get_domain_data_jbegin
[581]	208
	209	FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl) BIND(C)
[432]	210	USE ISO_C_BINDING
	211	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_jbegin
	212	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	213	END FUNCTION cxios_is_defined_domain_data_jbegin
[581]	214
	215
[326]	216	SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C)
	217	USE ISO_C_BINDING
	218	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	219	INTEGER (KIND=C_INT) , VALUE :: data_ni
	220	END SUBROUTINE cxios_set_domain_data_ni
[581]	221
[326]	222	SUBROUTINE cxios_get_domain_data_ni(domain_hdl, data_ni) BIND(C)
	223	USE ISO_C_BINDING
	224	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	225	INTEGER (KIND=C_INT) :: data_ni
	226	END SUBROUTINE cxios_get_domain_data_ni
[581]	227
	228	FUNCTION cxios_is_defined_domain_data_ni(domain_hdl) BIND(C)
[432]	229	USE ISO_C_BINDING
	230	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ni
	231	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	232	END FUNCTION cxios_is_defined_domain_data_ni
[581]	233
	234
[326]	235	SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C)
	236	USE ISO_C_BINDING
	237	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	238	INTEGER (KIND=C_INT) , VALUE :: data_nj
	239	END SUBROUTINE cxios_set_domain_data_nj
[581]	240
[326]	241	SUBROUTINE cxios_get_domain_data_nj(domain_hdl, data_nj) BIND(C)
	242	USE ISO_C_BINDING
	243	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	244	INTEGER (KIND=C_INT) :: data_nj
	245	END SUBROUTINE cxios_get_domain_data_nj
[581]	246
	247	FUNCTION cxios_is_defined_domain_data_nj(domain_hdl) BIND(C)
[432]	248	USE ISO_C_BINDING
	249	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_nj
	250	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	251	END FUNCTION cxios_is_defined_domain_data_nj
[581]	252
	253
[546]	254	SUBROUTINE cxios_set_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C)
	255	USE ISO_C_BINDING
	256	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	257	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref
	258	INTEGER (kind = C_INT) , VALUE :: domain_ref_size
	259	END SUBROUTINE cxios_set_domain_domain_ref
[581]	260
[546]	261	SUBROUTINE cxios_get_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C)
	262	USE ISO_C_BINDING
	263	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	264	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref
	265	INTEGER (kind = C_INT) , VALUE :: domain_ref_size
	266	END SUBROUTINE cxios_get_domain_domain_ref
[581]	267
	268	FUNCTION cxios_is_defined_domain_domain_ref(domain_hdl) BIND(C)
[546]	269	USE ISO_C_BINDING
	270	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_ref
	271	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	272	END FUNCTION cxios_is_defined_domain_domain_ref
[581]	273
	274
[691]	275	SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent) BIND(C)
[690]	276	USE ISO_C_BINDING
[467]	277	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	278	INTEGER (KIND=C_INT) , DIMENSION(*) :: i_index
[674]	279	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[467]	280	END SUBROUTINE cxios_set_domain_i_index
[581]	281
[674]	282	SUBROUTINE cxios_get_domain_i_index(domain_hdl, i_index, extent) BIND(C)
[467]	283	USE ISO_C_BINDING
	284	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	285	INTEGER (KIND=C_INT) , DIMENSION(*) :: i_index
[674]	286	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[467]	287	END SUBROUTINE cxios_get_domain_i_index
[581]	288
	289	FUNCTION cxios_is_defined_domain_i_index(domain_hdl) BIND(C)
[467]	290	USE ISO_C_BINDING
	291	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_i_index
	292	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	293	END FUNCTION cxios_is_defined_domain_i_index
[581]	294
	295
[326]	296	SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C)
	297	USE ISO_C_BINDING
	298	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	299	INTEGER (KIND=C_INT) , VALUE :: ibegin
	300	END SUBROUTINE cxios_set_domain_ibegin
[581]	301
[326]	302	SUBROUTINE cxios_get_domain_ibegin(domain_hdl, ibegin) BIND(C)
	303	USE ISO_C_BINDING
	304	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	305	INTEGER (KIND=C_INT) :: ibegin
	306	END SUBROUTINE cxios_get_domain_ibegin
[581]	307
	308	FUNCTION cxios_is_defined_domain_ibegin(domain_hdl) BIND(C)
[432]	309	USE ISO_C_BINDING
	310	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ibegin
	311	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	312	END FUNCTION cxios_is_defined_domain_ibegin
[581]	313
	314
[674]	315	SUBROUTINE cxios_set_domain_j_index(domain_hdl, j_index, extent) BIND(C)
[326]	316	USE ISO_C_BINDING
[467]	317	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	318	INTEGER (KIND=C_INT) , DIMENSION(*) :: j_index
[674]	319	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[467]	320	END SUBROUTINE cxios_set_domain_j_index
[581]	321
[674]	322	SUBROUTINE cxios_get_domain_j_index(domain_hdl, j_index, extent) BIND(C)
[467]	323	USE ISO_C_BINDING
	324	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	325	INTEGER (KIND=C_INT) , DIMENSION(*) :: j_index
[674]	326	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[467]	327	END SUBROUTINE cxios_get_domain_j_index
[581]	328
	329	FUNCTION cxios_is_defined_domain_j_index(domain_hdl) BIND(C)
[467]	330	USE ISO_C_BINDING
	331	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_j_index
	332	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	333	END FUNCTION cxios_is_defined_domain_j_index
[581]	334
	335
[326]	336	SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C)
	337	USE ISO_C_BINDING
	338	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	339	INTEGER (KIND=C_INT) , VALUE :: jbegin
	340	END SUBROUTINE cxios_set_domain_jbegin
[581]	341
[326]	342	SUBROUTINE cxios_get_domain_jbegin(domain_hdl, jbegin) BIND(C)
	343	USE ISO_C_BINDING
	344	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	345	INTEGER (KIND=C_INT) :: jbegin
	346	END SUBROUTINE cxios_get_domain_jbegin
[581]	347
	348	FUNCTION cxios_is_defined_domain_jbegin(domain_hdl) BIND(C)
[432]	349	USE ISO_C_BINDING
	350	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jbegin
	351	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	352	END FUNCTION cxios_is_defined_domain_jbegin
[581]	353
	354
[674]	355	SUBROUTINE cxios_set_domain_latvalue_1d(domain_hdl, latvalue_1d, extent) BIND(C)
[326]	356	USE ISO_C_BINDING
	357	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	358	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_1d
[674]	359	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	360	END SUBROUTINE cxios_set_domain_latvalue_1d
[581]	361
[674]	362	SUBROUTINE cxios_get_domain_latvalue_1d(domain_hdl, latvalue_1d, extent) BIND(C)
[326]	363	USE ISO_C_BINDING
	364	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	365	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_1d
[674]	366	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	367	END SUBROUTINE cxios_get_domain_latvalue_1d
[581]	368
[664]	369	FUNCTION cxios_is_defined_domain_latvalue_1d(domain_hdl) BIND(C)
[432]	370	USE ISO_C_BINDING
[664]	371	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue_1d
[432]	372	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	373	END FUNCTION cxios_is_defined_domain_latvalue_1d
[581]	374
	375
[674]	376	SUBROUTINE cxios_set_domain_latvalue_2d(domain_hdl, latvalue_2d, extent) BIND(C)
[664]	377	USE ISO_C_BINDING
	378	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	379	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_2d
[674]	380	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	381	END SUBROUTINE cxios_set_domain_latvalue_2d
	382
[674]	383	SUBROUTINE cxios_get_domain_latvalue_2d(domain_hdl, latvalue_2d, extent) BIND(C)
[664]	384	USE ISO_C_BINDING
	385	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	386	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_2d
[674]	387	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	388	END SUBROUTINE cxios_get_domain_latvalue_2d
	389
	390	FUNCTION cxios_is_defined_domain_latvalue_2d(domain_hdl) BIND(C)
	391	USE ISO_C_BINDING
	392	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue_2d
	393	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	394	END FUNCTION cxios_is_defined_domain_latvalue_2d
	395
	396
[326]	397	SUBROUTINE cxios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
	398	USE ISO_C_BINDING
	399	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	400	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name
	401	INTEGER (kind = C_INT) , VALUE :: long_name_size
	402	END SUBROUTINE cxios_set_domain_long_name
[581]	403
[326]	404	SUBROUTINE cxios_get_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
	405	USE ISO_C_BINDING
	406	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	407	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name
	408	INTEGER (kind = C_INT) , VALUE :: long_name_size
	409	END SUBROUTINE cxios_get_domain_long_name
[581]	410
	411	FUNCTION cxios_is_defined_domain_long_name(domain_hdl) BIND(C)
[432]	412	USE ISO_C_BINDING
	413	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_long_name
	414	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	415	END FUNCTION cxios_is_defined_domain_long_name
[581]	416
	417
[674]	418	SUBROUTINE cxios_set_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent) BIND(C)
[326]	419	USE ISO_C_BINDING
	420	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	421	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_1d
[674]	422	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	423	END SUBROUTINE cxios_set_domain_lonvalue_1d
[581]	424
[674]	425	SUBROUTINE cxios_get_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent) BIND(C)
[326]	426	USE ISO_C_BINDING
	427	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	428	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_1d
[674]	429	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	430	END SUBROUTINE cxios_get_domain_lonvalue_1d
[581]	431
[664]	432	FUNCTION cxios_is_defined_domain_lonvalue_1d(domain_hdl) BIND(C)
[432]	433	USE ISO_C_BINDING
[664]	434	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue_1d
[432]	435	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	436	END FUNCTION cxios_is_defined_domain_lonvalue_1d
[581]	437
	438
[674]	439	SUBROUTINE cxios_set_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent) BIND(C)
[326]	440	USE ISO_C_BINDING
	441	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	442	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_2d
[674]	443	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	444	END SUBROUTINE cxios_set_domain_lonvalue_2d
[581]	445
[674]	446	SUBROUTINE cxios_get_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent) BIND(C)
[326]	447	USE ISO_C_BINDING
	448	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	449	REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_2d
[674]	450	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	451	END SUBROUTINE cxios_get_domain_lonvalue_2d
[581]	452
[664]	453	FUNCTION cxios_is_defined_domain_lonvalue_2d(domain_hdl) BIND(C)
[432]	454	USE ISO_C_BINDING
[664]	455	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue_2d
[432]	456	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
[664]	457	END FUNCTION cxios_is_defined_domain_lonvalue_2d
[581]	458
	459
[674]	460	SUBROUTINE cxios_set_domain_mask_1d(domain_hdl, mask_1d, extent) BIND(C)
[664]	461	USE ISO_C_BINDING
	462	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	463	LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_1d
[674]	464	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	465	END SUBROUTINE cxios_set_domain_mask_1d
	466
[674]	467	SUBROUTINE cxios_get_domain_mask_1d(domain_hdl, mask_1d, extent) BIND(C)
[664]	468	USE ISO_C_BINDING
	469	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	470	LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_1d
[674]	471	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	472	END SUBROUTINE cxios_get_domain_mask_1d
	473
	474	FUNCTION cxios_is_defined_domain_mask_1d(domain_hdl) BIND(C)
	475	USE ISO_C_BINDING
	476	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask_1d
	477	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	478	END FUNCTION cxios_is_defined_domain_mask_1d
	479
	480
[674]	481	SUBROUTINE cxios_set_domain_mask_2d(domain_hdl, mask_2d, extent) BIND(C)
[664]	482	USE ISO_C_BINDING
	483	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	484	LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_2d
[674]	485	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	486	END SUBROUTINE cxios_set_domain_mask_2d
	487
[674]	488	SUBROUTINE cxios_get_domain_mask_2d(domain_hdl, mask_2d, extent) BIND(C)
[664]	489	USE ISO_C_BINDING
	490	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	491	LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_2d
[674]	492	INTEGER (kind = C_INT), DIMENSION(*) :: extent
[664]	493	END SUBROUTINE cxios_get_domain_mask_2d
	494
	495	FUNCTION cxios_is_defined_domain_mask_2d(domain_hdl) BIND(C)
	496	USE ISO_C_BINDING
	497	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask_2d
	498	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	499	END FUNCTION cxios_is_defined_domain_mask_2d
	500
	501
[326]	502	SUBROUTINE cxios_set_domain_name(domain_hdl, name, name_size) BIND(C)
	503	USE ISO_C_BINDING
	504	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	505	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name
	506	INTEGER (kind = C_INT) , VALUE :: name_size
	507	END SUBROUTINE cxios_set_domain_name
[581]	508
[326]	509	SUBROUTINE cxios_get_domain_name(domain_hdl, name, name_size) BIND(C)
	510	USE ISO_C_BINDING
	511	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	512	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name
	513	INTEGER (kind = C_INT) , VALUE :: name_size
	514	END SUBROUTINE cxios_get_domain_name
[581]	515
	516	FUNCTION cxios_is_defined_domain_name(domain_hdl) BIND(C)
[432]	517	USE ISO_C_BINDING
	518	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_name
	519	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	520	END FUNCTION cxios_is_defined_domain_name
[581]	521
	522
[326]	523	SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C)
	524	USE ISO_C_BINDING
	525	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	526	INTEGER (KIND=C_INT) , VALUE :: ni
	527	END SUBROUTINE cxios_set_domain_ni
[581]	528
[326]	529	SUBROUTINE cxios_get_domain_ni(domain_hdl, ni) BIND(C)
	530	USE ISO_C_BINDING
	531	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	532	INTEGER (KIND=C_INT) :: ni
	533	END SUBROUTINE cxios_get_domain_ni
[581]	534
	535	FUNCTION cxios_is_defined_domain_ni(domain_hdl) BIND(C)
[432]	536	USE ISO_C_BINDING
	537	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni
	538	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	539	END FUNCTION cxios_is_defined_domain_ni
[581]	540
	541
[326]	542	SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
	543	USE ISO_C_BINDING
	544	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	545	INTEGER (KIND=C_INT) , VALUE :: ni_glo
	546	END SUBROUTINE cxios_set_domain_ni_glo
[581]	547
[326]	548	SUBROUTINE cxios_get_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
	549	USE ISO_C_BINDING
	550	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	551	INTEGER (KIND=C_INT) :: ni_glo
	552	END SUBROUTINE cxios_get_domain_ni_glo
[581]	553
	554	FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl) BIND(C)
[432]	555	USE ISO_C_BINDING
	556	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni_glo
	557	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	558	END FUNCTION cxios_is_defined_domain_ni_glo
[581]	559
	560
[326]	561	SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C)
	562	USE ISO_C_BINDING
	563	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	564	INTEGER (KIND=C_INT) , VALUE :: nj
	565	END SUBROUTINE cxios_set_domain_nj
[581]	566
[326]	567	SUBROUTINE cxios_get_domain_nj(domain_hdl, nj) BIND(C)
	568	USE ISO_C_BINDING
	569	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	570	INTEGER (KIND=C_INT) :: nj
	571	END SUBROUTINE cxios_get_domain_nj
[581]	572
	573	FUNCTION cxios_is_defined_domain_nj(domain_hdl) BIND(C)
[432]	574	USE ISO_C_BINDING
	575	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj
	576	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	577	END FUNCTION cxios_is_defined_domain_nj
[581]	578
	579
[326]	580	SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
	581	USE ISO_C_BINDING
	582	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	583	INTEGER (KIND=C_INT) , VALUE :: nj_glo
	584	END SUBROUTINE cxios_set_domain_nj_glo
[581]	585
[326]	586	SUBROUTINE cxios_get_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
	587	USE ISO_C_BINDING
	588	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	589	INTEGER (KIND=C_INT) :: nj_glo
	590	END SUBROUTINE cxios_get_domain_nj_glo
[581]	591
	592	FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl) BIND(C)
[432]	593	USE ISO_C_BINDING
	594	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj_glo
	595	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	596	END FUNCTION cxios_is_defined_domain_nj_glo
[581]	597
	598
[449]	599	SUBROUTINE cxios_set_domain_nvertex(domain_hdl, nvertex) BIND(C)
	600	USE ISO_C_BINDING
	601	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	602	INTEGER (KIND=C_INT) , VALUE :: nvertex
	603	END SUBROUTINE cxios_set_domain_nvertex
[581]	604
[449]	605	SUBROUTINE cxios_get_domain_nvertex(domain_hdl, nvertex) BIND(C)
	606	USE ISO_C_BINDING
	607	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	608	INTEGER (KIND=C_INT) :: nvertex
	609	END SUBROUTINE cxios_get_domain_nvertex
[581]	610
	611	FUNCTION cxios_is_defined_domain_nvertex(domain_hdl) BIND(C)
[449]	612	USE ISO_C_BINDING
	613	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nvertex
	614	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	615	END FUNCTION cxios_is_defined_domain_nvertex
[581]	616
	617
[326]	618	SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
	619	USE ISO_C_BINDING
	620	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	621	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name
	622	INTEGER (kind = C_INT) , VALUE :: standard_name_size
	623	END SUBROUTINE cxios_set_domain_standard_name
[581]	624
[326]	625	SUBROUTINE cxios_get_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
	626	USE ISO_C_BINDING
	627	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	628	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name
	629	INTEGER (kind = C_INT) , VALUE :: standard_name_size
	630	END SUBROUTINE cxios_get_domain_standard_name
[581]	631
	632	FUNCTION cxios_is_defined_domain_standard_name(domain_hdl) BIND(C)
[432]	633	USE ISO_C_BINDING
	634	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_standard_name
	635	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	636	END FUNCTION cxios_is_defined_domain_standard_name
[581]	637
	638
[449]	639	SUBROUTINE cxios_set_domain_type(domain_hdl, type, type_size) BIND(C)
	640	USE ISO_C_BINDING
	641	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	642	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: type
	643	INTEGER (kind = C_INT) , VALUE :: type_size
	644	END SUBROUTINE cxios_set_domain_type
[581]	645
[449]	646	SUBROUTINE cxios_get_domain_type(domain_hdl, type, type_size) BIND(C)
	647	USE ISO_C_BINDING
	648	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	649	CHARACTER(kind = C_CHAR) , DIMENSION(*) :: type
	650	INTEGER (kind = C_INT) , VALUE :: type_size
	651	END SUBROUTINE cxios_get_domain_type
[581]	652
	653	FUNCTION cxios_is_defined_domain_type(domain_hdl) BIND(C)
[449]	654	USE ISO_C_BINDING
	655	LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_type
	656	INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
	657	END FUNCTION cxios_is_defined_domain_type
[581]	658
	659	END INTERFACE
	660
[326]	661	END MODULE domain_interface_attr

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

Download in other formats: