/*
Programmazione II - Esempio di codice
<![CDATA[
Example code: MLP demonstration (c part). (20000720 prelz@mi.infn.it)
*/
#include <stdio.h>
/* Warning: the following is machine and compiler dependent! */
#define FORTRAN_APPEND(name) name##_
double FORTRAN_APPEND(fsqr)();
int
main(int argc, char *argv[])
{
double number = 100, retval;
char message[40];
sprintf(message,"This is the square root of %5.5g",number);
retval = FORTRAN_APPEND(fsqr)(message, &number, strlen(message));
printf("The square root of %5.5g is %5.5g\n", number, retval);
exit(0);
}
]]></plaintext></span>