--- MITgcm/utils/knudsen2/knudsen2.f	1998/06/22 15:26:26	1.2
+++ MITgcm/utils/knudsen2/knudsen2.f	2002/08/07 16:55:52	1.3
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/utils/knudsen2/knudsen2.f,v 1.2 1998/06/22 15:26:26 adcroft Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/utils/knudsen2/knudsen2.f,v 1.3 2002/08/07 16:55:52 mlosch Exp $
 
       PROGRAM KNUDSEN2
       implicit none
@@ -258,9 +258,9 @@
 
       open(99,file='POLY3.COEFFS',form='formatted',status='unknown')
       write(99,*) NumLevels
-      write(99,*) (ab(3,J),ab(4,J),ab(2,J),J=1 , NumLevels)
+      write(99,'(3(G20.13))') (ab(3,J),ab(4,J),ab(2,J),J=1 , NumLevels)
       do J=1,NumLevels
-         write(99,*)(AB(I,J),I=5,13)
+         write(99,'(3(G20.13))')(AB(I,J),I=5,13)
       enddo    
       close(99)