SUBROUTINE START
C     ================
C
C     General input and initialization procedure
C
      INCLUDE 'IMPLIC.FOR'
      INCLUDE 'BASICS.FOR'
      common/hediff/ hcmass,radstr
C
      read(1,*,end=10,err=10) idisk
   10 continue
      call initia
      if(hcmass.gt.0.) call hedif
      nn0=nn
      CALL COMSET
      call prdini
      return
      end