25 lines
566 B
C
25 lines
566 B
C
|
/*
|
||
|
|
* first try of a C func called from Fortran
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <unistd.h>
|
||
|
|
|
||
|
|
/* --------------------------------------------------------------- */
|
||
|
|
void first_try_(void)
|
||
|
|
{
|
||
|
|
fprintf(stderr, " pid=%u file='%s' func='%s' \n",
|
||
|
|
(long)getpid(), __FILE__, __func__);
|
||
|
|
}
|
||
|
|
/* --------------------------------------------------------------- */
|
||
|
|
long give_me_my_pid_ (void)
|
||
|
|
{
|
||
|
|
pid_t my_pid;
|
||
|
|
|
||
|
|
my_pid = (long)getpid();
|
||
|
|
fprintf(stderr, " %s -> %d\n", __func__, my_pid);
|
||
|
|
|
||
|
|
return my_pid;
|
||
|
|
}
|
||
|
|
/* --------------------------------------------------------------- */
|