home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_c / f2c.lha / f2c_ami.zoo / libf77.diffs < prev    next >
Encoding:
Text File  |  1992-05-08  |  23.5 KB  |  1,228 lines
  1. Only in f2c/libF77: amath.h
  2. diff -a -d +context f2c_1/libF77/c_cos.c f2c/libF77/c_cos.c
  3. *** f2c_1/libF77/c_cos.c    Mon Dec 10 15:28:22 1990
  4. --- f2c/libF77/c_cos.c    Wed Apr 29 13:12:38 1992
  5. ***************
  6. *** 1,9 ****
  7. --- 1,15 ----
  8.   #include "f2c.h"
  9.   
  10. + #ifdef AMIGA
  11. + #include "amath.h"
  12. + #endif
  13. + 
  14.   VOID c_cos(r, z)
  15.   complex *r, *z;
  16.   {
  17. + #ifndef MFPU
  18.   double sin(), cos(), sinh(), cosh();
  19. + #endif
  20.   
  21.   r->r = cos(z->r) * cosh(z->i);
  22.   r->i = - sin(z->r) * sinh(z->i);
  23. diff -a -d +context f2c_1/libF77/c_exp.c f2c/libF77/c_exp.c
  24. *** f2c_1/libF77/c_exp.c    Mon Dec 10 15:28:22 1990
  25. --- f2c/libF77/c_exp.c    Wed Apr 29 13:13:35 1992
  26. ***************
  27. *** 1,10 ****
  28. --- 1,16 ----
  29.   #include "f2c.h"
  30.   
  31. + #ifdef AMIGA
  32. + #include "amath.h"
  33. + #endif
  34. + 
  35.   VOID c_exp(r, z)
  36.   complex *r, *z;
  37.   {
  38.   double expx;
  39. + #ifndef MFPU
  40.   double exp(), cos(), sin();
  41. + #endif
  42.   
  43.   expx = exp(z->r);
  44.   r->r = expx * cos(z->i);
  45. diff -a -d +context f2c_1/libF77/c_log.c f2c/libF77/c_log.c
  46. *** f2c_1/libF77/c_log.c    Mon Dec 10 15:28:24 1990
  47. --- f2c/libF77/c_log.c    Wed Apr 29 13:18:15 1992
  48. ***************
  49. *** 1,9 ****
  50.   #include "f2c.h"
  51.   
  52.   VOID c_log(r, z)
  53.   complex *r, *z;
  54.   {
  55. ! double log(), cabs(), atan2();
  56.   
  57.   r->i = atan2(z->i, z->r);
  58.   r->r = log( cabs(z->r, z->i) );
  59. --- 1,16 ----
  60.   #include "f2c.h"
  61.   
  62. + #ifdef AMIGA
  63. + #include "amath.h"
  64. + #endif
  65. + 
  66.   VOID c_log(r, z)
  67.   complex *r, *z;
  68.   {
  69. ! double cabs();
  70. ! #ifndef MFPU
  71. ! double log(), atan2();
  72. ! #endif
  73.   
  74.   r->i = atan2(z->i, z->r);
  75.   r->r = log( cabs(z->r, z->i) );
  76. diff -a -d +context f2c_1/libF77/c_sin.c f2c/libF77/c_sin.c
  77. *** f2c_1/libF77/c_sin.c    Mon Dec 10 15:28:24 1990
  78. --- f2c/libF77/c_sin.c    Wed Apr 29 13:19:36 1992
  79. ***************
  80. *** 1,9 ****
  81. --- 1,15 ----
  82.   #include "f2c.h"
  83.   
  84. + #ifdef AMIGA
  85. + #include "amath.h"
  86. + #endif
  87. + 
  88.   VOID c_sin(r, z)
  89.   complex *r, *z;
  90.   {
  91. + #ifndef MFPU
  92.   double sin(), cos(), sinh(), cosh();
  93. + #endif
  94.   
  95.   r->r = sin(z->r) * cosh(z->i);
  96.   r->i = cos(z->r) * sinh(z->i);
  97. diff -a -d +context f2c_1/libF77/c_sqrt.c f2c/libF77/c_sqrt.c
  98. *** f2c_1/libF77/c_sqrt.c    Mon Dec 10 15:28:24 1990
  99. --- f2c/libF77/c_sqrt.c    Wed Apr 29 13:20:23 1992
  100. ***************
  101. *** 1,9 ****
  102.   #include "f2c.h"
  103.   
  104.   VOID c_sqrt(r, z)
  105.   complex *r, *z;
  106.   {
  107. ! double mag, t, sqrt(), cabs();
  108.   
  109.   if( (mag = cabs(z->r, z->i)) == 0.)
  110.       r->r = r->i = 0.;
  111. --- 1,16 ----
  112.   #include "f2c.h"
  113.   
  114. + #ifdef AMIGA
  115. + #include "amath.h"
  116. + #endif
  117. + 
  118.   VOID c_sqrt(r, z)
  119.   complex *r, *z;
  120.   {
  121. ! double mag, t, cabs();
  122. ! #ifndef MFPU
  123. ! double sqrt();
  124. ! #endif
  125.   
  126.   if( (mag = cabs(z->r, z->i)) == 0.)
  127.       r->r = r->i = 0.;
  128. diff -a -d +context f2c_1/libF77/cabs.c f2c/libF77/cabs.c
  129. *** f2c_1/libF77/cabs.c    Mon Dec 10 15:28:24 1990
  130. --- f2c/libF77/cabs.c    Wed Apr 29 13:09:36 1992
  131. ***************
  132. *** 1,7 ****
  133.   double cabs(real, imag)
  134.   double real, imag;
  135.   {
  136. ! double temp, sqrt();
  137.   
  138.   if(real < 0)
  139.       real = -real;
  140. --- 1,16 ----
  141. + #ifdef AMIGA
  142. + #include "amath.h"
  143. + #endif
  144. + 
  145.   double cabs(real, imag)
  146.   double real, imag;
  147.   {
  148. ! double temp;
  149. ! #ifndef LATTICE_50
  150. ! #ifndef MFPU
  151. ! double sqrt();
  152. ! #endif
  153. ! #endif
  154.   
  155.   if(real < 0)
  156.       real = -real;
  157. diff -a -d +context f2c_1/libF77/d_acos.c f2c/libF77/d_acos.c
  158. *** f2c_1/libF77/d_acos.c    Mon Dec 10 15:28:24 1990
  159. --- f2c/libF77/d_acos.c    Wed Apr 29 13:20:55 1992
  160. ***************
  161. *** 1,8 ****
  162. --- 1,14 ----
  163.   #include "f2c.h"
  164.   
  165. + #ifdef AMIGA
  166. + #include "amath.h"
  167. + #endif
  168. + 
  169.   double d_acos(x)
  170.   doublereal *x;
  171.   {
  172. + #ifndef MFPU
  173.   double acos();
  174. + #endif
  175.   return( acos(*x) );
  176.   }
  177. diff -a -d +context f2c_1/libF77/d_asin.c f2c/libF77/d_asin.c
  178. *** f2c_1/libF77/d_asin.c    Mon Dec 10 15:28:24 1990
  179. --- f2c/libF77/d_asin.c    Wed Apr 29 13:21:02 1992
  180. ***************
  181. *** 1,8 ****
  182. --- 1,14 ----
  183.   #include "f2c.h"
  184.   
  185. + #ifdef AMIGA
  186. + #include "amath.h"
  187. + #endif
  188. + 
  189.   double d_asin(x)
  190.   doublereal *x;
  191.   {
  192. + #ifndef MFPU
  193.   double asin();
  194. + #endif
  195.   return( asin(*x) );
  196.   }
  197. diff -a -d +context f2c_1/libF77/d_atan.c f2c/libF77/d_atan.c
  198. *** f2c_1/libF77/d_atan.c    Mon Dec 10 15:28:26 1990
  199. --- f2c/libF77/d_atan.c    Wed Apr 29 13:21:09 1992
  200. ***************
  201. *** 1,8 ****
  202. --- 1,14 ----
  203.   #include "f2c.h"
  204.   
  205. + #ifdef AMIGA
  206. + #include "amath.h"
  207. + #endif
  208. + 
  209.   double d_atan(x)
  210.   doublereal *x;
  211.   {
  212. + #ifndef MFPU
  213.   double atan();
  214. + #endif
  215.   return( atan(*x) );
  216.   }
  217. diff -a -d +context f2c_1/libF77/d_atn2.c f2c/libF77/d_atn2.c
  218. *** f2c_1/libF77/d_atn2.c    Mon Dec 10 15:28:26 1990
  219. --- f2c/libF77/d_atn2.c    Tue Apr 28 19:58:59 1992
  220. ***************
  221. *** 1,5 ****
  222. --- 1,9 ----
  223.   #include "f2c.h"
  224.   
  225. + #ifdef AMIGA
  226. + #include "amath.h"
  227. + #endif
  228. + 
  229.   double d_atn2(x,y)
  230.   doublereal *x, *y;
  231.   {
  232. diff -a -d +context f2c_1/libF77/d_cos.c f2c/libF77/d_cos.c
  233. *** f2c_1/libF77/d_cos.c    Mon Dec 10 15:28:26 1990
  234. --- f2c/libF77/d_cos.c    Wed Apr 29 13:21:59 1992
  235. ***************
  236. *** 1,8 ****
  237. --- 1,14 ----
  238.   #include "f2c.h"
  239.   
  240. + #ifdef AMIGA
  241. + #include "amath.h"
  242. + #endif
  243. + 
  244.   double d_cos(x)
  245.   doublereal *x;
  246.   {
  247. + #ifndef MFPU
  248.   double cos();
  249. + #endif
  250.   return( cos(*x) );
  251.   }
  252. diff -a -d +context f2c_1/libF77/d_cosh.c f2c/libF77/d_cosh.c
  253. *** f2c_1/libF77/d_cosh.c    Mon Dec 10 15:28:26 1990
  254. --- f2c/libF77/d_cosh.c    Wed Apr 29 13:22:12 1992
  255. ***************
  256. *** 1,8 ****
  257. --- 1,14 ----
  258.   #include "f2c.h"
  259.   
  260. + #ifdef AMIGA
  261. + #include "amath.h"
  262. + #endif
  263. + 
  264.   double d_cosh(x)
  265.   doublereal *x;
  266.   {
  267. + #ifndef MFPU
  268.   double cosh();
  269. + #endif
  270.   return( cosh(*x) );
  271.   }
  272. diff -a -d +context f2c_1/libF77/d_exp.c f2c/libF77/d_exp.c
  273. *** f2c_1/libF77/d_exp.c    Mon Dec 10 15:28:26 1990
  274. --- f2c/libF77/d_exp.c    Wed Apr 29 13:22:23 1992
  275. ***************
  276. *** 1,8 ****
  277. --- 1,14 ----
  278.   #include "f2c.h"
  279.   
  280. + #ifdef AMIGA
  281. + #include "amath.h"
  282. + #endif
  283. + 
  284.   double d_exp(x)
  285.   doublereal *x;
  286.   {
  287. + #ifndef MFPU
  288.   double exp();
  289. + #endif
  290.   return( exp(*x) );
  291.   }
  292. diff -a -d +context f2c_1/libF77/d_int.c f2c/libF77/d_int.c
  293. *** f2c_1/libF77/d_int.c    Mon Dec 10 15:28:28 1990
  294. --- f2c/libF77/d_int.c    Wed Apr 29 13:22:38 1992
  295. ***************
  296. *** 1,9 ****
  297. --- 1,15 ----
  298.   #include "f2c.h"
  299.   
  300. + #ifdef AMIGA
  301. + #include "amath.h"
  302. + #endif
  303. + 
  304.   double d_int(x)
  305.   doublereal *x;
  306.   {
  307. + #ifndef MFPU
  308.   double floor();
  309. + #endif
  310.   
  311.   return( (*x>0) ? floor(*x) : -floor(- *x) );
  312.   }
  313. diff -a -d +context f2c_1/libF77/d_lg10.c f2c/libF77/d_lg10.c
  314. *** f2c_1/libF77/d_lg10.c    Mon Dec 10 15:28:28 1990
  315. --- f2c/libF77/d_lg10.c    Wed Apr 29 13:24:52 1992
  316. ***************
  317. *** 1,11 ****
  318. --- 1,17 ----
  319.   #include "f2c.h"
  320.   
  321. + #ifdef AMIGA
  322. + #include "amath.h"
  323. + #endif
  324. + 
  325.   #define log10e 0.43429448190325182765
  326.   
  327.   double d_lg10(x)
  328.   doublereal *x;
  329.   {
  330. + #ifndef MFPU
  331.   double log();
  332. + #endif
  333.   
  334.   return( log10e * log(*x) );
  335.   }
  336. diff -a -d +context f2c_1/libF77/d_log.c f2c/libF77/d_log.c
  337. *** f2c_1/libF77/d_log.c    Mon Dec 10 15:28:28 1990
  338. --- f2c/libF77/d_log.c    Wed Apr 29 13:24:59 1992
  339. ***************
  340. *** 1,8 ****
  341. --- 1,14 ----
  342.   #include "f2c.h"
  343.   
  344. + #ifdef AMIGA
  345. + #include "amath.h"
  346. + #endif
  347. + 
  348.   double d_log(x)
  349.   doublereal *x;
  350.   {
  351. + #ifndef MFPU
  352.   double log();
  353. + #endif
  354.   return( log(*x) );
  355.   }
  356. diff -a -d +context f2c_1/libF77/d_mod.c f2c/libF77/d_mod.c
  357. *** f2c_1/libF77/d_mod.c    Mon Dec 10 15:28:28 1990
  358. --- f2c/libF77/d_mod.c    Wed Apr 29 13:25:34 1992
  359. ***************
  360. *** 1,5 ****
  361. --- 1,9 ----
  362.   #include "f2c.h"
  363.   
  364. + #ifdef AMIGA
  365. + #include "amath.h"
  366. + #endif
  367. + 
  368.   double d_mod(x,y)
  369.   doublereal *x, *y;
  370.   {
  371. ***************
  372. *** 16,22 ****
  373.           z -= ya;
  374.       return z;
  375.   #else
  376. !     double floor(), quotient;
  377.       if( (quotient = *x / *y) >= 0)
  378.           quotient = floor(quotient);
  379.       else
  380. --- 20,29 ----
  381.           z -= ya;
  382.       return z;
  383.   #else
  384. !         double quotient;
  385. ! #ifndef MFPU
  386. !     double floor();
  387. ! #endif
  388.       if( (quotient = *x / *y) >= 0)
  389.           quotient = floor(quotient);
  390.       else
  391. diff -a -d +context f2c_1/libF77/d_nint.c f2c/libF77/d_nint.c
  392. *** f2c_1/libF77/d_nint.c    Mon Dec 10 15:28:28 1990
  393. --- f2c/libF77/d_nint.c    Wed Apr 29 13:25:44 1992
  394. ***************
  395. *** 1,9 ****
  396. --- 1,15 ----
  397.   #include "f2c.h"
  398.   
  399. + #ifdef AMIGA
  400. + #include "amath.h"
  401. + #endif
  402. + 
  403.   double d_nint(x)
  404.   doublereal *x;
  405.   {
  406. + #ifndef MFPU
  407.   double floor();
  408. + #endif
  409.   
  410.   return( (*x)>=0 ?
  411.       floor(*x + .5) : -floor(.5 - *x) );
  412. diff -a -d +context f2c_1/libF77/d_sin.c f2c/libF77/d_sin.c
  413. *** f2c_1/libF77/d_sin.c    Mon Dec 10 15:28:30 1990
  414. --- f2c/libF77/d_sin.c    Wed Apr 29 13:26:00 1992
  415. ***************
  416. *** 1,8 ****
  417. --- 1,14 ----
  418.   #include "f2c.h"
  419.   
  420. + #ifdef AMIGA
  421. + #include "amath.h"
  422. + #endif
  423. + 
  424.   double d_sin(x)
  425.   doublereal *x;
  426.   {
  427. + #ifndef MFPU
  428.   double sin();
  429. + #endif
  430.   return( sin(*x) );
  431.   }
  432. diff -a -d +context f2c_1/libF77/d_sinh.c f2c/libF77/d_sinh.c
  433. *** f2c_1/libF77/d_sinh.c    Mon Dec 10 15:28:30 1990
  434. --- f2c/libF77/d_sinh.c    Wed Apr 29 13:26:08 1992
  435. ***************
  436. *** 1,8 ****
  437. --- 1,14 ----
  438.   #include "f2c.h"
  439.   
  440. + #ifdef AMIGA
  441. + #include "amath.h"
  442. + #endif
  443. + 
  444.   double d_sinh(x)
  445.   doublereal *x;
  446.   {
  447. + #ifndef MFPU
  448.   double sinh();
  449. + #endif
  450.   return( sinh(*x) );
  451.   }
  452. diff -a -d +context f2c_1/libF77/d_sqrt.c f2c/libF77/d_sqrt.c
  453. *** f2c_1/libF77/d_sqrt.c    Mon Dec 10 15:28:30 1990
  454. --- f2c/libF77/d_sqrt.c    Wed Apr 29 13:26:46 1992
  455. ***************
  456. *** 1,8 ****
  457. --- 1,11 ----
  458.   #include "f2c.h"
  459. + #include "amath.h"
  460.   
  461.   double d_sqrt(x)
  462.   doublereal *x;
  463.   {
  464. + #ifndef MFPU
  465.   double sqrt();
  466. + #endif
  467.   return( sqrt(*x) );
  468.   }
  469. diff -a -d +context f2c_1/libF77/d_tan.c f2c/libF77/d_tan.c
  470. *** f2c_1/libF77/d_tan.c    Mon Dec 10 15:28:30 1990
  471. --- f2c/libF77/d_tan.c    Wed Apr 29 13:27:07 1992
  472. ***************
  473. *** 1,8 ****
  474. --- 1,14 ----
  475.   #include "f2c.h"
  476.   
  477. + #ifdef AMIGA
  478. + #include "amath.h"
  479. + #endif
  480. + 
  481.   double d_tan(x)
  482.   doublereal *x;
  483.   {
  484. + #ifndef MFPU
  485.   double tan();
  486. + #endif
  487.   return( tan(*x) );
  488.   }
  489. diff -a -d +context f2c_1/libF77/d_tanh.c f2c/libF77/d_tanh.c
  490. *** f2c_1/libF77/d_tanh.c    Mon Dec 10 15:28:30 1990
  491. --- f2c/libF77/d_tanh.c    Wed Apr 29 13:27:21 1992
  492. ***************
  493. *** 1,8 ****
  494. --- 1,14 ----
  495.   #include "f2c.h"
  496.   
  497. + #ifdef AMIGA
  498. + #include "amath.h"
  499. + #endif
  500. + 
  501.   double d_tanh(x)
  502.   doublereal *x;
  503.   {
  504. + #ifndef MFPU
  505.   double tanh();
  506. + #endif
  507.   return( tanh(*x) );
  508.   }
  509. Only in f2c/libF77: f2c.h
  510. diff -a -d +context f2c_1/libF77/h_dnnt.c f2c/libF77/h_dnnt.c
  511. *** f2c_1/libF77/h_dnnt.c    Mon Dec 10 15:28:34 1990
  512. --- f2c/libF77/h_dnnt.c    Wed Apr 29 13:42:45 1992
  513. ***************
  514. *** 1,4 ****
  515. --- 1,5 ----
  516.   #include "f2c.h"
  517. + #include "amath.h"
  518.   
  519.   extern integer s_cmp();
  520.   
  521. ***************
  522. *** 5,12 ****
  523.   shortint h_dnnt(x)
  524.   doublereal *x;
  525.   {
  526.   double floor();
  527.   
  528.   return( (*x)>=0 ?
  529. !     floor(*x + .5) : -floor(.5 - *x) );
  530.   }
  531. --- 6,15 ----
  532.   shortint h_dnnt(x)
  533.   doublereal *x;
  534.   {
  535. + #ifndef MFPU
  536.   double floor();
  537. + #endif
  538.   
  539.   return( (*x)>=0 ?
  540. !     (shortint)(floor(*x + .5)) : (shortint)(-floor(.5 - *x)) );
  541.   }
  542. diff -a -d +context f2c_1/libF77/h_nint.c f2c/libF77/h_nint.c
  543. *** f2c_1/libF77/h_nint.c    Mon Dec 10 15:28:34 1990
  544. --- f2c/libF77/h_nint.c    Wed Apr 29 13:47:27 1992
  545. ***************
  546. *** 1,12 ****
  547.   #include "f2c.h"
  548.   
  549.   extern integer s_cmp();
  550.   
  551.   shortint h_nint(x)
  552.   real *x;
  553.   {
  554.   double floor();
  555.   
  556.   return( (*x)>=0 ?
  557. !     floor(*x + .5) : -floor(.5 - *x) );
  558.   }
  559. --- 1,18 ----
  560.   #include "f2c.h"
  561.   
  562. + #ifdef AMIGA
  563. + #include "amath.h"
  564. + #endif
  565. + 
  566.   extern integer s_cmp();
  567.   
  568.   shortint h_nint(x)
  569.   real *x;
  570.   {
  571. + #ifndef MFPU
  572.   double floor();
  573. + #endif
  574.   
  575.   return( (*x)>=0 ?
  576. !     (shortint)(floor(*x + .5)) : (shortint)(-floor(.5 - *x)) );
  577.   }
  578. diff -a -d +context f2c_1/libF77/i_dnnt.c f2c/libF77/i_dnnt.c
  579. *** f2c_1/libF77/i_dnnt.c    Mon Dec 10 15:28:38 1990
  580. --- f2c/libF77/i_dnnt.c    Wed Apr 29 13:43:32 1992
  581. ***************
  582. *** 1,10 ****
  583.   #include "f2c.h"
  584.   
  585.   integer i_dnnt(x)
  586.   doublereal *x;
  587.   {
  588.   double floor();
  589.   
  590.   return( (*x)>=0 ?
  591. !     floor(*x + .5) : -floor(.5 - *x) );
  592.   }
  593. --- 1,13 ----
  594.   #include "f2c.h"
  595. + #include "amath.h"
  596.   
  597.   integer i_dnnt(x)
  598.   doublereal *x;
  599.   {
  600. + #ifndef MFPU
  601.   double floor();
  602. + #endif
  603.   
  604.   return( (*x)>=0 ?
  605. !     (integer)(floor(*x + .5)) : (integer)(-floor(.5 - *x)) );
  606.   }
  607. diff -a -d +context f2c_1/libF77/i_nint.c f2c/libF77/i_nint.c
  608. *** f2c_1/libF77/i_nint.c    Mon Dec 10 15:28:38 1990
  609. --- f2c/libF77/i_nint.c    Wed Apr 29 13:46:34 1992
  610. ***************
  611. *** 1,10 ****
  612.   #include "f2c.h"
  613.   
  614.   integer i_nint(x)
  615.   real *x;
  616.   {
  617.   double floor();
  618.   
  619.   return( (*x)>=0 ?
  620. !     floor(*x + .5) : -floor(.5 - *x) );
  621.   }
  622. --- 1,16 ----
  623.   #include "f2c.h"
  624.   
  625. + #ifdef AMIGA
  626. + #include "amath.h"
  627. + #endif
  628. + 
  629.   integer i_nint(x)
  630.   real *x;
  631.   {
  632. + #ifndef MFPU
  633.   double floor();
  634. + #endif
  635.   
  636.   return( (*x)>=0 ?
  637. !     (integer)(floor(*x + .5)) : (integer)(-floor(.5 - *x)) );
  638.   }
  639. diff -a -d +context f2c_1/libF77/main.c f2c/libF77/main.c
  640. *** f2c_1/libF77/main.c    Mon Dec 10 15:28:42 1990
  641. --- f2c/libF77/main.c    Tue Apr 28 18:16:16 1992
  642. ***************
  643. *** 1,7 ****
  644.   /* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */
  645.   
  646. ! #include "stdio.h"
  647. ! #include "signal.h"
  648.   
  649.   #ifndef SIGIOT
  650.   #define SIGIOT SIGABRT
  651. --- 1,7 ----
  652.   /* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */
  653.   
  654. ! #include <stdio.h>
  655. ! #include <signal.h>
  656.   
  657.   #ifndef SIGIOT
  658.   #define SIGIOT SIGABRT
  659. ***************
  660. *** 70,83 ****
  661. --- 70,89 ----
  662.   xargc = argc;
  663.   xargv = argv;
  664.   signal(SIGFPE, sigfdie);    /* ignore underflow, enable overflow */
  665. + #ifndef AMIGA
  666.   signal(SIGIOT, sigidie);
  667. + #endif
  668.   #ifdef SIGQUIT
  669.   if(signal(SIGQUIT,sigqdie) == SIG_IGN)
  670.       signal(SIGQUIT, SIG_IGN);
  671.   #endif
  672. + 
  673.   if(signal(SIGINT, sigindie) == SIG_IGN)
  674.       signal(SIGINT, SIG_IGN);
  675. + 
  676. + #ifndef AMIGA
  677.   signal(SIGTERM,sigtdie);
  678. + #endif
  679.   
  680.   #ifdef pdp11
  681.       ldfps(01200); /* detect overflow as an exception */
  682. Only in f2c/libF77: makefile.020
  683. Only in f2c/libF77: omlcmds
  684. diff -a -d +context f2c_1/libF77/pow_dd.c f2c/libF77/pow_dd.c
  685. *** f2c_1/libF77/pow_dd.c    Mon Dec 10 15:28:42 1990
  686. --- f2c/libF77/pow_dd.c    Wed Apr 29 14:04:06 1992
  687. ***************
  688. *** 1,9 ****
  689.   #include "f2c.h"
  690.   
  691.   double pow_dd(ap, bp)
  692.   doublereal *ap, *bp;
  693.   {
  694. ! double pow();
  695.   
  696.   return(pow(*ap, *bp) );
  697.   }
  698. --- 1,13 ----
  699.   #include "f2c.h"
  700.   
  701. + #ifdef AMIGA
  702. + #include "amath.h"
  703. + #endif
  704. + 
  705.   double pow_dd(ap, bp)
  706.   doublereal *ap, *bp;
  707.   {
  708. ! double pow(double, double);
  709.   
  710.   return(pow(*ap, *bp) );
  711.   }
  712. diff -a -d +context f2c_1/libF77/pow_zz.c f2c/libF77/pow_zz.c
  713. *** f2c_1/libF77/pow_zz.c    Mon Dec 10 15:28:44 1990
  714. --- f2c/libF77/pow_zz.c    Wed Apr 29 13:12:01 1992
  715. ***************
  716. *** 1,10 ****
  717.   #include "f2c.h"
  718.   
  719.   VOID pow_zz(r,a,b)
  720.   doublecomplex *r, *a, *b;
  721.   {
  722. ! double logr, logi, x, y;
  723. ! double log(), exp(), cos(), sin(), atan2(), cabs();
  724.   
  725.   logr = log( cabs(a->r, a->i) );
  726.   logi = atan2(a->i, a->r);
  727. --- 1,16 ----
  728.   #include "f2c.h"
  729.   
  730. + #ifdef AMIGA
  731. + #include "amath.h"
  732. + #endif
  733. + 
  734.   VOID pow_zz(r,a,b)
  735.   doublecomplex *r, *a, *b;
  736.   {
  737. ! double logr, logi, x, y, cabs();
  738. ! #ifndef MFPU
  739. ! double log(), exp(), cos(), sin(), atan2();
  740. ! #endif
  741.   
  742.   logr = log( cabs(a->r, a->i) );
  743.   logi = atan2(a->i, a->r);
  744. diff -a -d +context f2c_1/libF77/r_acos.c f2c/libF77/r_acos.c
  745. *** f2c_1/libF77/r_acos.c    Mon Dec 10 15:28:46 1990
  746. --- f2c/libF77/r_acos.c    Wed Apr 29 13:32:36 1992
  747. ***************
  748. *** 1,8 ****
  749. --- 1,14 ----
  750.   #include "f2c.h"
  751.   
  752. + #ifdef AMIGA
  753. + #include "amath.h"
  754. + #endif
  755. + 
  756.   double r_acos(x)
  757.   real *x;
  758.   {
  759. + #ifndef MFPU
  760.   double acos();
  761. + #endif
  762.   return( acos(*x) );
  763.   }
  764. diff -a -d +context f2c_1/libF77/r_asin.c f2c/libF77/r_asin.c
  765. *** f2c_1/libF77/r_asin.c    Mon Dec 10 15:28:46 1990
  766. --- f2c/libF77/r_asin.c    Wed Apr 29 13:32:57 1992
  767. ***************
  768. *** 1,8 ****
  769. --- 1,14 ----
  770.   #include "f2c.h"
  771.   
  772. + #ifdef AMIGA
  773. + #include "amath.h"
  774. + #endif
  775. + 
  776.   double r_asin(x)
  777.   real *x;
  778.   {
  779. + #ifndef MFPU
  780.   double asin();
  781. + #endif
  782.   return( asin(*x) );
  783.   }
  784. diff -a -d +context f2c_1/libF77/r_atan.c f2c/libF77/r_atan.c
  785. *** f2c_1/libF77/r_atan.c    Mon Dec 10 15:28:46 1990
  786. --- f2c/libF77/r_atan.c    Wed Apr 29 13:33:04 1992
  787. ***************
  788. *** 1,8 ****
  789. --- 1,14 ----
  790.   #include "f2c.h"
  791.   
  792. + #ifdef AMIGA
  793. + #include "amath.h"
  794. + #endif
  795. + 
  796.   double r_atan(x)
  797.   real *x;
  798.   {
  799. + #ifndef MFPU
  800.   double atan();
  801. + #endif
  802.   return( atan(*x) );
  803.   }
  804. diff -a -d +context f2c_1/libF77/r_atn2.c f2c/libF77/r_atn2.c
  805. *** f2c_1/libF77/r_atn2.c    Mon Dec 10 15:28:46 1990
  806. --- f2c/libF77/r_atn2.c    Wed Apr 29 13:52:56 1992
  807. ***************
  808. *** 1,5 ****
  809. --- 1,9 ----
  810.   #include "f2c.h"
  811.   
  812. + #ifdef AMIGA
  813. + #include "amath.h"
  814. + #endif
  815. + 
  816.   double r_atn2(x,y)
  817.   real *x, *y;
  818.   {
  819. diff -a -d +context f2c_1/libF77/r_cos.c f2c/libF77/r_cos.c
  820. *** f2c_1/libF77/r_cos.c    Mon Dec 10 15:28:48 1990
  821. --- f2c/libF77/r_cos.c    Wed Apr 29 13:33:51 1992
  822. ***************
  823. *** 1,8 ****
  824. --- 1,14 ----
  825.   #include "f2c.h"
  826.   
  827. + #ifdef AMIGA
  828. + #include "amath.h"
  829. + #endif
  830. + 
  831.   double r_cos(x)
  832.   real *x;
  833.   {
  834. + #ifndef MFPU
  835.   double cos();
  836. + #endif
  837.   return( cos(*x) );
  838.   }
  839. diff -a -d +context f2c_1/libF77/r_cosh.c f2c/libF77/r_cosh.c
  840. *** f2c_1/libF77/r_cosh.c    Mon Dec 10 15:28:48 1990
  841. --- f2c/libF77/r_cosh.c    Wed Apr 29 13:34:07 1992
  842. ***************
  843. *** 1,8 ****
  844. --- 1,14 ----
  845.   #include "f2c.h"
  846.   
  847. + #ifdef AMIGA
  848. + #include "amath.h"
  849. + #endif
  850. + 
  851.   double r_cosh(x)
  852.   real *x;
  853.   {
  854. + #ifndef MFPU
  855.   double cosh();
  856. + #endif
  857.   return( cosh(*x) );
  858.   }
  859. diff -a -d +context f2c_1/libF77/r_exp.c f2c/libF77/r_exp.c
  860. *** f2c_1/libF77/r_exp.c    Mon Dec 10 15:28:48 1990
  861. --- f2c/libF77/r_exp.c    Wed Apr 29 13:34:19 1992
  862. ***************
  863. *** 1,8 ****
  864. --- 1,14 ----
  865.   #include "f2c.h"
  866.   
  867. + #ifdef AMIGA
  868. + #include "amath.h"
  869. + #endif
  870. + 
  871.   double r_exp(x)
  872.   real *x;
  873.   {
  874. + #ifndef MFPU
  875.   double exp();
  876. + #endif
  877.   return( exp(*x) );
  878.   }
  879. diff -a -d +context f2c_1/libF77/r_int.c f2c/libF77/r_int.c
  880. *** f2c_1/libF77/r_int.c    Mon Dec 10 15:28:50 1990
  881. --- f2c/libF77/r_int.c    Wed Apr 29 13:34:34 1992
  882. ***************
  883. *** 1,9 ****
  884. --- 1,15 ----
  885.   #include "f2c.h"
  886.   
  887. + #ifdef AMIGA
  888. + #include "amath.h"
  889. + #endif
  890. + 
  891.   double r_int(x)
  892.   real *x;
  893.   {
  894. + #ifndef MFPU
  895.   double floor();
  896. + #endif
  897.   
  898.   return( (*x>0) ? floor(*x) : -floor(- *x) );
  899.   }
  900. diff -a -d +context f2c_1/libF77/r_lg10.c f2c/libF77/r_lg10.c
  901. *** f2c_1/libF77/r_lg10.c    Mon Dec 10 15:28:50 1990
  902. --- f2c/libF77/r_lg10.c    Wed Apr 29 13:34:42 1992
  903. ***************
  904. *** 2,11 ****
  905. --- 2,17 ----
  906.   
  907.   #define log10e 0.43429448190325182765
  908.   
  909. + #ifdef AMIGA
  910. + #include "amath.h"
  911. + #endif
  912. + 
  913.   double r_lg10(x)
  914.   real *x;
  915.   {
  916. + #ifndef MFPU
  917.   double log();
  918. + #endif
  919.   
  920.   return( log10e * log(*x) );
  921.   }
  922. diff -a -d +context f2c_1/libF77/r_log.c f2c/libF77/r_log.c
  923. *** f2c_1/libF77/r_log.c    Mon Dec 10 15:28:50 1990
  924. --- f2c/libF77/r_log.c    Wed Apr 29 13:34:52 1992
  925. ***************
  926. *** 1,8 ****
  927. --- 1,14 ----
  928.   #include "f2c.h"
  929.   
  930. + #ifdef AMIGA
  931. + #include "amath.h"
  932. + #endif
  933. + 
  934.   double r_log(x)
  935.   real *x;
  936.   {
  937. + #ifndef MFPU
  938.   double log();
  939. + #endif
  940.   return( log(*x) );
  941.   }
  942. diff -a -d +context f2c_1/libF77/r_mod.c f2c/libF77/r_mod.c
  943. *** f2c_1/libF77/r_mod.c    Mon Dec 10 15:28:50 1990
  944. --- f2c/libF77/r_mod.c    Wed Apr 29 13:35:21 1992
  945. ***************
  946. *** 16,22 ****
  947.           z -= ya;
  948.       return z;
  949.   #else
  950. !     double floor(), quotient;
  951.       if( (quotient = (double)*x / *y) >= 0)
  952.           quotient = floor(quotient);
  953.       else
  954. --- 16,25 ----
  955.           z -= ya;
  956.       return z;
  957.   #else
  958. !     double quotient;
  959. ! #ifndef MFPU
  960. !     double floor();
  961. ! #endif
  962.       if( (quotient = (double)*x / *y) >= 0)
  963.           quotient = floor(quotient);
  964.       else
  965. diff -a -d +context f2c_1/libF77/r_nint.c f2c/libF77/r_nint.c
  966. *** f2c_1/libF77/r_nint.c    Mon Dec 10 15:28:50 1990
  967. --- f2c/libF77/r_nint.c    Wed Apr 29 13:35:43 1992
  968. ***************
  969. *** 1,9 ****
  970. --- 1,15 ----
  971.   #include "f2c.h"
  972.   
  973. + #ifdef AMIGA
  974. + #include "amath.h"
  975. + #endif
  976. + 
  977.   double r_nint(x)
  978.   real *x;
  979.   {
  980. + #ifndef MFPU
  981.   double floor();
  982. + #endif
  983.   
  984.   return( (*x)>=0 ?
  985.       floor(*x + .5) : -floor(.5 - *x) );
  986. diff -a -d +context f2c_1/libF77/r_sin.c f2c/libF77/r_sin.c
  987. *** f2c_1/libF77/r_sin.c    Mon Dec 10 15:28:52 1990
  988. --- f2c/libF77/r_sin.c    Wed Apr 29 13:35:50 1992
  989. ***************
  990. *** 1,8 ****
  991. --- 1,14 ----
  992.   #include "f2c.h"
  993.   
  994. + #ifdef AMIGA
  995. + #include "amath.h"
  996. + #endif
  997. + 
  998.   double r_sin(x)
  999.   real *x;
  1000.   {
  1001. + #ifndef MFPU
  1002.   double sin();
  1003. + #endif
  1004.   return( sin(*x) );
  1005.   }
  1006. diff -a -d +context f2c_1/libF77/r_sinh.c f2c/libF77/r_sinh.c
  1007. *** f2c_1/libF77/r_sinh.c    Mon Dec 10 15:28:52 1990
  1008. --- f2c/libF77/r_sinh.c    Wed Apr 29 13:35:55 1992
  1009. ***************
  1010. *** 1,8 ****
  1011. --- 1,14 ----
  1012.   #include "f2c.h"
  1013.   
  1014. + #ifdef AMIGA
  1015. + #include "amath.h"
  1016. + #endif
  1017. + 
  1018.   double r_sinh(x)
  1019.   real *x;
  1020.   {
  1021. + #ifndef MFPU
  1022.   double sinh();
  1023. + #endif
  1024.   return( sinh(*x) );
  1025.   }
  1026. diff -a -d +context f2c_1/libF77/r_sqrt.c f2c/libF77/r_sqrt.c
  1027. *** f2c_1/libF77/r_sqrt.c    Mon Dec 10 15:28:52 1990
  1028. --- f2c/libF77/r_sqrt.c    Wed Apr 29 13:36:01 1992
  1029. ***************
  1030. *** 1,8 ****
  1031. --- 1,14 ----
  1032.   #include "f2c.h"
  1033.   
  1034. + #ifdef AMIGA
  1035. + #include "amath.h"
  1036. + #endif
  1037. + 
  1038.   double r_sqrt(x)
  1039.   real *x;
  1040.   {
  1041. + #ifndef MFPU
  1042.   double sqrt();
  1043. + #endif
  1044.   return( sqrt(*x) );
  1045.   }
  1046. diff -a -d +context f2c_1/libF77/r_tan.c f2c/libF77/r_tan.c
  1047. *** f2c_1/libF77/r_tan.c    Mon Dec 10 15:28:52 1990
  1048. --- f2c/libF77/r_tan.c    Wed Apr 29 13:36:10 1992
  1049. ***************
  1050. *** 1,8 ****
  1051. --- 1,14 ----
  1052.   #include "f2c.h"
  1053.   
  1054. + #ifdef AMIGA
  1055. + #include "amath.h"
  1056. + #endif
  1057. + 
  1058.   double r_tan(x)
  1059.   real *x;
  1060.   {
  1061. + #ifndef MFPU
  1062.   double tan();
  1063. + #endif
  1064.   return( tan(*x) );
  1065.   }
  1066. diff -a -d +context f2c_1/libF77/r_tanh.c f2c/libF77/r_tanh.c
  1067. *** f2c_1/libF77/r_tanh.c    Mon Dec 10 15:28:54 1990
  1068. --- f2c/libF77/r_tanh.c    Wed Apr 29 13:36:58 1992
  1069. ***************
  1070. *** 1,8 ****
  1071. --- 1,14 ----
  1072.   #include "f2c.h"
  1073.   
  1074. + #ifdef AMIGA
  1075. + #include "amath.h"
  1076. + #endif
  1077. + 
  1078.   double r_tanh(x)
  1079.   real *x;
  1080.   {
  1081. + #ifndef MFPU
  1082.   double tanh();
  1083. + #endif
  1084.   return( tanh(*x) );
  1085.   }
  1086. diff -a -d +context f2c_1/libF77/sig_die.c f2c/libF77/sig_die.c
  1087. *** f2c_1/libF77/sig_die.c    Mon Dec 10 15:28:56 1990
  1088. --- f2c/libF77/sig_die.c    Tue Apr 28 18:18:42 1992
  1089. ***************
  1090. *** 18,25 ****
  1091. --- 18,27 ----
  1092.   
  1093.   if(kill)
  1094.       {
  1095. + #ifndef AMIGA
  1096.       /* now get a core */
  1097.       signal(SIGIOT, SIG_DFL);
  1098. + #endif
  1099.       abort();
  1100.       }
  1101.   else
  1102. diff -a -d +context f2c_1/libF77/z_cos.c f2c/libF77/z_cos.c
  1103. *** f2c_1/libF77/z_cos.c    Mon Dec 10 15:28:58 1990
  1104. --- f2c/libF77/z_cos.c    Wed Apr 29 13:28:59 1992
  1105. ***************
  1106. *** 1,9 ****
  1107. --- 1,15 ----
  1108.   #include "f2c.h"
  1109.   
  1110. + #ifdef AMIGA
  1111. + #include "amath.h"
  1112. + #endif
  1113. + 
  1114.   VOID z_cos(r, z)
  1115.   doublecomplex *r, *z;
  1116.   {
  1117. + #ifndef MFPU
  1118.   double sin(), cos(), sinh(), cosh();
  1119. + #endif
  1120.   
  1121.   r->r = cos(z->r) * cosh(z->i);
  1122.   r->i = - sin(z->r) * sinh(z->i);
  1123. diff -a -d +context f2c_1/libF77/z_exp.c f2c/libF77/z_exp.c
  1124. *** f2c_1/libF77/z_exp.c    Mon Dec 10 15:28:58 1990
  1125. --- f2c/libF77/z_exp.c    Wed Apr 29 13:29:23 1992
  1126. ***************
  1127. *** 1,10 ****
  1128. --- 1,16 ----
  1129.   #include "f2c.h"
  1130.   
  1131. + #ifdef AMIGA
  1132. + #include "amath.h"
  1133. + #endif
  1134. + 
  1135.   VOID z_exp(r, z)
  1136.   doublecomplex *r, *z;
  1137.   {
  1138.   double expx;
  1139. + #ifndef MFPU
  1140.   double exp(), cos(), sin();
  1141. + #endif
  1142.   
  1143.   expx = exp(z->r);
  1144.   r->r = expx * cos(z->i);
  1145. diff -a -d +context f2c_1/libF77/z_log.c f2c/libF77/z_log.c
  1146. *** f2c_1/libF77/z_log.c    Mon Dec 10 15:29:00 1990
  1147. --- f2c/libF77/z_log.c    Wed Apr 29 13:29:56 1992
  1148. ***************
  1149. *** 1,9 ****
  1150.   #include "f2c.h"
  1151.   
  1152.   VOID z_log(r, z)
  1153.   doublecomplex *r, *z;
  1154.   {
  1155. ! double log(), cabs(), atan2();
  1156.   
  1157.   r->i = atan2(z->i, z->r);
  1158.   r->r = log( cabs( z->r, z->i ) );
  1159. --- 1,16 ----
  1160.   #include "f2c.h"
  1161.   
  1162. + #ifdef AMIGA
  1163. + #include "amath.h"
  1164. + #endif
  1165. + 
  1166.   VOID z_log(r, z)
  1167.   doublecomplex *r, *z;
  1168.   {
  1169. ! double cabs();
  1170. ! #ifndef MFPU
  1171. ! double log(), atan2();
  1172. ! #endif
  1173.   
  1174.   r->i = atan2(z->i, z->r);
  1175.   r->r = log( cabs( z->r, z->i ) );
  1176. diff -a -d +context f2c_1/libF77/z_sin.c f2c/libF77/z_sin.c
  1177. *** f2c_1/libF77/z_sin.c    Mon Dec 10 15:29:00 1990
  1178. --- f2c/libF77/z_sin.c    Wed Apr 29 13:30:09 1992
  1179. ***************
  1180. *** 1,9 ****
  1181. --- 1,15 ----
  1182.   #include "f2c.h"
  1183.   
  1184. + #ifdef AMIGA
  1185. + #include "amath.h"
  1186. + #endif
  1187. + 
  1188.   VOID z_sin(r, z)
  1189.   doublecomplex *r, *z;
  1190.   {
  1191. + #ifndef MFPU
  1192.   double sin(), cos(), sinh(), cosh();
  1193. + #endif
  1194.   
  1195.   r->r = sin(z->r) * cosh(z->i);
  1196.   r->i = cos(z->r) * sinh(z->i);
  1197. diff -a -d +context f2c_1/libF77/z_sqrt.c f2c/libF77/z_sqrt.c
  1198. *** f2c_1/libF77/z_sqrt.c    Mon Dec 10 15:29:00 1990
  1199. --- f2c/libF77/z_sqrt.c    Wed Apr 29 13:30:42 1992
  1200. ***************
  1201. *** 1,9 ****
  1202.   #include "f2c.h"
  1203.   
  1204.   VOID z_sqrt(r, z)
  1205.   doublecomplex *r, *z;
  1206.   {
  1207. ! double mag, sqrt(), cabs();
  1208.   
  1209.   if( (mag = cabs(z->r, z->i)) == 0.)
  1210.       r->r = r->i = 0.;
  1211. --- 1,16 ----
  1212.   #include "f2c.h"
  1213.   
  1214. + #ifdef AMIGA
  1215. + #include "amath.h"
  1216. + #endif
  1217. + 
  1218.   VOID z_sqrt(r, z)
  1219.   doublecomplex *r, *z;
  1220.   {
  1221. ! double mag, cabs();
  1222. ! #ifndef MFPU
  1223. ! double sqrt();
  1224. ! #endif
  1225.   
  1226.   if( (mag = cabs(z->r, z->i)) == 0.)
  1227.       r->r = r->i = 0.;
  1228.