Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
cprog.cpp
Go to the documentation of this file.
1 #include<iostream>
2 #include<string.h>
3 using namespace std;
4 
5 extern "C" {void zdem_(char*, int&);}
6 //extern "C" {void writebuffer_(char*, int&);}
7 
8 extern "C" {
9  void writebuffer_(char *string, int strlen){
10  char* newString = new char[strlen+1];
11  for(int i=0;i<strlen;i++){
12  newString[i]=string[i];
13  }
14  newString[strlen]='\0';
15  cout<<newString<<endl;
16  }
17 }
18 
19 int main(int argc,char *argv[]){
20  char inpfile[256];
21  int clen;
22  cout<<"\n\nFortran subroutine Screamer called from C \n";
23  cout<<argv[0]<<" ";
24  cout <<argc<<endl;
25  if(argc<2){
26  cout<<"Enter run file name: ";
27  cin>>inpfile;
28  clen=strlen(inpfile);
29  zdem_(inpfile,clen);
30  }else{
31  clen=strlen(argv[1]);
32  zdem_(argv[1],clen);
33 
34  }
35  //clen=strlen(inpfile);
36  //cout<<inpfile<<endl;
37  //zdem_(inpfile, clen);
38  return 0;
39 
40 }
void writebuffer_(char *string, int strlen)
Definition: cprog.cpp:9
int main(int argc, char *argv[])
Definition: cprog.cpp:19
void zdem_(char *, int &)