timeheader_64_nodes.h

FFT Dual Recycling Code Results on Advanced LIGO and the Caltech 40m IFO

cc	include 'fnx.h'

	integer*4 n,nnodes,nlocal,nz,nmnz
	parameter (n=128)
	parameter (nnodes=64)
	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/msid

c****************************************************************************c
c****************************************************************************c
c*** these new blocks for the new transpose program

	integer*4 noderows,nodecols
	
	parameter (noderows = 8)
	parameter (nodecols = 8)

        integer*4 msgtp_const1,msgtp_const2

        parameter (msgtp_const1 = 32555)
        parameter (msgtp_const2 = 65444)

	integer*4 idocomm

	parameter (idocomm=2)

c****************************************************************************c
c****************************************************************************c