C-----------------------------------------------------------------------
C MODEL.INC    
C-----------------------------------------------------------------------
C This block contains the specifications for the MODEL common block
C used by the BINAFIT software via `include' statements. 
C It MUST be put in AFTER the CONSTNTS.INC file!
C
      integer*4 starno,ncomp
      character star*8
      logical calib
      real*8 diam(mxmod,mxfilt),dratio(mxmod,mxfilt)
      real*8 delmag(mxmod,mxfilt),mfilter(mxfilt)
      real*8 ccoeff(3),dcoeff(mxmod,3),lcoeff(mxmod,3)
      real*8 a_true,e_true,period,epoch,inclin,asc_node,arg_peri
      real*8 parmerr(mxparm),mca(maxitc,mxparm)

c     common /model/ starno,star,calib,ncomp,
c    &            diam,dratio,delmag,mfilter,ccoeff,dcoeff,lcoeff,
c    &            a_true,e_true,period,epoch,inclin,asc_node,arg_peri,
c    &            parmerr,mca

      common /model1/ starno,ncomp

      common /model2/ star
 
      common /model3/ calib

      common /model4/
     &            diam,dratio,delmag,mfilter,ccoeff,dcoeff,lcoeff,
     &            a_true,e_true,period,epoch,inclin,asc_node,arg_peri,
     &            parmerr,mca