      /**  Warnings for Generalised Hypergeometric Functions  **/
/*A: J Gottschalk */
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: January, 1988 */
/*K: Warning, Ghg, Hg, Singularity, Negative Paramteters */


#_:    Comm
Ghg_:  Tier
<<XPrW

/* A hypergeometric functions may be singular if a bottom parameters
	is zero or a negative integer. */
Ghg[$p,$q,$top,$bot_=If[In[$1_=Natp[1-$1],$bot,2] & ~P[$bot = #[]],\
PrhW[Fmt[,Ghg[$p,$q,$top,$bot,$z]," may be singular"]]],$z] :: \
     Ghg[$p,$q,$top,$bot,$z]


/* The lenght of $top, $bot must equal $p, $q respectivly */
/*
Ghg[$p,$q,$top_=If[Len[$top] ~= $p, PrhW[Fmt[,Ghg[$p,$q,$top,$bot,$z],\
			" number of top parameters not equal to ",$p]]]\
	 ,$bot_=If[Len[$bot] ~= $q, PrhW[Fmt[,Ghg[$p,$q,$top,$bot,$z],\
			" number of bottom parameters not equal to ",$q]]]\
    ,$z] ::  Ghg[$p,$q,$top,$bot,$z]
*/

/*I: In is off by one n the level spec. */

