copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
      integer maxbus
      parameter (maxbus=1000)
*
      character*8  entnm(maxbus),dynnm(maxbus),pernm(maxbus),
     $             volnm(maxbus),enton(maxbus),dynon(maxbus),
     $             peron(maxbus),volon(maxbus)
      character*8  geonm(maxbus,6),phyonm(maxbus,3),bus_oname(maxbus,3)
      character*60 entdc(maxbus),dyndc(maxbus),
     $             perdc(maxbus),voldc(maxbus)
      common /busdync/ entnm, dynnm, pernm, volnm,
     $                 enton, dynon, peron, volon,
     $                 entdc, dyndc, perdc, voldc, 
     $                 geonm, phyonm, bus_oname
*
      integer entpar(maxbus,7),dynpar(maxbus,7),
     $        perpar(maxbus,7),volpar(maxbus,7)
      integer geopar(maxbus,3),phyopar(maxbus,7),bus_opar(maxbus,7)
      integer enttop,dyntop,pertop,voltop,geotop,phyotop,
     $        entspc,dynspc,perspc,volspc,geospc,phyospc,
     $        bus_otop,bus_ospc
      common /busdyni/
     $     entpar,dynpar,perpar,volpar,geopar,phyopar,
     $     enttop,dyntop,pertop,voltop,geotop,phyotop,
     $     entspc,dynspc,perspc,volspc,geospc,phyospc,
     $     bus_opar,bus_otop,bus_ospc
*