
Needs["hirota`"]

n=3;

B[f_,g_]:=kpar*DT[2,t,f,g]+Dxt[3,1,x,t,f,g]+Dx[6,x,f,g];

name="Parameter";

myfile="h_param.o";

OpenLog[myfile];

hirota[B,name,n,2,1,False,False];

CloseLog[];

