*
* $Id: tjwsp.F,v 1.1.1.1 1996/03/06 10:47:02 mclareni Exp $
*
* $Log: tjwsp.F,v $
* Revision 1.1.1.1 1996/03/06 10:47:02 mclareni
* Zebra
*
*
#include "test_include/pilot.h"
SUBROUTINE TJWSP (CHNAME,MDATF,MDATL,MULI,MUDA)
C- Check the working space parameters are what they should be
#include "zebra/zunit.inc"
#include "zebra/quest.inc"
#include "zebra/mzca.inc"
#include "zebra/mzcb.inc"
#include "zebra/mzcc.inc"
#include "test_include/testla.inc"
#include "test_include/testll.inc"
#include "tejqdd.inc"
#include "test_include/testiq.inc"
#include "test_include/testee.inc"
#include "zebra/jzuc.inc"
C-------------- End CDE --------------
CHARACTER CHNAME*4
DIMENSION MDATF(48),MDATL(48),MULI(24),MUDA(24)
DIMENSION LINKWS(4)
EQUIVALENCE (LINKWS(1), LX1)
NLINK = LOCF (MDATF) - LQSTOR - 1
NDATA = LOCF (MDATL) - LQSTOR + 1
NDATX = LQSTA(KQT+1)
IF (NLINK.NE.NQLINK) GO TO 91
IF (NDATA.NE.NDATX) GO TO 92
DO 24 JL=1,4
IF (LINKWS(JL).NE.MULI(JL)) GO TO 93
IF ( MDATF(JL).NE.MUDA(JL)) GO TO 94
24 CONTINUE
RETURN
C---- Faults
91 WRITE (IQLOG,9091) NQLINK,NLINK
9091 FORMAT (/' !!! ',5X,
F'Faulty size of wsp links, value have/must =',2I4)
GO TO 97
92 WRITE (IQLOG,9092) NDATX,NDATA
9092 FORMAT (/' !!! ',5X,
F'Faulty size of wsp data, value have/must =',2I4)
GO TO 97
93 WRITE (IQLOG,9093) JL, LINKWS(JL), MULI(JL)
9093 FORMAT (/' !!! ',5X,'Faulty wsp link',I2,' value have/must =',
F2I7)
GO TO 97
94 WRITE (IQLOG,9094) JL, MDATF(JL), MUDA(JL)
9094 FORMAT (/' !!! ',5X,'Faulty wsp data',I2,' value have/must =',
F2I7)
97 WRITE (IQLOG,9097) CHNAME
9097 FORMAT (10X,'Fault in processor "',A,' !!!')
CALL ZFATAL
END
* ==================================================
#include "zebra/qcardl.inc"