5 * Revision 1.1.1.1 1995/10/24 10:20:55 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.30 by S.Giani
12 SUBROUTINE GSDVS(CHNAME,CHMOTH,STEP,IAXIS,NUMED)
14 C. ******************************************************************
16 C. * To be replaced in the future by GSDVT *
18 C. ******************************************************************
20 #include "geant321/gcunit.inc"
21 CHARACTER*4 CHNAME,CHMOTH
23 +'('' *** GSDVS: Obsolete Routine -- Call GSDVT instead'')')
26 +'('' This code will be removed from next version'')')
28 CALL GSDVT(CHNAME,CHMOTH,STEP,IAXIS,NUMED,0)