dear friend, i have a C++ routine(badly written):
Code:
main()
{
ofstream myfile;
/********* PART 1: Checking machine bit *********/
FILE *stream;
char sys[6],*sysptr;
int bit;
sysptr = &sys[0];
sys[6] = 0x0;
stream=popen("/bin/uname -m","r");
fread(sysptr,1,6,stream);
pclose(stream);
//printf("%s\n",sysptr);
if ((strncmp(sysptr, "i686",4)==0)||
(strncmp(sysptr, "i386",4)==0))
{
bit=32;
}
else {
bit=64;
}
myfile.open ("machine");
myfile << bit<<"\n";
myfile.close();
printf("This is a %d bit machine \n",bit);
}
wose output is written in "machine" file. a f90 program is supposed to read it as
Code:
open(2,file="machine",status="old")
read(2,*) bit
close(2)
I want to use the C code as a function of the f90 program.
can anybody tell me how can i do that?