*
* $Id: fqbkfa.F,v 1.1.1.1 1996/03/06 10:47:01 mclareni Exp $
*
* $Log: fqbkfa.F,v $
* Revision 1.1.1.1  1996/03/06 10:47:01  mclareni
* Zebra
*
*
#include "test_include/pilot.h"
      SUBROUTINE FQBKFA

C-    Read back with fan-out through FZIN/FZOUT

#include "zebra/zstate.inc"
#include "zebra/zunit.inc"
#include "zebra/mzbits.inc"
#include "zebra/quest.inc"
C! +CDE, FZCI, FZCSEG.
#include "zebra/fzcseg.inc"
#include "test_include/testll.inc"
#include "test_include/testdd.inc"
#include "test_include/testiq.inc"
#include "test_include/testee.inc"
#include "test_include/fqtlun.inc"
C--------------    END CDE                             --------------
      DIMENSION    MHEA(10,3)


C-------           Copy types 902 + 903

      CALL ZPHASE (3)
      LUNIN = LUNT1


   24 MHEA(1,1) = 9
      CALL FZIN (LUNIN,IXSTOR,0,0,'S',MHEA(1,1),MHEA(2,1))
      IF (IQUEST(1))              24, 26, 29
   26 IF (MHEA(2,1).EQ.901)        GO TO 24
      LUNFZ = LUNT2
      IF (MHEA(2,1).EQ.903)  LUNFZ=LUNT3

      CALL FZIN (LUNIN,IXSTOR+2,LQUSER,1,'A',0,0)
      IF (IQUEST(1).NE.0)          GO TO 94

      CALL FZOUT (LUNFZ,IXSTOR+2,LQUSER,0,'DI',2,MHEA(1,1),MHEA(2,1))
      CALL MZWIPE (IXSTOR+21)
      GO TO 24

   29 IF (IQUEST(1).LT.5)  THEN
          IF (IQUEST(1).EQ.1)      GO TO 24
          CALL FZENDI (LUNIN,'.')
          GO TO 24
        ENDIF

      CALL FQTINF (LUNT1)
      CALL FQTINF (LUNT2)
      CALL FQTINF (LUNT3)

      CALL FZENDI (LUNT1,'I')
      CALL FZENDO (LUNT2,'I')
      CALL FZENDO (LUNT3,'I')
      CALL FQTINF (0)

C-------           Read back and compare

      CALL FQBKFI
      RETURN

   94 CALL ZFATAM ('FQBKFA - unexpected exit')
      END
*      ==================================================
#include "zebra/qcardl.inc"