% The multiplicative constants for the 73 point FFT

I = sqrt(-1);
u = [
       -1.013888888888889
       -0.118666718684966
        0.330254332831247
        0.059886531322514
       -0.195070432076880
       -0.685732384656879*I
       -0.356606343274992*I
        0.206910674072207*I
        0.544823791462264*I
       -0.083693588325194*I
       -0.395128122259478*I
        0.070454296597308*I
        0.220149965800093*I
        0.094108724093636*I
       -0.153586167406870
        0.253425901209703
       -0.033279911267611
        0.399073176695188
        0.114145951607259
       -0.171073042767482
       -0.427436587201177
        0.705294650881515
       -0.092619354560112
        0.077509034774395
       -0.127894310543988
        0.016795091923198
        0.174963776213391
       -0.288700170168763
        0.037912131318457
       -0.832062004692999*I
       -0.970366752914257*I
        0.600809585869085*I
        1.130725071431383*I
        1.968547547878271*I
       -1.033090873103218*I
        0.157484885318511*I
       -0.039688982235426*I
       -0.039265301027695*I
       -0.784473391884482*I
       -2.055809107809750*I
        0.946760833231411*I
       -0.170840554509076*I
       -1.137006277316589*I
        0.435948943941888*I
       -0.503736564865412*I
        0.126950542166905*I
        0.125595340899502*I
        0.808267698288740*I
        1.513087930362004*I
       -0.773785209550248*I
       -0.479942258461154*I
       -0.415770635280841*I
        0.298570964580665*I
        0.173125839773450*I
       -0.043630779965740*I
       -0.043165019935904*I
        1.269348505934460
       -1.132130253772301
        0.197505959945439
        0.133482685337997
       -0.729970282573360
        0.867630013825932
       -0.707881974769835
       -0.010900067282258
        0.112926759239926
       -1.679588559820738
       -0.712326173253464
        0.613337409514045
       -0.062201964221060
       -0.082136481525974
        0.803186280798033
        0.704695628658135
       -0.053424157326946
        0.277165728726667
        0.031301479547417
       -0.324101512156021
        0.273952413336130
       -0.617125138315462
        0.210013380998042
        0.213337393655563
       -2.873809736127988
       -0.326216013998089
        0.223516431880802
       -0.162393036574903
       -0.081546291067660
        1.065970416094670
       -0.260303446805786
        1.199865502486292
       -0.004103729996903
       -0.292099881272308
        2.250564662244638
       -0.311809292499551
        1.765141147635584
       -0.034378197622948
       -0.286123839817813
        2.239716291388053
        0.190704246435112
       -0.988335550040625
        0.012827309206617
        0.192741240363374
       -1.496760317877564
       -2.596641196823307
        2.425434617585699
        0.842311090361792
       -0.477698067032881
        3.875828666620345
       -0.322504857337855
        2.166442597894146
        0.818631478967196
       -0.424108210484348
        3.928789986088119
        0.973048684720387
       -1.530625738493281
       -0.553647523109663
        0.300602092505743
       -2.601539550902822
        1.428472321814546
       -1.812650060035995
       -0.419103680182445
        0.384898974152594
       -3.063196664432491
        0.317157074918703
       -1.965791872764865
       -0.392126640672124
        0.355116025151081
       -3.084253138738086
       -0.581876465577750
        1.259480644266953
        0.270410106951523
       -0.246671666434558
        2.049149934390193
       -1.094642566446010*I
       -0.285086928267294*I
       -0.409875000413542*I
       -0.036264023350099*I
        2.942188406914698*I
        0.177021087392679*I
       -0.758301906560410*I
        0.800636688572139*I
       -0.054031754749867*I
        2.541435424064479*I
        0.305873826351110*I
        0.347796278275901*I
       -0.130253896052866*I
        0.030098592699989*I
       -1.827874610326392*I
       -0.973544850302914*I
        2.790529211438417*I
        0.317956910274734*I
       -0.766431961715032*I
       10.225413757504997*I
        2.387719770301971*I
        0.404933963009411*I
        1.069460591092476*I
       -0.203230931847287*I
        3.787997224965972*I
       -0.471391639999686*I
       -1.065154391482609*I
       -0.462472500455737*I
        0.323220964520773*I
       -4.671136994156989*I
       -1.332023107084264*I
        1.157485176013206*I
        0.604762275822202*I
        0.049325521240941*I
       -3.865610728486013*I
       -0.455522723411053*I
        0.382994795215265*I
       -0.893586141808590*I
        0.018786999885845*I
       -0.452781645702861*I
        0.595848610165106*I
       -0.513493323742824*I
        0.096274621995463*I
       -0.022704173708929*I
        1.439464124729624*I
        4.823125747630924*I
       -8.127754849493094*I
       -0.345525911918842*I
        1.440185307668816*I
      -14.020646000886492*I
       -0.939686703724724*I
       -2.193882984743761*I
       -0.952070831652238*I
        0.346386996344450*I
       -6.749058286949199*I
       -1.294479681302066*I
        3.440545944745618*I
        0.432532247857027*I
       -0.595524101337755*I
        6.923234762611897*I
        0.090892116713473*I
       -3.307342214295558*I
        0.772080549586755*I
        0.736140365085567*I
       -8.584265293438820*I
        0.714008707147820*I
       -1.781261337864229*I
       -0.869145835604804*I
        0.126698309518986*I
       -1.325188929324469*I
       -0.268300274620431*I
        1.696201184053262*I
        0.032355095339350*I
       -0.287612891534851*I
        3.303151407587763*I
       -2.517557790243747*I
        4.179740462041471*I
       -0.577193274178094*I
       -0.723078867194725*I
        7.660842971867506*I
       -0.992510343166194*I
        1.405954226519085*I
        0.776196382368352*I
       -0.161943064383008*I
        3.413842707686088*I
        1.170022711136647*I
       -1.861898229520185*I
       -0.066334369396753*I
        0.295007310525911*I
       -3.691561893184531*I
       -1.864241590592457*I
        4.206420888880193*I
        0.377700456166192*I
       -0.701960642159359*I
        5.539228796985896*I
        0.381332808166023*I
        1.476092445652085*I
        0.075717071540050*I
       -0.146177620797291*I
        2.103811431442360*I
        0.494302927475478*I
       -1.894171111510760*I
       -0.151139175902081*I
        0.282712754318883*I
       -2.547680076142752*I
        0.441326366794720*I
        0.258406501428570*I
       -0.545018729930744*I
        0.015145798314732*I
       -0.820574232033088*I
       -1.550864238724896*I
        0.688163687427409*I
       -0.100157377743836*I
        0.038266311164151*I
       -1.231404147820752*I
        0.369845957310059*I
       -0.315523396285326*I
        0.215058702558194*I
       -0.017804036492961*I
        0.683992793284613*I
        1.924790448664005*I
       -2.668612819027338*I
       -0.013784500822054*I
        0.336876672976892*I
       -1.897616121690747*I
        0.724016533288624*I
       -0.894474510867175*I
        0.058694879720119*I
        0.071578032248581*I
       -1.480530530991613*I
       -0.882935660650876*I
        1.187695776631504*I
       -0.014970126299355*I
       -0.136151568408491*I
        1.126048884227453*I
];


% The input permutation for the 73 point FFT

ip = [
   1
   2
   38
   56
   65
   33
   17
   9
   5
   3
   11
   6
   40
   57
   29
   15
   8
   41
   21
   28
   51
   26
   50
   62
   68
   71
   36
   55
   52
   63
   32
   53
   27
   14
   44
   59
   30
   73
   37
   19
   10
   42
   58
   66
   70
   72
   64
   69
   35
   18
   46
   60
   67
   34
   54
   47
   24
   49
   25
   13
   7
   4
   39
   20
   23
   12
   43
   22
   48
   61
   31
   16
   45
];


% The output permutation for the 73 point FFT

op = [
   1
   73
   72
   52
   71
   2
   51
   7
   70
   31
   10
   56
   50
   24
   6
   62
   69
   40
   30
   54
   9
   58
   64
   47
   49
   12
   23
   19
   5
   27
   61
   21
   68
   44
   39
   17
   29
   65
   53
   3
   8
   32
   57
   25
   63
   41
   55
   59
   48
   13
   11
   28
   22
   45
   18
   66
   4
   33
   26
   42
   60
   14
   20
   46
   67
   34
   43
   15
   38
   35
   16
   36
   37
];