22 lines
441 B
C
22 lines
441 B
C
/* MIX3C.C - This C function passes a string back to its
|
|
* calling FORTRAN program.
|
|
*
|
|
* Compile: wcc /ml mix3c
|
|
* wcc386 mix3c
|
|
*/
|
|
|
|
#include <string.h>
|
|
|
|
#pragma aux sendstr "^";
|
|
|
|
typedef struct descriptor {
|
|
char *addr;
|
|
unsigned len;
|
|
} descriptor;
|
|
|
|
void sendstr( descriptor *ftn_str_desc )
|
|
{
|
|
ftn_str_desc->addr = "This is a C string";
|
|
ftn_str_desc->len = strlen( ftn_str_desc->addr );
|
|
}
|