MINICERN/packlib/zebra/fq/fziacn.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:11  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE FZIACN (NWBAT,LDATA,NWACC)
  11
  12 C-    Access one batch of data from the input buffer,
  13 C-    exchange file format, native data format
  14 C-    service routine to FZCOPY
  15 C-    careful : must not be called with  N4SKII=0 .AND. NWBAT=0
  16
  17 #include "zebra/zunit.inc"
  18 #include "zebra/zebq.inc"
  19 #include "zebra/mzca.inc"
  20 #include "zebra/fzci.inc"
  21 C--------------    End CDE                             --------------
  22       DIMENSION    NWBAT(9)
  23 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
  24       DIMENSION    NAMESR(2)
  25       DATA  NAMESR / 4HFZIA, 4HCN   /
  26 #endif
  27 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
  28       DATA  NAMESR / 6HFZIACN /
  29 #endif
  30 #if !defined(CERNLIB_QTRHOLL)
  31       CHARACTER    NAMESR*8
  32       PARAMETER   (NAMESR = 'FZIACN  ')
  33 #endif
  34
  35
  36 *     quick trace without test on capacity
  37 #include "zebra/qtraceq.inc"
  38
  39       NWDO  = NWBAT(1)
  40       NDONE = 0
  41
  42    24 NWAV = L4ENDI - L4CURI
  43       IF (NWAV.EQ.0)               GO TO 41
  44       IF (N4SKII.NE.0)             GO TO 31
  45
  46       NDONE  = MIN (NWDO, NWAV)
  47       LDATA  = L4CURI
  48       L4CURI = L4CURI + NDONE
  49 #include "zebra/qtrace99.inc"
  50       NWACC = NDONE
  51       RETURN
  52
  53 C--                Skip over N4SKII leading data words
  54
  55    31 NSK    = MIN (N4SKII,NWAV)
  56       L4CURI = L4CURI + NSK
  57       N4SKII = N4SKII - NSK
  58       IF (N4SKII.EQ.0)             GO TO 46
  59
  60 C----              Read next PhR / LR for batch continued
  61
  62    41 IFLAGI = -1
  63       CALL FZIREC
  64       IF (IFLAGI.NE.0)             GO TO 999
  65    46 IF (NWDO+N4SKII.NE.0)        GO TO 24
  66       GO TO 999
  67       END
  68 *      ==================================================
  69 #include "zebra/qcardl.inc"