GEANT321/gparal/checkstr.F

   1 *CMZ :          26/02/96  11.38.47  by  S.Ravndal
   2 *-- Author :
   3 #if defined(CERNLIB_PARA)
   4       subroutine checkstr( chREADIN, chExpected, nch, chDescription,
   5      $ierr )
   6       implicit none
   7       character chREADIN*(*), chExpected*(*), chDescription*(*)
   8       integer   ierr, nch
   9
  10 #include "geant321/gcunit.inc"
  11       integer   lunerr
  12       lunerr= lout
  13
  14 *    Example:
  15 *     call checkstr( chSUBSEQ, 'SUBSEQ ', !!                          ! '(a7)'
  16 *    $     ,'Number  of  subsequences ', ichkerr(1) )
  17
  18       if ( chReadin(1:nch) .ne. chExpected(1:nch) ) then
  19          write( lunerr, * )
  20      $        ' Checkstr: Values of string read-in and expected differ '
  21          write( lunerr, * ) '   Expected>', chExpected , '<'
  22          write( lunerr, * ) '   Read-in >', chReadin   , '<'
  23          ierr = 1
  24       else
  25          ierr = 0
  26       endif
  27       return
  28       end
  29 #endif