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