PROGRAM test_re
c
c PURPOSE:
c   Reads a standard input file, and produces a standard output file
c   to verify the correct operation of any code that reads the erythemal
c   data files.
c
c INPUT FILE:
c   The input file is in the local directory, and is called  ga999999.n7e
c
c REFERENCE FILE:
c   The reference file is also in the local directory, and is called  ery.ref
c
c OUTPUT FILE:
c   This program produces an output file, called  ery.tst  This file should
c   be compared to the reference file (e.g. with a diff command in Un*x) to
c   make sure it is identical.
c

      IMPLICIT NONE

      REAL*4 ery(288,180) /51840*-888./
      CHARACTER*16  infile /'ga999999.n7e'/,  outfile /'ery.tst'/
      INTEGER*4     lun /1/
      REAL*4        fillval /-999./
      CHARACTER*80  filehdr(3)
      LOGICAL       success
      INTEGER*4     ilon, ilat
      
      CALL read_ery(lun, infile, fillval, filehdr, ery, success)
      IF(.NOT. success) STOP 'Output file not written.'

      OPEN(UNIT=2, FILE=outfile, FORM='formatted')
      DO ilat= 1, 180 
        DO ilon= 1, 288
          WRITE(2,2) ery(ilon,ilat)
        END DO
      END DO
      CLOSE(2)

      STOP
    2 FORMAT(1PE10.2)
      END