Silicon Graphics IRIS Workstation, Руководство пользователя

Страница: 83 / 170

Version 1.0
IRIS WORKSTATION GUIDE 79 Appendix D:
FORTRAN character variable is treated specially (as discussed in
the next section). When calling FORTRAN from C, the address of
the string and a length is passed. The length defaults to one . In this
case, the FORTRAN declaration for the parameter carray[] will be
effectively
character*1 carray()
and the FORTRAN routine must access characters of the array
individually. If an array length is given in the parameter list, mkc2f
will pass this length to FORTRAN. If the parameter list entry for
carray above is
char carray[20];
FORTRAN will treat the passed character array as if its individual
elements were of the FORTRAN type
character*20
The C type char array is treated in this fashion.
• pointer . The value found on the stack is treated as a pointer, and is
passed without alteration. Any array or pointer that is not of char
type, any multiply indirect object, or any indirect array is assumed
to be of pointer type. If the type of a parameter is specified, but is
not one of the standard C types, mkf2c and mkc2f assume it to be a
pointer .
test(i,s,c,ptr1,ptr2,ar1,u,f,d,d1,str1,str2,str3)
short s;
unsigned char c;
int *ptr1;
char *ptr2[];
short ar1[];
sometype u;
float f;
long float d,*d1;
char *str1;
char str2[],str3[30];
{
/* The C function body may go here. Nothing
except the opening and closing braces are necessary.
*/
}
The above would be an example of a C specification for a function. If this were
a function passed to mkf2c , the parameters would be transformed as follows:
• ptrl , ptr2 , arl , d1 and u would be passed as simple pointers. mkf2c
will complain about not understanding the type sometype , but will
use its default rule of reducing unknown types to pointers.
• s , f , d , and c would be passed as values of length 16, 32, 64, and 8,
respectively. Since the type of i is not specified, it is assumed to be