Document title: Test program for NDADS DE datatype UA
Project: DE
NDADS Datatype: UA
EID: SOFTWARE
Super-EID: SOFTWARE
There may be other documents also identified by this super-EID.
NDADS filename: DE2_UA_TEST.FOR
TRF entry: b48491.for in NSSDC's controlled digital document library, mar. 1999.
Document text follows:
----------------------

C TEST program reads all 20 UA parameters and 9 OA parameters.
C Required input is the date (YYDDD) and time in msec.
C UREAD returns actual date and time of data.
C Please do the following assignments before starting the program:
C     $ ASSIGN directory_containing_DEUA_files SYS$UA
C     $ ASSIGN directory_containing_OABASE.DAT SYS$OA
C D. Bilitza, March 2, 1995 --------------------------------------

      DIMENSION MAPU(21),DATAU(20),MAPO(10),DATAO(9)
      DATA MAPU/20,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20/
      DATA MAPO/9,13,32,33,34,37,38,39,40,76/

	type *,'yyddd,start_time,stop_time (hh)'
	read(*,*) idy,ihst,ihop
	itst=ihst*3600000
	itop=ihop*3600000
      CALL UROPEN(idy,itst,IERR,MAPU)
      IF(IERR.NE.0) then
	type *,'ERROR in UROPEN: IERR=',ierr
	GOTO 20
	endif

   10 CONTINUE
      CALL UREAD(IDATE,ITIME,IERR,DATAU)
      TYPE *,'date:',IDATE,' time(msec)=',ITIME
      IF(IERR.NE.0) then
	type *,'ERROR in UREAD: IERR=',ierr
	GOTO 20
	endif
      type *,' science parameter:',DATAU

      CALL OAREAD(IDATE,ITIME,IERR,MAPO,DATAO)
      IF(IERR.NE.0) then
	type *,'ERROR in OAREAD: IERR=',ierr
	GOTO 20
	endif
      type *,'orbit parameter:',DATAO

        if(itime.lt.itop) GOTO 10

   20 CONTINUE
      STOP
      END