/**Generalized Kampe de Feriet functions: printing form**/
/*K: Kdf, Kampe de Feriet, format, print*/
/*A: K McIsaac*/
/*S: UWA, Nedlands 6009, Australia*/
/*D: April, 1987*/

/* Prints Generalized Kampe de Feriet function in standard two dimensional
	form*/

Kdf:Tier
_Kdf[Pr] : Tier[{[{$p1,$q1,$a1,$b1},\
	 	  {$p2,$q2,$a2,$b2,$z2},\
		  {$p3,$q3,$a3,$b3,$z3} ]:: \
    Fmt[{{0,0},\
	 {1,1},{1,-1},\
         {2,1},{2,0},{2,-1},\
	 {3, 1},{4, 1},{5, 1},{6, 1},{7, 1},{8, 1},\
	 {3,-1},{4,-1},{5,-1},{6,-1},{7,-1},{8,-1},\
	 {9,0},\
         {10,1},{10,0},{10,-1}},\
		  "F",\
		  Sx[":",{$p1,$p2,$p3},3,3],\
	          Sx[":",{$q1,$q2,$q3},3,3],\
		  "|","|","|",\
		  $a1,": ",$a2,"; ",$a3,";",\
		  $b1,": ",$b2,"; ",$b3,";",\
		  Sx[", ",{$z2,$z3},3,3],\
		  "|","|","|"]}]
_#[Pr] : Tier[{[]: Fmt[Null,"-"]}]
_#[Pr] : Tier[{[$$a]:: Sx[",",{$$a},3,2]}]

/* Print Kdf at end of quotient line. This improves readability, 
 */
_Div[Pr][[Kdf[$$b],$c]] :: Fmt[2,1/$c,Kdf[$$b]]
_Div[Pr][[$$a Kdf[$$b],$c]] :: Fmt[2,$$a/$c,Kdf[$$b]]
