C
C   *****     *****     *****     *****     *****     *****
C
       SUBROUTINE PRTHEADR_CRT(IUNIT)
C
C   **  Prints out a 25-line header for a data file which has
C     been generated by Gutzler et al.  Use PRTHEADR_OBT to write a
C     header for a data file which has been obtained from a source.
C
C       Changes made to common block 94/3/31 to allow this code to
C     run on the Cray (shavano) at NCAR.  UNICOS requires all non-character
C     elements in a common block to start on a word boundary, which will
C     not happen if preceding character elements sum to a number which is
C     not factorable by 8.
C
C   **  CREATED by L.M. Hartten 6 DEC 1993
C
C   **  LAST MODIFIED by L.M. Hartten 31 MAR 1994
C
C   **  CALLED BY:
C         any program/subroutine which creates a data file
C
C   **  CALLS TO:
C         
C
C
C   **  INPUT VARIABLES:
C	  name		type	notes
C	  ----------	----	----------------------------------------
C	  IUNIT		I	output unit
C
C   **  OUTPUT VARIABLES:
C	  name		type	notes
C	  ----------	----	----------------------------------------
C	  none
C
C
C   *****     *****     *****     *****     *****     *****
C
C   ***  Declarations
C
       CHARACTER BLANK
       CHARACTER*5 STAR5
       CHARACTER*20 PGM
C
       CHARACTER*3  CH3
       CHARACTER*4  CH4
       CHARACTER*5  HDR6FLAG
       CHARACTER*6  CH6
       CHARACTER*8  HDR2DATE,HDR6DATE,HDR6TIME
       CHARACTER*10 HDR4SITE
       CHARACTER*20 HDR2PGM
       CHARACTER*30 HDR4ID
       CHARACTER*32 HDR2SRC
       CHARACTER*46 HDR3TYPE,HDR7DATA,HDR8DATA,HDR9UNITS,HDR10UNITS
       CHARACTER*46 HDR11FMT,HDR12FMT
       CHARACTER*80 HDR1,HDR15,HDR16,HDR17,HDR18,HDR19,HDR20
       CHARACTER*80 HDR21,HDR22,HDR23,HDR24,HDR25
C
       REAL HDR5LAT,HDR5LON,HDR13FIRST,HDR13DELTA,HDR14FLAG
       INTEGER HDR5ALT,HDR6JUL
C
       DATA STAR5 /'*****'/ BLANK /' '/ PGM /'PRTHEADR_CRT'/
C
       COMMON / HDR /
     1    HDR1, HDR2DATE,HDR2PGM,HDR2SRC,
     2    HDR3TYPE,  HDR4SITE,HDR4ID, CH6, HDR5LAT,HDR5LON,HDR5ALT,
     3    HDR6FLAG,HDR6DATE,HDR6TIME,CH3,HDR6JUL,  HDR7DATA,  HDR8DATA,
     4    HDR9UNITS,  HDR10UNITS,  HDR11FMT,  HDR12FMT, CH4,
     5    HDR13FIRST,HDR13DELTA,  HDR14FLAG,
     6    HDR15, HDR16, HDR17, HDR18, HDR19, HDR20,
     7    HDR21, HDR22, HDR23, HDR24, HDR25
C
C   ***  Start up subroutine
C
       write(*,9995)STAR5,STAR5,STAR5,STAR5,STAR5,STAR5
       write(*,*)BLANK
       write(*,*)'starting subroutine ', PGM
C
C   ***  Write header
C
       WRITE(IUNIT,10) HDR1
       WRITE(IUNIT,20) HDR2DATE,HDR2PGM
C       WRITE(IUNIT,20) HDR2DATE,HDR2SRC
       WRITE(IUNIT,30) HDR3TYPE
       WRITE(IUNIT,40) HDR4SITE,HDR4ID
       WRITE(IUNIT,50) HDR5LAT,HDR5LON,HDR5ALT
       WRITE(IUNIT,60) HDR6FLAG,HDR6DATE,HDR6TIME,HDR6JUL
       WRITE(IUNIT,70) HDR7DATA
       WRITE(IUNIT,80) HDR8DATA
       WRITE(IUNIT,90) HDR9UNITS
       WRITE(IUNIT,100) HDR10UNITS
       WRITE(IUNIT,110) HDR11FMT
       WRITE(IUNIT,120) HDR12FMT
       WRITE(IUNIT,130) HDR13FIRST,HDR13DELTA
       WRITE(IUNIT,140) HDR14FLAG
       WRITE(IUNIT,150) HDR15
       WRITE(IUNIT,160) HDR16
       WRITE(IUNIT,170) HDR17
       WRITE(IUNIT,180) HDR18
       WRITE(IUNIT,190) HDR19
       WRITE(IUNIT,200) HDR20
       WRITE(IUNIT,210) HDR21
       WRITE(IUNIT,220) HDR22
       WRITE(IUNIT,230) HDR23
       WRITE(IUNIT,240) HDR24
       WRITE(IUNIT,250) HDR25

C
   10  FORMAT(A80)
   20  FORMAT('Created:',26X,A8,' with ',A20)
C   20  FORMAT('Obtained:',25X,A8,' from ',A32)
   30  FORMAT('Data Type:',24X,A46)
   40  FORMAT('Site Type, ID:',20X,A10,', ',A30)
   50  FORMAT('Location [lat,lon,alt]:',
     1           11X,F6.2,'deg, ',F7.2,'deg, ',I5,'m')
   60  FORMAT('GMT Time at ',A5,', Julian day:',
     1           4X,A8,1X,A8,', ',I3)
   70  FORMAT('Data:',29X,A46)
   80  FORMAT(34X,A46)
   90  FORMAT('Units:',28X,A46)
  100  FORMAT(34X,A46)
  110  FORMAT('Format:',27X,A46)
  120  FORMAT(34X,A46)
  130  FORMAT('First Valid Ob., Delta:',11X,F7.2,'m, ',F7.2,'m')
  140  FORMAT('Bad Flag:',25X,F7.1)
  150  FORMAT(A80)
  160  FORMAT(A80)
  170  FORMAT(A80)
  180  FORMAT(A80)
  190  FORMAT(A80)
  200  FORMAT(A80)
  210  FORMAT(A80)
  220  FORMAT(A80)
  230  FORMAT(A80)
  240  FORMAT(A80)
  250  FORMAT(A80)
C
C   ***  Finish up subroutine
C
       write(*,*)'ending subroutine ',PGM
       write(*,*)BLANK
       write(*,9995)STAR5,STAR5,STAR5,STAR5,STAR5,STAR5
C
 9995  format(1X,5(A5,5X),A5)
C
       RETURN
       END