#include <R.h>
#include <Rinternals.h>


SEXP gtypeCallerPart1nm(SEXP *, SEXP *, SEXP *, SEXP *, SEXP *,SEXP *, SEXP *,
		        SEXP *, SEXP *, SEXP *, SEXP *, SEXP *,SEXP *, SEXP *,
                        SEXP *, SEXP *, SEXP *);


SEXP test (SEXP *);

SEXP gtypeCallerPart1NormalNoN(SEXP *, SEXP *, SEXP *, SEXP *,SEXP *, SEXP *,
                               SEXP *, SEXP *, SEXP *, SEXP *,SEXP *, SEXP *,
		               SEXP *, SEXP *, SEXP *, SEXP *,SEXP *);

SEXP gtypeCallerPart2(SEXP *, SEXP *, SEXP *, SEXP *,
		      SEXP *, SEXP *, SEXP *, SEXP *,
                      SEXP *, SEXP *, SEXP *, SEXP *,
		      SEXP *, SEXP *, SEXP *, SEXP *,
                      SEXP *, SEXP *, SEXP *);

SEXP gtypeCallerPart1TNoN(SEXP *, SEXP *, SEXP *, SEXP *,
		          SEXP *, SEXP *, SEXP *, SEXP *,
                          SEXP *, SEXP *, SEXP *, SEXP *,
		          SEXP *, SEXP *, SEXP *,
		      SEXP *, SEXP *)


SEXP gtypeCallerPart2TNoN(SEXP *, SEXP *, SEXP *, SEXP *,
			  SEXP *, SEXP *, SEXP *, SEXP *, 
			  SEXP *, SEXP *, SEXP *, SEXP *,
			  SEXP *, SEXP *, SEXP *, SEXP *,
			  SEXP *, SEXP *, SEXP *)