--- MITgcm/eesupp/src/eedata_example.F	1998/04/23 20:37:29	1.2
+++ MITgcm/eesupp/src/eedata_example.F	2004/03/27 03:51:51	1.5
@@ -1,9 +1,11 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/eedata_example.F,v 1.2 1998/04/23 20:37:29 cnh Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/eedata_example.F,v 1.5 2004/03/27 03:51:51 edhill Exp $
+C $Name:  $
 
 #include "CPP_EEOPTIONS.h"
 
+      SUBROUTINE EEDATA_EXAMPLE
 C     /==========================================================\
-C     | S/R EEDATA_EXAMPLE                                       |
+C     | S/R EEDATA\_EXAMPLE                                       |
 C     | o Write example eedata file                              |
 C     |==========================================================|
 C     | Notes                                                    |
@@ -11,7 +13,7 @@
 C     | Some systems require & as the namelist terminator.       |
 C     | Other systems use a / character.                         |
 C     \==========================================================/
-      SUBROUTINE EEDATA_EXAMPLE
+      IMPLICIT NONE
 #include "SIZE.h"
 #include "EEPARAMS.h"