SUBROUTINE MODHELP
C Explains how to enter parameters for a new model
      INCLUDE 'BINFIT.INC'

      WRITE(OUTC,1000)
      WRITE(OUTC,1001)
      WRITE(OUTC,1002)
      WRITE(OUTC,1003)
      WRITE(OUTC,1004)
      WRITE(OUTC,1005) 
      WRITE(OUTC,1006) LAMBDA0(1), LAMBDA0(1)
      WRITE(OUTC,1007) 
      WRITE(OUTC,1008) LAMBDA0(1), LAMBDA0(1)
      WRITE(OUTC,1009)
      WRITE(OUTC,1010)
      WRITE(OUTC,1011)
      WRITE(OUTC,1012)
      WRITE(OUTC,1013) LAMBDA0(1)
      WRITE(OUTC,1014) 
      WRITE(OUTC,1015) LAMBDA0(1)
      WRITE(OUTC,1016) LAMBDA0(1)
      WRITE(OUTC,1017) 
C Format statements.  In the two-line FORMAT statements, the two
C parts are 40 and 39 characters long for ease in formatting output
C to an 80-column screen.
 1000 FORMAT (' Enter new model:  each line has paramete',
     1         'rs for one component J observed with   ')
 1001 FORMAT (' one filter of wavelength nnn.n.')
 1002 FORMAT (' Enter 0 for the component number to repe',
     1         'at this message.  End input with ^Z    ')
 1003 FORMAT (' ')
 1004 FORMAT (' For J, wavel.:  Enter:')
 1005 FORMAT ('    ___  _____   _________________________')
 1006 FORMAT ('     1   ',F5.1,'    1, ',F5.1,', SE, PA, DI, FT')
 1007 FORMAT ('     1   nnn.n    1, nnn.n, DR, FT        ')
 1008 FORMAT ('     J   ',F5.1,'    J, ',F5.1,', SE, PA, DI, MD')
 1009 FORMAT ('     J   nnn.n    J, nnn.n, DR, CO        ')
 1010 FORMAT (' Where:')
 1011 FORMAT ('    SE = separation (mas)                ')
 1012 FORMAT ('    PA = position angle (deg)            ')
 1013 FORMAT ('    DI = uniform-disk diameter in ',F5.1,' n',
     1         'm filter                               ')
 1014 FORMAT ('    FT = total "flux" (= 1 for perfect ca',
     1         'libration) in nnn.n nm filter          ')
 1015 FORMAT ('    DR = diameter in nnn.n nm filter divi',
     1         'ded by diameter in ',F5.1,' nm filter     ')
 1016 FORMAT ('    MD = mag(J) - mag(1) in ',F5.1,' nm filt',
     1         'er                                     ')
 1017 FORMAT ('    CO (relative color) = mag(J) - mag(1)',
     1         ' in filter nnn.n minus MD              ')
 1018 FORMAT (' 1234567890123456789012345678901234567890',
     1         '1234567890123456789012345678901234567890')
      RETURN
      END