--- MITgcm/eesupp/src/memsync.F	2001/02/04 14:38:44	1.4
+++ MITgcm/eesupp/src/memsync.F	2001/09/21 03:54:35	1.5
@@ -1,25 +1,31 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/memsync.F,v 1.4 2001/02/04 14:38:44 cnh Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/memsync.F,v 1.5 2001/09/21 03:54:35 cnh Exp $
 C $Name:  $
 
 #include "CPP_EEOPTIONS.h"
+CBOP
 
-      SUBROUTINE MEMSYNC
+C     !ROUTINE: MEMSYNC
 
-C     /==========================================================\
-C     | SUBROUTINE MEMSYNC                                       |
-C     | o Place holder for memory sync routine                   |
-C     |==========================================================|
-C     | This routine is called wherever the code requires        |
-C     | that writes performed by one thread or process must      |
-C     | be guaranteed visible to other processes and or threads. |
-C     |  On SPARC this routine would implement a                 |
-C     |  asm("membar #LoadStore|#StoreStore");                   |
-C     |  On ALPHA                                                |
-C     |  asm("mb");                                              |
-C     |  Note: I have yet to show this is necessary although     |
-C     |        the Memory Channel writes must need something like|
-C     |        this.                                             |
-C     \==========================================================/
+C     !INTERFACE:
+      SUBROUTINE MEMSYNC
       IMPLICIT NONE
 
+C     !DESCRIPTION:
+C     *==========================================================*
+C     | SUBROUTINE MEMSYNC                                        
+C     | o Place holder for memory sync routine                    
+C     *==========================================================*
+C     | This routine is called wherever the code requires         
+C     | that writes performed by one thread or process must       
+C     | be guaranteed visible to other processes and or threads.  
+C     |  On SPARC this routine would implement a                  
+C     |  asm("membar #LoadStore|#StoreStore");                    
+C     |  On ALPHA                                                 
+C     |  asm("mb");                                               
+C     |  Note: I have yet to show this is necessary although      
+C     |        the Memory Channel writes must need something like 
+C     |        this.                                              
+C     *==========================================================*
+CEOP
+
       END