GEANT321/miface/gmiset.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:21:53  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/04 23/02/95  18.26.26  by  S.Giani
  11 *-- Author :    S.Ravndal   22/02/95
  12        SUBROUTINE GMISET(MATNO,NKEY)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       MIFACE Micap Interface routine to call MICSET            *
  17 C.    *                                                                *
  18 C.    *   ==> Called by : <User>                                       *
  19 C.    *       Authors   : S.Ravndal                                    *
  20 C.    *                                                                *
  21 C     *       for details see MICAP manual ORNL/TM-10340               *
  22 C.    ******************************************************************
  23 C.
  24 #include "geant321/gcunit.inc"
  25
  26        INTEGER MATNO,NKEY
  27 C
  28        IF (NKEY.GE.0.AND.NKEY.LE.1) THEN
  29               CALL MICSET(MATNO,NKEY,' ')
  30        ELSE
  31               WRITE(CHMAIL,10100)
  32               CALL GMAIL(0,0)
  33        END IF
  34        RETURN
  35 10100  FORMAT(1X,'GMISET called with non-valid parameters')
  36        END
  37