5
/*************************** fortran DRA interface **************************/
15
static char cname[DRA_MAX_NAME+1], cfilename[DRA_MAX_FNAME+1];
17
Integer FATR dra_create_(
18
#ifdef F2C_HIDDEN_STRING_LENGTH_AFTER_ARGS
45
ga_f2cstring(name, nlen, cname, DRA_MAX_NAME);
46
ga_f2cstring(filename, flen, cfilename, DRA_MAX_FNAME);
47
return drai_create(type, dim1, dim2, cname, cfilename,
48
mode, reqdim1, reqdim2,d_a);
52
Integer FATR ndra_create_(
53
#ifdef F2C_HIDDEN_STRING_LENGTH_AFTER_ARGS
78
ga_f2cstring(name, nlen, cname, DRA_MAX_NAME);
79
ga_f2cstring(filename, flen, cfilename, DRA_MAX_FNAME);
80
return ndrai_create(type, ndim, dims, cname, cfilename, mode, reqdims, d_a);
84
Integer FATR dra_open_(
85
#ifdef F2C_HIDDEN_STRING_LENGTH_AFTER_ARGS
98
ga_f2cstring(filename, flen, cfilename, DRA_MAX_FNAME);
99
return drai_open(cfilename, mode, d_a);
103
Integer FATR dra_inquire_(
104
#ifdef F2C_HIDDEN_STRING_LENGTH_AFTER_ARGS
125
Integer stat = drai_inquire(d_a, type, dim1, dim2, cname, cfilename);
126
*type = pnga_type_c2f(*type);
127
ga_c2fstring(cname, name, nlen);
128
ga_c2fstring(cfilename, filename, flen);
133
Integer FATR ndra_inquire_(
134
#ifdef F2C_HIDDEN_STRING_LENGTH_AFTER_ARGS
155
Integer stat = ndrai_inquire(d_a, type, ndim, dims, cname, cfilename);
156
*type = pnga_type_c2f(*type);
157
ga_c2fstring(cname, name, nlen);
158
ga_c2fstring(cfilename, filename, flen);
163
Integer ndra_create_config_(
164
#ifdef F2C_HIDDEN_STRING_LENGTH_AFTER_ARGS
193
ga_f2cstring(name, nlen, cname, DRA_MAX_NAME);
194
ga_f2cstring(filename, flen, cfilename, DRA_MAX_FNAME);
195
return ndrai_create_config(type, ndim, dims, cname, cfilename,
196
mode, reqdims, numfiles, numioprocs, d_a);