program x1d_format
!**********************************************************************
! *              .      .    .
! * PROGRAM:    x1d_format
! * PRGMMR:     M. ZUPANSKI     ORG: CIRA/CSU   DATE: 2003-09-09
! *
! * ABSTRACT:   Prepare formated x1d file, suitable for plotting
! *
! * PROGRAM LOG:
! *
! * 09/09/2003    ..... M. ZUPANSKI: Original 'transform.F'
! * 10/17/2003    ..... M. ZUPANSKI: Innovation normalization
! * 10/22/2003    ..... M. ZUPANSKI: Innovation histogram
! * 10/22/2003    ..... M. ZUPANSKI: plotting
! *
! **********************************************************************
!-----
     integer,parameter::in_file=21     ! unformatted x1d file #
     integer,parameter::out_file=51    ! formatted x1d file #
!-----
     integer :: N_model

     real,dimension(:),allocatable::x1d
!-----
!==============start calculation===================

!-- read in unformatted file
     rewind in_file
     read(in_file) N_model
     allocate(x1d(1:N_model))
     read(in_file) x1d
    
     write(*,*) "READ UNFORMATTED X: N_model=",N_model

!-- write formatted file
     rewind out_file
     do i=1,N_model
     write(out_file,100) x1d(i)
     end do
 100 format(E20.10)

            stop
            end