home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / c / 12982 < prev    next >
Encoding:
Text File  |  1992-08-30  |  1.1 KB  |  47 lines
  1. Path: sparky!uunet!mcsun!uknet!edcastle!hwcs!suthan
  2. From: suthan@cs.hw.ac.uk (Manickam Umasuthan)
  3. Newsgroups: comp.lang.c
  4. Subject: c<->fortran
  5. Message-ID: <1992Aug30.112532.11192@cs.hw.ac.uk>
  6. Date: 30 Aug 92 11:25:32 GMT
  7. Sender: news@cs.hw.ac.uk (News Administrator)
  8. Organization: Dept of Computer Science, Heriot-Watt University, Scotland
  9. Lines: 36
  10.  
  11. Dear Netters,
  12. I tried the following piece of code which interfaces with a fortran routine
  13. which in turn uses the EXTERNAL statement and the external function is defined
  14. in C. But in my machine the output is wrong. I like to know where the error
  15. is.
  16. Thanks . PLEASE EMAIL ME. 
  17. -------------
  18. #include <stdio.h>
  19. #include <math.h>
  20.  
  21. float *abs();
  22. main()
  23. {
  24. float y=-2.34;
  25. start_((float (*)())abs,&y);
  26. }
  27. float *abs(t)
  28. float *t;
  29. {
  30. float x;
  31.     printf("LALA\n");
  32.     x = 2.* (*t);
  33.     printf("%f\n",x);
  34.     return &x;
  35. }
  36.     subroutine  start(fname,x)
  37.     EXTERNAL fname
  38.     real x
  39.     print*, fname(x)
  40.     END
  41.     -----------------------------
  42. -- 
  43. -------
  44. M.Umasuthan,                 :: EMAIL:  suthan@uk.ac.hw.cs
  45. Dept. of Computing & Electrical Engineering,
  46. Heriot-Watt University, Riccarton, Edinburgh EH14 4AS, U.K. 
  47.