MINICERN/packlib/zebra/fq/fzon6.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:14  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10 #if defined(CERNLIB_FZFFNAT)
  11       SUBROUTINE FZON6 (V1,N1,V2,N2,V3,N3,V4,N4,V5,N5,V6,N6)
  12
  13 #include "zebra/mqsys.inc"
  14 #include "zebra/eqlqf.inc"
  15 #include "zebra/fzcx.inc"
  16 C--------------    End CDE                             --------------
  17 #if !defined(CERNLIB_AUTODBL)
  18       INTEGER   V1(N1),V2(N2),V3(N3),V4(N4),V5(N5),V6(N6)
  19 #endif
  20 #if defined(CERNLIB_AUTODBL)
  21       REAL   V1(N1),V2(N2),V3(N3),V4(N4),V5(N5),V6(N6),RELIDX(2)
  22       EQUIVALENCE (RELIDX(1),IDX(1))
  23 #endif
  24
  25       IDX(1) = N1 + N2 + N3 + N4 + N5 + N6
  26
  27 #if !defined(CERNLIB_AUTODBL)
  28       WRITE (LUNX) IDX,V1,V2,V3,V4,V5,V6
  29 #endif
  30 #if defined(CERNLIB_AUTODBL)
  31       WRITE (LUNX) RELIDX, V1,V2,V3,V4,V5,V6
  32 #endif
  33       IQ(KQSP+LQFX+20) = IQ(KQSP+LQFX+20) + IDX(1) + 3
  34       IQ(KQSP+LQFX+21) = IQ(KQSP+LQFX+21) + 1
  35       RETURN
  36       END
  37 *      ==================================================
  38 #include "zebra/qcardl.inc"
  39 #endif