/*
* inquire number of south-north grid for RGAU grid
*
* subc_rgau_inq_jn(type1, type2, type3, basetime, member, validtime)
* arguments:
* type1, type2, type3, member: String
* basetime, validtime: Integer (minuits from 00:00 1 Jan 1801)
* return:
* j_n: Integer
*/
VALUE
rb_subc_rgau_inq_jn(VALUE self,
VALUE type1, VALUE type2, VALUE type3,
VALUE basetime, VALUE member, VALUE validtime)
{
GetTypes;
GetTimesAndMember;
N_SI4 cj_n;
N_SI4 code;
code = nusdas_subc_rgau_inq_jn(ctype1, ctype2, ctype3,
&cbasetime, cmember, &cvalidtime,
&cj_n);
if ( code == -2 )
rb_raise(rb_eRuntimeError, "RGAU does not exits");
else if ( code == -3 )
rb_raise(rb_eRuntimeError, "record size is invalid");
else if ( code < 0 )
rb_raise(rb_eRuntimeError, "faild");
return INT2NUM( (int)cj_n );
}