home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / sys / sgi / 13138 < prev    next >
Encoding:
Text File  |  1992-09-01  |  4.1 KB  |  114 lines
  1. Path: sparky!uunet!olivea!sgigate!odin!dinkum!calvin
  2. From: calvin@dinkum.wpd.sgi.com (Calvin H. Vu)
  3. Newsgroups: comp.sys.sgi
  4. Subject: Re: C/FORTRAN Communication Problem
  5. Message-ID: <1992Sep1.153042.4283@odin.corp.sgi.com>
  6. Date: 1 Sep 92 15:30:42 GMT
  7. References: <31751@adm.brl.mil>
  8. Sender: news@odin.corp.sgi.com (Net News)
  9. Organization: Silicon Graphics, Inc.  Mountain View, CA
  10. Lines: 101
  11. Nntp-Posting-Host: dinkum.wpd.sgi.com
  12.  
  13. In <31751@adm.brl.mil> nobody@kodak.com writes:
  14.  
  15. | >From:    NAME: Arup K. Ghose                 
  16. |     FUNC: Biophys. & Compu. Chem.         
  17. |     TEL: (518) 445-7059                   <GHOSEAK@A1@DSRGVJ>
  18. | To:    "info-iris@BRL.MIL"@kodakr@mrgate@wpc
  19. | 
  20. |           I have some problem in communication between a Fortran (calling)
  21. |           routine and a C routine. Only speciality here is that I want to
  22. |           keep a character variable as char* in the C routine parameter. The
  23. |           programs are:
  24. |           
  25. |           prog1.f
  26. |           
  27. |                 integer*4 wing,item,ncall
  28. |                 character*13 totline
  29. |                 ncall = 5
  30. |                 wing = 2
  31. |                 totline(1:13)='Arup K. Ghose'
  32. |                 write(*,'('' Main_b:: ncall&wing='',i3,2x,i3)') ncall,wing
  33. |                 write(*,'('' Main_b:: totline ='',a)') totline
  34. |                 item = dispmenu(wing,ncall,totline)
  35. |                 write(*,'('' Main_a:: item&ncall&wing='',3(i3,2x))') 
  36. |                & item,ncall,wing
  37. |                 write(*,'('' Main_a:: totline ='',a)') totline
  38. |                 stop
  39. |                 end
  40. |           
  41. |           
  42. |           prog2.c
  43. |           
  44. |           /* CENTRY */
  45. |           int dispmenu_(wing,ncall,totline) 
  46. |           long int wing;
  47. |           long int ncall;
  48. |           char *totline;     
  49. |           {
  50. |                long int datum;
  51. |                printf("Dispmenu:: wing= %d \n", wing);
  52. |                printf("Dispmenu:: ncall= %d \n",ncall);
  53. |                printf("Dispmenu:: Totline= %s \n",totline);
  54. |                datum = 20;  
  55. |                return datum;
  56. |           } /* ENDCENTRY */
  57. |           
  58.     There are a few bugs in the C routine:
  59.  
  60.     1) the argument WING and NCALL should be declared as 'long int *'
  61.     since Fortran passes the arguments by reference.
  62.     2) There should be an extra argument at the end which contains the
  63.     length of the character string.
  64.     3) Fortran does not guarantee character variables to be 
  65.     null-terminated so the C routine must make sure that the string is
  66.     null-terminated when printing it out otherwise it could exceed the
  67.     accessible address space and cause a coredump.
  68.  
  69.     A better form of the C function is:
  70.  
  71.           int dispmenu_(wing,ncall,totline, linelen)
  72.           long int *wing;
  73.           long int *ncall;
  74.           char *totline;
  75.           long int linelen;
  76.           {
  77.                long int datum;
  78.                char *format = "Dispmenu:: Totline= %         ";
  79.                printf("Dispmenu:: wing= %d \n", wing);
  80.                printf("Dispmenu:: ncall= %d \n",ncall);
  81.         /* set up a variable format depending on the length of
  82.         the character string so the following printf will only
  83.         print upto that length
  84.          */
  85.                sprintf( format+21, ".%ds \n", linelen);
  86.                printf(format,totline);
  87.                datum = 20;
  88.                return datum;
  89.           } /* ENDCENTRY */
  90.  
  91. |           
  92. |           This program seems to me very similar to the example discussed
  93. |           under 'Uaing mkf2c and extcentry' on page 3-16 in Fortran 77
  94. |           Programmer's Guide. Unfortunately the comparable Makefile creates
  95. |           the executable code without any error message, but it dumps core
  96. |           due to Segmentation fault. 
  97.     
  98.     You should also look at section 3.1.2 which discusses argument
  99. passing between C and Fortran.
  100.  
  101. |           Any help will be appreciated. Thanks,
  102. |           
  103. |           Arup Ghose
  104. |           aghose@kodak.com
  105.  
  106. Hope that helps,
  107.  
  108. - calvin
  109. --
  110. -----------------------------------------------------------------------------
  111. Calvin H. Vu               | "We are each of us angels with only one
  112. Silicon Graphics Computer Systems  | wing.  And we can only fly embracing
  113. calvin@sgi.com   (415) 962-3679       | each other."
  114.