已知一个通讯子COMM,现若产生一个p*q的二维进程网格,每个进程用Pst表示,请写出一个子程序使每个进程Pst都生成一个行通讯子和一个列通讯子