cc	include 'fnx.h'	integer*4 n,nnodes,nlocal,nz,nmnz	parameter (n=128)	parameter (nnodes=16)	parameter (nlocal=n/nnodes)	parameter (nz=nlocal) 	parameter (nmnz=n*nz)		integer*4 my_node,num_nodes,nbeg,nend	integer*4 nsq,nnlocal	common/blocknodes/my_node,num_nodes,nbeg,nend,nsq,nnlocal	real*8 dclock	real*8 time_fft,time_roundtrip,time_readmirror        real*8 time_mkall,time_gw	real*8 time_relax1,time_relax2,time_propagate,time_trans	real*8 time_findabc,time_copy1,time_copy2	real*8 time_loop7,time_loop8,time_loop11,time_loop12	real*8 time_readgeometry,time_lasexc        common/newtime/time_fft,time_roundtrip,     &    time_readmirror,time_mkall,time_gw,     &    time_relax1,time_relax2,time_propagate,time_trans,     &    time_findabc,     &    time_copy1,time_copy2,time_readgeometry,time_lasexc,     &    time_loop7,time_loop8,time_loop11,time_loop12	integer*4 mynode,numnodes,msid(512)	common/blockmsid/msidc****************************************************************************cc****************************************************************************cc*** these new blocks for the new transpose program	integer*4 noderows,nodecols		parameter (noderows = 4)	parameter (nodecols = 4)        integer*4 msgtp_const1,msgtp_const2        parameter (msgtp_const1 = 32555)        parameter (msgtp_const2 = 65444)	integer*4 idocomm	parameter (idocomm=2)c****************************************************************************cc****************************************************************************c