/* * 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 ); }