59 |
IF ( FLOAT(exchRecvXExchCount(1,bi,bj)) .NE. 0. ) THEN |
IF ( FLOAT(exchRecvXExchCount(1,bi,bj)) .NE. 0. ) THEN |
60 |
WRITE(msgBuf,'(A,A,1PE15.2)') |
WRITE(msgBuf,'(A,A,1PE15.2)') |
61 |
& '//',' Avg. X spins =', |
& '//',' Avg. X spins =', |
62 |
& FLOAT(exchRecvXSpinCount(1,bi,bj))/FLOAT(exchRecvXExchCount(1,bi,bj)) |
& FLOAT(exchRecvXSpinCount(1,bi,bj))/ |
63 |
|
& FLOAT(exchRecvXExchCount(1,bi,bj)) |
64 |
ELSE |
ELSE |
65 |
WRITE(msgBuf,'(A,A,1PE15.2)') |
WRITE(msgBuf,'(A,A,1PE15.2)') |
66 |
& '//',' Avg. X spins =', |
& '//',' Avg. X spins =', |
88 |
IF ( FLOAT(exchRecvYExchCount(1,bi,bj)) .NE. 0. ) THEN |
IF ( FLOAT(exchRecvYExchCount(1,bi,bj)) .NE. 0. ) THEN |
89 |
WRITE(msgBuf,'(A,A,1PE15.2)') |
WRITE(msgBuf,'(A,A,1PE15.2)') |
90 |
& '//',' Avg. Y spins =', |
& '//',' Avg. Y spins =', |
91 |
& FLOAT(exchRecvYSpinCount(1,bi,bj))/FLOAT(exchRecvYExchCount(1,bi,bj)) |
& FLOAT(exchRecvYSpinCount(1,bi,bj))/ |
92 |
|
& FLOAT(exchRecvYExchCount(1,bi,bj)) |
93 |
ELSE |
ELSE |
94 |
WRITE(msgBuf,'(A,A,1PE15.2)') |
WRITE(msgBuf,'(A,A,1PE15.2)') |
95 |
& '//',' Avg. Y spins =', |
& '//',' Avg. Y spins =', |