*
* testgcli.f
* Simple test program to call gccli routines to send alarms
*  to the international server
* Author: K. Scholberg 
* 

      program testgcli

      implicit none

      integer gccli
      external gccli

      integer gcpingcli
      external gcpingcli

      integer*2 level
      integer*2 experiment
      integer signif
      integer ret
      integer datetime(3)

      integer whichpacket

      do while(.true.)

         write(6,*)'Enter 0 for ping, 1 for alarm, 2 to exit'
         read(5,*)whichpacket

         if (whichpacket.eq.1) then
            write(6,*)'Enter experiment:'
            read(5,*)experiment
            
            write(6,*)'Enter alarm level:'
            read(5,*)level
            
            write(6,*)'Enter significance:'
            read(5,*)signif
            
            write(6,*)'Enter ddmmyy, hhmmss,ns:'
            read(5,*)datetime(1),datetime(2),datetime(3)

            ret = gccli(datetime,level,signif,experiment)
            write(6,*)'ret value',ret
         else if(whichpacket.eq.0) then
            write(6,*)'Enter experiment:'
            read(5,*)experiment
            
            write(6,*)'Enter ddmmyy, hhmmss,ns:'
            read(5,*)datetime(1),datetime(2),datetime(3)

            ret = gcpingcli(datetime,experiment)
            write(6,*)'ret value',ret
         else if(whichpacket.eq.2) then
            stop
         endif


      enddo

      end