*
* $Id: mzcote.F,v 1.1.1.1 1996/03/06 10:47:00 mclareni Exp $
*
* $Log: mzcote.F,v $
* Revision 1.1.1.1 1996/03/06 10:47:00 mclareni
* Zebra
*
*
SUBROUTINE MZCOTE
C- standard test of MZCOPY + MZATTM
#include "zebra/zstate.inc"
#include "zebra/zunit.inc"
#include "zebra/mzbits.inc"
#include "zebra/quest.inc"
#include "test_include/testla.inc"
#include "test_include/testll.inc"
#include "test_include/testdd.inc"
#include "test_include/testiq.inc"
#include "test_include/testee.inc"
C-------------- END CDE --------------
COMMON /SECSTO/SECFEN(4),LSMAIN,SECST(6000)
DIMENSION BUF(10000), TABLE(400)
#include "zebra/q_jbit.inc"
C NQDEVZ = 7
CALL MZSTOR (IXSTOR,'//', '.', FENCE
+, LQ,LA1,LX1,LQ(NQLIM2),IQ(NQN))
CALL MZLOGL (IXSTOR,1)
CALL MZWORK (IXSTOR,M,DLAST,0)
CALL VZERO (LQUSER,150)
CALL MZDIV (IXSTOR,IXDV3,'DIV3',4000,6000, '.')
CALL MZDIV (IXSTOR,IXDV4,'DIV4', 100, 100, 'R')
IXWIPE = IXDV3
CALL MZSTOR (IXSTSE,'SECSTO', '.', SECFEN
+, LSMAIN,SECST,SECST,SECST(2000),SECST(6000))
IXDVSE = IXSTSE+2
IXMEM = 0
CALL CQBKIN
LOGLEV = 0
LOGCOM = 0
CALL MZLOGL (IXSTOR,LOGLEV)
CALL ZPHASE (1)
NCOUNT = 0
MINPR = 19
MAXPR = 1
C! MAXMAK = 255 maximum
MAXMAK = 24
M(8) = 8
JMAKE = 0
#include "test_include/maxmak.inc"
* Ignoring t=pass
21 CONTINUE
IF (LOGLEV.GT.0) CALL MZLOGL (IXSTOR,0)
CALL CQHIDS (JMAKE,3)
JSNAP = 0
IF ((JMAKE.GE.MINPR) .AND. (JMAKE.LT.MAXPR)) JSNAP = 7
IF (JSNAP.NE.0) CALL DZSNAP ('OUT',IXSTOR,'MW.')
IF (LOGLEV.GT.0) CALL MZLOGL (IXSTOR,LOGLEV)
C------ 'L' from div 1+2 -> 3 direct
CD IF (JMAKE.LT.2) THEN
CD NQLOGD = 2
CD NQDEVZ = 7
CD ENDIF
M(9) = 900
CALL MZCOPY (IXSTOR, LQMAIN, IXSTOR+3,LQUSER,1, 'L')
IF (IQUEST(1).NE.0) GO TO 91
M(62) = 1
M(63) = 0
M(64) = JMAKE
IF (JSNAP.GT.0) CALL DZSNAP ('INLHIG',IXSTOR,'WM.')
CALL QCOMDS (0,LOGCOM)
NCOUNT = NCOUNT + 1
CD NQLOGD = 0
CD NQDEVZ = 0
CALL MZWIPE (IXWIPE)
C------ 'D' from div 2 -> 3 via secondary div 2
CD IF (JMAKE.LT.2) THEN
CD NQLOGD = 2
CD NQDEVZ = 7
CD ENDIF
M(9) = 901
CALL MZCOPY (IXSTOR+2,LQMAIN, IXDVSE, LSMAIN,1, 'D')
IF (IQUEST(1).NE.0) GO TO 91
CALL MZCOPY (IXDVSE, LSMAIN, IXSTOR+3,LQUSER,1, 'D')
IF (IQUEST(1).NE.0) GO TO 91
M(62) = 2
M(63) = 0
M(64) = JMAKE
IF (JSNAP.GT.0) CALL DZSNAP ('INHIGH',IXSTOR,'WM.')
CALL QCOMDS (1,LOGCOM)
NCOUNT = NCOUNT + 1
CD NQLOGD = 0
CD NQDEVZ = 0
CALL MZWIPE (IXDVSE)
CALL MZWIPE (IXWIPE)
C------ 'L' from div 1 -> 3 direct
IF (LL1.EQ.0) GO TO 28
IF (JBIT(IQ(LL1),IQDROP).NE.0) GO TO 28
CD IF (JMAKE.LT.2) THEN
CD NQLOGD = 2
CD NQDEVZ = 7
CD ENDIF
M(9) = 902
CALL MZCOPY (IXSTOR+1,LL1, IXSTOR+3,LQUSER,1, 'L')
IF (IQUEST(1).NE.0) GO TO 91
M(62) = 3
M(63) = 0
M(64) = JMAKE
IF (JSNAP.GT.0) CALL DZSNAP ('INLOW ',IXSTOR,'WM.')
CALL QCOMDS (2,LOGCOM)
NCOUNT = NCOUNT + 1
CD NQLOGD = 0
CD NQDEVZ = 0
CALL MZWIPE (IXWIPE)
C------ 'LT' from div 1+2 -> 3 via BUF, off-set zero
28 CONTINUE
CD IF (JMAKE.LT.2) THEN
CD NQLOGD = 2
CD NQDEVZ = 7
CD ENDIF
M(9) = 903
IQUEST(3) = 10000
IQUEST(4) = 0
CALL MZCOPY (IXSTOR, LQMAIN, BUF,LENTRY,NWTO, 'LT')
IF (IQUEST(1).NE.0) GO TO 91
IQUEST(1) = NWTO
IQUEST(2) = 0
CALL MZCOPY (BUF, LENTRY, IXSTOR+3,LQUSER,1, 'F')
IF (IQUEST(1).NE.0) GO TO 91
M(62) = 4
M(63) = 1
M(64) = JMAKE
IF (JSNAP.GT.0) CALL DZSNAP ('INLHIG',IXSTOR,'WM.')
CALL QCOMDS (0,LOGCOM)
NCOUNT = NCOUNT + 1
CD NQLOGD = 0
CD NQDEVZ = 0
CALL MZWIPE (IXWIPE)
C------ 'DT' from div 2 -> 3 via BUF, off-set 12
CD IF (JMAKE.LT.2) THEN
CD NQLOGD = 2
CD NQDEVZ = 7
CD ENDIF
M(9) = 904
IQUEST(3) = 10000
IQUEST(4) = 12
CALL MZCOPY (IXSTOR+2,LQMAIN, BUF,LENTRY,NWTO, 'DT')
IF (IQUEST(1).NE.0) GO TO 91
IQUEST(1) = NWTO
IQUEST(2) = 12
CALL MZCOPY (BUF, LENTRY, IXSTOR+3,LQUSER,1, 'F')
IF (IQUEST(1).NE.0) GO TO 91
M(62) = 5
M(63) = 1
M(64) = JMAKE
IF (JSNAP.GT.0) CALL DZSNAP ('INHIGH',IXSTOR,'WM.')
CALL QCOMDS (1,LOGCOM)
NCOUNT = NCOUNT + 1
CD NQLOGD = 0
CD NQDEVZ = 0
CALL MZWIPE (IXWIPE)
C------ 'LT' from div 1+2 -> 3 via Attached store
CD IF (JMAKE.LT.2) THEN
CD NQLOGD = 2
CD NQDEVZ = 7
CD ENDIF
M(9) = 905
IQUEST(3) = 10000
IQUEST(4) = 0
CALL MZCOPY (IXSTOR, LQMAIN, BUF,LENTRY,NWTO, 'LT')
IF (IQUEST(1).NE.0) GO TO 91
CALL MZATTM (IXMEM,'ATTACH',BUF,1,NWTO,0,' ',TABLE)
CALL MZCOPY (IXMEM+1, LENTRY, IXSTOR+3,LQUSER,1, 'DI')
IF (IQUEST(1).NE.0) GO TO 91
M(62) = 6
M(63) = 2
M(64) = JMAKE
IF (JSNAP.GT.0) CALL DZSNAP ('INLHIG',IXSTOR,'WM.')
CALL QCOMDS (0,LOGCOM)
NCOUNT = NCOUNT + 1
CD NQLOGD = 0
CD NQDEVZ = 0
CALL MZWIPE (IXSTOR+21)
JMAKE = JMAKE + 1
IF (JMAKE.LT.MAXMAK) GO TO 21
WRITE (IQLOG,9081) NCOUNT
9081 FORMAT (1X/1X,I8,' data-structures copied and compared.')
RETURN
C---- Copy failed
91 CALL ZFATAM ('MZCOTE - failed.')
RETURN
END
* ==================================================
#include "zebra/qcardl.inc"