*
* $Id: main.F,v 1.1.1.1 1996/03/08 11:50:41 mclareni Exp $
*
* $Log: main.F,v $
* Revision 1.1.1.1  1996/03/08 11:50:41  mclareni
* Ffread
*
*
#include "ffread/pilot.h"
#if defined(CERNLIB_CDC)
      PROGRAM FFTEST(INPUT,OUTPUT)
#endif
#if !defined(CERNLIB_CDC)
      PROGRAM FFTEST
#endif
 
      INTEGER I, J(10)
      REAL    X, Y(10)
      LOGICAL A, B(10)
      CHARACTER*4 TEXT
      EXTERNAL FUREAD, FUSTAR
C
C----------------- Beginning of executable statements -------------------------
C
      I = 0
      X = 0.
      A = .FALSE.
 
      DO 10 K = 1, 10
          J(K) = 0
          Y(K) = 0.
          B(K) = .FALSE.
  10  CONTINUE
 
      CALL FFINIT (0)
 
      CALL FFSET ('SIZE', 6)
 
      CALL FFRSET( 10, FUREAD)
 
      CALL FFKEY ('INTVAR',   I,  1, 'INTEGER')
      CALL FFKEY ('INTARRAY', J, 10, 'INTEGER')
 
      CALL FFKEY ('REALVAR',   X,  1, 'REAL')
      CALL FFKEY ('REALARRAY', Y, 10, 'REAL')
 
      CALL FFKEY ('LOGVAR',   A,  1, 'LOGICAL')
      CALL FFKEY ('LOGARRAY', B, 10, 'LOGICAL')
 
      CALL FFGO
 
      WRITE (*, *)
 
      WRITE (*, *) ' INTEGER VARIABLE:', I
      WRITE (*, *) ' INTEGER ARRAY:   ', (J(K), K = 1, 5)
      WRITE (*, *) '                  ', (J(K), K = 6,10)
      WRITE (*, *)
 
      WRITE (*, *) ' LOGICAL VARIABLE:', A
      WRITE (*, *) ' LOGICAL ARRAY:   ', (B(K), K = 1, 5)
      WRITE (*, *) '                  ', (B(K), K = 6,10)
      WRITE (*, *)
 
      CALL UHTOC (X, 4, TEXT, 4)
      WRITE (*, *) ' TEXT (REALVAR):  ''', TEXT, ''''
      WRITE (*, *) ' REAL    ARRAY:   ', (Y(K), K = 1, 4)
      WRITE (*, *) '                  ', (Y(K), K = 5, 8)
      WRITE (*, *) '                  ', (Y(K), K = 9,10)
 
      END