| 1 | /*!\file BoolExternalResult.c
|
|---|
| 2 | * \brief: implementation of the BoolExternalResult object
|
|---|
| 3 | */
|
|---|
| 4 |
|
|---|
| 5 | /*header files: */
|
|---|
| 6 | /*{{{*/
|
|---|
| 7 | #ifdef HAVE_CONFIG_H
|
|---|
| 8 | #include <config.h>
|
|---|
| 9 | #else
|
|---|
| 10 | #error "Cannot compile with HAVE_CONFIG_H symbol! run configure first!"
|
|---|
| 11 | #endif
|
|---|
| 12 |
|
|---|
| 13 | #include <stdio.h>
|
|---|
| 14 | #include <string.h>
|
|---|
| 15 | #include "../objects.h"
|
|---|
| 16 | #include "../../EnumDefinitions/EnumDefinitions.h"
|
|---|
| 17 | #include "../../shared/shared.h"
|
|---|
| 18 | #include "../../Container/Container.h"
|
|---|
| 19 | #include "../../include/include.h"
|
|---|
| 20 | /*}}}*/
|
|---|
| 21 |
|
|---|
| 22 | /*BoolExternalResult constructors and destructor*/
|
|---|
| 23 | /*FUNCTION BoolExternalResult::BoolExternalResult(){{{*/
|
|---|
| 24 | BoolExternalResult::BoolExternalResult(){
|
|---|
| 25 | return;
|
|---|
| 26 | }
|
|---|
| 27 | /*}}}*/
|
|---|
| 28 | /*FUNCTION BoolExternalResult::BoolExternalResult(int enum_type,bool value){{{*/
|
|---|
| 29 | BoolExternalResult::BoolExternalResult(int in_id, int in_enum_type,bool in_value,int in_step, IssmDouble in_time){
|
|---|
| 30 |
|
|---|
| 31 | id=in_id;
|
|---|
| 32 | enum_type=in_enum_type;
|
|---|
| 33 | value=in_value;
|
|---|
| 34 | step=in_step;
|
|---|
| 35 | time=in_time;
|
|---|
| 36 | }
|
|---|
| 37 | /*}}}*/
|
|---|
| 38 | /*FUNCTION BoolExternalResult::~BoolExternalResult(){{{*/
|
|---|
| 39 | BoolExternalResult::~BoolExternalResult(){
|
|---|
| 40 | return;
|
|---|
| 41 | }
|
|---|
| 42 | /*}}}*/
|
|---|
| 43 |
|
|---|
| 44 | /*Object virtual functions definitions:*/
|
|---|
| 45 | /*FUNCTION BoolExternalResult::Echo {{{*/
|
|---|
| 46 | void BoolExternalResult::Echo(void){
|
|---|
| 47 | this->DeepEcho();
|
|---|
| 48 | }
|
|---|
| 49 | /*}}}*/
|
|---|
| 50 | /*FUNCTION BoolExternalResult::DeepEcho{{{*/
|
|---|
| 51 | void BoolExternalResult::DeepEcho(void){
|
|---|
| 52 |
|
|---|
| 53 | _printLine_("BoolExternalResult:");
|
|---|
| 54 | _printLine_(" id: " << this->id);
|
|---|
| 55 | _printLine_(" enum: " << this->enum_type << " (" << EnumToStringx(this->enum_type) << ")");
|
|---|
| 56 | _printLine_(" value: " <<(this->value?"true":"false"));
|
|---|
| 57 | _printLine_(" step: " << this->step);
|
|---|
| 58 | _printLine_(" time: " << this->time);
|
|---|
| 59 | }
|
|---|
| 60 | /*}}}*/
|
|---|
| 61 | /*FUNCTION BoolExternalResult::Id{{{*/
|
|---|
| 62 | int BoolExternalResult::Id(void){ return -1; }
|
|---|
| 63 | /*}}}*/
|
|---|
| 64 | /*FUNCTION BoolExternalResult::MyRank{{{*/
|
|---|
| 65 | int BoolExternalResult::MyRank(void){
|
|---|
| 66 | extern int my_rank;
|
|---|
| 67 | return my_rank;
|
|---|
| 68 | }
|
|---|
| 69 | /*}}}*/
|
|---|
| 70 | /*FUNCTION BoolExternalResult::ObjectEnum{{{*/
|
|---|
| 71 | int BoolExternalResult::ObjectEnum(void){
|
|---|
| 72 |
|
|---|
| 73 | return BoolExternalResultEnum;
|
|---|
| 74 |
|
|---|
| 75 | }
|
|---|
| 76 | /*}}}*/
|
|---|
| 77 | /*FUNCTION BoolExternalResult::copy{{{*/
|
|---|
| 78 | Object* BoolExternalResult::copy() {
|
|---|
| 79 |
|
|---|
| 80 | return new BoolExternalResult(this->id,this->enum_type,this->value,this->step,this->time);
|
|---|
| 81 |
|
|---|
| 82 | }
|
|---|
| 83 | /*}}}*/
|
|---|
| 84 |
|
|---|
| 85 | /*BoolExternalResult management: */
|
|---|
| 86 | /*FUNCTION BoolExternalResult::WriteData{{{*/
|
|---|
| 87 | void BoolExternalResult::WriteData(FILE* fid,bool io_gather){
|
|---|
| 88 |
|
|---|
| 89 | int length;
|
|---|
| 90 | int type;
|
|---|
| 91 | int size;
|
|---|
| 92 | IssmPDouble passiveDouble;
|
|---|
| 93 | extern int my_rank;
|
|---|
| 94 | char* name = NULL;
|
|---|
| 95 |
|
|---|
| 96 | /*return if now on cpu 0: */
|
|---|
| 97 | if(my_rank)return;
|
|---|
| 98 |
|
|---|
| 99 | /*First write enum: */
|
|---|
| 100 | EnumToStringx(&name,this->enum_type);
|
|---|
| 101 | length=(strlen(name)+1)*sizeof(char);
|
|---|
| 102 | fwrite(&length,sizeof(int),1,fid);
|
|---|
| 103 | fwrite(name,length,1,fid);
|
|---|
| 104 | xDelete<char>(name);
|
|---|
| 105 |
|
|---|
| 106 | /*Now write time and step: */
|
|---|
| 107 | passiveDouble=reCast<IssmPDouble>(time);
|
|---|
| 108 | fwrite(&passiveDouble,sizeof(IssmPDouble),1,fid);
|
|---|
| 109 | fwrite(&step,sizeof(int),1,fid);
|
|---|
| 110 |
|
|---|
| 111 | /*writing a IssmDouble, type is 1, size is 1: */
|
|---|
| 112 | type=1;
|
|---|
| 113 | size=1;
|
|---|
| 114 | fwrite(&type,sizeof(int),1,fid);
|
|---|
| 115 | fwrite(&size,sizeof(int),1,fid);
|
|---|
| 116 | /*Now write bool, after casting it: */
|
|---|
| 117 | passiveDouble=reCast<IssmPDouble>(this->value);
|
|---|
| 118 | fwrite(&passiveDouble,size*sizeof(IssmPDouble),1,fid);
|
|---|
| 119 |
|
|---|
| 120 | }
|
|---|
| 121 | /*}}}*/
|
|---|
| 122 | /*FUNCTION BoolExternalResult::GetResultName{{{*/
|
|---|
| 123 | void BoolExternalResult::GetResultName(char** pname){
|
|---|
| 124 | EnumToStringx(pname,this->enum_type);
|
|---|
| 125 | }
|
|---|
| 126 | /*}}}*/
|
|---|
| 127 | /*FUNCTION BoolExternalResult::GetStep{{{*/
|
|---|
| 128 | int BoolExternalResult::GetStep(void){
|
|---|
| 129 |
|
|---|
| 130 | return this->step;
|
|---|
| 131 | }
|
|---|
| 132 | /*}}}*/
|
|---|