eesupp/src/memsync.F

cb2850c2ee Alis*0001 #include "CPP_EEOPTIONS.h"
4c563c2ee9 Chri*0002 CBOP
048ce7bdb7 Chri*0003
4c563c2ee9 Chri*0004 C     !ROUTINE: MEMSYNC
048ce7bdb7 Chri*0005
4c563c2ee9 Chri*0006 C     !INTERFACE:
                0007       SUBROUTINE MEMSYNC
e7ea7a463f Alis*0008       IMPLICIT NONE
048ce7bdb7 Chri*0009
4c563c2ee9 Chri*0010 C     !DESCRIPTION:
                0011 C     *==========================================================*
                0012 C     | SUBROUTINE MEMSYNC
                0013 C     | o Place holder for memory sync routine
                0014 C     *==========================================================*
                0015 C     | This routine is called wherever the code requires
                0016 C     | that writes performed by one thread or process must
                0017 C     | be guaranteed visible to other processes and or threads.
                0018 C     |  On SPARC this routine would implement a
2b4c849245 Ed H*0019 C     |  asm("membar \#LoadStore|\#StoreStore");
4c563c2ee9 Chri*0020 C     |  On ALPHA
                0021 C     |  asm("mb");
                0022 C     |  Note: I have yet to show this is necessary although
                0023 C     |        the Memory Channel writes must need something like
                0024 C     |        this.
                0025 C     *==========================================================*
                0026 CEOP
                0027
048ce7bdb7 Chri*0028       END