mirror of
https://github.com/OPM/ResInsight.git
synced 2025-02-25 18:55:39 -06:00
120 lines
3.2 KiB
C
120 lines
3.2 KiB
C
/*
|
|
Copyright (C) 2011 Statoil ASA, Norway.
|
|
|
|
The file 'rms_stat.c' is part of ERT - Ensemble based Reservoir Tool.
|
|
|
|
ERT is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
ERT is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
See the GNU General Public License at <http://www.gnu.org/licenses/gpl.html>
|
|
for more details.
|
|
*/
|
|
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <stdio.h>
|
|
|
|
#include <ert/rms/rms_file.h>
|
|
#include <ert/rms/rms_tagkey.h>
|
|
#include <ert/rms/rms_stats.h>
|
|
|
|
|
|
|
|
void convert_test(const char * rms_file, const char * ecl_path) {
|
|
rms_file_2eclipse(rms_file , ecl_path , false , 1);
|
|
}
|
|
|
|
|
|
int main (int argc , char **argv) {
|
|
char * tagname;
|
|
rms_tagkey_type *mean , *std;
|
|
rms_tag_type *dim_tag;
|
|
bool log_transform = false;
|
|
rms_file_type *file;
|
|
|
|
if (argc < 4) {
|
|
printf("%s: PARAM-NAME file1 file2 file3 .....\n",argv[0]);
|
|
exit(1);
|
|
}
|
|
|
|
|
|
file = rms_file_alloc(argv[2] , false);
|
|
tagname = argv[1];
|
|
dim_tag = rms_file_fread_alloc_tag(file , "dimensions" , NULL , NULL);
|
|
mean = rms_file_fread_alloc_data_tagkey(file , "parameter" , "name" , tagname);
|
|
std = rms_tagkey_copyc(mean);
|
|
|
|
rms_file_free_data(file);
|
|
rms_stats_mean_std(mean , std , tagname , argc - 2 , (const char **) &argv[2] , log_transform);
|
|
|
|
{
|
|
char * outfile = malloc(strlen(tagname) + strlen("_stats.ROFF") + 1);
|
|
sprintf(outfile , "%s_stats.ROFF" , tagname);
|
|
rms_file_set_filename(file , outfile , false);
|
|
printf("Statistics collected in: %s \n",outfile);
|
|
free(outfile);
|
|
}
|
|
|
|
{
|
|
char * out_tag = malloc(strlen(tagname) + 6);
|
|
FILE *stream = rms_file_fopen_w(file);
|
|
rms_file_init_fwrite(file , "parameter");
|
|
rms_tag_fwrite(dim_tag , stream);
|
|
sprintf(out_tag , "%s.mean" , tagname); rms_tag_fwrite_parameter(out_tag , mean , stream);
|
|
sprintf(out_tag , "%s.std" , tagname); rms_tag_fwrite_parameter(out_tag , std , stream);
|
|
rms_file_complete_fwrite(file);
|
|
fclose(stream);
|
|
free(out_tag);
|
|
}
|
|
|
|
rms_tag_free(dim_tag);
|
|
rms_tagkey_free(mean);
|
|
rms_tagkey_free(std);
|
|
rms_file_free_data(file);
|
|
rms_file_free(file);
|
|
|
|
exit(1);
|
|
|
|
{
|
|
const int ens_size = 100;
|
|
char **file_list;
|
|
double **X;
|
|
int i , j;
|
|
file_list = malloc(ens_size * sizeof * file_list);
|
|
for (i=0; i < ens_size; i++) {
|
|
file_list[i] = malloc(100);
|
|
sprintf(file_list[i] , "PERMX_%04d.INC" , i + 1);
|
|
}
|
|
|
|
|
|
X = malloc(ens_size * sizeof *X);
|
|
for (i=0; i < ens_size; i++)
|
|
X[i] = malloc(ens_size * sizeof *X[i]);
|
|
|
|
for (i=0; i < ens_size; i++)
|
|
for (j=0; j < ens_size; j++)
|
|
X[i][j] = 0;
|
|
|
|
for (i=0; i < ens_size; i++)
|
|
X[i][i] = 1.0;
|
|
|
|
rms_stats_update_ens("Posterior" , "Post2" , (const char **) file_list , "PERMX" , ens_size , (const double **) X);
|
|
|
|
for (i=0; i < ens_size; i++) {
|
|
free(X[i]);
|
|
free(file_list[i]);
|
|
}
|
|
free(X);
|
|
free(file_list);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|