home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume3 / g-format / part4 / gfloat / f77 / src / f77pass1 / intr.c.diff < prev    next >
Encoding:
Text File  |  1986-11-30  |  13.1 KB  |  615 lines
  1. *** ../f77/src/f77pass1/intr.c.orig    Tue Oct 29 15:16:01 1985
  2. --- ../f77/src/f77pass1/intr.c    Tue Oct 29 15:22:50 1985
  3. ***************
  4. *** 237,242
  5.       { TYCOMPLEX,TYCOMPLEX,1,"r_cnjg" },
  6.       { TYDCOMPLEX,TYDCOMPLEX,1,"d_cnjg" },
  7.   
  8.       { TYREAL,TYREAL,1,"r_sqrt", 1 },
  9.       { TYDREAL,TYDREAL,1,"d_sqrt", 1 },
  10.       { TYCOMPLEX,TYCOMPLEX,1,"c_sqrt" },
  11.  
  12. --- 237,243 -----
  13.       { TYCOMPLEX,TYCOMPLEX,1,"r_cnjg" },
  14.       { TYDCOMPLEX,TYDCOMPLEX,1,"d_cnjg" },
  15.   
  16. + #ifndef GFLOAT
  17.       { TYREAL,TYREAL,1,"r_sqrt", 1 },
  18.   #else GFLOAT
  19.       { TYREAL,TYREAL,1,"r_sqrt" },
  20. ***************
  21. *** 238,243
  22.       { TYDCOMPLEX,TYDCOMPLEX,1,"d_cnjg" },
  23.   
  24.       { TYREAL,TYREAL,1,"r_sqrt", 1 },
  25.       { TYDREAL,TYDREAL,1,"d_sqrt", 1 },
  26.       { TYCOMPLEX,TYCOMPLEX,1,"c_sqrt" },
  27.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sqrt" },
  28.  
  29. --- 239,247 -----
  30.   
  31.   #ifndef GFLOAT
  32.       { TYREAL,TYREAL,1,"r_sqrt", 1 },
  33. + #else GFLOAT
  34. +     { TYREAL,TYREAL,1,"r_sqrt" },
  35. + #endif GFLOAT
  36.       { TYDREAL,TYDREAL,1,"d_sqrt", 1 },
  37.       { TYCOMPLEX,TYCOMPLEX,1,"c_sqrt" },
  38.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sqrt" },
  39. ***************
  40. *** 242,247
  41.       { TYCOMPLEX,TYCOMPLEX,1,"c_sqrt" },
  42.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sqrt" },
  43.   
  44.       { TYREAL,TYREAL,1,"r_exp", 2 },
  45.       { TYDREAL,TYDREAL,1,"d_exp", 2 },
  46.       { TYCOMPLEX,TYCOMPLEX,1,"c_exp" },
  47.  
  48. --- 246,252 -----
  49.       { TYCOMPLEX,TYCOMPLEX,1,"c_sqrt" },
  50.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sqrt" },
  51.   
  52. + #ifndef GFLOAT
  53.       { TYREAL,TYREAL,1,"r_exp", 2 },
  54.   #else GFLOAT
  55.       { TYREAL,TYREAL,1,"r_exp" },
  56. ***************
  57. *** 243,248
  58.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sqrt" },
  59.   
  60.       { TYREAL,TYREAL,1,"r_exp", 2 },
  61.       { TYDREAL,TYDREAL,1,"d_exp", 2 },
  62.       { TYCOMPLEX,TYCOMPLEX,1,"c_exp" },
  63.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_exp" },
  64.  
  65. --- 248,256 -----
  66.   
  67.   #ifndef GFLOAT
  68.       { TYREAL,TYREAL,1,"r_exp", 2 },
  69. + #else GFLOAT
  70. +     { TYREAL,TYREAL,1,"r_exp" },
  71. + #endif GFLOAT
  72.       { TYDREAL,TYDREAL,1,"d_exp", 2 },
  73.       { TYCOMPLEX,TYCOMPLEX,1,"c_exp" },
  74.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_exp" },
  75. ***************
  76. *** 247,252
  77.       { TYCOMPLEX,TYCOMPLEX,1,"c_exp" },
  78.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_exp" },
  79.   
  80.       { TYREAL,TYREAL,1,"r_log", 3 },
  81.       { TYDREAL,TYDREAL,1,"d_log", 3 },
  82.       { TYCOMPLEX,TYCOMPLEX,1,"c_log" },
  83.  
  84. --- 255,261 -----
  85.       { TYCOMPLEX,TYCOMPLEX,1,"c_exp" },
  86.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_exp" },
  87.   
  88. + #ifndef GFLOAT
  89.       { TYREAL,TYREAL,1,"r_log", 3 },
  90.   #else GFLOAT
  91.       { TYREAL,TYREAL,1,"r_log" },
  92. ***************
  93. *** 248,253
  94.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_exp" },
  95.   
  96.       { TYREAL,TYREAL,1,"r_log", 3 },
  97.       { TYDREAL,TYDREAL,1,"d_log", 3 },
  98.       { TYCOMPLEX,TYCOMPLEX,1,"c_log" },
  99.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_log" },
  100.  
  101. --- 257,265 -----
  102.   
  103.   #ifndef GFLOAT
  104.       { TYREAL,TYREAL,1,"r_log", 3 },
  105. + #else GFLOAT
  106. +     { TYREAL,TYREAL,1,"r_log" },
  107. + #endif GFLOAT
  108.       { TYDREAL,TYDREAL,1,"d_log", 3 },
  109.       { TYCOMPLEX,TYCOMPLEX,1,"c_log" },
  110.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_log" },
  111. ***************
  112. *** 255,260
  113.       { TYREAL,TYREAL,1,"r_lg10" },
  114.       { TYDREAL,TYDREAL,1,"d_lg10" },
  115.   
  116.       { TYREAL,TYREAL,1,"r_sin", 4 },
  117.       { TYDREAL,TYDREAL,1,"d_sin", 4 },
  118.       { TYCOMPLEX,TYCOMPLEX,1,"c_sin" },
  119.  
  120. --- 267,273 -----
  121.       { TYREAL,TYREAL,1,"r_lg10" },
  122.       { TYDREAL,TYDREAL,1,"d_lg10" },
  123.   
  124. + #ifndef GFLOAT
  125.       { TYREAL,TYREAL,1,"r_sin", 4 },
  126.   #else GFLOAT
  127.       { TYREAL,TYREAL,1,"r_sin" }, 
  128. ***************
  129. *** 256,261
  130.       { TYDREAL,TYDREAL,1,"d_lg10" },
  131.   
  132.       { TYREAL,TYREAL,1,"r_sin", 4 },
  133.       { TYDREAL,TYDREAL,1,"d_sin", 4 },
  134.       { TYCOMPLEX,TYCOMPLEX,1,"c_sin" },
  135.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sin" },
  136.  
  137. --- 269,277 -----
  138.   
  139.   #ifndef GFLOAT
  140.       { TYREAL,TYREAL,1,"r_sin", 4 },
  141. + #else GFLOAT
  142. +     { TYREAL,TYREAL,1,"r_sin" }, 
  143. + #endif GFLOAT
  144.       { TYDREAL,TYDREAL,1,"d_sin", 4 },
  145.       { TYCOMPLEX,TYCOMPLEX,1,"c_sin" },
  146.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sin" },
  147. ***************
  148. *** 260,265
  149.       { TYCOMPLEX,TYCOMPLEX,1,"c_sin" },
  150.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sin" },
  151.   
  152.       { TYREAL,TYREAL,1,"r_cos", 5 },
  153.       { TYDREAL,TYDREAL,1,"d_cos", 5 },
  154.       { TYCOMPLEX,TYCOMPLEX,1,"c_cos" },
  155.  
  156. --- 276,282 -----
  157.       { TYCOMPLEX,TYCOMPLEX,1,"c_sin" },
  158.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sin" },
  159.   
  160. + #ifndef GFLOAT
  161.       { TYREAL,TYREAL,1,"r_cos", 5 },
  162.   #else GFLOAT
  163.       { TYREAL,TYREAL,1,"r_cos" },
  164. ***************
  165. *** 261,266
  166.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sin" },
  167.   
  168.       { TYREAL,TYREAL,1,"r_cos", 5 },
  169.       { TYDREAL,TYDREAL,1,"d_cos", 5 },
  170.       { TYCOMPLEX,TYCOMPLEX,1,"c_cos" },
  171.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_cos" },
  172.  
  173. --- 278,286 -----
  174.   
  175.   #ifndef GFLOAT
  176.       { TYREAL,TYREAL,1,"r_cos", 5 },
  177. + #else GFLOAT
  178. +     { TYREAL,TYREAL,1,"r_cos" },
  179. + #endif GFLOAT
  180.       { TYDREAL,TYDREAL,1,"d_cos", 5 },
  181.       { TYCOMPLEX,TYCOMPLEX,1,"c_cos" },
  182.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_cos" },
  183. ***************
  184. *** 265,270
  185.       { TYCOMPLEX,TYCOMPLEX,1,"c_cos" },
  186.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_cos" },
  187.   
  188.       { TYREAL,TYREAL,1,"r_tan", 6 },
  189.       { TYDREAL,TYDREAL,1,"d_tan", 6 },
  190.   
  191.  
  192. --- 285,291 -----
  193.       { TYCOMPLEX,TYCOMPLEX,1,"c_cos" },
  194.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_cos" },
  195.   
  196. + #ifndef GFLOAT
  197.       { TYREAL,TYREAL,1,"r_tan", 6 },
  198.   #else GFLOAT
  199.       { TYREAL,TYREAL,1,"r_tan" },
  200. ***************
  201. *** 266,271
  202.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_cos" },
  203.   
  204.       { TYREAL,TYREAL,1,"r_tan", 6 },
  205.       { TYDREAL,TYDREAL,1,"d_tan", 6 },
  206.   
  207.       { TYREAL,TYREAL,1,"r_asin", 7 },
  208.  
  209. --- 287,295 -----
  210.   
  211.   #ifndef GFLOAT
  212.       { TYREAL,TYREAL,1,"r_tan", 6 },
  213. + #else GFLOAT
  214. +     { TYREAL,TYREAL,1,"r_tan" },
  215. + #endif GFLOAT
  216.       { TYDREAL,TYDREAL,1,"d_tan", 6 },
  217.   
  218.   #ifndef GFLOAT
  219. ***************
  220. *** 268,273
  221.       { TYREAL,TYREAL,1,"r_tan", 6 },
  222.       { TYDREAL,TYDREAL,1,"d_tan", 6 },
  223.   
  224.       { TYREAL,TYREAL,1,"r_asin", 7 },
  225.       { TYDREAL,TYDREAL,1,"d_asin", 7 },
  226.   
  227.  
  228. --- 292,298 -----
  229.   #endif GFLOAT
  230.       { TYDREAL,TYDREAL,1,"d_tan", 6 },
  231.   
  232. + #ifndef GFLOAT
  233.       { TYREAL,TYREAL,1,"r_asin", 7 },
  234.   #else GFLOAT
  235.       { TYREAL,TYREAL,1,"r_asin" },
  236. ***************
  237. *** 269,274
  238.       { TYDREAL,TYDREAL,1,"d_tan", 6 },
  239.   
  240.       { TYREAL,TYREAL,1,"r_asin", 7 },
  241.       { TYDREAL,TYDREAL,1,"d_asin", 7 },
  242.   
  243.       { TYREAL,TYREAL,1,"r_acos", 8 },
  244.  
  245. --- 294,302 -----
  246.   
  247.   #ifndef GFLOAT
  248.       { TYREAL,TYREAL,1,"r_asin", 7 },
  249. + #else GFLOAT
  250. +     { TYREAL,TYREAL,1,"r_asin" },
  251. + #endif GFLOAT
  252.       { TYDREAL,TYDREAL,1,"d_asin", 7 },
  253.   
  254.   #ifndef GFLOAT
  255. ***************
  256. *** 271,276
  257.       { TYREAL,TYREAL,1,"r_asin", 7 },
  258.       { TYDREAL,TYDREAL,1,"d_asin", 7 },
  259.   
  260.       { TYREAL,TYREAL,1,"r_acos", 8 },
  261.       { TYDREAL,TYDREAL,1,"d_acos", 8 },
  262.   
  263.  
  264. --- 299,305 -----
  265.   #endif GFLOAT
  266.       { TYDREAL,TYDREAL,1,"d_asin", 7 },
  267.   
  268. + #ifndef GFLOAT
  269.       { TYREAL,TYREAL,1,"r_acos", 8 },
  270.   #else GFLOAT
  271.       { TYREAL,TYREAL,1,"r_acos" },
  272. ***************
  273. *** 272,277
  274.       { TYDREAL,TYDREAL,1,"d_asin", 7 },
  275.   
  276.       { TYREAL,TYREAL,1,"r_acos", 8 },
  277.       { TYDREAL,TYDREAL,1,"d_acos", 8 },
  278.   
  279.       { TYREAL,TYREAL,1,"r_atan", 9 },
  280.  
  281. --- 301,309 -----
  282.   
  283.   #ifndef GFLOAT
  284.       { TYREAL,TYREAL,1,"r_acos", 8 },
  285. + #else GFLOAT
  286. +     { TYREAL,TYREAL,1,"r_acos" },
  287. + #endif GFLOAT
  288.       { TYDREAL,TYDREAL,1,"d_acos", 8 },
  289.   
  290.   #ifndef GFLOAT
  291. ***************
  292. *** 274,279
  293.       { TYREAL,TYREAL,1,"r_acos", 8 },
  294.       { TYDREAL,TYDREAL,1,"d_acos", 8 },
  295.   
  296.       { TYREAL,TYREAL,1,"r_atan", 9 },
  297.       { TYDREAL,TYDREAL,1,"d_atan", 9 },
  298.   
  299.  
  300. --- 306,312 -----
  301.   #endif GFLOAT
  302.       { TYDREAL,TYDREAL,1,"d_acos", 8 },
  303.   
  304. + #ifndef GFLOAT
  305.       { TYREAL,TYREAL,1,"r_atan", 9 },
  306.   #else GFLOAT
  307.       { TYREAL,TYREAL,1,"r_atan" },
  308. ***************
  309. *** 275,280
  310.       { TYDREAL,TYDREAL,1,"d_acos", 8 },
  311.   
  312.       { TYREAL,TYREAL,1,"r_atan", 9 },
  313.       { TYDREAL,TYDREAL,1,"d_atan", 9 },
  314.   
  315.       { TYREAL,TYREAL,2,"r_atn2", 10 },
  316.  
  317. --- 308,316 -----
  318.   
  319.   #ifndef GFLOAT
  320.       { TYREAL,TYREAL,1,"r_atan", 9 },
  321. + #else GFLOAT
  322. +     { TYREAL,TYREAL,1,"r_atan" },
  323. + #endif GFLOAT
  324.       { TYDREAL,TYDREAL,1,"d_atan", 9 },
  325.   
  326.   #ifndef GFLOAT
  327. ***************
  328. *** 277,282
  329.       { TYREAL,TYREAL,1,"r_atan", 9 },
  330.       { TYDREAL,TYDREAL,1,"d_atan", 9 },
  331.   
  332.       { TYREAL,TYREAL,2,"r_atn2", 10 },
  333.       { TYDREAL,TYDREAL,2,"d_atn2", 10 },
  334.   
  335.  
  336. --- 313,319 -----
  337.   #endif GFLOAT
  338.       { TYDREAL,TYDREAL,1,"d_atan", 9 },
  339.   
  340. + #ifndef GFLOAT
  341.       { TYREAL,TYREAL,2,"r_atn2", 10 },
  342.   #else GFLOAT
  343.       { TYREAL,TYREAL,2,"r_atn2" },
  344. ***************
  345. *** 278,283
  346.       { TYDREAL,TYDREAL,1,"d_atan", 9 },
  347.   
  348.       { TYREAL,TYREAL,2,"r_atn2", 10 },
  349.       { TYDREAL,TYDREAL,2,"d_atn2", 10 },
  350.   
  351.       { TYREAL,TYREAL,1,"r_sinh", 11 },
  352.  
  353. --- 315,323 -----
  354.   
  355.   #ifndef GFLOAT
  356.       { TYREAL,TYREAL,2,"r_atn2", 10 },
  357. + #else GFLOAT
  358. +     { TYREAL,TYREAL,2,"r_atn2" },
  359. + #endif GFLOAT
  360.       { TYDREAL,TYDREAL,2,"d_atn2", 10 },
  361.   
  362.   #ifndef GFLOAT
  363. ***************
  364. *** 280,285
  365.       { TYREAL,TYREAL,2,"r_atn2", 10 },
  366.       { TYDREAL,TYDREAL,2,"d_atn2", 10 },
  367.   
  368.       { TYREAL,TYREAL,1,"r_sinh", 11 },
  369.       { TYDREAL,TYDREAL,1,"d_sinh", 11 },
  370.   
  371.  
  372. --- 320,326 -----
  373.   #endif GFLOAT
  374.       { TYDREAL,TYDREAL,2,"d_atn2", 10 },
  375.   
  376. + #ifndef GFLOAT
  377.       { TYREAL,TYREAL,1,"r_sinh", 11 },
  378.   #else GFLOAT
  379.       { TYREAL,TYREAL,1,"r_sinh" },
  380. ***************
  381. *** 281,286
  382.       { TYDREAL,TYDREAL,2,"d_atn2", 10 },
  383.   
  384.       { TYREAL,TYREAL,1,"r_sinh", 11 },
  385.       { TYDREAL,TYDREAL,1,"d_sinh", 11 },
  386.   
  387.       { TYREAL,TYREAL,1,"r_cosh", 12 },
  388.  
  389. --- 322,330 -----
  390.   
  391.   #ifndef GFLOAT
  392.       { TYREAL,TYREAL,1,"r_sinh", 11 },
  393. + #else GFLOAT
  394. +     { TYREAL,TYREAL,1,"r_sinh" },
  395. + #endif GFLOAT
  396.       { TYDREAL,TYDREAL,1,"d_sinh", 11 },
  397.   
  398.   #ifndef GFLOAT
  399. ***************
  400. *** 283,288
  401.       { TYREAL,TYREAL,1,"r_sinh", 11 },
  402.       { TYDREAL,TYDREAL,1,"d_sinh", 11 },
  403.   
  404.       { TYREAL,TYREAL,1,"r_cosh", 12 },
  405.       { TYDREAL,TYDREAL,1,"d_cosh", 12 },
  406.   
  407.  
  408. --- 327,333 -----
  409.   #endif GFLOAT
  410.       { TYDREAL,TYDREAL,1,"d_sinh", 11 },
  411.   
  412. + #ifndef GFLOAT
  413.       { TYREAL,TYREAL,1,"r_cosh", 12 },
  414.   #else GFLOAT
  415.       { TYREAL,TYREAL,1,"r_cosh" },
  416. ***************
  417. *** 284,289
  418.       { TYDREAL,TYDREAL,1,"d_sinh", 11 },
  419.   
  420.       { TYREAL,TYREAL,1,"r_cosh", 12 },
  421.       { TYDREAL,TYDREAL,1,"d_cosh", 12 },
  422.   
  423.       { TYREAL,TYREAL,1,"r_tanh", 13 },
  424.  
  425. --- 329,337 -----
  426.   
  427.   #ifndef GFLOAT
  428.       { TYREAL,TYREAL,1,"r_cosh", 12 },
  429. + #else GFLOAT
  430. +     { TYREAL,TYREAL,1,"r_cosh" },
  431. + #endif GFLOAT
  432.       { TYDREAL,TYDREAL,1,"d_cosh", 12 },
  433.   
  434.   #ifndef GFLOAT
  435. ***************
  436. *** 286,291
  437.       { TYREAL,TYREAL,1,"r_cosh", 12 },
  438.       { TYDREAL,TYDREAL,1,"d_cosh", 12 },
  439.   
  440.       { TYREAL,TYREAL,1,"r_tanh", 13 },
  441.       { TYDREAL,TYDREAL,1,"d_tanh", 13 },
  442.   
  443.  
  444. --- 334,340 -----
  445.   #endif GFLOAT
  446.       { TYDREAL,TYDREAL,1,"d_cosh", 12 },
  447.   
  448. + #ifndef GFLOAT
  449.       { TYREAL,TYREAL,1,"r_tanh", 13 },
  450.   #else GFLOAT
  451.       { TYREAL,TYREAL,1,"r_tanh" },
  452. ***************
  453. *** 287,292
  454.       { TYDREAL,TYDREAL,1,"d_cosh", 12 },
  455.   
  456.       { TYREAL,TYREAL,1,"r_tanh", 13 },
  457.       { TYDREAL,TYDREAL,1,"d_tanh", 13 },
  458.   
  459.       { TYCHAR,TYLOGICAL,2,"hl_ge" },
  460.  
  461. --- 336,344 -----
  462.   
  463.   #ifndef GFLOAT
  464.       { TYREAL,TYREAL,1,"r_tanh", 13 },
  465. + #else GFLOAT
  466. +     { TYREAL,TYREAL,1,"r_tanh" },
  467. + #endif GFLOAT
  468.       { TYDREAL,TYDREAL,1,"d_tanh", 13 },
  469.   
  470.       { TYCHAR,TYLOGICAL,2,"hl_ge" },
  471. ***************
  472. *** 306,311
  473.       { TYDREAL,TYSHORT,1,"hd_expn" },
  474.       { TYDREAL,TYLONG,1,"id_expn" },
  475.   
  476.       { TYREAL,TYREAL,1,"r_absp" },
  477.       { TYDREAL,TYDREAL,1,"d_absp" },
  478.   
  479.  
  480. --- 358,364 -----
  481.       { TYDREAL,TYSHORT,1,"hd_expn" },
  482.       { TYDREAL,TYLONG,1,"id_expn" },
  483.   
  484. + #ifndef GFLOAT
  485.       { TYREAL,TYREAL,1,"r_absp" },
  486.   #else GFLOAT
  487.       { TYREAL,TYDREAL,1,"r_absp" },
  488. ***************
  489. *** 307,312
  490.       { TYDREAL,TYLONG,1,"id_expn" },
  491.   
  492.       { TYREAL,TYREAL,1,"r_absp" },
  493.       { TYDREAL,TYDREAL,1,"d_absp" },
  494.   
  495.       { TYREAL,TYDREAL,1,"r_rrsp" },
  496.  
  497. --- 360,368 -----
  498.   
  499.   #ifndef GFLOAT
  500.       { TYREAL,TYREAL,1,"r_absp" },
  501. + #else GFLOAT
  502. +     { TYREAL,TYDREAL,1,"r_absp" },
  503. + #endif GFLOAT
  504.       { TYDREAL,TYDREAL,1,"d_absp" },
  505.   
  506.       { TYREAL,TYDREAL,1,"r_rrsp" },
  507. ***************
  508. *** 312,317
  509.       { TYREAL,TYDREAL,1,"r_rrsp" },
  510.       { TYDREAL,TYDREAL,1,"d_rrsp" },
  511.   
  512.       { TYREAL,TYREAL,1,"r_frac" },
  513.       { TYDREAL,TYDREAL,1,"d_frac" },
  514.   
  515.  
  516. --- 368,374 -----
  517.       { TYREAL,TYDREAL,1,"r_rrsp" },
  518.       { TYDREAL,TYDREAL,1,"d_rrsp" },
  519.   
  520. + #ifndef GFLOAT
  521.       { TYREAL,TYREAL,1,"r_frac" },
  522.   #else GFLOAT
  523.       { TYREAL,TYDREAL,1,"r_frac" },
  524. ***************
  525. *** 313,318
  526.       { TYDREAL,TYDREAL,1,"d_rrsp" },
  527.   
  528.       { TYREAL,TYREAL,1,"r_frac" },
  529.       { TYDREAL,TYDREAL,1,"d_frac" },
  530.   
  531.       { TYREAL,TYREAL,2,"r_make" },
  532.  
  533. --- 370,378 -----
  534.   
  535.   #ifndef GFLOAT
  536.       { TYREAL,TYREAL,1,"r_frac" },
  537. + #else GFLOAT
  538. +     { TYREAL,TYDREAL,1,"r_frac" },
  539. + #endif GFLOAT
  540.       { TYDREAL,TYDREAL,1,"d_frac" },
  541.   
  542.   #ifndef GFLOAT
  543. ***************
  544. *** 315,320
  545.       { TYREAL,TYREAL,1,"r_frac" },
  546.       { TYDREAL,TYDREAL,1,"d_frac" },
  547.   
  548.       { TYREAL,TYREAL,2,"r_make" },
  549.       { TYDREAL,TYDREAL,2,"d_make" },
  550.   
  551.  
  552. --- 375,381 -----
  553.   #endif GFLOAT
  554.       { TYDREAL,TYDREAL,1,"d_frac" },
  555.   
  556. + #ifndef GFLOAT
  557.       { TYREAL,TYREAL,2,"r_make" },
  558.   #else GFLOAT
  559.       { TYREAL,TYDREAL,2,"r_make" },
  560. ***************
  561. *** 316,321
  562.       { TYDREAL,TYDREAL,1,"d_frac" },
  563.   
  564.       { TYREAL,TYREAL,2,"r_make" },
  565.       { TYDREAL,TYDREAL,2,"d_make" },
  566.   
  567.       { TYREAL,TYREAL,2,"r_scal" },
  568.  
  569. --- 377,385 -----
  570.   
  571.   #ifndef GFLOAT
  572.       { TYREAL,TYREAL,2,"r_make" },
  573. + #else GFLOAT
  574. +     { TYREAL,TYDREAL,2,"r_make" },
  575. + #endif GFLOAT
  576.       { TYDREAL,TYDREAL,2,"d_make" },
  577.   
  578.   #ifndef GFLOAT
  579. ***************
  580. *** 318,323
  581.       { TYREAL,TYREAL,2,"r_make" },
  582.       { TYDREAL,TYDREAL,2,"d_make" },
  583.   
  584.       { TYREAL,TYREAL,2,"r_scal" },
  585.       { TYDREAL,TYDREAL,2,"d_scal" }
  586.   } ;
  587.  
  588. --- 382,388 -----
  589.   #endif GFLOAT
  590.       { TYDREAL,TYDREAL,2,"d_make" },
  591.   
  592. + #ifndef GFLOAT
  593.       { TYREAL,TYREAL,2,"r_scal" },
  594.   #else GFLOAT
  595.       { TYREAL,TYDREAL,2,"r_scal" },
  596. ***************
  597. *** 319,324
  598.       { TYDREAL,TYDREAL,2,"d_make" },
  599.   
  600.       { TYREAL,TYREAL,2,"r_scal" },
  601.       { TYDREAL,TYDREAL,2,"d_scal" }
  602.   } ;
  603.   
  604.  
  605. --- 384,392 -----
  606.   
  607.   #ifndef GFLOAT
  608.       { TYREAL,TYREAL,2,"r_scal" },
  609. + #else GFLOAT
  610. +     { TYREAL,TYDREAL,2,"r_scal" },
  611. + #endif GFLOAT
  612.       { TYDREAL,TYDREAL,2,"d_scal" }
  613.   } ;
  614.   
  615.