C----------------------------------------------------------------------- C DATA.INC C----------------------------------------------------------------------- C This block contains the specifications for the DATA 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 ndata,nfilt,date(mxrec),baseline(mxrec) integer*4 calstars(mxstars),stars(mxrec) real*8 caldiams(mxstars),hours(mxrec) real*8 lambda0(mxrec,mxfilt),dlambda0(mxrec,mxfilt) real*8 ftcurve(mmxfilt,50,2) real*8 udata(mxrec,mxfilt),vdata(mxrec,mxfilt) real*8 obsvis2(mxrec,mxfilt),viserr(mxrec,mxfilt) real*8 vis2rat(mxdates,mxfilt) c common/data/ndata,nfilt,date,baseline,calstars,stars,caldiams, c & hours,lambda0,dlambda0,ftcurve,udata,vdata, c & obsvis2,viserr,vis2rat common/data1/ndata,nfilt,date,baseline,calstars,stars common/data2/caldiams, & hours,lambda0,dlambda0,ftcurve,udata,vdata, & obsvis2,viserr,vis2rat