def write_input_original(inputs, full_name):
    """
    Creates an original Starburst99 input file.
    """
    f = open(full_name, 'w')
    NAME = inputs.model_name
    if inputs.fixed_mass:
        ISF = -1
    else:
        ISF = 1
    TOMA = inputs.total_mass / 1000000.0
    SFR = inputs.SFR
    NINTERV = len(inputs.IMF_exp)
    XPONENT = ''
    for i in inputs.IMF_exp:
        XPONENT = XPONENT + ',{0}'.format(i)
    XPONENT = XPONENT[1:]
    XMASLIM = ''
    for i in inputs.IMF_bound:
        XMASLIM = XMASLIM + ',{0}'.format(i)
    XMASLIM = XMASLIM[1:]
    SNCUT = inputs.SN_lo_mass
    BHCUT = inputs.SN_hi_mass
    tracks = ['PadovaOrig', 'PadovaAGB', 'GenevaStd', 'GenevaHigh',
        'Genevav00', 'Genevav40']
    PZ = [0.0004, 0.004, 0.008, 0.02, 0.05]
    GSH = [0.001, 0.004, 0.008, 0.02, 0.04]
    Gv = [0.002, 0.014]
    track_dict = {tracks[0]: {PZ[0]: 31, PZ[1]: 32, PZ[2]: 33, PZ[3]: 34,
        PZ[4]: 35}, tracks[1]: {PZ[0]: 41, PZ[1]: 42, PZ[2]: 43, PZ[3]: 44,
        PZ[4]: 45}, tracks[2]: {GSH[0]: 11, GSH[1]: 12, GSH[2]: 13, GSH[3]:
        14, GSH[4]: 15}, tracks[3]: {GSH[0]: 21, GSH[1]: 22, GSH[2]: 23,
        GSH[3]: 24, GSH[4]: 25}, tracks[4]: {Gv[0]: 52, Gv[1]: 54}, tracks[
        5]: {Gv[0]: 62, Gv[1]: 64}}
    IZ = track_dict[inputs.evolve_track][inputs.metallicity]
    models = {'Evolution': 0, 'Emperical': 1, 'Theoretical': 2, 'Elson': 3}
    IWIND = models[inputs.wind_model]
    if inputs.start_time == 0:
        inputs.start_time = 10000.0
    TIME1 = inputs.start_time / 1000000.0
    if inputs.log_scale:
        JTIME = 1
    else:
        JTIME = 0
    TBIV = inputs.dt / 1000000.0
    ITBIV = inputs.nsteps
    TMAX = inputs.end_time / 1000000.0
    grids = {'Full_Isochrone': 3, 'Isochrone_Large': 2, 'Large': 1, 'Small': 0}
    JMG = grids[inputs.mass_grid]
    if inputs.mass_track[0] == 0:
        LMIN = 0
    else:
        LMIN = '{0},{1}'.format(inputs.mass_track[0], inputs.mass_track[1])
    TDEL = inputs.spec_dt / 1000000.0
    models = {'Planck': 1, 'Lejeune': 2, 'Lejuene-Schmutz': 3,
        'Lejeune-Hiller': 4, 'Pauldrach-Hiller': 5}
    IATMOS = models[inputs.low_res_spec]
    Zs = {(0.001): 1, (0.008): 2, (0.02): 3, (0.04): 4}
    ILIB = Zs[inputs.high_res_spec_Z]
    if inputs.UV_line_lib == 'Solar':
        ILINE = 1
    else:
        ILINE = 2
    if inputs.RGS_abund:
        moop = 0
    else:
        moop = 1
    IVT = '{0},{1}'.format(inputs.RGS_turb_vel, moop)
    IO1 = 1 if inputs.outputs['QUANTA'] else -1
    IO2 = 1 if inputs.outputs['SNR'] else -1
    IO3 = 1 if inputs.outputs['HRD'] else -1
    IO4 = 1 if inputs.outputs['POWER'] else -1
    IO5 = 1 if inputs.outputs['SP'] else -1
    IO6 = 1 if inputs.outputs['YIELDS'] else -1
    IO7 = 1 if inputs.outputs['SPECTRUM'] else -1
    IO8 = 1 if inputs.outputs['LINE'] else -1
    IO9 = 1 if inputs.outputs['COLOR'] else -1
    IO10 = 1 if inputs.outputs['WIDTH'] else -1
    IO11 = 1 if inputs.outputs['FEATURES'] else -1
    IO12 = 1 if inputs.outputs['OVI'] else -1
    IO13 = 1 if inputs.outputs['HIRES'] else -1
    IO14 = 1 if inputs.outputs['WRLINES'] else -1
    IO15 = 1 if inputs.outputs['IFASPEC'] else -1
    lines = [
        'MODEL DESIGNATION:                                           [NAME]\n'
        , '{0}\n'.format(NAME),
        """CONTINUOUS STAR FORMATION (>0) OR FIXED MASS (<=0):          [ISF]
"""
        , '{0}\n'.format(ISF),
        "TOTAL STELLAR MASS [1E6 M_SOL] IF 'FIXED MASS' IS CHOSEN:    [TOMA]\n"
        , '{0}\n'.format(TOMA),
        """SFR [SOLAR MASSES PER YEAR] IF 'CONT. SF' IS CHOSEN:         [SFR]
"""
        , '{0}\n'.format(SFR),
        """NUMBER OF INTERVALS FOR THE IMF (KROUPA=2):                  [NINTERV]
"""
        , '{0}\n'.format(NINTERV),
        """IMF EXPONENTS (KROUPA=1.3,2.3):                              [XPONENT]
"""
        , '{0}\n'.format(XPONENT),
        """MASS BOUNDARIES FOR IMF (KROUPA=0.1,0.5,100) [SOLAR MASSES]: [XMASLIM]
"""
        , '{0}\n'.format(XMASLIM),
        """SUPERNOVA CUT-OFF MASS [SOLAR MASSES]:                       [SNCUT]
"""
        , '{0}\n'.format(SNCUT),
        """BLACK HOLE CUT-OFF MASS [SOLAR MASSES]:                      [BHCUT]
"""
        , '{0}\n'.format(BHCUT),
        'METALLICITY + TRACKS:                                        [IZ]\n',
        """GENEVA STD: 11=0.001;  12=0.004; 13=0.008; 14=0.020; 15=0.040
""",
        'GENEVA HIGH:21=0.001;  22=0.004; 23=0.008; 24=0.020; 25=0.040\n',
        """PADOVA STD: 31=0.0004; 32=0.004; 33=0.008; 34=0.020; 35=0.050
""",
        'PADOVA AGB: 41=0.0004; 42=0.004; 43=0.008; 44=0.020; 45=0.050\n',
        """GENEVA v00: 51=0.001;  52=0.002; 53=0.008; 54=0.014; 55=0.040
""",
        'GENEVA v40: 61=0.001;  62=0.002; 63=0.008; 64=0.014; 65=0.040\n',
        '{0}\n'.format(IZ),
        """WIND MODEL (0: MAEDER; 1: EMP.; 2: THEOR.; 3: ELSON):        [IWIND]
"""
        , '{0}\n'.format(IWIND),
        """INITIAL TIME [1.E6 YEARS]:                                   [TIME1]
"""
        , '{0}\n'.format(TIME1),
        """TIME SCALE: LINEAR (=0) OR LOGARITHMIC (=1)                  [JTIME]
"""
        , '{0}\n'.format(JTIME),
        'TIME STEP [1.e6 YEARS] (ONLY USED IF JTIME=0):               [TBIV]\n'
        , '{0}\n'.format(TBIV),
        """NUMBER OF STEPS        (ONLY USED IF JTIME=1):               [ITBIV]
"""
        , '{0}\n'.format(ITBIV),
        'LAST GRID POINT [1.e6 YEARS]:                                [TMAX]\n'
        , '{0}\n'.format(TMAX), """SMALL (=0) OR LARGE (=1) MASS GRID;
""",
        'ISOCHRONE ON  LARGE GRID (=2) OR FULL ISOCHRONE (=3):        [JMG]\n',
        '{0}\n'.format(JMG),
        """LMIN, LMAX (ALL=0):                                          [LMIN,LMAX]
"""
        , '{0}\n'.format(LMIN),
        'TIME STEP FOR PRINTING OUT THE SYNTHETIC SPECTRA [1.e6YR]:   [TDEL]\n'
        , '{0}\n'.format(TDEL),
        """ATMOSPHERE: 1=PLA, 2=LEJ, 3=LEJ+SCH, 4=LEJ+SMI, 5=PAU+SMI:   [IATMOS]
"""
        , '{0}\n'.format(IATMOS),
        """METALLICITY OF THE HIGH RESOLUTION MODELS                    [ILIB]
"""
        , '(1=0.001, 2= 0.008, 3=0.020, 4=0.040):\n', '{0}\n'.format(ILIB),
        """LIBRARY FOR THE UV LINE SPECTRUM: (1=SOLAR, 2=LMC/SMC)       [ILINE]
"""
        , '{0}\n'.format(ILINE),
        """RSG FEATURE: MICROTURB. VEL (1-6), SOL/NON-SOL ABUND (0,1)   [IVT,IRSG]
"""
        , '{0}\n'.format(IVT),
        """OUTPUT FILES (NO<0, YES>=0)                                  [IO1,...]
"""
        ,
        '{0},{1},{2},{3},{4},{5},{6},{7},{8},{9},{10},{11},{12},{13},{14}\n'
        .format(IO1, IO2, IO3, IO4, IO5, IO6, IO7, IO8, IO9, IO10, IO11,
        IO12, IO13, IO14, IO15),
        """******************************************************************
"""
        , '  OUTPUT FILES:         1    SYNTHESIS.QUANTA\n',
        """                        2    SYNTHESIS.SNR
""",
        '                        3    SYNTHESIS.HRD\n',
        """                        4    SYNTHESIS.POWER
""",
        '                        5    SYNTHESIS.SP\n',
        """                        6    SYNTHESIS.YIELDS
""",
        '                        7    SYNTHESIS.SPECTRUM\n',
        """                        8    SYNTHESIS.LINE
""",
        '                        9    SYNTHESIS.COLOR\n',
        """                       10    SYNTHESIS.WIDTH
""",
        '                       11    SYNTHESIS.FEATURES\n',
        """                       12    SYNTHESIS.OVI
""",
        '                       13    SYNTHESIS.HIRES\n',
        """                       14    SYNTHESIS.WRLINES
""",
        '                       15    SYNTHESIS.IFASPEC\n', '\n',
        '  CORRESPONDENCE I VS. MASS:\n',
        """  M   120 115 110 105 100  95  90  85  80  75  70  65
""",
        '  I     1   2   3   4   5   6   7   8   9  10  11  12\n', '\n',
        """  M    60  55  50  45  40  35  30  25  20  15  10   5
""",
        '  I    13  14  15  16  17  18  19  20  21  22  23  24\n', '\n',
        '\n',
        """  M   120 119 118 117 116 115 114 113 112 111 110 109 108 107 106
"""
        ,
        '  I     1   2   3   4   5   6   7   8   9  10  11  12  13  14  15\n',
        '\n',
        """  M   105 104 103 102 101 100  99  98  97  96  95  94  93  92  91
"""
        ,
        '  I    16  17  18  19  20  21  22  23  24  25  26  27  28  29  30\n',
        '\n',
        """  M    90  89  88  87  86  85  84  83  82  81  80  79  78  77  76
"""
        ,
        '  I    31  32  33  34  35  36  37  38  39  40  41  42  43  44  45\n',
        '\n',
        """  M    75  74  73  72  71  70  69  68  67  66  65  64  63  62  61
"""
        ,
        '  I    46  47  48  49  50  51  52  53  54  55  56  57  58  59  60\n',
        '\n',
        """  M    60  59  58  57  56  55  54  53  52  51  50  49  48  47  46
"""
        ,
        '  I    61  62  63  64  65  66  67  68  69  70  71  72  73  74  75\n',
        '\n',
        """  M    45  44  43  42  41  40  39  38  37  36  35  34  33  32  31
"""
        ,
        '  I    76  77  78  79  80  81  82  83  84  85  86  87  88  89  90\n',
        '\n',
        """  M    30  29  28  27  26  25  24  23  22  21  20  19  18  17  16
"""
        ,
        '  I    91  92  93  94  95  96  97  98  99 100 101 102 103 104 105\n',
        '\n',
        """  M    15  14  13  12  11  10   9   8   7   6   5   4   3   2   1
"""
        ,
        '  I   106 107 108 109 110 111 112 113 114 115 116 117 118 119 120\n',
        """********************************************************************
"""
        ]
    f.writelines(lines)
    f.close()
