home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / fortran / 4378 < prev    next >
Encoding:
Text File  |  1992-11-20  |  4.3 KB  |  129 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!news.univie.ac.at!iiasa.ac.at!marek
  3. From: marek@iiasa.ac.at (Marek  MAKOWSKI)
  4. Subject: Re: FORTRAN/C Interface: C<=>FORTRAN data transfer?
  5. Message-ID: <1992Nov20.173616.6697@iiasa.ac.at>
  6. Organization: IIASA, Laxenburg, Austria
  7. X-Newsreader: TIN [version 1.1 PL6]
  8. References: <1992Nov15.012720.3466@netcom.com>
  9. Date: Fri, 20 Nov 1992 17:36:16 GMT
  10. Lines: 117
  11.  
  12. John H. Chauvin (jchauvin@netcom.com) wrote:
  13. : 
  14. : My current thinking is that the C program would call the FORTRAN program and
  15. : pass the filenames somehow.
  16. : 
  17. : Other Questions:
  18. : 
  19. : (1) I am not sure whether to call the FORTRAN program from my C 
  20. : program or the other way around? Any suggestions?
  21. : 
  22. : (2) How do I handle the fact that both programs have a main routine?
  23. : 
  24. : (3) If I transfer data from C to FORTRAN using a C data structure to 
  25. : COMMON, does the C data structure have to be global?
  26. : 
  27. : Thanks for the help! I need it.
  28. : 
  29. : jchauvin@netcom.com
  30. : 
  31. : -- 
  32. : John H. Chauvin jchauvin@netcom.COM
  33. : Netcom - Online Communication Services San Jose, CA
  34. I have positive experience with using C & fortran on both Sun and on PC.
  35. It is pretty easy to do, even if you want the code to be portable between
  36. Unix and DOS.
  37. The most complete discussion about various details I have seen in the
  38. Microsoft Fortran manual.
  39.  
  40. Short answers to your questions:
  41. 1. You can call fortran from C and vice versa
  42. 2. You should have only one main() (either in C or in fortran)
  43. 3. You can transfer data between C data structure and labeled fortran common
  44.  
  45. Below please find short exmpale of calling fortran function from C
  46. (it is concatenation of 3 files (*.c *.f and Makefile).
  47. As you see from this example (which is for Unix only) the names
  48. differ between fortran and C by a _ and fortran does not know how to
  49. get a parameter by value.
  50. Hope this example (which was originally provided by Jurek Sobczyk)
  51. is informative enough.
  52.  
  53. Good luck,
  54. Marek
  55.  
  56.  
  57.  
  58. /**********************************************************************/
  59. /* a.c            v 1.0     by J.Sobczyk                   1991.06.19 */
  60. /*                                                                    */
  61. /* c to f77 linking example                                           */
  62. /**********************************************************************/
  63. #include <stdio.h>
  64.  
  65. extern double x_();
  66.  
  67. void main( )
  68.   {
  69.   double r = 2.0, *rp;
  70.   int i = 3;
  71.  
  72.   printf( "Hello\n" );
  73.   r = x_( &i, &r );
  74.   printf( "%lf\n", r );
  75.   printf( "Nice to see you again\n" );
  76.   }
  77.  
  78. /**********************************************************************/
  79.  
  80. C**********************************************************************C
  81. C* x.f            v 1.0     by J.Sobczyk                   1991.06.19 *C
  82. C*                                                                    *C
  83. C* C++ to f77 linking example.                                        *C
  84. C**********************************************************************C
  85.  
  86.     DOUBLEPRECISION FUNCTION X( I, R )
  87.     INTEGER I
  88.     DOUBLEPRECISION R
  89.  
  90.         X = R * I
  91.     END
  92.  
  93. C**********************************************************************C
  94.  
  95. #**********************************************************************#
  96. #* Makefile       v 1.0     by J.Sobczyk                   1991.07.12 *#
  97. #*                                                                    *#
  98. #* c to f77 linking example                                           *#
  99. #**********************************************************************#
  100.  
  101. all: a.o x.o
  102.     f77 a.o x.o -o a
  103.  
  104. .c.o:
  105.     cc -g -c $*.c -o $*.o
  106.  
  107. .f.o:
  108.     f77 -g -c $*.f -o $*.o
  109.  
  110. clean:
  111.     rm a.o x.o a
  112.  
  113. #**********************************************************************#
  114.  
  115. ========================================================================
  116. | Jerzy Sobczyk            Institute of Automatic  Control  /##/ /#####|
  117. | J.Sobczyk@ia.pw.edu.pl   Warsaw University of Technology /##/ /##/|##|
  118. | tlx. 813 307 pw pl              Nowowiejska 15/19       /##/ /##/ |##|
  119. | fax. (+48)(22) 25 37 19           00-565 Warsaw,       /##/ /####>|##|
  120. | tel. (+48)(22) 21 00 7 ext. 864       POLAND          /##/ /##/   |##|
  121. ========================================================================
  122.  
  123.  
  124. -- 
  125.                   Marek Makowski  | Email: marek@iiasa.ac.at
  126.          International Institute  | Phone: +43 02236 71.5210
  127.      for Applied System Analysis  | Fax:   +43 02236 71.313
  128.        A-2361 Laxenburg, Austria  | Telex: 079137 iiasa a
  129.