File indexing completed on 2018-03-02 18:36:08 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
d4318425b4 Patr*0001 #include "CPP_EEOPTIONS.h"
0002
4c563c2ee9 Chri*0003
0004
0005
0006
048ce7bdb7 Chri*0007 SUBROUTINE EXCH_INIT
4c563c2ee9 Chri*0008
0009
0010
e5f1176556 Jean*0011
0012
4c563c2ee9 Chri*0013
0014
0015
e5f1176556 Jean*0016 IMPLICIT NONE
4c563c2ee9 Chri*0017
048ce7bdb7 Chri*0018 #include "SIZE.h"
0019 #include "EEPARAMS.h"
0020 #include "EESUPPORT.h"
0021 #include "EXCH.h"
0022
4c563c2ee9 Chri*0023
048ce7bdb7 Chri*0024
e5f1176556 Jean*0025
048ce7bdb7 Chri*0026 INTEGER bi, bj
4c563c2ee9 Chri*0027
048ce7bdb7 Chri*0028
0029 DO bj=1,nSy
0030 DO bi=1,nSx
e5f1176556 Jean*0031 exchangeBufLevel (1,bi,bj) = 1
048ce7bdb7 Chri*0032 exchRecvXSpinCount(1,bi,bj) = 0
0033 exchRecvXSpinMax (1,bi,bj) = 0
0034 exchRecvXSpinMin (1,bi,bj) = 1000000000
0035 exchRecvYSpinCount(1,bi,bj) = 0
0036 exchRecvYSpinMax (1,bi,bj) = 0
0037 exchRecvYSpinMin (1,bi,bj) = 1000000000
0038 ENDDO
0039 ENDDO
0040
0041 RETURN
0042 END