You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
263 B
22 lines
263 B
2 years ago
|
#include <stdio.h>
|
||
|
|
|
||
|
|
void c_intface_(int *i)
|
||
|
|
{
|
||
|
|
fprintf(stdout, "ADD_\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
void c_intface(int *i)
|
||
|
|
{
|
||
|
|
fprintf(stdout, "NOCHANGE\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
void c_intface__(int *i)
|
||
|
|
{
|
||
|
|
fprintf(stdout, "f77IsF2C\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
void C_INTFACE(int *i)
|
||
|
|
{
|
||
|
|
fprintf(stdout, "UPPER\n");
|
||
|
|
}
|