Repatch (from linux) of OSX IRAF

1 files changed, 128 insertions, 0 deletions

diff --git a/noao/mtlocal/cyber/powd.inc b/noao/mtlocal/cyber/powd.inc
new file mode 100644
index 00000000..2dd8e81f
--- /dev/null
+++ b/noao/mtlocal/cyber/powd.inc
@@ -0,0 +1,128 @@
+	data (tbl(i), i=1, 2) /2.93873587706D-39, 5.87747175411D-39/
+	data (tbl(i), i=3, 4) /1.17549435082D-38, 2.35098870164D-38/
+	data (tbl(i), i=5, 6) /4.70197740329D-38, 9.40395480658D-38/
+	data (tbl(i), i=7, 8) /1.88079096132D-37, 3.76158192263D-37/
+	data (tbl(i), i=9, 10) /7.52316384526D-37, 1.50463276905D-36/
+	data (tbl(i), i=11, 12) /3.00926553811D-36, 6.01853107621D-36/
+	data (tbl(i), i=13, 14) /1.20370621524D-35, 2.40741243048D-35/
+	data (tbl(i), i=15, 16) /4.81482486097D-35, 9.62964972194D-35/
+	data (tbl(i), i=17, 18) /1.92592994439D-34, 3.85185988877D-34/
+	data (tbl(i), i=19, 20) /7.70371977755D-34, 1.54074395551D-33/
+	data (tbl(i), i=21, 22) /3.08148791102D-33, 6.16297582204D-33/
+	data (tbl(i), i=23, 24) /1.23259516441D-32, 2.46519032882D-32/
+	data (tbl(i), i=25, 26) /4.93038065763D-32, 9.86076131526D-32/
+	data (tbl(i), i=27, 28) /1.97215226305D-31, 3.94430452611D-31/
+	data (tbl(i), i=29, 30) /7.88860905221D-31, 1.57772181044D-30/
+	data (tbl(i), i=31, 32) /3.15544362088D-30, 6.31088724177D-30/
+	data (tbl(i), i=33, 34) /1.26217744835D-29, 2.52435489671D-29/
+	data (tbl(i), i=35, 36) /5.04870979341D-29, 1.00974195868D-28/
+	data (tbl(i), i=37, 38) /2.01948391737D-28, 4.03896783473D-28/
+	data (tbl(i), i=39, 40) /8.07793566946D-28, 1.61558713389D-27/
+	data (tbl(i), i=41, 42) /3.23117426779D-27, 6.46234853557D-27/
+	data (tbl(i), i=43, 44) /1.29246970711D-26, 2.58493941423D-26/
+	data (tbl(i), i=45, 46) /5.16987882846D-26, 1.03397576569D-25/
+	data (tbl(i), i=47, 48) /2.06795153138D-25, 4.13590306277D-25/
+	data (tbl(i), i=49, 50) /8.27180612553D-25, 1.65436122511D-24/
+	data (tbl(i), i=51, 52) /3.30872245021D-24, 6.61744490042D-24/
+	data (tbl(i), i=53, 54) /1.32348898008D-23, 2.64697796017D-23/
+	data (tbl(i), i=55, 56) /5.29395592034D-23, 1.05879118407D-22/
+	data (tbl(i), i=57, 58) /2.11758236814D-22, 4.23516473627D-22/
+	data (tbl(i), i=59, 60) /8.47032947254D-22, 1.69406589451D-21/
+	data (tbl(i), i=61, 62) /3.38813178902D-21, 6.77626357803D-21/
+	data (tbl(i), i=63, 64) /1.35525271561D-20, 2.71050543121D-20/
+	data (tbl(i), i=65, 66) /5.42101086243D-20, 1.08420217249D-19/
+	data (tbl(i), i=67, 68) /2.16840434497D-19, 4.33680868994D-19/
+	data (tbl(i), i=69, 70) /8.67361737988D-19, 1.73472347598D-18/
+	data (tbl(i), i=71, 72) /3.46944695195D-18, 6.93889390391D-18/
+	data (tbl(i), i=73, 74) /1.38777878078D-17, 2.77555756156D-17/
+	data (tbl(i), i=75, 76) /5.55111512313D-17, 1.11022302463D-16/
+	data (tbl(i), i=77, 78) /2.22044604925D-16, 4.44089209850D-16/
+	data (tbl(i), i=79, 80) /8.88178419700D-16, 1.77635683940D-15/
+	data (tbl(i), i=81, 82) /3.55271367880D-15, 7.10542735760D-15/
+	data (tbl(i), i=83, 84) /1.42108547152D-14, 2.84217094304D-14/
+	data (tbl(i), i=85, 86) /5.68434188608D-14, 1.13686837722D-13/
+	data (tbl(i), i=87, 88) /2.27373675443D-13, 4.54747350886D-13/
+	data (tbl(i), i=89, 90) /9.09494701773D-13, 1.81898940355D-12/
+	data (tbl(i), i=91, 92) /3.63797880709D-12, 7.27595761418D-12/
+	data (tbl(i), i=93, 94) /1.45519152284D-11, 2.91038304567D-11/
+	data (tbl(i), i=95, 96) /5.82076609135D-11, 1.16415321827D-10/
+	data (tbl(i), i=97, 98) /2.32830643654D-10, 4.65661287308D-10/
+	data (tbl(i), i=99, 100) /9.31322574615D-10, 1.86264514923D-9/
+	data (tbl(i), i=101, 102) /3.72529029846D-9, 7.45058059692D-9/
+	data (tbl(i), i=103, 104) /1.49011611938D-8, 2.98023223877D-8/
+	data (tbl(i), i=105, 106) /5.96046447754D-8, 1.19209289551D-7/
+	data (tbl(i), i=107, 108) /2.38418579102D-7, 4.76837158203D-7/
+	data (tbl(i), i=109, 110) /9.53674316406D-7, 1.90734863281D-6/
+	data (tbl(i), i=111, 112) /3.81469726563D-6, 7.62939453125D-6/
+	data (tbl(i), i=113, 114) /1.52587890625D-5, 3.05175781250D-5/
+	data (tbl(i), i=115, 116) /6.10351562500D-5, 1.22070312500D-4/
+	data (tbl(i), i=117, 118) /2.44140625000D-4, 4.88281250000D-4/
+	data (tbl(i), i=119, 120) /9.76562500000D-4, 0.001953125/
+	data (tbl(i), i=121, 122) /0.00390625, 0.0078125/
+	data (tbl(i), i=123, 124) /0.015625, 0.03125/
+	data (tbl(i), i=125, 126) /0.0625, 0.125/
+	data (tbl(i), i=127, 128) /0.25, 0.5/
+	data (tbl(i), i=129, 130) /1., 2./
+	data (tbl(i), i=131, 132) /4., 8./
+	data (tbl(i), i=133, 134) /16., 32./
+	data (tbl(i), i=135, 136) /64., 128./
+	data (tbl(i), i=137, 138) /256., 512./
+	data (tbl(i), i=139, 140) /1024., 2048./
+	data (tbl(i), i=141, 142) /4096., 8192./
+	data (tbl(i), i=143, 144) /16384., 32768./
+	data (tbl(i), i=145, 146) /65536., 131072./
+	data (tbl(i), i=147, 148) /262144., 524288./
+	data (tbl(i), i=149, 150) /1048576., 2097152./
+	data (tbl(i), i=151, 152) /4194304., 8388608./
+	data (tbl(i), i=153, 154) /16777216., 33554432./
+	data (tbl(i), i=155, 156) /67108864., 134217728./
+	data (tbl(i), i=157, 158) /268435456., 536870912./
+	data (tbl(i), i=159, 160) /1073741824., 2147483648./
+	data (tbl(i), i=161, 162) /4294967296., 8589934592./
+	data (tbl(i), i=163, 164) /17179869184., 34359738368./
+	data (tbl(i), i=165, 166) /68719476736., 137438953472./
+	data (tbl(i), i=167, 168) /274877906944., 549755813888./
+	data (tbl(i), i=169, 170) /1099511627776., 2199023255552./
+	data (tbl(i), i=171, 172) /4398046511104., 8796093022208./
+	data (tbl(i), i=173, 174) /17592186044416., 35184372088832./
+	data (tbl(i), i=175, 176) /70368744177664., 140737488355328./
+	data (tbl(i), i=177, 178) /281474976710656., 562949953421312./
+	data (tbl(i), i=179, 180) /1.12589990684D15, 2.25179981369D15/
+	data (tbl(i), i=181, 182) /4.50359962737D15, 9.00719925474D15/
+	data (tbl(i), i=183, 184) /1.80143985095D16, 3.60287970190D16/
+	data (tbl(i), i=185, 186) /7.20575940379D16, 1.44115188076D17/
+	data (tbl(i), i=187, 188) /2.88230376152D17, 5.76460752303D17/
+	data (tbl(i), i=189, 190) /1.15292150461D18, 2.30584300921D18/
+	data (tbl(i), i=191, 192) /4.61168601843D18, 9.22337203685D18/
+	data (tbl(i), i=193, 194) /1.84467440737D19, 3.68934881474D19/
+	data (tbl(i), i=195, 196) /7.37869762948D19, 1.47573952590D20/
+	data (tbl(i), i=197, 198) /2.95147905179D20, 5.90295810359D20/
+	data (tbl(i), i=199, 200) /1.18059162072D21, 2.36118324143D21/
+	data (tbl(i), i=201, 202) /4.72236648287D21, 9.44473296574D21/
+	data (tbl(i), i=203, 204) /1.88894659315D22, 3.77789318630D22/
+	data (tbl(i), i=205, 206) /7.55578637259D22, 1.51115727452D23/
+	data (tbl(i), i=207, 208) /3.02231454904D23, 6.04462909807D23/
+	data (tbl(i), i=209, 210) /1.20892581961D24, 2.41785163923D24/
+	data (tbl(i), i=211, 212) /4.83570327846D24, 9.67140655692D24/
+	data (tbl(i), i=213, 214) /1.93428131138D25, 3.86856262277D25/
+	data (tbl(i), i=215, 216) /7.73712524553D25, 1.54742504911D26/
+	data (tbl(i), i=217, 218) /3.09485009821D26, 6.18970019643D26/
+	data (tbl(i), i=219, 220) /1.23794003929D27, 2.47588007857D27/
+	data (tbl(i), i=221, 222) /4.95176015714D27, 9.90352031428D27/
+	data (tbl(i), i=223, 224) /1.98070406286D28, 3.96140812571D28/
+	data (tbl(i), i=225, 226) /7.92281625143D28, 1.58456325029D29/
+	data (tbl(i), i=227, 228) /3.16912650057D29, 6.33825300114D29/
+	data (tbl(i), i=229, 230) /1.26765060023D30, 2.53530120046D30/
+	data (tbl(i), i=231, 232) /5.07060240091D30, 1.01412048018D31/
+	data (tbl(i), i=233, 234) /2.02824096037D31, 4.05648192073D31/
+	data (tbl(i), i=235, 236) /8.11296384146D31, 1.62259276829D32/
+	data (tbl(i), i=237, 238) /3.24518553658D32, 6.49037107317D32/
+	data (tbl(i), i=239, 240) /1.29807421463D33, 2.59614842927D33/
+	data (tbl(i), i=241, 242) /5.19229685853D33, 1.03845937171D34/
+	data (tbl(i), i=243, 244) /2.07691874341D34, 4.15383748683D34/
+	data (tbl(i), i=245, 246) /8.30767497366D34, 1.66153499473D35/
+	data (tbl(i), i=247, 248) /3.32306998946D35, 6.64613997892D35/
+	data (tbl(i), i=249, 250) /1.32922799578D36, 2.65845599157D36/
+	data (tbl(i), i=251, 252) /5.31691198314D36, 1.06338239663D37/
+	data (tbl(i), i=253, 254) /2.12676479326D37, 4.25352958651D37/
+	data tbl(255)             /8.50705917302D37/