5 extern "C" {
void zdem_(
char*,
int&);}
10 char* newString =
new char[strlen+1];
11 for(
int i=0;i<strlen;i++){
12 newString[i]=
string[i];
14 newString[strlen]=
'\0';
15 cout<<newString<<endl;
19 int main(
int argc,
char *argv[]){
22 cout<<
"\n\nFortran subroutine Screamer called from C \n";
26 cout<<
"Enter run file name: ";
void writebuffer_(char *string, int strlen)
int main(int argc, char *argv[])
void zdem_(char *, int &)