
Values of mytag for send/recv deforming mesh data changed from array index
values to be equal to mblk2nd(nbl), which is the node number that data is being
sent to/from.  This is so that values of mytag do not exceed integer*2
range.

Also, the corrupted line:

       merm8 = xix(n)  *etay(n) +xix(n)  *zetay(n)+xiy(n)  *etax(n)

was corrected to its original:

       term8 = xix(n)  *etay(n) +xix(n)  *zetay(n)+xiy(n)  *etax(n)

chengdi123000/CFL3D,chengdi123000/CFL3D