IAP GITLAB

Skip to content
Snippets Groups Projects
Commit 47e6e5ab authored by ralfulrich's avatar ralfulrich
Browse files

clang

parent 0fd890c3
No related branches found
No related tags found
No related merge requests found
......@@ -85,12 +85,12 @@ namespace corsika_data {
extern "C" {
void cordataopenfile_(const char* name, const int stringlength) {
// make a 'real' string out of fortran one (if \0 is missing)
char *buffer = new char[stringlength + 1];
char* buffer = new char[stringlength + 1];
for (int i = 0; i < stringlength; ++i) buffer[i] = name[i];
// if not already terminated by 0, add it
if (buffer[stringlength - 1] != '\0') buffer[stringlength] = '\0';
CorDataOpenFile(buffer);
delete [] buffer;
delete[] buffer;
}
void cordatafillarray_(double* data, const int& length) {
global_DataFile.FillArray(data, length);
......
......@@ -41,9 +41,7 @@ namespace corsika_data {
// the fortran interface functions
extern "C" {
void cordataopenfile_(const char* name, const int) {
CorDataOpenFile(name);
}
void cordataopenfile_(const char* name, const int) { CorDataOpenFile(name); }
void cordatafillarray_(double* data, const int& length) {
CorDataFillArray(data, length);
}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment