c*******   n - number of records
      do i=0,n 
       write(1,'(7i4,3f10.5,4f10.3,f14.2)')
     &  yr(i),month(i),day(i),hr(i),mn(i),sec(i),msec(i),bxgsm(i),bygsm(i),$
     &  bzgsm(i),vxgsm(i),vygsm(i),vzgsm(i),den(i),temp(i)
      enddo