?? timeheader_16_nodes.h
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -