*
* $Id: dzdb01.F,v 1.1.1.1 1996/03/04 16:13:02 mclareni Exp $
*
* $Log: dzdb01.F,v $
* Revision 1.1.1.1  1996/03/04 16:13:02  mclareni
* Dzdoc/Zebpack
*
*
#include "dzdoc/pilot.h"
      SUBROUTINE DZDB01(CBROBJ,CBRCLS,CPATH,CTHIS,CKMCLS,CTHAT,CLONG)
      CHARACTER*(*) CBROBJ,CBRCLS,CPATH,CTHIS,CKMCLS,CTHAT,CLONG
*
      CALL IZCTOI(CTHAT,IBANK)
      GOTO 10
      ENTRY DZDB11(CTHIS,CKMCLS)
      CALL IZCTOI(CTHIS,IBANK)
      IBANK=-IBANK
10    CALL DZDSP1(IBANK,'SH_TREE')
      RETURN
 
      ENTRY DZDB12(CTHIS,CKMCLS)
      CALL IZCTOI(CTHIS,IBANK)
      IBANK=-IBANK
      CALL DZDSP1(IBANK,'SH_MORE')
      RETURN
*
      ENTRY DZDB03(CBROBJ,CBRCLS,CPATH,CTHIS,CKMCLS,CTHAT,CLONG)
      CALL IZCTOI(CTHAT,IBANK)
      GOTO 30
      ENTRY DZDB13(CTHIS,CKMCLS)
      CALL IZCTOI(CTHIS,IBANK)
      IBANK=-IBANK
30    CALL DZDSP1(IBANK,'SH_CONT')
      RETURN
*
      ENTRY DZDB04(CBROBJ,CBRCLS,CPATH,CTHIS,CKMCLS,CTHAT,CLONG)
      CALL IZCTOI(CTHAT,IBANK)
      GOTO 40
      ENTRY DZDB14(CTHIS,CKMCLS)
      CALL IZCTOI(CTHIS,IBANK)
      IBANK=-IBANK
40    CALL DZDSP1(IBANK,'DZSH_CONT')
      RETURN
*
      ENTRY DZDB05(CBROBJ,CBRCLS,CPATH,CTHIS,CKMCLS,CTHAT,CLONG)
      CALL IZCTOI(CTHAT,IBANK)
      GOTO 50
      ENTRY DZDB15(CTHIS,CKMCLS)
      CALL IZCTOI(CTHIS,IBANK)
      IBANK=-IBANK
50    CALL DZDSP1(IBANK,'SH_SYS')
      RETURN
*
      ENTRY DZDB06(CBROBJ,CBRCLS,CPATH,CTHIS,CKMCLS,CTHAT,CLONG)
      CALL IZCTOI(CTHAT,IBANK)
      GOTO 60
      ENTRY DZDB16(CTHIS,CKMCLS)
      CALL IZCTOI(CTHIS,IBANK)
      IBANK=-IBANK
60    CALL DZDSP1(IBANK,'SH_SURVEY')
      RETURN
*
      ENTRY DZDB07(CBROBJ,CBRCLS,CPATH,CTHIS,CKMCLS,CTHAT,CLONG)
      CALL IZCTOI(CTHAT,IBANK)
      GOTO 70
      ENTRY DZDB17(CTHIS,CKMCLS)
      CALL IZCTOI(CTHIS,IBANK)
      IBANK=-IBANK
70    CALL DZDSP1(IBANK,'SH_DOC')
      RETURN
*
      ENTRY DZDB08(CBROBJ,CBRCLS,CPATH,CTHIS,CKMCLS,CTHAT,CLONG)
      CALL IZCTOI(CTHAT,IBANK)
      GOTO 80
      ENTRY DZDB18(CTHIS,CKMCLS)
      CALL IZCTOI(CTHIS,IBANK)
      IBANK=-IBANK
80    CALL DZDSP1(IBANK,'DC_EDIT')
      RETURN
 
      END
*********************************************************************