PROGRAM main
      COMMON
     *      /DATABA_SIZVEC/ NUMsphe, NUModds, NUMdefo, 
     *                      NUMd3n,  NUMd3p,  NUMsupd, 
     *                      NUMmono, NUMdipo, NUMtwop, 
     *                      NUMdvpn, NUMterm, NUMqpSH
C
      CALL InitializeData()
C
      CALL GetData()
C      
      WRITE (6,'(''NUMsphe = '',i4,'' NUModds = '',i4,
     *           '' NUMsupd = '',i4,'' NUMmono = '',I4,
     *           '' NUMdipo = '',I4,'' NUMtwop = '',I4,
     *           '' NUMdvpn = '',I4,'' NUMterm = '',I4,
     *           '' NUMdefo = '',i4,'' NUMqpSH = '',I4)') 
     *           NUMsphe,NUModds,NUMsupd,NUMmono,
     *           NUMdipo,NUMtwop,NUMdvpn,NUMterm,
     *           NUMdefo,NUMqpSH
C
      CALL PrintData()
C
      STOP
C	
      END
C
      INCLUDE 'input02.f'