home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / D2SOURCE.ZIP / HMLMDR1.FOR < prev    next >
Encoding:
Text File  |  1985-11-13  |  2.1 KB  |  36 lines
  1.       DATA HMLT/2*820.,710.,600.,420.,170.,2*1500.,1060.,620.,360.,
  2.      1 170.,2*1670.,1080.,490.,440.,310.,2*1340.,945.,550.,360.,160.,
  3.      2 2*540.,377.,215.,100.,50.,2*2310.,1277.,245.,150.,100.,
  4.      3 2*3625.,1892.,200.,100.,80.,2*1470.,845.,220.,100.,80.,
  5.      4 2*780.,750.,720.,530.,180.,2*1720.,1285.,850.,470.,140.,
  6.      5 2*1970.,1245.,525.,360.,210.,2*1300.,925.,550.,400.,130.,
  7.      6 4*2000.,1250.,500.,4*2000.,1250.,500.,4*2000.,1250.,500.,
  8.      7 4*2000.,1250.,500.,2*740.,765.,790.,640.,430.,2*1500.,1215.,
  9.      8 930.,560.,340.,2*1530.,1005.,480.,340.,250.,2*1230.,975.,720.,
  10.      9 470.,280.,2*430.,440.,450.,320.,130.,2*1170.,840.,510.,320.,120.,
  11.      $ 2*1440.,895.,350.,250.,140.,2*990.,715.,440.,260.,100.,
  12.      1 2*780.,705.,630.,520.,160.,2*1460.,1065.,670.,510.,160.,
  13.      2 2*1770.,1220.,670.,550.,220.,2*1270.,975.,680.,550.,140.,
  14.      3 2*1020.,550.,3*85.,2*2780.,1480.,3*185.,2*3290.,1785.,3*180.,
  15.      4 2*2010.,1050.,3*95.,2*1020.,550.,3*85.,2*2780.,1480.,3*185.,
  16.      5 2*3290.,1785.,3*180.,2*2010.,1050.,3*95.,2*370.,345.,320.,290.,
  17.      6 280.,2*1900.,1160.,420.,220.,200.,
  18.      7 2*2455.,1427.,400.,145.,130.,2*1145.,667.,190.,135.,115.,
  19.      8 2*700.,450.,200.,150.,100.,2*1200.,750.,300.,200.,150.,
  20.      9 2*1500.,1000.,500.,300.,200.,2*1000.,650.,300.,200.,150./
  21.       DATA QF/
  22.      $7.39E5,2.95E6,6.58E6,4.9E7,9.98E7,4.99E6,1.58E8,5.9E5,0.,0.,
  23.      $0.,2.72E6,6.58E6,0.,0.,4.54E6,0.,0.,5.22E6,0.,
  24.      $1.35E6,4.4E6,0.,0.,0.,0.,0.,0.,0.,2.72E6/
  25.       DATA SYSM/1.9,3.5,5.0,12.,17.,4.4,21.,1.7,0.,0./
  26.       DATA SZSM/.63,1.2,1.7,4.0,5.7,1.5,7.0,.6,0.,0./
  27.       DATA PMMT/747.,651.,760.,761.,737.,742.,755.,
  28.      $ 641.,628.,730.,752.,0./
  29.       DATA D1/.5,6.,10.,.4,2.5,4.3,2.,100.,150.,670.,810.,1180.,
  30.      $120.,320.,385.,1525.,1850.,1.E36,1.,12.,20.,.5,6.,10.,
  31.      $.5,6.,10.,2.,100.,150.,2.,100.,150.,1.,50.,75.,
  32.      $2.,100.,150.,1.E36,1.E36,1.E36,1.E36,1.E36,1.E36,
  33.      $1.E36,1.E36,31.,4.,2240.,1.E36/
  34.       DATA FMWT/140.1,267.4,159.1,27.02,98.92,61.48,162.18,182.18,
  35.      $ 180.2,170.08,204.54,189.4,207.35,32.05,60.1,337.4,277.57/
  36.