--- MITgcm/optim/optim_readdata.F	2003/03/07 05:20:50	1.4
+++ MITgcm/optim/optim_readdata.F	2003/11/19 19:07:02	1.5
@@ -75,7 +75,7 @@
       integer funit
 
       integer cbuffindex
-      _RL     cbuff( sNx*nSx*nPx*sNy*nSy*nPy )
+      real*4 cbuff( sNx*nSx*nPx*sNy*nSy*nPy )
 
       character*(128) fname