On Tue, 22 Jul 2008 22:59:49 -0700 (PDT), rudra posted:
> dear friend, i have a C++ routine(badly written):
>
>
> 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
>
>
>
> 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?
You have a Gemisch of C and C++. That's how I used to program.
--
When a new source of taxation is found it never means, in practice, that
the old source is abandoned. It merely means that the politicians have two
ways of milking the taxpayer where they had one before. 8
H. L. Mencken
|
