Changeset 18063


Ignore:
Timestamp:
05/26/14 21:05:52 (11 years ago)
Author:
Mathieu Morlighem
Message:

CHG: removed some FUNCTION folds, moved to function declaration

Location:
issm/trunk-jpl/src/c
Files:
51 edited

Legend:

Unmodified
Added
Removed

  • TabularUnified issm/trunk-jpl/src/c/classes/Nodes.cpp

    r15861 r18063  
    1919
    2020/*Object constructors and destructor*/
    21 /*FUNCTION Nodes::Nodes(){{{*/
    22 Nodes::Nodes(){
     21Nodes::Nodes(){/*{{{*/
    2322        enum_type=NodesEnum;
    2423        return;
    2524}
    2625/*}}}*/
    27 /*FUNCTION Nodes::~Nodes(){{{*/
    28 Nodes::~Nodes(){
     26Nodes::~Nodes(){/*{{{*/
    2927        return;
    3028}
    … …  
    3230
    3331/*Numerics*/
    34 /*FUNCTION Nodes::DistributeDofs{{{*/
    35 void  Nodes::DistributeDofs(int analysis_type,int setenum){
     32void  Nodes::DistributeDofs(int analysis_type,int setenum){/*{{{*/
    3633
    3734        int  i;
    … …  
    122119}
    123120/*}}}*/
    124 /*FUNCTION Nodes::FlagClones{{{*/
    125 void  Nodes::FlagClones(int analysis_type){
     121void  Nodes::FlagClones(int analysis_type){/*{{{*/
    126122
    127123        int i;
    … …  
    168164}
    169165/*}}}*/
    170 /*FUNCTION Nodes::MaxNumDofs{{{*/
    171 int   Nodes::MaxNumDofs(int analysis_type,int setenum){
     166int   Nodes::MaxNumDofs(int analysis_type,int setenum){/*{{{*/
    172167
    173168        int max=0;
    … …  
    194189}
    195190/*}}}*/
    196 /*FUNCTION Nodes::MaximymId{{{*/
    197 int Nodes::MaximumId(){
     191int   Nodes::MaximumId(){/*{{{*/
    198192
    199193        int max=-1;
    … …  
    225219}
    226220/*}}}*/
    227 /*FUNCTION Nodes::NumberOfDofs{{{*/
    228 int   Nodes::NumberOfDofs(int analysis_type,int setenum){
     221int   Nodes::NumberOfDofs(int analysis_type,int setenum){/*{{{*/
    229222
    230223        int   allnumdofs;
    … …  
    238231}
    239232/*}}}*/
    240 /*FUNCTION Nodes::NumberOfDofsLocal{{{*/
    241 int   Nodes::NumberOfDofsLocal(int analysis_type,int setenum){
     233int   Nodes::NumberOfDofsLocal(int analysis_type,int setenum){/*{{{*/
    242234
    243235        int   numdofs=0;
    … …  
    261253}
    262254/*}}}*/
    263 /*FUNCTION Nodes::NumberOfNodes(){{{*/
    264 int Nodes::NumberOfNodes(void){
     255int   Nodes::NumberOfNodes(void){/*{{{*/
    265256
    266257        /*Careful! only use once all clones have been setup for all nodes!: */
    … …  
    283274}
    284275/*}}}*/
    285 /*FUNCTION Nodes::NumberOfNodes(analysis){{{*/
    286 int Nodes::NumberOfNodes(int analysis_type){
     276int   Nodes::NumberOfNodes(int analysis_type){/*{{{*/
    287277
    288278        int i;
    … …  
    315305}
    316306/*}}}*/
    317 /*FUNCTION Nodes::Ranks{{{*/
    318 void   Nodes::Ranks(int* ranks,int analysis_type){
     307void  Nodes::Ranks(int* ranks,int analysis_type){/*{{{*/
    319308
    320309        int my_rank;
    … …  
    338327}
    339328/*}}}*/
    340 /*FUNCTION Nodes::RequiresDofReindexing{{{*/
    341 bool Nodes::RequiresDofReindexing(int analysis_type){
     329bool Nodes::RequiresDofReindexing(int analysis_type){/*{{{*/
    342330
    343331        int flag = 0;

  • TabularUnified issm/trunk-jpl/src/c/classes/Profiler.cpp

    r15838 r18063  
    1717
    1818/*Profiler constructors and destructors:*/
    19 /*FUNCTION Profiler::Profiler() default constructor {{{*/
    20 Profiler::Profiler(){
     19Profiler::Profiler(){/*{{{*/
    2120                 this->time=new Parameters();
    2221                 this->flops=new Parameters();
    … …  
    2423}
    2524/*}}}*/
    26 /*FUNCTION Profiler::~Profiler(){{{*/
    27 Profiler::~Profiler(){
     25Profiler::~Profiler(){/*{{{*/
    2826        delete time;
    2927        delete flops;
    … …  
    3331
    3432/*Object virtual functions definitions:*/
    35 /*FUNCTION Profiler::Echo{{{*/
    36 void Profiler::Echo(void){
     33void Profiler::Echo(void){/*{{{*/
    3734
    3835        _printf_("Profiler:\n");
    … …  
    4239}
    4340/*}}}*/
    44 /*FUNCTION Profiler::DeepEcho{{{*/
    45 void Profiler::DeepEcho(void){
     41void Profiler::DeepEcho(void){/*{{{*/
    4642
    4743        _printf_("Profiler:\n");
    … …  
    5147}
    5248/*}}}*/
    53 /*FUNCTION Profiler::Id{{{*/
    54 int    Profiler::Id(void){ return -1; }
     49int    Profiler::Id(void){ return -1; }/*{{{*/
    5550/*}}}*/
    56 /*FUNCTION Profiler::ObjectEnum{{{*/
    57 int Profiler::ObjectEnum(void){
     51int Profiler::ObjectEnum(void){/*{{{*/
    5852
    5953        return ProfilerEnum;
    … …  
    6357
    6458/*Profiler routines:*/
    65 /*FUNCTION Profiler::Tag {{{*/
    66 void  Profiler::Tag(int tagenum,bool dontmpisync){
     59void  Profiler::Tag(int tagenum,bool dontmpisync){/*{{{*/
    6760
    6861        IssmDouble t;
    … …  
    9891}
    9992/*}}}*/
    100 /*FUNCTION Profiler::DeltaTime {{{*/
    101 IssmDouble  Profiler::DeltaTime(int inittag, int finaltag){
     93IssmDouble  Profiler::DeltaTime(int inittag, int finaltag){/*{{{*/
    10294
    10395        IssmDouble init, final;
    … …  
    112104}
    113105/*}}}*/
    114 /*FUNCTION Profiler::DeltaFlops {{{*/
    115 IssmDouble  Profiler::DeltaFlops(int inittag, int finaltag){
     106IssmDouble  Profiler::DeltaFlops(int inittag, int finaltag){/*{{{*/
    116107
    117108        IssmDouble init, final;
    … …  
    122113}
    123114/*}}}*/
    124 /*FUNCTION Profiler::DeltaTimeModHour {{{*/
    125 int Profiler::DeltaTimeModHour(int inittag, int finishtag){
     115int Profiler::DeltaTimeModHour(int inittag, int finishtag){/*{{{*/
    126116
    127117        IssmDouble init, finish;
    … …  
    137127}
    138128/*}}}*/
    139 /*FUNCTION Profiler::DeltaTimeModMin {{{*/
    140 int Profiler::DeltaTimeModMin(int inittag, int finishtag){
     129int Profiler::DeltaTimeModMin(int inittag, int finishtag){/*{{{*/
    141130
    142131        IssmDouble init, finish;
    … …  
    151140}
    152141/*}}}*/
    153 /*FUNCTION Profiler::DeltaTimeModSec {{{*/
    154 int Profiler::DeltaTimeModSec(int inittag, int finishtag){
     142int Profiler::DeltaTimeModSec(int inittag, int finishtag){/*{{{*/
    155143
    156144        IssmDouble init, finish;
    … …  
    165153}
    166154/*}}}*/
    167 /*FUNCTION Profiler::Memory {{{*/
    168 IssmDouble  Profiler::Memory(int tag){
     155IssmDouble  Profiler::Memory(int tag){/*{{{*/
    169156
    170157        IssmDouble m;

  • TabularUnified issm/trunk-jpl/src/c/classes/Segment.h

    r15104 r18063  
    2323
    2424                /*Segment constructors, destructors :*/
    25                 /*FUNCTION Segment() default constructor {{{*/
    26                 Segment(){
     25                Segment(){/*{{{*/
    2726                        this->eid = UNDEF;
    2827                        this->x1  = UNDEF;
    … …  
    3231                }
    3332                /*}}}*/
    34                 /*FUNCTION Segment(int eid, doubletype x1,doubletype y1,doubletype x2, doubletype y2){{{*/
    35                 Segment(int segment_eid, doubletype segment_x1,doubletype segment_y1,doubletype segment_x2, doubletype segment_y2){
     33                Segment(int segment_eid, doubletype segment_x1,doubletype segment_y1,doubletype segment_x2, doubletype segment_y2){/*{{{*/
    3634
    3735                        this->eid = segment_eid;
    … …  
    4341                }
    4442                /*}}}*/
    45                 /*FUNCTION ~Segment(){{{*/
    46                 ~Segment(){
     43                ~Segment(){/*{{{*/
    4744                }
    4845                /*}}}*/
    4946
    5047                /*Object virtual functions definitions:*/
    51                 /*FUNCTION Echo{{{*/
    52                 void Echo(void){
     48                void Echo(void){/*{{{*/
    5349
    5450                        _printf_("Segment:\n");
    … …  
    5955                }
    6056                /*}}}*/
    61                 /*FUNCTION DeepEcho{{{*/
    62                 void DeepEcho(void){
     57                void DeepEcho(void){/*{{{*/
    6358                        this->Echo();
    6459                }
    6560                /*}}}*/
    66                 /*FUNCTION Id{{{*/
    67                 int    Id(void){ return eid; }
     61                int    Id(void){ return eid; }/*{{{*/
    6862                /*}}}*/
    69                 /*FUNCTION ObjectEnum{{{*/
    70                 int ObjectEnum(void){
     63                int ObjectEnum(void){/*{{{*/
    7164
    7265                        return SegmentEnum;
    … …  
    7467                }
    7568                /*}}}*/
    76                 /*FUNCTION copy {{{*/
    77                 Object* copy() {
     69                Object* copy() {/*{{{*/
    7870                        return new Segment(this->eid,this->x1,this->y1,this->x2,this->y2);
    7971                }

  • TabularUnified issm/trunk-jpl/src/c/classes/Vertex.cpp

    r17700 r18063  
    1616
    1717/*Vertex constructors and destructor:*/
    18 /*FUNCTION Vertex::Vertex() {{{*/
    19 Vertex::Vertex(){
    20         return;
    21 }
    22 /*}}}*/
    23 /*FUNCTION Vertex::Vertex(int vertex_id, int vertex_sid,int i, IoModel* iomodel) {{{*/
    24 Vertex::Vertex(int vertex_id, int vertex_sid,int i, IoModel* iomodel){
     18Vertex::Vertex(){/*{{{*/
     19        return;
     20}
     21/*}}}*/
     22Vertex::Vertex(int vertex_id, int vertex_sid,int i, IoModel* iomodel){/*{{{*/
    2523
    2624        this->id           = vertex_id;
    … …  
    4947}
    5048/*}}}*/
    51 /*FUNCTION Vertex::~Vertex() {{{*/
    52 Vertex::~Vertex(){
     49Vertex::~Vertex(){/*{{{*/
    5350        return;
    5451}
    … …  
    5653
    5754/*Object virtual functions definitions:*/
    58 /*FUNCTION Vertex::Echo{{{*/
    59 void Vertex::Echo(void){
     55void Vertex::Echo(void){/*{{{*/
    6056
    6157        _printf_("Vertex:\n");
    … …  
    7369}
    7470/*}}}*/
    75 /*FUNCTION Vertex::DeepEcho{{{*/
    76 void Vertex::DeepEcho(void){
     71void Vertex::DeepEcho(void){/*{{{*/
    7772        this->Echo();
    7873}
    7974/*}}}*/
    80 /*FUNCTION Vertex::Id{{{*/
    81 int    Vertex::Id(void){ return id; }
    82 /*}}}*/
    83 /*FUNCTION Vertex::ObjectEnum{{{*/
    84 int Vertex::ObjectEnum(void){
     75int Vertex::Id(void){ return id; }/*{{{*/
     76/*}}}*/
     77int Vertex::ObjectEnum(void){/*{{{*/
    8578
    8679        return VertexEnum;
    … …  
    8881}
    8982/*}}}*/
    90 /*FUNCTION Vertex::copy {{{*/
    91 Object* Vertex::copy() {
     83Object* Vertex::copy() {/*{{{*/
    9284
    9385        return new Vertex(*this);
    … …  
    9789
    9890/*Vertex management: */
    99 /*FUNCTION Vertex::Connectivity{{{*/
    100 int    Vertex::Connectivity(void){return connectivity;}
    101 /*}}}*/
    102 /*FUNCTION Vertex::GetX {{{*/
    103 IssmDouble Vertex::GetX(){
     91int        Vertex::Connectivity(void){return connectivity;}/*{{{*/
     92/*}}}*/
     93IssmDouble Vertex::GetX(){/*{{{*/
    10494        return this->x;
    10595}
    10696/*}}}*/
    107 /*FUNCTION Vertex::GetY {{{*/
    108 IssmDouble Vertex::GetY(){
     97IssmDouble Vertex::GetY(){/*{{{*/
    10998        return this->y;
    11099}
    111100/*}}}*/
    112 /*FUNCTION Vertex::GetZ {{{*/
    113 IssmDouble Vertex::GetZ(){
     101IssmDouble Vertex::GetZ(){/*{{{*/
    114102        return this->z;
    115103}
    116104/*}}}*/
    117 /*FUNCTION Vertex::Sid{{{*/
    118 int    Vertex::Sid(void){ return sid; }
    119 /*}}}*/
    120 /*FUNCTION Vertex::Pid{{{*/
    121 int    Vertex::Pid(void){ return pid; }
    122 /*}}}*/
    123 /*FUNCTION Vertex::UpdatePosition {{{*/
    124 void  Vertex::UpdatePosition(Vector<IssmDouble>* vx,Vector<IssmDouble>* vy,Vector<IssmDouble>* vz,Parameters* parameters,IssmDouble* surface,IssmDouble* bed){
     105int        Vertex::Sid(void){ return sid; }/*{{{*/
     106/*}}}*/
     107int        Vertex::Pid(void){ return pid; }/*{{{*/
     108/*}}}*/
     109void       Vertex::UpdatePosition(Vector<IssmDouble>* vx,Vector<IssmDouble>* vy,Vector<IssmDouble>* vz,Parameters* parameters,IssmDouble* surface,IssmDouble* bed){/*{{{*/
    125110
    126111        IssmDouble oldy,newy,vely;
    … …  
    155140}
    156141/*}}}*/
    157 /*FUNCTION Vertex::DistributePids{{{*/
    158 void  Vertex::DistributePids(int* ppidcount){
     142void       Vertex::DistributePids(int* ppidcount){/*{{{*/
    159143
    160144        /*retrieve current pid*/
    … …  
    172156}
    173157/*}}}*/
    174 /*FUNCTION Vertex::OffsetPids{{{*/
    175 void  Vertex::OffsetPids(int pidcount){
     158void       Vertex::OffsetPids(int pidcount){/*{{{*/
    176159
    177160        /*This vertex is a clone, don't offset the pids*/
    … …  
    182165}
    183166/*}}}*/
    184 /*FUNCTION Vertex::ShowTruePids{{{*/
    185 void  Vertex::ShowTruePids(int* truepids){
     167void       Vertex::ShowTruePids(int* truepids){/*{{{*/
    186168
    187169        /*Are we a clone? : */
    … …  
    192174}
    193175/*}}}*/
    194 /*FUNCTION Vertex::UpdateClonePids{{{*/
    195 void  Vertex::UpdateClonePids(int* alltruepids){
     176void       Vertex::UpdateClonePids(int* alltruepids){/*{{{*/
    196177
    197178        /*If we are not a clone, don't update, we already have pids: */
    … …  
    203184}
    204185/*}}}*/
    205 /*FUNCTION Vertex::SetClone {{{*/
    206 void  Vertex::SetClone(int* minranks){
     186void       Vertex::SetClone(int* minranks){/*{{{*/
    207187
    208188        int my_rank;
    … …  
    222202}
    223203/*}}}*/
    224 /*FUNCTION Vertex::ToXYZ {{{*/
    225 void  Vertex::ToXYZ(Matrix<IssmDouble>* matrix){
     204void       Vertex::ToXYZ(Matrix<IssmDouble>* matrix){/*{{{*/
    226205
    227206        IssmDouble xyz[3];
    … …  
    240219}
    241220/*}}}*/
    242 /*FUNCTION Vertex::VertexCoordinates {{{*/
    243 void  Vertex::VertexCoordinates(Vector<IssmDouble>* vx,Vector<IssmDouble>* vy,Vector<IssmDouble>* vz){
     221void       Vertex::VertexCoordinates(Vector<IssmDouble>* vx,Vector<IssmDouble>* vy,Vector<IssmDouble>* vz){/*{{{*/
    244222
    245223        if (this->clone==true) return;

  • TabularUnified issm/trunk-jpl/src/c/classes/Vertices.cpp

    r15838 r18063  
    2424
    2525/*Object constructors and destructor*/
    26 /*FUNCTION Vertices::Vertices(){{{*/
    27 Vertices::Vertices(){
     26Vertices::Vertices(){/*{{{*/
    2827        enum_type=VerticesEnum;
    2928        return;
    3029}
    3130/*}}}*/
    32 /*FUNCTION Vertices::~Vertices(){{{*/
    33 Vertices::~Vertices(){
     31Vertices::~Vertices(){/*{{{*/
    3432        return;
    3533}
    … …  
    3735
    3836/*Numerics management*/
    39 /*FUNCTION Vertices::DistributePids{{{*/
    40 void  Vertices::DistributePids(int numberofobjects){
     37void  Vertices::DistributePids(int numberofobjects){/*{{{*/
    4138
    4239        int num_procs;
    … …  
    10299}
    103100/*}}}*/
    104 /*FUNCTION Vertices::FlagClones{{{*/
    105 void  Vertices::FlagClones(int numberofobjects){
     101void  Vertices::FlagClones(int numberofobjects){/*{{{*/
    106102
    107103        int i;
    … …  
    142138}
    143139/*}}}*/
    144 /*FUNCTION Vertices::NumberOfVertices{{{*/
    145 int Vertices::NumberOfVertices(void){
     140int Vertices::NumberOfVertices(void){/*{{{*/
    146141
    147142        int i,sid;
    … …  
    166161}
    167162/*}}}*/
    168 /*FUNCTION Vertices::Ranks{{{*/
    169 void   Vertices::Ranks(int* ranks){
     163void   Vertices::Ranks(int* ranks){/*{{{*/
    170164
    171165        int my_rank;
    … …  
    184178}
    185179/*}}}*/
    186 /*FUNCTION Vertices::ToXYZ{{{*/
    187 IssmDouble* Vertices::ToXYZ(void){
     180IssmDouble* Vertices::ToXYZ(void){/*{{{*/
    188181
    189182        /*intermediary: */

  • TabularUnified issm/trunk-jpl/src/c/classes/matrix/ElementVector.cpp

    r15688 r18063  
    1818
    1919/*ElementVector constructors and destructor*/
    20 /*FUNCTION ElementVector::ElementVector(){{{*/
    21 ElementVector::ElementVector(){
     20ElementVector::ElementVector(){/*{{{*/
    2221
    2322        this->nrows=0;
    … …  
    2928}
    3029/*}}}*/
    31 /*FUNCTION ElementVector::ElementVector(ElementVector* pe1, ElementVector* pe2){{{*/
    32 ElementVector::ElementVector(ElementVector* pe1, ElementVector* pe2){
     30ElementVector::ElementVector(ElementVector* pe1, ElementVector* pe2){/*{{{*/
    3331
    3432        /*intermediaries*/
    … …  
    114112}
    115113/*}}}*/
    116 /*FUNCTION ElementVector::ElementVector(ElementVector* pe1, ElementVector* pe2,ElementVector* pe3){{{*/
    117 ElementVector::ElementVector(ElementVector* pe1, ElementVector* pe2,ElementVector* pe3){
     114ElementVector::ElementVector(ElementVector* pe1, ElementVector* pe2,ElementVector* pe3){/*{{{*/
    118115
    119116        /*Concatenate all matrices*/
    … …  
    129126}
    130127/*}}}*/
    131 /*FUNCTION ElementVector::ElementVector(Node** nodes,int numnodes,Parameters* parameters,int approximation){{{*/
    132 ElementVector::ElementVector(Node** nodes,int numnodes,Parameters* parameters,int approximation){
     128ElementVector::ElementVector(Node** nodes,int numnodes,Parameters* parameters,int approximation){/*{{{*/
    133129
    134130        /*get Vector size and properties*/
    … …  
    147143}
    148144/*}}}*/
    149 /*FUNCTION ElementVector::~ElementVector(){{{*/
    150 ElementVector::~ElementVector(){
     145ElementVector::~ElementVector(){/*{{{*/
    151146
    152147        xDelete<IssmDouble>(this->values);
    … …  
    158153
    159154/*ElementVector specific routines: */
    160 /*FUNCTION ElementVector::AddToGlobal(Vector<IssmDouble>* pf){{{*/
    161 void ElementVector::AddToGlobal(Vector<IssmDouble>* pf){
     155void ElementVector::AddToGlobal(Vector<IssmDouble>* pf){/*{{{*/
    162156
    163157        int i;
    … …  
    182176}
    183177/*}}}*/
    184 /*FUNCTION ElementVector::InsertIntoGlobal(Vector<IssmDouble>* pf){{{*/
    185 void ElementVector::InsertIntoGlobal(Vector<IssmDouble>* pf){
     178void ElementVector::InsertIntoGlobal(Vector<IssmDouble>* pf){/*{{{*/
    186179
    187180        int i;
    … …  
    203196}
    204197/*}}}*/
    205 /*FUNCTION ElementVector::CheckConsistency{{{*/
    206 void ElementVector::CheckConsistency(void){
     198void ElementVector::CheckConsistency(void){/*{{{*/
    207199        /*Check element matrix values, only in debugging mode*/
    208200#ifdef _ISSM_DEBUG_
    … …  
    214206}
    215207/*}}}*/
    216 /*FUNCTION ElementVector::Echo{{{*/
    217 void ElementVector::Echo(void){
     208void ElementVector::Echo(void){/*{{{*/
    218209
    219210        int i;
    … …  
    239230}
    240231/*}}}*/
    241 /*FUNCTION ElementVector::Init{{{*/
    242 void ElementVector::Init(ElementVector* pe){
     232void ElementVector::Init(ElementVector* pe){/*{{{*/
    243233
    244234        _assert_(pe);
    … …  
    265255}
    266256/*}}}*/
    267 /*FUNCTION ElementVector::SetValue{{{*/
    268 void ElementVector::SetValue(IssmDouble scalar){
     257void ElementVector::SetValue(IssmDouble scalar){/*{{{*/
    269258
    270259        int i;
    … …  
    274263}
    275264/*}}}*/
    276 /*FUNCTION ElementVector::StaticCondensation{{{*/
    277 void ElementVector::StaticCondensation(ElementMatrix* Ke,int bsize,int* bindices){
     265void ElementVector::StaticCondensation(ElementMatrix* Ke,int bsize,int* bindices){/*{{{*/
    278266        /*
    279267         * | Kii  Kib | | Ui |    |Fi|

  • TabularUnified issm/trunk-jpl/src/c/datastructures/DataSet.cpp

    r15104 r18063  
    2424
    2525/*Constructors/Destructors*/
    26 /*FUNCTION DataSet::DataSet(){{{*/
    27 DataSet::DataSet(){
     26DataSet::DataSet(){/*{{{*/
    2827
    2928        sorted=0;
    … …  
    3332}
    3433/*}}}*/
    35 /*FUNCTION DataSet::DataSet(int dataset_enum){{{*/
    36 DataSet::DataSet(int dataset_enum){
     34DataSet::DataSet(int dataset_enum){/*{{{*/
    3735        enum_type=dataset_enum;
    3836
    … …  
    4341}
    4442/*}}}*/
    45 /*FUNCTION DataSet::Copy{{{*/
    46 DataSet*   DataSet::Copy(void){
     43DataSet*   DataSet::Copy(void){/*{{{*/
    4744
    4845        vector<Object*>::iterator object;
    … …  
    7269}
    7370/*}}}*/
    74 /*FUNCTION DataSet::~DataSet{{{*/
    75 DataSet::~DataSet(){
     71DataSet::~DataSet(){/*{{{*/
    7672        clear();
    7773        xDelete<int>(sorted_ids);
    … …  
    8177
    8278/*Specific methods*/
    83 /*FUNCTION DataSet::AddObject{{{*/
    84 int  DataSet::AddObject(Object* object){
     79int  DataSet::AddObject(Object* object){/*{{{*/
    8580
    8681        _assert_(this);
    … …  
    9085}
    9186/*}}}*/
    92 /*FUNCTION DataSet::clear{{{*/
    93 void  DataSet::clear(){
     87void  DataSet::clear(){/*{{{*/
    9488
    9589/*  use reverse_iterator for efficiency in matlab memory manager
    … …  
    108102}
    109103/*}}}*/
    110 /*FUNCTION DataSet::DeleteObject{{{*/
    111 int  DataSet::DeleteObject(Object* object){
     104int  DataSet::DeleteObject(Object* object){/*{{{*/
    112105
    113106        vector<Object*>::iterator iterator;
    … …  
    123116}
    124117/*}}}*/
    125 /*FUNCTION DataSet::DeepEcho{{{*/
    126 void DataSet::DeepEcho(){
     118void DataSet::DeepEcho(){/*{{{*/
    127119
    128120        vector<Object*>::iterator object;
    … …  
    140132}
    141133/*}}}*/
    142 /*FUNCTION DataSet::Echo{{{*/
    143 void DataSet::Echo(){
     134void DataSet::Echo(){/*{{{*/
    144135
    145136        vector<Object*>::iterator object;
    … …  
    158149}
    159150/*}}}*/
    160 /*FUNCTION DataSet::GetEnum(){{{*/
    161 int  DataSet::GetEnum(){
     151int  DataSet::GetEnum(){/*{{{*/
    162152        return enum_type;
    163153}
    164154/*}}}*/
    165 /*FUNCTION DataSet::GetEnum(int offset){{{*/
    166 int   DataSet::GetEnum(int offset){
     155int   DataSet::GetEnum(int offset){/*{{{*/
    167156
    168157        return objects[offset]->ObjectEnum();
    … …  
    170159}
    171160/*}}}*/
    172 /*FUNCTION DataSet::GetObjectByOffset{{{*/
    173 Object* DataSet::GetObjectByOffset(int offset){
     161Object* DataSet::GetObjectByOffset(int offset){/*{{{*/
    174162
    175163        /*Check index in debugging mode*/
    … …  
    182170}
    183171/*}}}*/
    184 /*FUNCTION DataSet::GetObjectById{{{*/
    185 Object* DataSet::GetObjectById(int* poffset,int eid){
     172Object* DataSet::GetObjectById(int* poffset,int eid){/*{{{*/
    186173
    187174        int id_offset;
    … …  
    206193}
    207194/*}}}*/
    208 /*FUNCTION DataSet::Presort{{{*/
    209 void DataSet::Presort(){
     195void DataSet::Presort(){/*{{{*/
    210196
    211197        /*vector of objects is already sorted, just allocate the sorted ids and their
    … …  
    232218}
    233219/*}}}*/
    234 /*FUNCTION DataSet::Size{{{*/
    235 int  DataSet::Size(void){
     220int  DataSet::Size(void){/*{{{*/
    236221        _assert_(this!=NULL);
    237222
    … …  
    239224}
    240225/*}}}*/
    241 /*FUNCTION DataSet::Sort{{{*/
    242 void DataSet::Sort(){
     226void DataSet::Sort(){/*{{{*/
    243227
    244228        /*Only sort if we are not already sorted: */

  • TabularUnified issm/trunk-jpl/src/c/kml/KMLFileReadUtils.cpp

    r16521 r18063  
    1616/*}}}*/
    1717
    18 /*FUNCTION  KMLFileToken(FILE* fid,int* pncom=NULL,char*** ppcom=NULL) {{{*/
    19 char* KMLFileToken(FILE* fid,
     18char* KMLFileToken(FILE* fid,/*{{{*/
    2019                                   int* pncom=NULL,char*** ppcom=NULL){
    2120
    … …  
    144143}
    145144/*}}}*/
    146 /*FUNCTION  KMLFileTokenComment(FILE* fid) {{{*/
    147 char* KMLFileTokenComment(FILE* fid){
     145char* KMLFileTokenComment(FILE* fid){/*{{{*/
    148146
    149147/*  check for comment in the file and read it  */
    … …  
    208206}
    209207/*}}}*/
    210 /*FUNCTION  KMLFileTokenBuffer {{{*/
    211 void KMLFileTokenBuffer(char** pbuffer,int* pibuf,int* pbuflen,
     208void KMLFileTokenBuffer(char** pbuffer,int* pibuf,int* pbuflen,/*{{{*/
    212209                                                int c,
    213210                                                int bufblk){
    … …  
    237234}
    238235/*}}}*/
    239 /*FUNCTION  KMLFileTagName {{{*/
    240 char* KMLFileTagName(char* pname,
     236char* KMLFileTagName(char* pname,/*{{{*/
    241237                                         char* ktag){
    242238
    … …  
    245241}
    246242/*}}}*/
    247 /*FUNCTION  KMLFileTagName {{{*/
    248 char* KMLFileTagName(char* pname,int *m,int maxlen,
     243char* KMLFileTagName(char* pname,int *m,int maxlen,/*{{{*/
    249244                                         char* ktag){
    250245
    … …  
    290285}
    291286/*}}}*/
    292 /*FUNCTION  KMLFileTagAttrib {{{*/
    293 int KMLFileTagAttrib(KML_Object* kobj,
     287int KMLFileTagAttrib(KML_Object* kobj,/*{{{*/
    294288                                         char* ktag){
    295289
    … …  
    339333}
    340334/*}}}*/
    341 /*FUNCTION  KMLFileTokenParse {{{*/
    342 int KMLFileTokenParse(int* pival,
     335int KMLFileTokenParse(int* pival,/*{{{*/
    343336                                          char* ktag,
    344337                                          FILE* fid){
    … …  
    375368}
    376369/*}}}*/
    377 /*FUNCTION  KMLFileTokenParse {{{*/
    378 int KMLFileTokenParse(bool* pbval, char* ktag, FILE* fid){
     370int KMLFileTokenParse(bool* pbval, char* ktag, FILE* fid){/*{{{*/
    379371
    380372        int     ival;
    … …  
    410402}
    411403/*}}}*/
    412 /*FUNCTION  KMLFileTokenParse {{{*/
    413 char* KMLFileTokenParse(char* pstr,
     404char* KMLFileTokenParse(char* pstr,/*{{{*/
    414405                                                char* ktag,
    415406                                                FILE* fid){
    … …  
    420411}
    421412/*}}}*/
    422 /*FUNCTION  KMLFileTokenParse {{{*/
    423 char* KMLFileTokenParse(char* pstr,int *m,int maxlen,
     413char* KMLFileTokenParse(char* pstr,int *m,int maxlen,/*{{{*/
    424414                                                char* ktag,
    425415                                                FILE* fid){
    … …  
    472462}
    473463/*}}}*/
    474 /*FUNCTION  KMLFileTokenParse {{{*/
    475 int KMLFileTokenParse(float* pfval,
     464int KMLFileTokenParse(float* pfval,/*{{{*/
    476465                                          char* ktag,
    477466                                          FILE* fid){
    … …  
    507496}
    508497/*}}}*/
    509 /*FUNCTION  KMLFileTokenParse {{{*/
    510 int KMLFileTokenParse(double* pdval,
     498int KMLFileTokenParse(double* pdval,/*{{{*/
    511499                                          char* ktag,
    512500                                          FILE* fid){
    … …  
    542530}
    543531/*}}}*/
    544 /*FUNCTION  KMLFileTokenParse {{{*/
    545 int KMLFileTokenParse(double **pdval,int* m,int maxlen,
     532int KMLFileTokenParse(double **pdval,int* m,int maxlen,/*{{{*/
    546533                                          char* ktag,
    547534                                          FILE* fid){
    … …  
    610597}
    611598/*}}}*/
    612 /*FUNCTION  KMLFileTokenParse {{{*/
    613 int KMLFileTokenParse(double **pdval,int* m,int n,int maxlen,
     599int KMLFileTokenParse(double **pdval,int* m,int n,int maxlen,/*{{{*/
    614600                                          char* ktag,
    615601                                          FILE* fid){
    … …  
    682668}
    683669/*}}}*/
    684 /*FUNCTION  KMLFileTagSkip {{{*/
    685 int KMLFileTagSkip(char* ktag, FILE* fid){
     670int KMLFileTagSkip(char* ktag, FILE* fid){/*{{{*/
    686671
    687672        char*   kstr;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Attribute.cpp

    r15104 r18063  
    1616
    1717/*Constructors/destructor/copy*/
    18 /*FUNCTION KML_Attribute::KML_Attribute(){{{*/
    19 KML_Attribute::KML_Attribute(){
     18KML_Attribute::KML_Attribute(){/*{{{*/
    2019
    2120        name      =NULL;
    … …  
    2423}
    2524/*}}}*/
    26 /*FUNCTION KML_Attribute::~KML_Attribute(){{{*/
    27 KML_Attribute::~KML_Attribute(){
     25KML_Attribute::~KML_Attribute(){/*{{{*/
    2826
    2927        if (name      ) xDelete<char>(name);
    … …  
    3432
    3533/*Other*/
    36 /*FUNCTION KML_Attribute::Echo {{{*/
    37 void  KML_Attribute::Echo(){
     34void  KML_Attribute::Echo(){/*{{{*/
    3835
    3936        int   i;
    … …  
    4845}
    4946/*}}}*/
    50 /*FUNCTION KML_Attribute::DeepEcho {{{*/
    51 void  KML_Attribute::DeepEcho(){
     47void  KML_Attribute::DeepEcho(){/*{{{*/
    5248
    5349        char  indent[81]="";
    … …  
    5854}
    5955/*}}}*/
    60 /*FUNCTION KML_Attribute::DeepEcho {{{*/
    61 void  KML_Attribute::DeepEcho(const char* indent){
     56void  KML_Attribute::DeepEcho(const char* indent){/*{{{*/
    6257
    6358        int   i;
    … …  
    7267}
    7368/*}}}*/
    74 /*FUNCTION KML_Attribute::Write {{{*/
    75 void  KML_Attribute::Write(FILE* filout,const char* indent){
     69void  KML_Attribute::Write(FILE* filout,const char* indent){/*{{{*/
    7670
    7771//  attributes always written in keyword line of kml_object
    … …  
    8276}
    8377/*}}}*/
    84 /*FUNCTION KML_Attribute::Read {{{*/
    85 void  KML_Attribute::Read(FILE* fid,char* kstr){
     78void  KML_Attribute::Read(FILE* fid,char* kstr){/*{{{*/
    8679
    8780//  attributes always read in keyword line of kml_object
    … …  
    9285}
    9386/*}}}*/
    94 /*FUNCTION KML_Attribute::Alloc {{{*/
    95 void  KML_Attribute::Alloc(const char* namei,const char* valuei){
     87void  KML_Attribute::Alloc(const char* namei,const char* valuei){/*{{{*/
    9688
    9789        name =xNew<char>(strlen(namei )+1);
    … …  
    10496}
    10597/*}}}*/
    106 /*FUNCTION KML_Attribute::Add {{{*/
    107 void  KML_Attribute::Add(DataSet* attrib){
     98void  KML_Attribute::Add(DataSet* attrib){/*{{{*/
    10899
    109100        attrib->AddObject((Object*)this);
    … …  
    112103}
    113104/*}}}*/
    114 /*FUNCTION KML_Attribute::Get {{{*/
    115 void  KML_Attribute::Get(char** pvalueo,char* deflt){
     105void  KML_Attribute::Get(char** pvalueo,char* deflt){/*{{{*/
    116106
    117107        if (!value || !strlen(value)) {

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_ColorStyle.cpp

    r15100 r18063  
    1818
    1919/*Constructors/destructor/copy*/
    20 /*FUNCTION KML_ColorStyle::KML_ColorStyle(){{{*/
    21 KML_ColorStyle::KML_ColorStyle(){
     20KML_ColorStyle::KML_ColorStyle(){/*{{{*/
    2221
    2322        strcpy(color     ,"ffffffff");
    … …  
    2625}
    2726/*}}}*/
    28 /*FUNCTION KML_ColorStyle::~KML_ColorStyle(){{{*/
    29 KML_ColorStyle::~KML_ColorStyle(){
     27KML_ColorStyle::~KML_ColorStyle(){/*{{{*/
    3028
    3129        ;
    … …  
    3533
    3634/*Other*/
    37 /*FUNCTION KML_ColorStyle::Echo {{{*/
    38 void  KML_ColorStyle::Echo(){
     35void  KML_ColorStyle::Echo(){/*{{{*/
    3936
    4037        bool  flag=true;
    … …  
    4845}
    4946/*}}}*/
    50 /*FUNCTION KML_ColorStyle::DeepEcho {{{*/
    51 void  KML_ColorStyle::DeepEcho(){
     47void  KML_ColorStyle::DeepEcho(){/*{{{*/
    5248
    5349        char  indent[81]="";
    … …  
    5854}
    5955/*}}}*/
    60 /*FUNCTION KML_ColorStyle::DeepEcho {{{*/
    61 void  KML_ColorStyle::DeepEcho(const char* indent){
     56void  KML_ColorStyle::DeepEcho(const char* indent){/*{{{*/
    6257
    6358        bool  flag=true;
    … …  
    6964}
    7065/*}}}*/
    71 /*FUNCTION KML_ColorStyle::Write {{{*/
    72 void  KML_ColorStyle::Write(FILE* filout,const char* indent){
     66void  KML_ColorStyle::Write(FILE* filout,const char* indent){/*{{{*/
    7367
    7468        KML_SubStyle::Write(filout,indent);
    … …  
    8276}
    8377/*}}}*/
    84 /*FUNCTION KML_ColorStyle::Read {{{*/
    85 void  KML_ColorStyle::Read(FILE* fid,char* kstr){
     78void  KML_ColorStyle::Read(FILE* fid,char* kstr){/*{{{*/
    8679
    8780/*  process field within opening and closing tags  */

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Comment.cpp

    r15100 r18063  
    1616
    1717/*Constructors/destructor/copy*/
    18 /*FUNCTION KML_Comment::KML_Comment(){{{*/
    19 KML_Comment::KML_Comment(){
     18KML_Comment::KML_Comment(){/*{{{*/
    2019
    2120        value     =NULL;
    … …  
    2322}
    2423/*}}}*/
    25 /*FUNCTION KML_Comment::~KML_Comment(){{{*/
    26 KML_Comment::~KML_Comment(){
     24KML_Comment::~KML_Comment(){/*{{{*/
    2725
    2826        if (value     ) xDelete<char>(value);
    … …  
    3230
    3331/*Other*/
    34 /*FUNCTION KML_Comment::Echo {{{*/
    35 void  KML_Comment::Echo(){
     32void  KML_Comment::Echo(){/*{{{*/
    3633
    3734        bool  flag=true;
    … …  
    4340}
    4441/*}}}*/
    45 /*FUNCTION KML_Comment::DeepEcho {{{*/
    46 void  KML_Comment::DeepEcho(){
     42void  KML_Comment::DeepEcho(){/*{{{*/
    4743
    4844        char  indent[81]="";
    … …  
    5349}
    5450/*}}}*/
    55 /*FUNCTION KML_Comment::DeepEcho {{{*/
    56 void  KML_Comment::DeepEcho(const char* indent){
     51void  KML_Comment::DeepEcho(const char* indent){/*{{{*/
    5752
    5853        bool  flag=true;
    … …  
    6459}
    6560/*}}}*/
    66 /*FUNCTION KML_Comment::Write {{{*/
    67 void  KML_Comment::Write(FILE* filout,const char* indent){
     61void  KML_Comment::Write(FILE* filout,const char* indent){/*{{{*/
    6862
    6963        if (strncmp(&value[0]              ,"<!--",4))
    … …  
    7670}
    7771/*}}}*/
    78 /*FUNCTION KML_Comment::Read {{{*/
    79 void  KML_Comment::Read(FILE* fid,char* kstr){
     72void  KML_Comment::Read(FILE* fid,char* kstr){/*{{{*/
    8073
    8174//  comments always read as part of KMLFileToken
    … …  
    8679}
    8780/*}}}*/
    88 /*FUNCTION KML_Comment::Alloc {{{*/
    89 void  KML_Comment::Alloc(const char* valuei){
     81void  KML_Comment::Alloc(const char* valuei){/*{{{*/
    9082
    9183        value=xNew<char>(strlen(valuei)+1);
    … …  
    9587}
    9688/*}}}*/
    97 /*FUNCTION KML_Comment::Add {{{*/
    98 void  KML_Comment::Add(DataSet* commnt){
     89void  KML_Comment::Add(DataSet* commnt){/*{{{*/
    9990
    10091        commnt->AddObject((Object*)this);
    … …  
    10394}
    10495/*}}}*/
    105 /*FUNCTION KML_Comment::Get {{{*/
    106 void  KML_Comment::Get(char** pvalueo){
     96void  KML_Comment::Get(char** pvalueo){/*{{{*/
    10797
    10898        *pvalueo=xNew<char>(strlen(value)+1);

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Container.cpp

    r15104 r18063  
    2121
    2222/*Constructors/destructor/copy*/
    23 /*FUNCTION KML_Container::KML_Container(){{{*/
    24 KML_Container::KML_Container(){
     23KML_Container::KML_Container(){/*{{{*/
    2524
    2625        feature   =new DataSet;
    … …  
    2827}
    2928/*}}}*/
    30 /*FUNCTION KML_Container::~KML_Container(){{{*/
    31 KML_Container::~KML_Container(){
     29KML_Container::~KML_Container(){/*{{{*/
    3230
    3331        if (feature) {
    … …  
    4038
    4139/*Other*/
    42 /*FUNCTION KML_Container::Echo {{{*/
    43 void  KML_Container::Echo(){
     40void  KML_Container::Echo(){/*{{{*/
    4441
    4542        bool  flag=true;
    … …  
    5249}
    5350/*}}}*/
    54 /*FUNCTION KML_Container::DeepEcho {{{*/
    55 void  KML_Container::DeepEcho(){
     51void  KML_Container::DeepEcho(){/*{{{*/
    5652
    5753        char  indent[81]="";
    … …  
    6258}
    6359/*}}}*/
    64 /*FUNCTION KML_Container::DeepEcho {{{*/
    65 void  KML_Container::DeepEcho(const char* indent){
     60void  KML_Container::DeepEcho(const char* indent){/*{{{*/
    6661
    6762        int   i;
    … …  
    8883}
    8984/*}}}*/
    90 /*FUNCTION KML_Container::Write {{{*/
    91 void  KML_Container::Write(FILE* filout,const char* indent){
     85void  KML_Container::Write(FILE* filout,const char* indent){/*{{{*/
    9286
    9387        int   i;
    … …  
    108102}
    109103/*}}}*/
    110 /*FUNCTION KML_Container::Read {{{*/
    111 void  KML_Container::Read(FILE* fid,char* kstr){
     104void  KML_Container::Read(FILE* fid,char* kstr){/*{{{*/
    112105
    113106        KML_Object*  kobj;
    … …  
    154147}
    155148/*}}}*/
    156 /*FUNCTION KML_Container::WriteExp {{{*/
    157 void  KML_Container::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){
     149void  KML_Container::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){/*{{{*/
    158150
    159151        int   i;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Document.cpp

    r16546 r18063  
    1717
    1818/*Constructors/destructor/copy*/
    19 /*FUNCTION KML_Document::KML_Document(){{{*/
    20 KML_Document::KML_Document(){
     19KML_Document::KML_Document(){/*{{{*/
    2120
    2221        ;
    … …  
    2423}
    2524/*}}}*/
    26 /*FUNCTION KML_Document::~KML_Document(){{{*/
    27 KML_Document::~KML_Document(){
     25KML_Document::~KML_Document(){/*{{{*/
    2826
    2927        ;
    … …  
    3331
    3432/*Other*/
    35 /*FUNCTION KML_Document::Echo {{{*/
    36 void  KML_Document::Echo(){
     33void  KML_Document::Echo(){/*{{{*/
    3734
    3835        bool  flag=true;
    … …  
    4441}
    4542/*}}}*/
    46 /*FUNCTION KML_Document::DeepEcho {{{*/
    47 void  KML_Document::DeepEcho(){
     43void  KML_Document::DeepEcho(){/*{{{*/
    4844
    4945        char  indent[81]="";
    … …  
    5450}
    5551/*}}}*/
    56 /*FUNCTION KML_Document::DeepEcho {{{*/
    57 void  KML_Document::DeepEcho(const char* indent){
     52void  KML_Document::DeepEcho(const char* indent){/*{{{*/
    5853
    5954        bool  flag=true;
    … …  
    6560}
    6661/*}}}*/
    67 /*FUNCTION KML_Document::Write {{{*/
    68 void  KML_Document::Write(FILE* filout,const char* indent){
     62void  KML_Document::Write(FILE* filout,const char* indent){/*{{{*/
    6963
    7064        fprintf(filout,"%s<Document",indent);
    … …  
    8074}
    8175/*}}}*/
    82 /*FUNCTION KML_Document::Read {{{*/
    83 void  KML_Document::Read(FILE* fid,char* kstr){
     76void  KML_Document::Read(FILE* fid,char* kstr){/*{{{*/
    8477
    8578        char*        kstri;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Feature.cpp

    r15104 r18063  
    2727
    2828/*Constructors/destructor/copy*/
    29 /*FUNCTION KML_Feature::KML_Feature(){{{*/
    30 KML_Feature::KML_Feature(){
     29KML_Feature::KML_Feature(){/*{{{*/
    3130
    3231        memcpy(name,"",(strlen("")+1)*sizeof(char));
    … …  
    4140}
    4241/*}}}*/
    43 /*FUNCTION KML_Feature::~KML_Feature(){{{*/
    44 KML_Feature::~KML_Feature(){
     42KML_Feature::~KML_Feature(){/*{{{*/
    4543
    4644        if (style) {
    … …  
    5351
    5452/*Other*/
    55 /*FUNCTION KML_Feature::Echo {{{*/
    56 void  KML_Feature::Echo(){
     53void  KML_Feature::Echo(){/*{{{*/
    5754
    5855        bool  flag=true;
    … …  
    7168}
    7269/*}}}*/
    73 /*FUNCTION KML_Feature::DeepEcho {{{*/
    74 void  KML_Feature::DeepEcho(){
     70void  KML_Feature::DeepEcho(){/*{{{*/
    7571
    7672        char  indent[81]="";
    … …  
    8177}
    8278/*}}}*/
    83 /*FUNCTION KML_Feature::DeepEcho {{{*/
    84 void  KML_Feature::DeepEcho(const char* indent){
     79void  KML_Feature::DeepEcho(const char* indent){/*{{{*/
    8580
    8681        int   i;
    … …  
    114109}
    115110/*}}}*/
    116 /*FUNCTION KML_Feature::Write {{{*/
    117 void  KML_Feature::Write(FILE* filout,const char* indent){
     111void  KML_Feature::Write(FILE* filout,const char* indent){/*{{{*/
    118112
    119113        int   i;
    … …  
    145139}
    146140/*}}}*/
    147 /*FUNCTION KML_Feature::Read {{{*/
    148 void  KML_Feature::Read(FILE* fid,char* kstr){
     141void  KML_Feature::Read(FILE* fid,char* kstr){/*{{{*/
    149142
    150143        KML_Object*  kobj;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_File.cpp

    r16546 r18063  
    1818
    1919/*Constructors/destructor/copy*/
    20 /*FUNCTION KML_File::KML_File(){{{*/
    21 KML_File::KML_File(){
     20KML_File::KML_File(){/*{{{*/
    2221
    2322        ;
    … …  
    2524}
    2625/*}}}*/
    27 /*FUNCTION KML_File::~KML_File(){{{*/
    28 KML_File::~KML_File(){
     26KML_File::~KML_File(){/*{{{*/
    2927
    3028        ;
    … …  
    3432
    3533/*Other*/
    36 /*FUNCTION KML_File::Echo {{{*/
    37 void  KML_File::Echo(){
     34void  KML_File::Echo(){/*{{{*/
    3835
    3936        bool  flag=true;
    … …  
    4542}
    4643/*}}}*/
    47 /*FUNCTION KML_File::DeepEcho {{{*/
    48 void  KML_File::DeepEcho(){
     44void  KML_File::DeepEcho(){/*{{{*/
    4945
    5046        char  indent[81]="";
    … …  
    5551}
    5652/*}}}*/
    57 /*FUNCTION KML_File::DeepEcho {{{*/
    58 void  KML_File::DeepEcho(const char* indent){
     53void  KML_File::DeepEcho(const char* indent){/*{{{*/
    5954
    6055        bool  flag=true;
    … …  
    6661}
    6762/*}}}*/
    68 /*FUNCTION KML_File::Write {{{*/
    69 void  KML_File::Write(FILE* filout,const char* indent){
     63void  KML_File::Write(FILE* filout,const char* indent){/*{{{*/
    7064
    7165        fprintf(filout,"%s<kml",indent);
    … …  
    8175}
    8276/*}}}*/
    83 /*FUNCTION KML_File::Read {{{*/
    84 void  KML_File::Read(FILE* fid,char* kstr){
     77void  KML_File::Read(FILE* fid,char* kstr){/*{{{*/
    8578
    8679        char*        kstri;
    … …  
    120113}
    121114/*}}}*/
    122 /*FUNCTION KML_File::WriteExp {{{*/
    123 void  KML_File::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){
     115void  KML_File::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){/*{{{*/
    124116
    125117        int   i;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Folder.cpp

    r16546 r18063  
    1717
    1818/*Constructors/destructor/copy*/
    19 /*FUNCTION KML_Folder::KML_Folder(){{{*/
    20 KML_Folder::KML_Folder(){
     19KML_Folder::KML_Folder(){/*{{{*/
    2120
    2221        ;
    … …  
    2423}
    2524/*}}}*/
    26 /*FUNCTION KML_Folder::~KML_Folder(){{{*/
    27 KML_Folder::~KML_Folder(){
     25KML_Folder::~KML_Folder(){/*{{{*/
    2826
    2927        ;
    … …  
    3331
    3432/*Other*/
    35 /*FUNCTION KML_Folder::Echo {{{*/
    36 void  KML_Folder::Echo(){
     33void  KML_Folder::Echo(){/*{{{*/
    3734
    3835        bool  flag=true;
    … …  
    4441}
    4542/*}}}*/
    46 /*FUNCTION KML_Folder::DeepEcho {{{*/
    47 void  KML_Folder::DeepEcho(){
     43void  KML_Folder::DeepEcho(){/*{{{*/
    4844
    4945        char  indent[81]="";
    … …  
    5450}
    5551/*}}}*/
    56 /*FUNCTION KML_Folder::DeepEcho {{{*/
    57 void  KML_Folder::DeepEcho(const char* indent){
     52void  KML_Folder::DeepEcho(const char* indent){/*{{{*/
    5853
    5954        bool  flag=true;
    … …  
    6560}
    6661/*}}}*/
    67 /*FUNCTION KML_Folder::Write {{{*/
    68 void  KML_Folder::Write(FILE* filout,const char* indent){
     62void  KML_Folder::Write(FILE* filout,const char* indent){/*{{{*/
    6963
    7064        fprintf(filout,"%s<Folder",indent);
    … …  
    8074}
    8175/*}}}*/
    82 /*FUNCTION KML_Folder::Read {{{*/
    83 void  KML_Folder::Read(FILE* fid,char* kstr){
     76void  KML_Folder::Read(FILE* fid,char* kstr){/*{{{*/
    8477
    8578        char*        kstri;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Geometry.cpp

    r15068 r18063  
    1717
    1818/*Constructors/destructor/copy*/
    19 /*FUNCTION KML_Geometry::KML_Geometry(){{{*/
    20 KML_Geometry::KML_Geometry(){
     19KML_Geometry::KML_Geometry(){/*{{{*/
    2120
    2221        ;
    … …  
    2423}
    2524/*}}}*/
    26 /*FUNCTION KML_Geometry::~KML_Geometry(){{{*/
    27 KML_Geometry::~KML_Geometry(){
     25KML_Geometry::~KML_Geometry(){/*{{{*/
    2826
    2927        ;
    … …  
    3331
    3432/*Other*/
    35 /*FUNCTION KML_Geometry::Echo {{{*/
    36 void  KML_Geometry::Echo(){
     33void  KML_Geometry::Echo(){/*{{{*/
    3734
    3835        this->KML_Object::Echo();
    … …  
    4138}
    4239/*}}}*/
    43 /*FUNCTION KML_Geometry::DeepEcho {{{*/
    44 void  KML_Geometry::DeepEcho(){
     40void  KML_Geometry::DeepEcho(){/*{{{*/
    4541
    4642        char  indent[81]="";
    … …  
    5147}
    5248/*}}}*/
    53 /*FUNCTION KML_Geometry::DeepEcho {{{*/
    54 void  KML_Geometry::DeepEcho(const char* indent){
     49void  KML_Geometry::DeepEcho(const char* indent){/*{{{*/
    5550
    5651        this->KML_Object::DeepEcho(indent);
    … …  
    5954}
    6055/*}}}*/
    61 /*FUNCTION KML_Geometry::Write {{{*/
    62 void  KML_Geometry::Write(FILE* filout,const char* indent){
     56void  KML_Geometry::Write(FILE* filout,const char* indent){/*{{{*/
    6357
    6458        KML_Object::Write(filout,indent);
    … …  
    6761}
    6862/*}}}*/
    69 /*FUNCTION KML_Geometry::Read {{{*/
    70 void  KML_Geometry::Read(FILE* fid,char* kstr){
     63void  KML_Geometry::Read(FILE* fid,char* kstr){/*{{{*/
    7164
    7265/*  process field within opening and closing tags  */

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_GroundOverlay.cpp

    r16546 r18063  
    1919
    2020/*Constructors/destructor/copy*/
    21 /*FUNCTION KML_GroundOverlay::KML_GroundOverlay(){{{*/
    22 KML_GroundOverlay::KML_GroundOverlay(){
     21KML_GroundOverlay::KML_GroundOverlay(){/*{{{*/
    2322
    2423        altitude  = 0.;
    … …  
    2928}
    3029/*}}}*/
    31 /*FUNCTION KML_GroundOverlay::~KML_GroundOverlay(){{{*/
    32 KML_GroundOverlay::~KML_GroundOverlay(){
     30KML_GroundOverlay::~KML_GroundOverlay(){/*{{{*/
    3331
    3432        if (llbox) {
    … …  
    4139
    4240/*Other*/
    43 /*FUNCTION KML_GroundOverlay::Echo {{{*/
    44 void  KML_GroundOverlay::Echo(){
     41void  KML_GroundOverlay::Echo(){/*{{{*/
    4542
    4643        _printf_("KML_GroundOverlay:\n");
    … …  
    5249}
    5350/*}}}*/
    54 /*FUNCTION KML_GroundOverlay::DeepEcho {{{*/
    55 void  KML_GroundOverlay::DeepEcho(){
     51void  KML_GroundOverlay::DeepEcho(){/*{{{*/
    5652
    5753        char  indent[81]="";
    … …  
    6258}
    6359/*}}}*/
    64 /*FUNCTION KML_GroundOverlay::DeepEcho {{{*/
    65 void  KML_GroundOverlay::DeepEcho(const char* indent){
     60void  KML_GroundOverlay::DeepEcho(const char* indent){/*{{{*/
    6661
    6762        char  indent2[81];
    … …  
    8176}
    8277/*}}}*/
    83 /*FUNCTION KML_GroundOverlay::Write {{{*/
    84 void  KML_GroundOverlay::Write(FILE* filout,const char* indent){
     78void  KML_GroundOverlay::Write(FILE* filout,const char* indent){/*{{{*/
    8579
    8680        char  indent2[81];
    … …  
    107101}
    108102/*}}}*/
    109 /*FUNCTION KML_GroundOverlay::Read {{{*/
    110 void  KML_GroundOverlay::Read(FILE* fid,char* kstr){
     103void  KML_GroundOverlay::Read(FILE* fid,char* kstr){/*{{{*/
    111104
    112105        char*        kstri;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Icon.cpp

    r16546 r18063  
    1717
    1818/*Constructors/destructor/copy*/
    19 /*FUNCTION KML_Icon::KML_Icon(){{{*/
    20 KML_Icon::KML_Icon(){
     19KML_Icon::KML_Icon(){/*{{{*/
    2120
    2221        strcpy(href      ,"");
    … …  
    3130}
    3231/*}}}*/
    33 /*FUNCTION KML_Icon::~KML_Icon(){{{*/
    34 KML_Icon::~KML_Icon(){
     32KML_Icon::~KML_Icon(){/*{{{*/
    3533
    3634        ;
    … …  
    4038
    4139/*Other*/
    42 /*FUNCTION KML_Icon::Echo {{{*/
    43 void  KML_Icon::Echo(){
     40void  KML_Icon::Echo(){/*{{{*/
    4441
    4542        bool  flag=true;
    … …  
    6057}
    6158/*}}}*/
    62 /*FUNCTION KML_Icon::DeepEcho {{{*/
    63 void  KML_Icon::DeepEcho(){
     59void  KML_Icon::DeepEcho(){/*{{{*/
    6460
    6561        char  indent[81]="";
    … …  
    7066}
    7167/*}}}*/
    72 /*FUNCTION KML_Icon::DeepEcho {{{*/
    73 void  KML_Icon::DeepEcho(const char* indent){
     68void  KML_Icon::DeepEcho(const char* indent){/*{{{*/
    7469
    7570        bool  flag=true;
    … …  
    9085}
    9186/*}}}*/
    92 /*FUNCTION KML_Icon::Write {{{*/
    93 void  KML_Icon::Write(FILE* filout,const char* indent){
     87void  KML_Icon::Write(FILE* filout,const char* indent){/*{{{*/
    9488
    9589        fprintf(filout,"%s<Icon",indent);
    … …  
    119113}
    120114/*}}}*/
    121 /*FUNCTION KML_Icon::Read {{{*/
    122 void  KML_Icon::Read(FILE* fid,char* kstr){
     115void  KML_Icon::Read(FILE* fid,char* kstr){/*{{{*/
    123116
    124117        char*        kstri;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_LatLonBox.cpp

    r16546 r18063  
    1717
    1818/*Constructors/destructor/copy*/
    19 /*FUNCTION KML_LatLonBox::KML_LatLonBox(){{{*/
    20 KML_LatLonBox::KML_LatLonBox(){
     19KML_LatLonBox::KML_LatLonBox(){/*{{{*/
    2120
    2221        north     = 0.;
    … …  
    2827}
    2928/*}}}*/
    30 /*FUNCTION KML_LatLonBox::~KML_LatLonBox(){{{*/
    31 KML_LatLonBox::~KML_LatLonBox(){
     29KML_LatLonBox::~KML_LatLonBox(){/*{{{*/
    3230
    3331        ;
    … …  
    3735
    3836/*Other*/
    39 /*FUNCTION KML_LatLonBox::Echo {{{*/
    40 void  KML_LatLonBox::Echo(){
     37void  KML_LatLonBox::Echo(){/*{{{*/
    4138
    4239        _printf_("KML_LatLonBox:\n");
    … …  
    5047}
    5148/*}}}*/
    52 /*FUNCTION KML_LatLonBox::DeepEcho {{{*/
    53 void  KML_LatLonBox::DeepEcho(){
     49void  KML_LatLonBox::DeepEcho(){/*{{{*/
    5450
    5551        char  indent[81]="";
    … …  
    6056}
    6157/*}}}*/
    62 /*FUNCTION KML_LatLonBox::DeepEcho {{{*/
    63 void  KML_LatLonBox::DeepEcho(const char* indent){
     58void  KML_LatLonBox::DeepEcho(const char* indent){/*{{{*/
    6459
    6560        _printf_(indent << "KML_LatLonBox:\n");
    … …  
    7368}
    7469/*}}}*/
    75 /*FUNCTION KML_LatLonBox::Write {{{*/
    76 void  KML_LatLonBox::Write(FILE* filout,const char* indent){
     70void  KML_LatLonBox::Write(FILE* filout,const char* indent){/*{{{*/
    7771
    7872        fprintf(filout,"%s<LatLonBox",indent);
    … …  
    9488}
    9589/*}}}*/
    96 /*FUNCTION KML_LatLonBox::Read {{{*/
    97 void  KML_LatLonBox::Read(FILE* fid,char* kstr){
     90void  KML_LatLonBox::Read(FILE* fid,char* kstr){/*{{{*/
    9891
    9992        char*        kstri;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_LineString.cpp

    r16546 r18063  
    1717
    1818/*Constructors/destructor/copy*/
    19 /*FUNCTION KML_LineString::KML_LineString(){{{*/
    20 KML_LineString::KML_LineString(){
     19KML_LineString::KML_LineString(){/*{{{*/
    2120
    2221        extrude   =false;
    … …  
    2928}
    3029/*}}}*/
    31 /*FUNCTION KML_LineString::~KML_LineString(){{{*/
    32 KML_LineString::~KML_LineString(){
     30KML_LineString::~KML_LineString(){/*{{{*/
    3331
    3432        if (coords) xDelete<double>(coords);
    … …  
    4139
    4240/*Other*/
    43 /*FUNCTION KML_LineString::Echo {{{*/
    44 void  KML_LineString::Echo(){
     41void  KML_LineString::Echo(){/*{{{*/
    4542
    4643        bool  flag=true;
    … …  
    5754}
    5855/*}}}*/
    59 /*FUNCTION KML_LineString::DeepEcho {{{*/
    60 void  KML_LineString::DeepEcho(){
     56void  KML_LineString::DeepEcho(){/*{{{*/
    6157
    6258        char  indent[81]="";
    … …  
    6763}
    6864/*}}}*/
    69 /*FUNCTION KML_LineString::DeepEcho {{{*/
    70 void  KML_LineString::DeepEcho(const char* indent){
     65void  KML_LineString::DeepEcho(const char* indent){/*{{{*/
    7166
    7267        int   i;
    … …  
    8681}
    8782/*}}}*/
    88 /*FUNCTION KML_LineString::Write {{{*/
    89 void  KML_LineString::Write(FILE* filout,const char* indent){
     83void  KML_LineString::Write(FILE* filout,const char* indent){/*{{{*/
    9084
    9185        int   i;
    … …  
    114108}
    115109/*}}}*/
    116 /*FUNCTION KML_LineString::Read {{{*/
    117 void  KML_LineString::Read(FILE* fid,char* kstr){
     110void  KML_LineString::Read(FILE* fid,char* kstr){/*{{{*/
    118111
    119112        char*        kstri;
    … …  
    171164}
    172165/*}}}*/
    173 /*FUNCTION KML_LineString::WriteExp {{{*/
    174 void  KML_LineString::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){
     166void  KML_LineString::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){/*{{{*/
    175167
    176168        int     i;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_LineStyle.cpp

    r16546 r18063  
    1717
    1818/*Constructors/destructor/copy*/
    19 /*FUNCTION KML_LineStyle::KML_LineStyle(){{{*/
    20 KML_LineStyle::KML_LineStyle(){
     19KML_LineStyle::KML_LineStyle(){/*{{{*/
    2120
    2221        width     =1.;
    … …  
    2423}
    2524/*}}}*/
    26 /*FUNCTION KML_LineStyle::~KML_LineStyle(){{{*/
    27 KML_LineStyle::~KML_LineStyle(){
     25KML_LineStyle::~KML_LineStyle(){/*{{{*/
    2826
    2927        ;
    … …  
    3331
    3432/*Other*/
    35 /*FUNCTION KML_LineStyle::Echo {{{*/
    36 void  KML_LineStyle::Echo(){
     33void  KML_LineStyle::Echo(){/*{{{*/
    3734
    3835        bool  flag=true;
    … …  
    4643}
    4744/*}}}*/
    48 /*FUNCTION KML_LineStyle::DeepEcho {{{*/
    49 void  KML_LineStyle::DeepEcho(){
     45void  KML_LineStyle::DeepEcho(){/*{{{*/
    5046
    5147        char  indent[81]="";
    … …  
    5652}
    5753/*}}}*/
    58 /*FUNCTION KML_LineStyle::DeepEcho {{{*/
    59 void  KML_LineStyle::DeepEcho(const char* indent){
     54void  KML_LineStyle::DeepEcho(const char* indent){/*{{{*/
    6055
    6156        bool  flag=true;
    … …  
    6964}
    7065/*}}}*/
    71 /*FUNCTION KML_LineStyle::Write {{{*/
    72 void  KML_LineStyle::Write(FILE* filout,const char* indent){
     66void  KML_LineStyle::Write(FILE* filout,const char* indent){/*{{{*/
    7367
    7468        fprintf(filout,"%s<LineStyle",indent);
    … …  
    8680}
    8781/*}}}*/
    88 /*FUNCTION KML_LineStyle::Read {{{*/
    89 void  KML_LineStyle::Read(FILE* fid,char* kstr){
     82void  KML_LineStyle::Read(FILE* fid,char* kstr){/*{{{*/
    9083
    9184        char*        kstri;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_LinearRing.cpp

    r16546 r18063  
    1717
    1818/*Constructors/destructor/copy*/
    19 /*FUNCTION KML_LinearRing::KML_LinearRing(){{{*/
    20 KML_LinearRing::KML_LinearRing(){
     19KML_LinearRing::KML_LinearRing(){/*{{{*/
    2120
    2221        extrude   =false;
    … …  
    2928}
    3029/*}}}*/
    31 /*FUNCTION KML_LinearRing::~KML_LinearRing(){{{*/
    32 KML_LinearRing::~KML_LinearRing(){
     30KML_LinearRing::~KML_LinearRing(){/*{{{*/
    3331
    3432        if (coords) xDelete<double>(coords);
    … …  
    4139
    4240/*Other*/
    43 /*FUNCTION KML_LinearRing::Echo {{{*/
    44 void  KML_LinearRing::Echo(){
     41void  KML_LinearRing::Echo(){/*{{{*/
    4542
    4643        bool  flag=true;
    … …  
    5754}
    5855/*}}}*/
    59 /*FUNCTION KML_LinearRing::DeepEcho {{{*/
    60 void  KML_LinearRing::DeepEcho(){
     56void  KML_LinearRing::DeepEcho(){/*{{{*/
    6157
    6258        char  indent[81]="";
    … …  
    6763}
    6864/*}}}*/
    69 /*FUNCTION KML_LinearRing::DeepEcho {{{*/
    70 void  KML_LinearRing::DeepEcho(const char* indent){
     65void  KML_LinearRing::DeepEcho(const char* indent){/*{{{*/
    7166
    7267        int   i;
    … …  
    8681}
    8782/*}}}*/
    88 /*FUNCTION KML_LinearRing::Write {{{*/
    89 void  KML_LinearRing::Write(FILE* filout,const char* indent){
     83void  KML_LinearRing::Write(FILE* filout,const char* indent){/*{{{*/
    9084
    9185        int   i;
    … …  
    114108}
    115109/*}}}*/
    116 /*FUNCTION KML_LinearRing::Read {{{*/
    117 void  KML_LinearRing::Read(FILE* fid,char* kstr){
     110void  KML_LinearRing::Read(FILE* fid,char* kstr){/*{{{*/
    118111
    119112        char  *kstri = NULL;
    … …  
    160153}
    161154/*}}}*/
    162 /*FUNCTION KML_LinearRing::WriteExp {{{*/
    163 void  KML_LinearRing::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){
     155void  KML_LinearRing::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){/*{{{*/
    164156
    165157        int     i;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_MultiGeometry.cpp

    r16546 r18063  
    2222
    2323/*Constructors/destructor/copy*/
    24 /*FUNCTION KML_MultiGeometry::KML_MultiGeometry(){{{*/
    25 KML_MultiGeometry::KML_MultiGeometry(){
     24KML_MultiGeometry::KML_MultiGeometry(){/*{{{*/
    2625
    2726        geometry  =new DataSet;
    … …  
    2928}
    3029/*}}}*/
    31 /*FUNCTION KML_MultiGeometry::~KML_MultiGeometry(){{{*/
    32 KML_MultiGeometry::~KML_MultiGeometry(){
     30KML_MultiGeometry::~KML_MultiGeometry(){/*{{{*/
    3331
    3432        if (geometry) {
    … …  
    4139
    4240/*Other*/
    43 /*FUNCTION KML_MultiGeometry::Echo {{{*/
    44 void  KML_MultiGeometry::Echo(){
     41void  KML_MultiGeometry::Echo(){/*{{{*/
    4542
    4643        bool  flag=true;
    … …  
    5451}
    5552/*}}}*/
    56 /*FUNCTION KML_MultiGeometry::DeepEcho {{{*/
    57 void  KML_MultiGeometry::DeepEcho(){
     53void  KML_MultiGeometry::DeepEcho(){/*{{{*/
    5854
    5955        char  indent[81]="";
    … …  
    6460}
    6561/*}}}*/
    66 /*FUNCTION KML_MultiGeometry::DeepEcho {{{*/
    67 void  KML_MultiGeometry::DeepEcho(const char* indent){
     62void  KML_MultiGeometry::DeepEcho(const char* indent){/*{{{*/
    6863
    6964        int   i;
    … …  
    9186}
    9287/*}}}*/
    93 /*FUNCTION KML_MultiGeometry::Write {{{*/
    94 void  KML_MultiGeometry::Write(FILE* filout,const char* indent){
     88void  KML_MultiGeometry::Write(FILE* filout,const char* indent){/*{{{*/
    9589
    9690        int   i;
    … …  
    118112}
    119113/*}}}*/
    120 /*FUNCTION KML_MultiGeometry::Read {{{*/
    121 void  KML_MultiGeometry::Read(FILE* fid,char* kstr){
     114void  KML_MultiGeometry::Read(FILE* fid,char* kstr){/*{{{*/
    122115
    123116        char*        kstri;
    … …  
    189182}
    190183/*}}}*/
    191 /*FUNCTION KML_MultiGeometry::WriteExp {{{*/
    192 void  KML_MultiGeometry::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){
     184void  KML_MultiGeometry::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){/*{{{*/
    193185
    194186        int   i;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Object.cpp

    r16233 r18063  
    3232
    3333/*Constructors/destructor/copy*/
    34 /*FUNCTION KML_Object::KML_Object(){{{*/
    35 KML_Object::KML_Object(){
     34KML_Object::KML_Object(){/*{{{*/
    3635
    3736        attrib    =new DataSet;
    … …  
    4140}
    4241/*}}}*/
    43 /*FUNCTION KML_Object::~KML_Object(){{{*/
    44 KML_Object::~KML_Object(){
     42KML_Object::~KML_Object(){/*{{{*/
    4543
    4644        if (attrib) {
    … …  
    6159
    6260/*Other*/
    63 /*FUNCTION KML_Object::Echo {{{*/
    64 void  KML_Object::Echo(){
     61void  KML_Object::Echo(){/*{{{*/
    6562
    6663        bool  flag=true;
    … …  
    7370}
    7471/*}}}*/
    75 /*FUNCTION KML_Object::DeepEcho {{{*/
    76 void  KML_Object::DeepEcho(){
     72void  KML_Object::DeepEcho(){/*{{{*/
    7773
    7874        char  indent[81]="";
    … …  
    8379}
    8480/*}}}*/
    85 /*FUNCTION KML_Object::DeepEcho {{{*/
    86 void  KML_Object::DeepEcho(const char* indent){
     81void  KML_Object::DeepEcho(const char* indent){/*{{{*/
    8782
    8883        int   i;
    … …  
    125120}
    126121/*}}}*/
    127 /*FUNCTION KML_Object::Write {{{*/
    128 void  KML_Object::Write(FILE* filout,const char* indent){
     122void  KML_Object::Write(FILE* filout,const char* indent){/*{{{*/
    129123
    130124        int   i;
    … …  
    147141}
    148142/*}}}*/
    149 /*FUNCTION KML_Object::Read {{{*/
    150 void  KML_Object::Read(FILE* fid,char* kstr){
     143void  KML_Object::Read(FILE* fid,char* kstr){/*{{{*/
    151144
    152145        KML_Object*  kobj;
    … …  
    275268}
    276269/*}}}*/
    277 /*FUNCTION KML_Object::WriteExp {{{*/
    278 void  KML_Object::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){
     270void  KML_Object::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){/*{{{*/
    279271
    280272        ;
    … …  
    283275}
    284276/*}}}*/
    285 /*FUNCTION KML_Object::AddAttrib {{{*/
    286 void  KML_Object::AddAttrib(const char* name,const char* value){
     277void  KML_Object::AddAttrib(const char* name,const char* value){/*{{{*/
    287278
    288279        KML_Attribute* katt=NULL;
    … …  
    295286}
    296287/*}}}*/
    297 /*FUNCTION KML_Object::WriteAttrib {{{*/
    298 void  KML_Object::WriteAttrib(FILE* filout,const char* indent){
     288void  KML_Object::WriteAttrib(FILE* filout,const char* indent){/*{{{*/
    299289
    300290//  attributes always written in keyword line of kml_object
    … …  
    309299}
    310300/*}}}*/
    311 /*FUNCTION KML_Object::AddCommnt {{{*/
    312 void  KML_Object::AddCommnt(int ncom,char** pcom){
     301void  KML_Object::AddCommnt(int ncom,char** pcom){/*{{{*/
    313302
    314303        int   i;
    … …  
    324313}
    325314/*}}}*/
    326 /*FUNCTION KML_Object::AddCommnt {{{*/
    327 void  KML_Object::AddCommnt(char* value){
     315void  KML_Object::AddCommnt(char* value){/*{{{*/
    328316
    329317        KML_Comment* kcom=NULL;
    … …  
    336324}
    337325/*}}}*/
    338 /*FUNCTION KML_Object::WriteCommnt {{{*/
    339 void  KML_Object::WriteCommnt(FILE* filout,const char* indent){
     326void  KML_Object::WriteCommnt(FILE* filout,const char* indent){/*{{{*/
    340327
    341328        int   i;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Overlay.cpp

    r15104 r18063  
    1818
    1919/*Constructors/destructor/copy*/
    20 /*FUNCTION KML_Overlay::KML_Overlay(){{{*/
    21 KML_Overlay::KML_Overlay(){
     20KML_Overlay::KML_Overlay(){/*{{{*/
    2221
    2322        strcpy(color     ,"ffffffff");
    … …  
    2928}
    3029/*}}}*/
    31 /*FUNCTION KML_Overlay::~KML_Overlay(){{{*/
    32 KML_Overlay::~KML_Overlay(){
     30KML_Overlay::~KML_Overlay(){/*{{{*/
    3331
    3432        if (icon) {
    … …  
    4139
    4240/*Other*/
    43 /*FUNCTION KML_Overlay::Echo {{{*/
    44 void  KML_Overlay::Echo(){
     41void  KML_Overlay::Echo(){/*{{{*/
    4542
    4643        KML_Feature::Echo();
    … …  
    5047}
    5148/*}}}*/
    52 /*FUNCTION KML_Overlay::DeepEcho {{{*/
    53 void  KML_Overlay::DeepEcho(){
     49void  KML_Overlay::DeepEcho(){/*{{{*/
    5450
    5551        char  indent[81]="";
    … …  
    6056}
    6157/*}}}*/
    62 /*FUNCTION KML_Overlay::DeepEcho {{{*/
    63 void  KML_Overlay::DeepEcho(const char* indent){
     58void  KML_Overlay::DeepEcho(const char* indent){/*{{{*/
    6459
    6560        char  indent2[81];
    … …  
    7772}
    7873/*}}}*/
    79 /*FUNCTION KML_Overlay::Write {{{*/
    80 void  KML_Overlay::Write(FILE* filout,const char* indent){
     74void  KML_Overlay::Write(FILE* filout,const char* indent){/*{{{*/
    8175
    8276        char  indent2[81];
    … …  
    9791}
    9892/*}}}*/
    99 /*FUNCTION KML_Overlay::Read {{{*/
    100 void  KML_Overlay::Read(FILE* fid,char* kstr){
     93void  KML_Overlay::Read(FILE* fid,char* kstr){/*{{{*/
    10194
    10295/*  process field within opening and closing tags  */

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Placemark.cpp

    r16546 r18063  
    2323
    2424/*Constructors/destructor/copy*/
    25 /*FUNCTION KML_Placemark::KML_Placemark(){{{*/
    26 KML_Placemark::KML_Placemark(){
     25KML_Placemark::KML_Placemark(){/*{{{*/
    2726
    2827        geometry  =new DataSet;
    … …  
    3029}
    3130/*}}}*/
    32 /*FUNCTION KML_Placemark::~KML_Placemark(){{{*/
    33 KML_Placemark::~KML_Placemark(){
     31KML_Placemark::~KML_Placemark(){/*{{{*/
    3432
    3533        if (geometry) {
    … …  
    4240
    4341/*Other*/
    44 /*FUNCTION KML_Placemark::Echo {{{*/
    45 void  KML_Placemark::Echo(){
     42void  KML_Placemark::Echo(){/*{{{*/
    4643
    4744        bool  flag=true;
    … …  
    5552}
    5653/*}}}*/
    57 /*FUNCTION KML_Placemark::DeepEcho {{{*/
    58 void  KML_Placemark::DeepEcho(){
     54void  KML_Placemark::DeepEcho(){/*{{{*/
    5955
    6056        char  indent[81]="";
    … …  
    6561}
    6662/*}}}*/
    67 /*FUNCTION KML_Placemark::DeepEcho {{{*/
    68 void  KML_Placemark::DeepEcho(const char* indent){
     63void  KML_Placemark::DeepEcho(const char* indent){/*{{{*/
    6964
    7065        int   i;
    … …  
    9287}
    9388/*}}}*/
    94 /*FUNCTION KML_Placemark::Write {{{*/
    95 void  KML_Placemark::Write(FILE* filout,const char* indent){
     89void  KML_Placemark::Write(FILE* filout,const char* indent){/*{{{*/
    9690
    9791        int   i;
    … …  
    119113}
    120114/*}}}*/
    121 /*FUNCTION KML_Placemark::Read {{{*/
    122 void  KML_Placemark::Read(FILE* fid,char* kstr){
     115void  KML_Placemark::Read(FILE* fid,char* kstr){/*{{{*/
    123116
    124117        char*        kstri;
    … …  
    190183}
    191184/*}}}*/
    192 /*FUNCTION KML_Placemark::WriteExp {{{*/
    193 void  KML_Placemark::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){
     185void  KML_Placemark::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){/*{{{*/
    194186
    195187        int   i;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Point.cpp

    r16546 r18063  
    1717
    1818/*Constructors/destructor/copy*/
    19 /*FUNCTION KML_Point::KML_Point(){{{*/
    20 KML_Point::KML_Point(){
     19KML_Point::KML_Point(){/*{{{*/
    2120
    2221        extrude   =false;
    … …  
    2928}
    3029/*}}}*/
    31 /*FUNCTION KML_Point::~KML_Point(){{{*/
    32 KML_Point::~KML_Point(){
     30KML_Point::~KML_Point(){/*{{{*/
    3331
    3432        ;
    … …  
    3836
    3937/*Other*/
    40 /*FUNCTION KML_Point::Echo {{{*/
    41 void  KML_Point::Echo(){
     38void  KML_Point::Echo(){/*{{{*/
    4239
    4340        bool  flag=true;
    … …  
    5350}
    5451/*}}}*/
    55 /*FUNCTION KML_Point::DeepEcho {{{*/
    56 void  KML_Point::DeepEcho(){
     52void  KML_Point::DeepEcho(){/*{{{*/
    5753
    5854        char  indent[81]="";
    … …  
    6359}
    6460/*}}}*/
    65 /*FUNCTION KML_Point::DeepEcho {{{*/
    66 void  KML_Point::DeepEcho(const char* indent){
     61void  KML_Point::DeepEcho(const char* indent){/*{{{*/
    6762
    6863        bool  flag=true;
    … …  
    7873}
    7974/*}}}*/
    80 /*FUNCTION KML_Point::Write {{{*/
    81 void  KML_Point::Write(FILE* filout,const char* indent){
     75void  KML_Point::Write(FILE* filout,const char* indent){/*{{{*/
    8276
    8377        fprintf(filout,"%s<Point",indent);
    … …  
    9892}
    9993/*}}}*/
    100 /*FUNCTION KML_Point::Read {{{*/
    101 void  KML_Point::Read(FILE* fid,char* kstr){
     94void  KML_Point::Read(FILE* fid,char* kstr){/*{{{*/
    10295
    10396        double*      pcoords=&coords[0];
    … …  
    146139}
    147140/*}}}*/
    148 /*FUNCTION KML_Point::WriteExp {{{*/
    149 void  KML_Point::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){
     141void  KML_Point::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){/*{{{*/
    150142
    151143        int     i;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_PolyStyle.cpp

    r16546 r18063  
    1919
    2020/*Constructors/destructor/copy*/
    21 /*FUNCTION KML_PolyStyle::KML_PolyStyle(){{{*/
    22 KML_PolyStyle::KML_PolyStyle(){
     21KML_PolyStyle::KML_PolyStyle(){/*{{{*/
    2322
    2423        fill      =true;
    … …  
    2726}
    2827/*}}}*/
    29 /*FUNCTION KML_PolyStyle::~KML_PolyStyle(){{{*/
    30 KML_PolyStyle::~KML_PolyStyle(){
     28KML_PolyStyle::~KML_PolyStyle(){/*{{{*/
    3129
    3230        ;
    … …  
    3634
    3735/*Other*/
    38 /*FUNCTION KML_PolyStyle::Echo {{{*/
    39 void  KML_PolyStyle::Echo(){
     36void  KML_PolyStyle::Echo(){/*{{{*/
    4037
    4138        bool  flag=true;
    … …  
    5047}
    5148/*}}}*/
    52 /*FUNCTION KML_PolyStyle::DeepEcho {{{*/
    53 void  KML_PolyStyle::DeepEcho(){
     49void  KML_PolyStyle::DeepEcho(){/*{{{*/
    5450
    5551        char  indent[81]="";
    … …  
    6056}
    6157/*}}}*/
    62 /*FUNCTION KML_PolyStyle::DeepEcho {{{*/
    63 void  KML_PolyStyle::DeepEcho(const char* indent){
     58void  KML_PolyStyle::DeepEcho(const char* indent){/*{{{*/
    6459
    6560        bool  flag=true;
    … …  
    7469}
    7570/*}}}*/
    76 /*FUNCTION KML_PolyStyle::Write {{{*/
    77 void  KML_PolyStyle::Write(FILE* filout,const char* indent){
     71void  KML_PolyStyle::Write(FILE* filout,const char* indent){/*{{{*/
    7872
    7973        fprintf(filout,"%s<PolyStyle",indent);
    … …  
    9286}
    9387/*}}}*/
    94 /*FUNCTION KML_PolyStyle::Read {{{*/
    95 void  KML_PolyStyle::Read(FILE* fid,char* kstr){
     88void  KML_PolyStyle::Read(FILE* fid,char* kstr){/*{{{*/
    9689
    9790        char*        kstri;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Polygon.cpp

    r16546 r18063  
    1818
    1919/*Constructors/destructor/copy*/
    20 /*FUNCTION KML_Polygon::KML_Polygon(){{{*/
    21 KML_Polygon::KML_Polygon(){
     20KML_Polygon::KML_Polygon(){/*{{{*/
    2221
    2322        extrude   =false;
    … …  
    3029}
    3130/*}}}*/
    32 /*FUNCTION KML_Polygon::~KML_Polygon(){{{*/
    33 KML_Polygon::~KML_Polygon(){
     31KML_Polygon::~KML_Polygon(){/*{{{*/
    3432
    3533        if (inner) {
    … …  
    4745
    4846/*Other*/
    49 /*FUNCTION KML_Polygon::Echo {{{*/
    50 void  KML_Polygon::Echo(){
     47void  KML_Polygon::Echo(){/*{{{*/
    5148
    5249        bool  flag=true;
    … …  
    6461}
    6562/*}}}*/
    66 /*FUNCTION KML_Polygon::DeepEcho {{{*/
    67 void  KML_Polygon::DeepEcho(){
     63void  KML_Polygon::DeepEcho(){/*{{{*/
    6864
    6965        char  indent[81]="";
    … …  
    7470}
    7571/*}}}*/
    76 /*FUNCTION KML_Polygon::DeepEcho {{{*/
    77 void  KML_Polygon::DeepEcho(const char* indent){
     72void  KML_Polygon::DeepEcho(const char* indent){/*{{{*/
    7873
    7974        int   i;
    … …  
    112107}
    113108/*}}}*/
    114 /*FUNCTION KML_Polygon::Write {{{*/
    115 void  KML_Polygon::Write(FILE* filout,const char* indent){
     109void  KML_Polygon::Write(FILE* filout,const char* indent){/*{{{*/
    116110
    117111        int   i;
    … …  
    152146}
    153147/*}}}*/
    154 /*FUNCTION KML_Polygon::Read {{{*/
    155 void  KML_Polygon::Read(FILE* fid,char* kstr){
     148void  KML_Polygon::Read(FILE* fid,char* kstr){/*{{{*/
    156149
    157150        char*        kstri;
    … …  
    259252}
    260253/*}}}*/
    261 /*FUNCTION KML_Polygon::WriteExp {{{*/
    262 void  KML_Polygon::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){
     254void  KML_Polygon::WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp){/*{{{*/
    263255
    264256        int   i;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Style.cpp

    r16546 r18063  
    1919
    2020/*Constructors/destructor/copy*/
    21 /*FUNCTION KML_Style::KML_Style(){{{*/
    22 KML_Style::KML_Style(){
     21KML_Style::KML_Style(){/*{{{*/
    2322
    2423        icon      =NULL;
    … …  
    3130}
    3231/*}}}*/
    33 /*FUNCTION KML_Style::~KML_Style(){{{*/
    34 KML_Style::~KML_Style(){
     32KML_Style::~KML_Style(){/*{{{*/
    3533
    3634        if (list) {
    … …  
    6361
    6462/*Other*/
    65 /*FUNCTION KML_Style::Echo {{{*/
    66 void  KML_Style::Echo(){
     63void  KML_Style::Echo(){/*{{{*/
    6764
    6865        bool  flag=true;
    … …  
    8178}
    8279/*}}}*/
    83 /*FUNCTION KML_Style::DeepEcho {{{*/
    84 void  KML_Style::DeepEcho(){
     80void  KML_Style::DeepEcho(){/*{{{*/
    8581
    8682        char  indent[81]="";
    … …  
    9187}
    9288/*}}}*/
    93 /*FUNCTION KML_Style::DeepEcho {{{*/
    94 void  KML_Style::DeepEcho(const char* indent){
     89void  KML_Style::DeepEcho(const char* indent){/*{{{*/
    9590
    9691        char  indent2[81];
    … …  
    131126}
    132127/*}}}*/
    133 /*FUNCTION KML_Style::Write {{{*/
    134 void  KML_Style::Write(FILE* filout,const char* indent){
     128void  KML_Style::Write(FILE* filout,const char* indent){/*{{{*/
    135129
    136130        char  indent2[81];
    … …  
    165159}
    166160/*}}}*/
    167 /*FUNCTION KML_Style::Read {{{*/
    168 void  KML_Style::Read(FILE* fid,char* kstr){
     161void  KML_Style::Read(FILE* fid,char* kstr){/*{{{*/
    169162
    170163        char*        kstri;

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_StyleSelector.cpp

    r15068 r18063  
    1717
    1818/*Constructors/destructor/copy*/
    19 /*FUNCTION KML_StyleSelector::KML_StyleSelector(){{{*/
    20 KML_StyleSelector::KML_StyleSelector(){
     19KML_StyleSelector::KML_StyleSelector(){/*{{{*/
    2120
    2221        ;
    … …  
    2423}
    2524/*}}}*/
    26 /*FUNCTION KML_StyleSelector::~KML_StyleSelector(){{{*/
    27 KML_StyleSelector::~KML_StyleSelector(){
     25KML_StyleSelector::~KML_StyleSelector(){/*{{{*/
    2826
    2927        ;
    … …  
    3331
    3432/*Other*/
    35 /*FUNCTION KML_StyleSelector::Echo {{{*/
    36 void  KML_StyleSelector::Echo(){
     33void  KML_StyleSelector::Echo(){/*{{{*/
    3734
    3835        KML_Object::Echo();
    … …  
    4138}
    4239/*}}}*/
    43 /*FUNCTION KML_StyleSelector::DeepEcho {{{*/
    44 void  KML_StyleSelector::DeepEcho(){
     40void  KML_StyleSelector::DeepEcho(){/*{{{*/
    4541
    4642        char  indent[81]="";
    … …  
    5147}
    5248/*}}}*/
    53 /*FUNCTION KML_StyleSelector::DeepEcho {{{*/
    54 void  KML_StyleSelector::DeepEcho(const char* indent){
     49void  KML_StyleSelector::DeepEcho(const char* indent){/*{{{*/
    5550
    5651        KML_Object::DeepEcho(indent);
    … …  
    5954}
    6055/*}}}*/
    61 /*FUNCTION KML_StyleSelector::Write {{{*/
    62 void  KML_StyleSelector::Write(FILE* filout,const char* indent){
     56void  KML_StyleSelector::Write(FILE* filout,const char* indent){/*{{{*/
    6357
    6458        KML_Object::Write(filout,indent);
    … …  
    6761}
    6862/*}}}*/
    69 /*FUNCTION KML_StyleSelector::Read {{{*/
    70 void  KML_StyleSelector::Read(FILE* fid,char* kstr){
     63void  KML_StyleSelector::Read(FILE* fid,char* kstr){/*{{{*/
    7164
    7265/*  process field within opening and closing tags  */

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_SubStyle.cpp

    r15068 r18063  
    1717
    1818/*Constructors/destructor/copy*/
    19 /*FUNCTION KML_SubStyle::KML_SubStyle(){{{*/
    20 KML_SubStyle::KML_SubStyle(){
     19KML_SubStyle::KML_SubStyle(){/*{{{*/
    2120
    2221        ;
    … …  
    2423}
    2524/*}}}*/
    26 /*FUNCTION KML_SubStyle::~KML_SubStyle(){{{*/
    27 KML_SubStyle::~KML_SubStyle(){
     25KML_SubStyle::~KML_SubStyle(){/*{{{*/
    2826
    2927        ;
    … …  
    3331
    3432/*Other*/
    35 /*FUNCTION KML_SubStyle::Echo {{{*/
    36 void  KML_SubStyle::Echo(){
     33void  KML_SubStyle::Echo(){/*{{{*/
    3734
    3835        KML_Object::Echo();
    … …  
    4138}
    4239/*}}}*/
    43 /*FUNCTION KML_SubStyle::DeepEcho {{{*/
    44 void  KML_SubStyle::DeepEcho(){
     40void  KML_SubStyle::DeepEcho(){/*{{{*/
    4541
    4642        char  indent[81]="";
    … …  
    5147}
    5248/*}}}*/
    53 /*FUNCTION KML_SubStyle::DeepEcho {{{*/
    54 void  KML_SubStyle::DeepEcho(const char* indent){
     49void  KML_SubStyle::DeepEcho(const char* indent){/*{{{*/
    5550
    5651        KML_Object::DeepEcho(indent);
    … …  
    5954}
    6055/*}}}*/
    61 /*FUNCTION KML_SubStyle::Write {{{*/
    62 void  KML_SubStyle::Write(FILE* filout,const char* indent){
     56void  KML_SubStyle::Write(FILE* filout,const char* indent){/*{{{*/
    6357
    6458        KML_Object::Write(filout,indent);
    … …  
    6761}
    6862/*}}}*/
    69 /*FUNCTION KML_SubStyle::Read {{{*/
    70 void  KML_SubStyle::Read(FILE* fid,char* kstr){
     63void  KML_SubStyle::Read(FILE* fid,char* kstr){/*{{{*/
    7164
    7265/*  process field within opening and closing tags  */

  • TabularUnified issm/trunk-jpl/src/c/kml/KML_Unknown.cpp

    r16546 r18063  
    1717
    1818/*Constructors/destructor/copy*/
    19 /*FUNCTION KML_Unknown::KML_Unknown(){{{*/
    20 KML_Unknown::KML_Unknown(){
     19KML_Unknown::KML_Unknown(){/*{{{*/
    2120
    2221        name      =NULL;
    … …  
    2524}
    2625/*}}}*/
    27 /*FUNCTION KML_Unknown::~KML_Unknown(){{{*/
    28 KML_Unknown::~KML_Unknown(){
     26KML_Unknown::~KML_Unknown(){/*{{{*/
    2927
    3028        if (name      ) xDelete<char>(name);
    … …  
    3533
    3634/*Other*/
    37 /*FUNCTION KML_Unknown::Echo {{{*/
    38 void  KML_Unknown::Echo(){
     35void  KML_Unknown::Echo(){/*{{{*/
    3936
    4037        bool  flag=true;
    … …  
    5350}
    5451/*}}}*/
    55 /*FUNCTION KML_Unknown::DeepEcho {{{*/
    56 void  KML_Unknown::DeepEcho(){
     52void  KML_Unknown::DeepEcho(){/*{{{*/
    5753
    5854        char  indent[81]="";
    … …  
    6359}
    6460/*}}}*/
    65 /*FUNCTION KML_Unknown::DeepEcho {{{*/
    66 void  KML_Unknown::DeepEcho(const char* indent){
     61void  KML_Unknown::DeepEcho(const char* indent){/*{{{*/
    6762
    6863        char*        valuei;
    … …  
    9388}
    9489/*}}}*/
    95 /*FUNCTION KML_Unknown::Write {{{*/
    96 void  KML_Unknown::Write(FILE* filout,const char* indent){
     90void  KML_Unknown::Write(FILE* filout,const char* indent){/*{{{*/
    9791
    9892        char*        valuei;
    … …  
    125119}
    126120/*}}}*/
    127 /*FUNCTION KML_Unknown::Read {{{*/
    128 void  KML_Unknown::Read(FILE* fid,char* kstr){
     121void  KML_Unknown::Read(FILE* fid,char* kstr){/*{{{*/
    129122
    130123        char*        kstri;

  • TabularUnified issm/trunk-jpl/src/c/modules/GroundinglineMigrationx/GroundinglineMigrationx.cpp

    r17941 r18063  
    5656}
    5757
    58 /*FUNCTION ContactFSLevelset{{{*/
    59 IssmDouble*    ContactFSLevelset(Elements* elements,Vertices* vertices){
     58IssmDouble*    ContactFSLevelset(Elements* elements,Vertices* vertices){ /*{{{*/
    6059
    6160        Vector<IssmDouble>* vertexgrounded = NULL;
    … …  
    108107}
    109108/*}}}*/
    110 /*FUNCTION PotentialUngrounding {{{*/
    111 IssmDouble*    PotentialUngrounding(Elements* elements,Vertices* vertices,Parameters* parameters){
     109IssmDouble*    PotentialUngrounding(Elements* elements,Vertices* vertices,Parameters* parameters){ /*{{{*/
    112110
    113111        int                 i,numberofvertices;
    … …  
    135133}
    136134/*}}}*/
    137 /*FUNCTION PropagateFloatingiceToGroundedNeighbors {{{*/
    138 IssmDouble*    PropagateFloatingiceToGroundedNeighbors(Elements* elements,Nodes* nodes,Vertices* vertices,Parameters* parameters,IssmDouble* vertices_potentially_ungrounding){
     135IssmDouble*    PropagateFloatingiceToGroundedNeighbors(Elements* elements,Nodes* nodes,Vertices* vertices,Parameters* parameters,IssmDouble* vertices_potentially_ungrounding){ /*{{{*/
    139136        int                 i,analysis_type;
    140137        int                 nflipped,local_nflipped;

  • TabularUnified issm/trunk-jpl/src/c/modules/Krigingx/Krigingx.cpp

    r16166 r18063  
    1111#include <gsl/gsl_linalg.h>
    1212#endif
    13 /*FUNCTION Krigingx{{{*/
    14 int Krigingx(double** ppredictions,double **perror,double* obs_x, double* obs_y, double* obs_list, int obs_length,double* x_interp,double* y_interp,int n_interp,Options* options){
     13int   Krigingx(double** ppredictions,double **perror,double* obs_x, double* obs_y, double* obs_list, int obs_length,double* x_interp,double* y_interp,int n_interp,Options* options){/*{{{*/
    1514
    1615        /*output*/
    … …  
    189188        return 1;
    190189}/*}}}*/
    191 /*FUNCTION Krigingxt{{{*/
    192 void* Krigingxt(void* vpthread_handle){
     190void* Krigingxt(void* vpthread_handle){/*{{{*/
    193191
    194192        /*gate variables :*/
    … …  
    236234        return NULL;
    237235}/*}}}*/
    238 /*FUNCTION NearestNeighbort{{{*/
    239 void* NearestNeighbort(void* vpthread_handle){
     236void* NearestNeighbort(void* vpthread_handle){/*{{{*/
    240237
    241238        /*gate variables :*/
    … …  
    282279        return NULL;
    283280}/*}}}*/
    284 /*FUNCTION idwt{{{*/
    285 void* idwt(void* vpthread_handle){
     281void* idwt(void* vpthread_handle){/*{{{*/
    286282
    287283        /*gate variables :*/
    … …  
    328324        return NULL;
    329325}/*}}}*/
    330 /*FUNCTION v4t{{{*/
    331 void* v4t(void* vpthread_handle){
     326void* v4t(void* vpthread_handle){/*{{{*/
    332327
    333328        /*gate variables :*/
    … …  
    373368        return NULL;
    374369}/*}}}*/
    375 /*FUNCTION Distancest{{{*/
    376 void* Distancest(void* vpthread_handle){
     370void* Distancest(void* vpthread_handle){/*{{{*/
    377371
    378372        /*gate variables :*/

  • TabularUnified issm/trunk-jpl/src/c/modules/Krigingx/pKrigingx.cpp

    r17668 r18063  
    99#include "../../shared/io/io.h"
    1010
    11 /*FUNCTION pKrigingx{{{*/
    12 int pKrigingx(double** ppredictions,double **perror,double* obs_x, double* obs_y, double* obs_list, int obs_length,double* x_interp,double* y_interp,int n_interp,Options* options){
     11int pKrigingx(double** ppredictions,double **perror,double* obs_x, double* obs_y, double* obs_list, int obs_length,double* x_interp,double* y_interp,int n_interp,Options* options){/*{{{*/
    1312
    1413#ifdef _HAVE_MPI_

  • TabularUnified issm/trunk-jpl/src/c/shared/Elements/DrainageFunctionWaterfraction.cpp

    r16816 r18063  
    77#include "../Exceptions/exceptions.h"
    88
    9 /*FUNCTION IssmDouble DrainageFunctionWaterfraction()*/
    109IssmDouble DrainageFunctionWaterfraction(IssmDouble waterfraction, IssmDouble dt=0.){
    1110        /* DrainageFunctionWaterfraction returns how much of the waterfraction is drained per year */

  • TabularUnified issm/trunk-jpl/src/c/shared/Matrix/MatrixUtils.cpp

    r17548 r18063  
    1515/*}}}*/
    1616
    17 /*FUNCTION TripleMultiply {{{*/
    18 int TripleMultiply(IssmDouble* a, int nrowa, int ncola, int itrna, IssmDouble* b, int nrowb, int ncolb, int itrnb, IssmDouble* c, int nrowc, int ncolc, int itrnc, IssmDouble* d, int iaddd){
     17int TripleMultiply(IssmDouble* a, int nrowa, int ncola, int itrna, IssmDouble* b, int nrowb, int ncolb, int itrnb, IssmDouble* c, int nrowc, int ncolc, int itrnc, IssmDouble* d, int iaddd){/*{{{*/
    1918        /*TripleMultiply    Perform triple matrix product a*b*c+d.*/
    2019
    … …  
    7776        return 1;
    7877}/*}}}*/
    79 /*FUNCTION MatrixMuliply {{{*/
    80 int MatrixMultiply(IssmDouble* a, int nrowa, int ncola, int itrna, IssmDouble* b, int nrowb, int ncolb, int itrnb, IssmDouble* c, int iaddc ){
     78int MatrixMultiply(IssmDouble* a, int nrowa, int ncola, int itrna, IssmDouble* b, int nrowb, int ncolb, int itrnb, IssmDouble* c, int iaddc ){/*{{{*/
    8179        /*MatrixMultiply    Perform matrix multiplication a*b+c.*/
    8280        int noerr=1;
    … …  
    139137        return noerr;
    140138}/*}}}*/
    141 /*FUNCTION MatrixInverse {{{*/
    142 int MatrixInverse( IssmDouble* a, int ndim, int nrow, IssmDouble* b, int nvec, IssmDouble* pdet ){
     139int MatrixInverse( IssmDouble* a, int ndim, int nrow, IssmDouble* b, int nvec, IssmDouble* pdet ){/*{{{*/
    143140        /* MatrixInverse    Perform matrix inversion and linear equation solution.
    144141
    … …  
    312309        return noerr;
    313310}/*}}}*/
    314 /*FUNCTION Matrix2x2Determinant(IssmDouble* Adet,IssmDouble* A) {{{*/
    315 void Matrix2x2Determinant(IssmDouble* Adet,IssmDouble* A){
     311void Matrix2x2Determinant(IssmDouble* Adet,IssmDouble* A){/*{{{*/
    316312        /*Compute determinant of a 2x2 matrix*/
    317313
    … …  
    320316}
    321317/*}}}*/
    322 /*FUNCTION Matrix2x2Invert(IssmDouble* Ainv,IssmDouble* A) {{{*/
    323 void Matrix2x2Invert(IssmDouble* Ainv,IssmDouble* A){
     318void Matrix2x2Invert(IssmDouble* Ainv,IssmDouble* A){/*{{{*/
    324319
    325320        /*Intermediaries*/
    … …  
    337332
    338333}/*}}}*/
    339 /*FUNCTION Matrix3x3Determinant(IssmDouble* Adet,IssmDouble* A) {{{*/
    340 void Matrix3x3Determinant(IssmDouble* Adet,IssmDouble* A){
     334void Matrix3x3Determinant(IssmDouble* Adet,IssmDouble* A){/*{{{*/
    341335        /*Compute determinant of a 3x3 matrix*/
    342336
    … …  
    345339}
    346340/*}}}*/
    347 /*FUNCTION Matrix3x3Invert(IssmDouble* Ainv,IssmDouble* A) {{{*/
    348 void Matrix3x3Invert(IssmDouble* Ainv,IssmDouble* A){
     341void Matrix3x3Invert(IssmDouble* Ainv,IssmDouble* A){/*{{{*/
    349342
    350343        /*Intermediaries*/
    … …  
    367360
    368361}/*}}}*/
    369 /*FUNCTION Matrix3x3Solve(IssmDouble* X,IssmDouble* A,IssmDouble* B) {{{*/
    370 void Matrix3x3Solve(IssmDouble* X,IssmDouble* A,IssmDouble* B){
     362void Matrix3x3Solve(IssmDouble* X,IssmDouble* A,IssmDouble* B){/*{{{*/
    371363
    372364        IssmDouble Ainv[3][3];
    … …  
    376368
    377369}/*}}}*/
    378 /*FUNCTION Matrix4x4Solve(IssmDouble* X,IssmDouble* A,IssmDouble *B) {{{*/
    379 void Matrix4x4Solve(IssmDouble* X,IssmDouble* A,IssmDouble *B){
     370void Matrix4x4Solve(IssmDouble* X,IssmDouble* A,IssmDouble *B){/*{{{*/
    380371        _error_("STOP");
    381372}/*}}}*/

  • TabularUnified issm/trunk-jpl/src/c/shared/Numerics/GaussPoints.cpp

    r17865 r18063  
    99
    1010/*General Gauss points*/
    11 /*FUNCTION GaussLegendreLinear {{{*/
    12 void GaussLegendreLinear( IssmPDouble** pxgaus, IssmPDouble** pxwgt, int ngaus){
     11void GaussLegendreLinear( IssmPDouble** pxgaus, IssmPDouble** pxwgt, int ngaus){/*{{{*/
    1312        /* Gauss-Legendre quadrature points.
    1413
    … …  
    9392        }
    9493}/*}}}*/
    95 /*FUNCTION GaussLegendreTria{{{*/
    96 void GaussLegendreTria( int* pngaus, IssmDouble** pl1, IssmDouble** pl2, IssmDouble** pl3, IssmDouble** pwgt, int iord ) {
     94void GaussLegendreTria( int* pngaus, IssmDouble** pl1, IssmDouble** pl2, IssmDouble** pl3, IssmDouble** pwgt, int iord ) {/*{{{*/
    9795        /*Gauss quadrature points for the triangle.
    9896
    … …  
    12101208        return;
    12111209}/*}}}*/
    1212 /*FUNCTION GaussLegendreTetra{{{*/
    1213 void GaussLegendreTetra( int* pngaus, IssmDouble** pl1, IssmDouble** pl2, IssmDouble** pl3, IssmDouble** pl4, IssmDouble** pwgt, int iord ) {
     1210void GaussLegendreTetra( int* pngaus, IssmDouble** pl1, IssmDouble** pl2, IssmDouble** pl3, IssmDouble** pl4, IssmDouble** pwgt, int iord ) {/*{{{*/
    12141211        /* Gauss quadrature points for the tetrahedron.
    12151212
    … …  
    14731470        }
    14741471}/*}}}*/
    1475 /*FUNCTION GaussLobatto{{{*/
    1476 void GaussLobatto( IssmPDouble** pxgaus, IssmPDouble** pxwgt, int ngaus ) {
     1472void GaussLobatto( IssmPDouble** pxgaus, IssmPDouble** pxwgt, int ngaus ) {/*{{{*/
    14771473        /*Gauss-Lobatto quadrature points.
    14781474
    … …  
    15751571
    15761572}/*}}}*/
    1577 /*FUNCTION GaussRecur{{{*/
    1578 void GaussRecur( IssmPDouble* zero, IssmPDouble* weight, int n, IssmPDouble* alpha, IssmPDouble* beta ) {
     1573void GaussRecur( IssmPDouble* zero, IssmPDouble* weight, int n, IssmPDouble* alpha, IssmPDouble* beta ) {/*{{{*/
    15791574        /*Gauss quadrature points from recursion coefficients.
    15801575         *
    … …  
    16981693
    16991694/*Element Gauss points TO BE REMOVED*/
    1700 /*FUNCTION gaussQuad{{{*/
    1701 void gaussQuad( IssmPDouble** pxgaus, IssmPDouble** pxwgt, IssmPDouble** pegaus, IssmPDouble** pewgt, int nigaus, int njgaus ) {
     1695void gaussQuad( IssmPDouble** pxgaus, IssmPDouble** pxwgt, IssmPDouble** pegaus, IssmPDouble** pewgt, int nigaus, int njgaus ) {/*{{{*/
    17021696        /*Gauss quadrature points for the quadrilaterial.*/
    17031697
    … …  
    17061700        GaussLegendreLinear(pegaus, pewgt, njgaus);
    17071701}/*}}}*/
    1708 /*FUNCTION gaussHexa{{{*/
    1709 void gaussHexa( IssmPDouble** pxgaus, IssmPDouble** pxwgt, IssmPDouble** pegaus, IssmPDouble** pewgt, IssmPDouble** pzgaus, IssmPDouble ** pzwgt, int nigaus, int njgaus, int nkgaus ) {
     1702void gaussHexa( IssmPDouble** pxgaus, IssmPDouble** pxwgt, IssmPDouble** pegaus, IssmPDouble** pewgt, IssmPDouble** pzgaus, IssmPDouble ** pzwgt, int nigaus, int njgaus, int nkgaus ) {/*{{{*/
    17101703        /*Gauss quadrature points for the hexahedron.*/
    17111704

  • TabularUnified issm/trunk-jpl/src/c/shared/Numerics/Synchronize.sh

    r14914 r18063  
    116116/*Verbosity Setup*/
    117117static int verbositylevel=-1;
    118 /*FUNCTION SetVerbosityLevel {{{*/
    119 void SetVerbosityLevel(int level){
     118void SetVerbosityLevel(int level){/*{{{*/
    120119
    121120        if(level<0) _error_("vebosity level should be a positive integer (user provided " << level << ")");
    … …  
    124123
    125124}/*}}}*/
    126 /*FUNCTION GetVerbosityLevel {{{*/
    127 int  GetVerbosityLevel(void){
     125int  GetVerbosityLevel(void){/*{{{*/
    128126        _assert_(verbositylevel>=0);
    129127        return verbositylevel;

  • TabularUnified issm/trunk-jpl/src/c/shared/Numerics/Verbosity.cpp

    r14914 r18063  
    3131/*Verbosity Setup*/
    3232static int verbositylevel=-1;
    33 /*FUNCTION SetVerbosityLevel {{{*/
    34 void SetVerbosityLevel(int level){
     33void SetVerbosityLevel(int level){/*{{{*/
    3534
    3635        if(level<0) _error_("vebosity level should be a positive integer (user provided " << level << ")");
    … …  
    3938
    4039}/*}}}*/
    41 /*FUNCTION GetVerbosityLevel {{{*/
    42 int  GetVerbosityLevel(void){
     40int  GetVerbosityLevel(void){/*{{{*/
    4341        _assert_(verbositylevel>=0);
    4442        return verbositylevel;

  • TabularUnified issm/trunk-jpl/src/c/shared/TriMesh/TriMeshUtils.cpp

    r16521 r18063  
    1010
    1111#define RIFTPENALTYPAIRSWIDTH 8
    12 /*FUNCTION IsGridOnRift{{{*/
    13 int IsGridOnRift(int* riftsegments, int nriftsegs, int node){
     12int IsGridOnRift(int* riftsegments, int nriftsegs, int node){/*{{{*/
    1413
    1514        /*Does this node belong to 4 elements, or just 2? If it belongs to 4 elements, it is inside a rift,
    … …  
    3332        }
    3433}/*}}}*/
    35 /*FUNCTION GridElementsList{{{*/
    36 int GridElementsList(int** pGridElements, int* pNumGridElements,int node,int* index,int nel){
     34int GridElementsList(int** pGridElements, int* pNumGridElements,int node,int* index,int nel){/*{{{*/
    3735
    3836        /*From a node, recover all the elements that are connected to it: */
    … …  
    8785        return noerr;
    8886}/*}}}*/
    89 /*FUNCTION IsNeighbor{{{*/
    90 int IsNeighbor(int el1,int el2,int* index){
     87int IsNeighbor(int el1,int el2,int* index){/*{{{*/
    9188        /*From a triangulation held in index, figure out if elements 1 and 2 have two nodes in common: */
    9289        int i,j;
    … …  
    104101        }
    105102}/*}}}*/
    106 /*FUNCTION IsOnRift{{{*/
    107 int IsOnRift(int el,int nriftsegs,int* riftsegments){
     103int IsOnRift(int el,int nriftsegs,int* riftsegments){/*{{{*/
    108104        /*From a list of elements segments, figure out if el belongs to it: */
    109105        int i;
    … …  
    115111        return 0;
    116112}/*}}}*/
    117 /*FUNCTION RiftSegmentsFromSegments{{{*/
    118 void RiftSegmentsFromSegments(int* pnriftsegs, int** priftsegments, int nel,int* index,int nsegs,int* segments){
     113void RiftSegmentsFromSegments(int* pnriftsegs, int** priftsegments, int nel,int* index,int nsegs,int* segments){/*{{{*/
    119114
    120115        int i,counter;
    … …  
    181176        *pnriftsegs=nriftsegs;
    182177}/*}}}*/
    183 /*FUNCTION DetermineGridElementListOnOneSideOfRift{{{*/
    184 int DetermineGridElementListOnOneSideOfRift(int* pNumGridElementListOnOneSideOfRift, int** pGridElementListOnOneSideOfRift, int segmentnumber, int nriftsegs, int* riftsegments, int node,int* index,int nel){
     178int DetermineGridElementListOnOneSideOfRift(int* pNumGridElementListOnOneSideOfRift, int** pGridElementListOnOneSideOfRift, int segmentnumber, int nriftsegs, int* riftsegments, int node,int* index,int nel){/*{{{*/
    185179
    186180        int noerr=1;
    … …  
    245239        return noerr;
    246240}/*}}}*/
    247 /*FUNCTION UpdateSegments{{{*/
    248 int UpdateSegments(int** psegments,int** psegmentmarkerlist, int* pnsegs,int* index, double* x,double* y,int* riftsegments,int nriftsegs,int nods,int nel){
     241int UpdateSegments(int** psegments,int** psegmentmarkerlist, int* pnsegs,int* index, double* x,double* y,int* riftsegments,int nriftsegs,int nods,int nel){/*{{{*/
    249242
    250243        int noerr=1;
    … …  
    344337        return noerr;
    345338}/*}}}*/
    346 /*FUNCTION FindElement{{{*/
    347 int FindElement(int A,int B,int* index,int nel){
     339int FindElement(int A,int B,int* index,int nel){/*{{{*/
    348340
    349341        int el=-1;
    … …  
    356348        return el;
    357349}/*}}}*/
    358 /*FUNCTION SplitRiftSegments{{{*/
    359 int SplitRiftSegments(int** psegments,int** psegmentmarkerlist, int* pnumsegs, int* pnumrifts,int** priftsnumsegs,int*** priftssegments,int numrifts,int nods,int nel){
     350int SplitRiftSegments(int** psegments,int** psegmentmarkerlist, int* pnumsegs, int* pnumrifts,int** priftsnumsegs,int*** priftssegments,int numrifts,int nods,int nel){/*{{{*/
    360351
    361352        /*Using segment markers, wring out the rift segments from the segments. Rift markers are
    … …  
    443434        return noerr;
    444435}/*}}}*/
    445 /*FUNCTION PairRiftElements{{{*/
    446 int PairRiftElements(int** priftsnumpairs,int*** priftspairs,int numrifts,int* riftsnumsegments,int** riftssegments,double* x,double* y){
     436int PairRiftElements(int** priftsnumpairs,int*** priftspairs,int numrifts,int* riftsnumsegments,int** riftssegments,double* x,double* y){/*{{{*/
    447437
    448438        int noerr=1;
    … …  
    490480        return noerr;
    491481}/*}}}*/
    492 /*FUNCTION IsRiftPresent{{{*/
    493 int IsRiftPresent(int* priftflag,int* pnumrifts,int* segmentmarkerlist,int nsegs){
     482int IsRiftPresent(int* priftflag,int* pnumrifts,int* segmentmarkerlist,int nsegs){/*{{{*/
    494483
    495484        int i;
    … …  
    517506        return noerr;
    518507}/*}}}*/
    519 /*FUNCTION OrderRifts{{{*/
    520 int OrderRifts(int** priftstips,int** riftssegments,int** riftspairs,int numrifts,int* riftsnumsegments,double* x,double* y,int nods,int nels){
     508int OrderRifts(int** priftstips,int** riftssegments,int** riftspairs,int numrifts,int* riftsnumsegments,double* x,double* y,int nods,int nels){/*{{{*/
    521509
    522510        int noerr=1;
    … …  
    672660        return noerr;
    673661}/*}}}*/
    674 /*FUNCTION PenaltyPairs{{{*/
    675 int PenaltyPairs(double*** priftspenaltypairs,int** priftsnumpenaltypairs,int numrifts,int** riftssegments,
     662int PenaltyPairs(double*** priftspenaltypairs,int** priftsnumpenaltypairs,int numrifts,int** riftssegments,/*{{{*/
    676663                int* riftsnumsegs,int** riftspairs,int* riftstips,double* x,double* y){
    677664

  • TabularUnified issm/trunk-jpl/src/c/toolkits/issm/IssmMpiDenseMat.h

    r16415 r18063  
    4545
    4646                /*IssmMpiDenseMat constructors, destructors*/
    47                 /*FUNCTION IssmMpiDenseMat(){{{*/
    48                 IssmMpiDenseMat(){
     47                IssmMpiDenseMat(){/*{{{*/
    4948                        this->M=0;
    5049                        this->N=0;
    … …  
    5453                }
    5554                /*}}}*/
    56                 /*FUNCTION IssmMpiDenseMat(int M,int N){{{*/
    57                 IssmMpiDenseMat(int Min,int Nin){
     55                IssmMpiDenseMat(int Min,int Nin){/*{{{*/
    5856                        this->Init(Min,Nin);
    5957                }
    6058                /*}}}*/
    61                 /*FUNCTION IssmMpiDenseMat(int M,int N, doubletype sparsity){{{*/
    62                 IssmMpiDenseMat(int pM,int pN, doubletype sparsity){
     59                IssmMpiDenseMat(int pM,int pN, doubletype sparsity){/*{{{*/
    6360                        /*no sparsity involved here, we are fully dense, so just use the previous constructor: */
    6461                        this->Init(pM,pN);
    6562                }
    6663                /*}}}*/
    67                 /*FUNCTION IssmMpiDenseMat(int m,int n,int M,int N,int* d_nnz,int* o_nnz){{{*/
    68                 IssmMpiDenseMat(int min,int nin,int Min,int Nin,int* d_nnz,int* o_nnz){
     64                IssmMpiDenseMat(int min,int nin,int Min,int Nin,int* d_nnz,int* o_nnz){/*{{{*/
    6965                        /*not needed, we are fully dense!: */
    7066
    … …  
    8278                }
    8379                /*}}}*/
    84                 /*FUNCTION IssmMpiDenseMat(doubletype* serial_mat,int M,int N,doubletype sparsity){{{*/
    85                 IssmMpiDenseMat(doubletype* serial_mat,int Min,int Nin,doubletype sparsity){
     80                IssmMpiDenseMat(doubletype* serial_mat,int Min,int Nin,doubletype sparsity){/*{{{*/
    8681
    8782                        /*Here, we assume that the serial_mat is local to the local cpu, and that it has
    … …  
    9994                }
    10095                /*}}}*/
    101                 /*FUNCTION IssmMpiDenseMat(int M,int N, int connectivity, int numberofdofspernode){{{*/
    102                 IssmMpiDenseMat(int pM,int pN, int connectivity,int numberofdofspernode){
     96                IssmMpiDenseMat(int pM,int pN, int connectivity,int numberofdofspernode){/*{{{*/
    10397                        /*not needed, we are fully dense!: */
    10498                        this->Init(pM,pN);
    10599                }
    106100                /*}}}*/
    107                 /*FUNCTION ~IssmMpiDenseMat(){{{*/
    108                 ~IssmMpiDenseMat(){
     101                ~IssmMpiDenseMat(){/*{{{*/
    109102                        xDelete<doubletype>(this->matrix);
    110103                        M=0;
    … …  
    114107                }
    115108                /*}}}*/
    116                 /*FUNCTION IssmMpiDenseMat::Init(int Min,int Nin){{{*/
    117                 void Init(int Min,int Nin){
     109                void Init(int Min,int Nin){/*{{{*/
    118110
    119111                        this->buckets=new DataSet();
    … …  
    134126
    135127                /*IssmMpiDenseMat specific routines */
    136                 /*FUNCTION Echo{{{*/
    137                 void Echo(void){
     128                void Echo(void){/*{{{*/
    138129
    139130                        int my_rank;
    … …  
    158149                }
    159150                /*}}}*/
    160                 /*FUNCTION Assemble{{{*/
    161                 void Assemble(){
     151                void Assemble(){/*{{{*/
    162152
    163153                        int           i,j;
    … …  
    313303                }
    314304                /*}}}*/
    315                 /*FUNCTION Norm{{{*/
    316                 doubletype Norm(NormMode mode){
     305                doubletype Norm(NormMode mode){/*{{{*/
    317306
    318307                        doubletype norm,local_norm;
    … …  
    352341                }
    353342                /*}}}*/
    354                 /*FUNCTION GetSize{{{*/
    355                 void GetSize(int* pM,int* pN){
     343                void GetSize(int* pM,int* pN){/*{{{*/
    356344                        *pM=M;
    357345                        *pN=N;
    358346                }
    359347                /*}}}*/
    360                 /*FUNCTION GetLocalSize{{{*/
    361                 void GetLocalSize(int* pM,int* pN){
     348                void GetLocalSize(int* pM,int* pN){/*{{{*/
    362349                        *pM=m;
    363350                        *pN=N;
    364351                }
    365352                /*}}}*/
    366                 /*FUNCTION MatMult{{{*/
    367                 void MatMult(IssmAbsVec<doubletype>* Xin,IssmAbsVec<doubletype>* AXin){
     353                void MatMult(IssmAbsVec<doubletype>* Xin,IssmAbsVec<doubletype>* AXin){/*{{{*/
    368354
    369355                        int         i,j;
    … …  
    392378                }
    393379                /*}}}*/
    394                 /*FUNCTION Duplicate{{{*/
    395                 IssmMpiDenseMat<doubletype>* Duplicate(void){
     380                IssmMpiDenseMat<doubletype>* Duplicate(void){/*{{{*/
    396381
    397382                        IssmMpiDenseMat<doubletype>* dup=new IssmMpiDenseMat<doubletype>(this->matrix,this->M,this->N,0);
    … …  
    400385                }
    401386                /*}}}*/
    402                 /*FUNCTION ToSerial{{{*/
    403                 doubletype* ToSerial(void){
     387                doubletype* ToSerial(void){/*{{{*/
    404388                        _error_("not supported yet!");
    405389                }
    406390                /*}}}*/
    407                 /*FUNCTION SetValues{{{*/
    408                 void SetValues(int min,int* idxm,int nin,int* idxn,doubletype* values,InsMode mode){
     391                void SetValues(int min,int* idxm,int nin,int* idxn,doubletype* values,InsMode mode){/*{{{*/
    409392
    410393                        /*we need to store all the values we collect here in order to Assemble later.
    … …  
    417400                }
    418401                /*}}}*/
    419                 /*FUNCTION Convert{{{*/
    420                 void Convert(MatrixType type){
     402                void Convert(MatrixType type){/*{{{*/
    421403                        _error_("not supported yet!");
    422404                }
    423405                /*}}}*/         
    424                 /*FUNCTION BucketsBuildScatterBuffers{{{*/
    425                 void BucketsBuildScatterBuffers(int** pnumvalues_forcpu,int** prow_indices_forcpu,int** pcol_indices_forcpu,doubletype** pvalues_forcpu,int** pmodes_forcpu,DataSet** bucketsforcpu,int num_procs){
     406                void BucketsBuildScatterBuffers(int** pnumvalues_forcpu,int** prow_indices_forcpu,int** pcol_indices_forcpu,doubletype** pvalues_forcpu,int** pmodes_forcpu,DataSet** bucketsforcpu,int num_procs){/*{{{*/
    426407
    427408                        /*intermediary: */

  • TabularUnified issm/trunk-jpl/src/c/toolkits/issm/IssmMpiSparseMat.h

    r17924 r18063  
    4545                DataSet*    buckets;  /*here, we store buckets of values that we will Assemble into a global matrix.*/
    4646                /*IssmMpiSparseMat constructors, destructors*/
    47                 /*FUNCTION IssmMpiSparseMat(){{{*/
    48                 IssmMpiSparseMat(){
     47                IssmMpiSparseMat(){/*{{{*/
    4948                        this->M=0;
    5049                        this->N=0;
    … …  
    5453                }
    5554                /*}}}*/
    56                 /*FUNCTION IssmMpiSparseMat(int M,int N){{{*/
    57                 IssmMpiSparseMat(int Min,int Nin){
     55                IssmMpiSparseMat(int Min,int Nin){/*{{{*/
    5856                        this->Init(Min,Nin);
    5957                }
    6058                /*}}}*/
    61                 /*FUNCTION IssmMpiSparseMat(int M,int N, doubletype sparsity){{{*/
    62                 IssmMpiSparseMat(int pM,int pN, doubletype sparsity){
     59                IssmMpiSparseMat(int pM,int pN, doubletype sparsity){/*{{{*/
    6360                        /*no sparsity involved here, the sparsity pattern is resolve during the assemble phase: */
    6461                        this->Init(pM,pN);
    6562                }
    6663                /*}}}*/
    67                 /*FUNCTION IssmMpiSparseMat(int m,int n,int M,int N,int* d_nnz,int* o_nnz){{{*/
    68                 IssmMpiSparseMat(int min,int nin,int Min,int Nin,int* d_nnz,int* o_nnz){
     64                IssmMpiSparseMat(int min,int nin,int Min,int Nin,int* d_nnz,int* o_nnz){/*{{{*/
    6965
    7066                        int i;
    … …  
    8985                }
    9086                /*}}}*/
    91                 /*FUNCTION IssmMpiSparseMat(int M,int N, int connectivity, int numberofdofspernode){{{*/
    92                 IssmMpiSparseMat(int pM,int pN, int connectivity,int numberofdofspernode){
     87                IssmMpiSparseMat(int pM,int pN, int connectivity,int numberofdofspernode){/*{{{*/
    9388                        /*this is not needed, sparsity pattern is resolved at assemble phase: */
    9489                        this->Init(pM,pN);
    9590                }
    9691                /*}}}*/
    97                 /*FUNCTION IssmMpiSparseMat::Init(int Min,int Nin){{{*/
    98                 void Init(int Min,int Nin){
     92                void Init(int Min,int Nin){/*{{{*/
    9993                       
    10094                        int i;
    … …  
    120114                }
    121115                /*}}}*/
    122                 /*FUNCTION ~IssmMpiSparseMat(){{{*/
    123                 ~IssmMpiSparseMat(){
     116                ~IssmMpiSparseMat(){/*{{{*/
    124117                        int i;
    125118
    … …  
    138131
    139132                /*IssmMpiSparseMat specific routines */
    140                 /*FUNCTION Echo{{{*/
    141                 void Echo(void){
     133                void Echo(void){/*{{{*/
    142134
    143135                        /*Do a synchronized dump across all the rows: */
    … …  
    157149                }
    158150                /*}}}*/
    159                 /*FUNCTION Assemble{{{*/
    160                 void Assemble(){
     151                void Assemble(){/*{{{*/
    161152
    162153                        int           i,j;
    … …  
    369360                }
    370361                /*}}}*/
    371                 /*FUNCTION Norm{{{*/
    372                 doubletype Norm(NormMode mode){
     362                doubletype Norm(NormMode mode){/*{{{*/
    373363
    374364                        doubletype norm,local_norm;
    … …  
    402392                }
    403393                /*}}}*/
    404                 /*FUNCTION GetSize{{{*/
    405                 void GetSize(int* pM,int* pN){
     394                void GetSize(int* pM,int* pN){/*{{{*/
    406395                        *pM=M;
    407396                        *pN=N;
    408397                }
    409398                /*}}}*/
    410                 /*FUNCTION GetLocalSize{{{*/
    411                 void GetLocalSize(int* pM,int* pN){
     399                void GetLocalSize(int* pM,int* pN){/*{{{*/
    412400                        *pM=m;
    413401                        *pN=N;
    414402                }
    415403                /*}}}*/
    416                 /*FUNCTION MatMult{{{*/
    417                 void MatMult(IssmAbsVec<doubletype>* Xin,IssmAbsVec<doubletype>* AXin){
     404                void MatMult(IssmAbsVec<doubletype>* Xin,IssmAbsVec<doubletype>* AXin){/*{{{*/
    418405
    419406                        /*A check on the types: */
    … …  
    437424                }
    438425                /*}}}*/
    439                 /*FUNCTION Duplicate{{{*/
    440                 IssmMpiSparseMat<doubletype>* Duplicate(void){
     426                IssmMpiSparseMat<doubletype>* Duplicate(void){/*{{{*/
    441427
    442428                        _error_("not supported yet!");
    … …  
    444430                }
    445431                /*}}}*/
    446                 /*FUNCTION ToSerial{{{*/
    447                 doubletype* ToSerial(void){
     432                doubletype* ToSerial(void){/*{{{*/
    448433                        _error_("not supported yet!");
    449434                }
    450435                /*}}}*/
    451                 /*FUNCTION SetValues{{{*/
    452                 void SetValues(int min,int* idxm,int nin,int* idxn,doubletype* values,InsMode mode){
     436                void SetValues(int min,int* idxm,int nin,int* idxn,doubletype* values,InsMode mode){/*{{{*/
    453437
    454438                        /*we need to store all the values we collect here in order to Assemble later.
    … …  
    461445                }
    462446                /*}}}*/
    463                 /*FUNCTION Convert{{{*/
    464                 void Convert(MatrixType type){
     447                void Convert(MatrixType type){/*{{{*/
    465448                        _error_("not supported yet!");
    466449                }
    467450                /*}}}*/         
    468                 /*FUNCTION BucketsBuildScatterBuffers{{{*/
    469                 void BucketsBuildScatterBuffers(int** pnumvalues_forcpu,int** prow_indices_forcpu,int** pcol_indices_forcpu,doubletype** pvalues_forcpu,int** pmodes_forcpu,DataSet** bucketsforcpu,int num_procs){
     451                void BucketsBuildScatterBuffers(int** pnumvalues_forcpu,int** prow_indices_forcpu,int** pcol_indices_forcpu,doubletype** pvalues_forcpu,int** pmodes_forcpu,DataSet** bucketsforcpu,int num_procs){/*{{{*/
    470452
    471453                        /*intermediary: */

  • TabularUnified issm/trunk-jpl/src/c/toolkits/issm/IssmMpiVec.h

    r16158 r18063  
    4242
    4343                /*IssmMpiVec constructors, destructors*/
    44                 /*FUNCTION IssmMpiVec(){{{*/
    45                 IssmMpiVec(){
     44                IssmMpiVec(){/*{{{*/
    4645
    4746                        this->M=0;
    … …  
    5150                }
    5251                /*}}}*/
    53                 /*FUNCTION IssmMpiVec(int M){{{*/
    54                 IssmMpiVec(int Min){
     52                IssmMpiVec(int Min){/*{{{*/
    5553                        this->Init(Min,false);
    5654                }
    5755                /*}}}*/
    58                 /*FUNCTION IssmMpiVec(int m,int M){{{*/
    59                 IssmMpiVec(int min, int Min){
     56                IssmMpiVec(int min, int Min){/*{{{*/
    6057                        this->Init(min,true);
    6158                }
    6259                /*}}}*/
    63                 /*FUNCTION IssmMpiVec(int M,bool fromlocalsize){{{*/
    64                 IssmMpiVec(int Min, bool fromlocalsize){
     60                IssmMpiVec(int Min, bool fromlocalsize){/*{{{*/
    6561                        this->Init(Min,fromlocalsize);
    6662                }
    6763                /*}}}*/
    68                 /*FUNCTION IssmMpiVec(doubletype* serial_vec,int M){{{*/
    69                 IssmMpiVec(doubletype* buffer,int Min){
     64                IssmMpiVec(doubletype* buffer,int Min){/*{{{*/
    7065
    7166                        this->Init(Min,false);
    … …  
    7772                }
    7873                /*}}}*/
    79                 /*FUNCTION IssmMpiVec(doubletype* serial_vec,int M,int m){{{*/
    80                 IssmMpiVec(doubletype* buffer,int Min,int min){
     74                IssmMpiVec(doubletype* buffer,int Min,int min){/*{{{*/
    8175
    8276                        this->vector=NULL;
    … …  
    9185                }
    9286                /*}}}*/
    93                 /*FUNCTION IssmMpiVec::Init(int Min,bool fromlocalsize){{{*/
    94                 void Init(int Min,bool fromlocalsize){
     87                void Init(int Min,bool fromlocalsize){/*{{{*/
    9588
    9689                        this->buckets=new DataSet();
    … …  
    112105                }
    113106                /*}}}*/
    114                 /*FUNCTION ~IssmMpiVec(){{{*/
    115                 ~IssmMpiVec(){
     107                ~IssmMpiVec(){/*{{{*/
    116108                        xDelete<doubletype>(this->vector);
    117109                        this->M=0;
    … …  
    122114
    123115                /*IssmMpiVec specific routines*/
    124                 /*FUNCTION Echo{{{*/
    125                 void Echo(void){
     116                void Echo(void){/*{{{*/
    126117
    127118                        int i,j;
    … …  
    140131                }
    141132                /*}}}*/
    142                 /*FUNCTION Assemble{{{*/
    143                 void Assemble(){
     133                void Assemble(){/*{{{*/
    144134
    145135                        int           i,j;
    … …  
    285275                }
    286276                /*}}}*/
    287                 /*FUNCTION SetValues{{{*/
    288                 void SetValues(int ssize, int* list, doubletype* values, InsMode mode){
     277                void SetValues(int ssize, int* list, doubletype* values, InsMode mode){/*{{{*/
    289278
    290279                        /*we need to store all the values we collect here in order to Assemble later.
    … …  
    297286                }
    298287                /*}}}*/
    299                 /*FUNCTION SetValue{{{*/
    300                 void SetValue(int dof, doubletype value, InsMode mode){
     288                void SetValue(int dof, doubletype value, InsMode mode){/*{{{*/
    301289
    302290                        /*we need to store the value we collect here in order to Assemble later.
    … …  
    308296                }
    309297                /*}}}*/
    310                 /*FUNCTION GetValue{{{*/
    311                 void GetValue(doubletype* pvalue,int dof){
     298                void GetValue(doubletype* pvalue,int dof){/*{{{*/
    312299                        _error_("Get value on a MpiVec vector not implemented yet!");
    313300                }
    314301                /*}}}*/
    315                 /*FUNCTION GetSize{{{*/
    316                 void GetSize(int* pM){
     302                void GetSize(int* pM){/*{{{*/
    317303
    318304                        *pM=this->M;
    … …  
    320306                }
    321307                /*}}}*/
    322                 /*FUNCTION GetLocalSize{{{*/
    323                 void GetLocalSize(int* pM){
     308                void GetLocalSize(int* pM){/*{{{*/
    324309
    325310                        *pM=this->m;
    … …  
    327312                }
    328313                /*}}}*/
    329                 /*FUNCTION Duplicate{{{*/
    330                 IssmMpiVec<doubletype>* Duplicate(void){
     314                IssmMpiVec<doubletype>* Duplicate(void){/*{{{*/
    331315
    332316                        return new IssmMpiVec<doubletype>(this->vector,this->M,this->m);
    … …  
    334318                }
    335319                /*}}}*/
    336                 /*FUNCTION Set{{{*/
    337                 void Set(doubletype value){
     320                void Set(doubletype value){/*{{{*/
    338321
    339322                        int i;
    … …  
    342325                }
    343326                /*}}}*/
    344                 /*FUNCTION AXPY{{{*/
    345                 void AXPY(IssmAbsVec<doubletype>* Xin, doubletype a){
     327                void AXPY(IssmAbsVec<doubletype>* Xin, doubletype a){/*{{{*/
    346328
    347329                        int i;
    … …  
    357339                }
    358340                /*}}}*/
    359                 /*FUNCTION AYPX{{{*/
    360                 void AYPX(IssmAbsVec<doubletype>* Xin, doubletype a){
     341                void AYPX(IssmAbsVec<doubletype>* Xin, doubletype a){/*{{{*/
    361342                        int i;
    362343
    … …  
    371352                }
    372353                /*}}}*/
    373                 /*FUNCTION ToMPISerial{{{*/
    374                 doubletype* ToMPISerial(void){
     354                doubletype* ToMPISerial(void){/*{{{*/
    375355
    376356                        /*communicator info: */
    … …  
    416396                }
    417397                /*}}}*/
    418                 /*FUNCTION Copy{{{*/
    419                 void Copy(IssmAbsVec<doubletype>* toin){
     398                void Copy(IssmAbsVec<doubletype>* toin){/*{{{*/
    420399
    421400                        int i;
    … …  
    431410                }
    432411                /*}}}*/
    433                 /*FUNCTION Norm{{{*/
    434                 doubletype Norm(NormMode mode){
     412                doubletype Norm(NormMode mode){/*{{{*/
    435413
    436414                        doubletype local_norm;
    … …  
    459437                }
    460438                /*}}}*/
    461                 /*FUNCTION Scale{{{*/
    462                 void Scale(doubletype scale_factor){
     439                void Scale(doubletype scale_factor){/*{{{*/
    463440
    464441                        int i;
    … …  
    467444                }
    468445                /*}}}*/
    469                 /*FUNCTION Dot{{{*/
    470                 doubletype Dot(IssmAbsVec<doubletype>* inputin){
     446                doubletype Dot(IssmAbsVec<doubletype>* inputin){/*{{{*/
    471447
    472448                        int i;
    … …  
    488464                }
    489465                /*}}}*/
    490                 /*FUNCTION PointwiseDivide{{{*/
    491                 void PointwiseDivide(IssmAbsVec<doubletype>* xin,IssmAbsVec<doubletype>* yin){
     466                void PointwiseDivide(IssmAbsVec<doubletype>* xin,IssmAbsVec<doubletype>* yin){/*{{{*/
    492467
    493468                        int i;
    … …  
    504479                }
    505480                /*}}}*/
    506                 /*FUNCTION BucketsBuildScatterBuffers{{{*/
    507                 void BucketsBuildScatterBuffers(int** pnumvalues_forcpu,int** prow_indices_forcpu,doubletype** pvalues_forcpu,int** pmodes_forcpu,DataSet** bucketsforcpu,int num_procs){
     481                void BucketsBuildScatterBuffers(int** pnumvalues_forcpu,int** prow_indices_forcpu,doubletype** pvalues_forcpu,int** pmodes_forcpu,DataSet** bucketsforcpu,int num_procs){/*{{{*/
    508482
    509483                        /*intermediary: */

  • TabularUnified issm/trunk-jpl/src/c/toolkits/issm/IssmSeqVec.h

    r15358 r18063  
    3737
    3838                /*IssmSeqVec constructors, destructors*/
    39                 /*FUNCTION IssmSeqVec(){{{*/
    40                 IssmSeqVec(){
     39                IssmSeqVec(){/*{{{*/
    4140
    4241                        this->M=0;
    … …  
    4443                }
    4544                /*}}}*/
    46                 /*FUNCTION IssmSeqVec(int M){{{*/
    47                 IssmSeqVec(int pM){
     45                IssmSeqVec(int pM){/*{{{*/
    4846
    4947                        this->M=pM;
    … …  
    5250                }
    5351                /*}}}*/
    54                 /*FUNCTION IssmSeqVec(int m,int M){{{*/
    55                 IssmSeqVec(int pm,int pM){
     52                IssmSeqVec(int pm,int pM){/*{{{*/
    5653
    5754                        this->M=pM;
    … …  
    6057                }
    6158                /*}}}*/
    62                 /*FUNCTION IssmSeqVec(int M,bool fromlocalsize){{{*/
    63                 IssmSeqVec(int pM,bool fromlocalsize){
     59                IssmSeqVec(int pM,bool fromlocalsize){/*{{{*/
    6460
    6561                        this->M=pM;
    … …  
    6864                }
    6965                /*}}}*/
    70                 /*FUNCTION IssmSeqVec(doubletype* serial_vec,int M){{{*/
    71                 IssmSeqVec(doubletype* buffer,int pM){
     66                IssmSeqVec(doubletype* buffer,int pM){/*{{{*/
    7267
    7368                        this->M=pM;
    … …  
    7974                }
    8075                /*}}}*/
    81                 /*FUNCTION ~IssmSeqVec(){{{*/
    82                 ~IssmSeqVec(){
     76                ~IssmSeqVec(){/*{{{*/
    8377                        if(this->M)xDelete<doubletype>(this->vector);
    8478                        M=0;
    … …  
    8781
    8882                /*IssmSeqVec specific routines*/
    89                 /*FUNCTION Echo{{{*/
    90                 void Echo(void){
     83                void Echo(void){/*{{{*/
    9184
    9285                        int i;
    … …  
    9790                }
    9891                /*}}}*/
    99                 /*FUNCTION Assemble{{{*/
    100                 void Assemble(void){
     92                void Assemble(void){/*{{{*/
    10193
    10294                        /*do nothing*/
    … …  
    10496                }
    10597                /*}}}*/
    106                 /*FUNCTION SetValues{{{*/
    107                 void SetValues(int ssize, int* list, doubletype* values, InsMode mode){
     98                void SetValues(int ssize, int* list, doubletype* values, InsMode mode){/*{{{*/
    10899
    109100                        int i;
    … …  
    122113                }
    123114                /*}}}*/
    124                 /*FUNCTION SetValue{{{*/
    125                 void SetValue(int dof, doubletype value, InsMode mode){
     115                void SetValue(int dof, doubletype value, InsMode mode){/*{{{*/
    126116
    127117                        switch(mode){
    … …  
    138128                }
    139129                /*}}}*/
    140                 /*FUNCTION GetValue{{{*/
    141                 void GetValue(doubletype* pvalue,int dof){
     130                void GetValue(doubletype* pvalue,int dof){/*{{{*/
    142131
    143132                        *pvalue=this->vector[dof];
    … …  
    145134                }
    146135                /*}}}*/
    147                 /*FUNCTION GetSize{{{*/
    148                 void GetSize(int* pM){
     136                void GetSize(int* pM){/*{{{*/
    149137
    150138                        *pM=this->M;
    … …  
    152140                }
    153141                /*}}}*/
    154                 /*FUNCTION GetLocalSize{{{*/
    155                 void GetLocalSize(int* pM){
     142                void GetLocalSize(int* pM){/*{{{*/
    156143
    157144                        *pM=this->M;
    … …  
    159146                }
    160147                /*}}}*/
    161                 /*FUNCTION Duplicate{{{*/
    162                 IssmSeqVec<doubletype>* Duplicate(void){
     148                IssmSeqVec<doubletype>* Duplicate(void){/*{{{*/
    163149
    164150                        return new IssmSeqVec<doubletype>(this->vector,this->M);
    … …  
    166152                }
    167153                /*}}}*/
    168                 /*FUNCTION Set{{{*/
    169                 void Set(doubletype value){
     154                void Set(doubletype value){/*{{{*/
    170155
    171156                        int i;
    … …  
    174159                }
    175160                /*}}}*/
    176                 /*FUNCTION AXPY{{{*/
    177                 void AXPY(IssmAbsVec<doubletype>* Xin, doubletype a){
     161                void AXPY(IssmAbsVec<doubletype>* Xin, doubletype a){/*{{{*/
    178162
    179163                        int i;
    … …  
    189173                }
    190174                /*}}}*/
    191                 /*FUNCTION AYPX{{{*/
    192                 void AYPX(IssmAbsVec<doubletype>* Xin, doubletype a){
     175                void AYPX(IssmAbsVec<doubletype>* Xin, doubletype a){/*{{{*/
    193176
    194177                        int i;
    … …  
    204187                }
    205188                /*}}}*/
    206                 /*FUNCTION ToMPISerial{{{*/
    207                 doubletype* ToMPISerial(void){
     189                doubletype* ToMPISerial(void){/*{{{*/
    208190
    209191                        doubletype* buffer=NULL;
    … …  
    217199                }
    218200                /*}}}*/
    219                 /*FUNCTION Copy{{{*/
    220                 void Copy(IssmAbsVec<doubletype>* toin){
     201                void Copy(IssmAbsVec<doubletype>* toin){/*{{{*/
    221202
    222203                        int i;
    … …  
    232213                }
    233214                /*}}}*/
    234                 /*FUNCTION Norm{{{*/
    235                 doubletype Norm(NormMode mode){
     215                doubletype Norm(NormMode mode){/*{{{*/
    236216
    237217                        doubletype norm;
    … …  
    255235                }
    256236                /*}}}*/
    257                 /*FUNCTION Scale{{{*/
    258                 void Scale(doubletype scale_factor){
     237                void Scale(doubletype scale_factor){/*{{{*/
    259238
    260239                        int i;
    … …  
    263242                }
    264243                /*}}}*/
    265                 /*FUNCTION Dot{{{*/
    266                 doubletype Dot(IssmAbsVec<doubletype>* inputin){
     244                doubletype Dot(IssmAbsVec<doubletype>* inputin){/*{{{*/
    267245
    268246                        int i;
    … …  
    279257                }
    280258                /*}}}*/
    281                 /*FUNCTION PointwiseDivide{{{*/
    282                 void PointwiseDivide(IssmAbsVec<doubletype>* xin,IssmAbsVec<doubletype>* yin){
     259                void PointwiseDivide(IssmAbsVec<doubletype>* xin,IssmAbsVec<doubletype>* yin){/*{{{*/
    283260
    284261                        int i;

  • TabularUnified issm/trunk-jpl/src/c/toolkits/objects/Matrix.h

    r16675 r18063  
    3636
    3737                /*Matrix constructors, destructors*/
    38                 /*FUNCTION Matrix(){{{*/
    39                 Matrix(){
    40                         InitCheckAndSetType();
    41                 }
    42                 /*}}}*/
    43                 /*FUNCTION Matrix(int M,int N){{{*/
    44                 Matrix(int M,int N){
     38                Matrix(){/*{{{*/
     39                        InitCheckAndSetType();
     40                }
     41                /*}}}*/
     42                Matrix(int M,int N){/*{{{*/
    4543
    4644                        InitCheckAndSetType();
    … …  
    5755                }
    5856                /*}}}*/
    59                 /*FUNCTION Matrix(int m,int n,int M,int N,int* d_nnz,int* o_nnz){{{*/
    60                 Matrix(int m,int n,int M,int N,int* d_nnz,int* o_nnz){
     57                Matrix(int m,int n,int M,int N,int* d_nnz,int* o_nnz){/*{{{*/
    6158
    6259                        InitCheckAndSetType();
    … …  
    7370                }
    7471                /*}}}*/
    75                 /*FUNCTION Matrix(int M,int N,IssmDouble sparsity){{{*/
    76                 Matrix(int M,int N,double sparsity){
     72                Matrix(int M,int N,double sparsity){/*{{{*/
    7773
    7874                        InitCheckAndSetType();
    … …  
    8884                }
    8985                /*}}}*/
    90                 /*FUNCTION Matrix(IssmDouble* serial_mat, int M,int N,IssmDouble sparsity){{{*/
    91                 Matrix(IssmPDouble* serial_mat,int M,int N,IssmPDouble sparsity){
     86                Matrix(IssmPDouble* serial_mat,int M,int N,IssmPDouble sparsity){/*{{{*/
    9287
    9388                        InitCheckAndSetType();
    … …  
    10499                }
    105100                /*}}}*/
    106                 /*FUNCTION Matrix(int M,int N,int connectivity,int numberofdofspernode){{{*/
    107                 Matrix(int M,int N,int connectivity,int numberofdofspernode){
     101                Matrix(int M,int N,int connectivity,int numberofdofspernode){/*{{{*/
    108102
    109103                        InitCheckAndSetType();
    … …  
    120114                }
    121115                /*}}}*/
    122                 /*FUNCTION ~Matrix(){{{*/
    123                 ~Matrix(){
     116                ~Matrix(){/*{{{*/
    124117
    125118                        if(type==PetscMatType){
    … …  
    132125                }
    133126                /*}}}*/
    134                 /*FUNCTION InitCheckAndSetType(){{{*/
    135                 void InitCheckAndSetType(void){
     127                void InitCheckAndSetType(void){/*{{{*/
    136128
    137129                        char* toolkittype=NULL;
    … …  
    165157
    166158                /*Matrix specific routines:*/
    167                 /*FUNCTION Echo{{{*/
    168                 void Echo(void){
     159                void Echo(void){/*{{{*/
    169160                        _assert_(this);
    170161
    … …  
    180171                }
    181172                /*}}}*/
    182                 /*FUNCTION AllocationInfo{{{*/
    183                 void AllocationInfo(void){
     173                void AllocationInfo(void){/*{{{*/
    184174                        _assert_(this);
    185175                        if(type==PetscMatType){
    … …  
    193183                        }
    194184                }/*}}}*/
    195                 /*FUNCTION Assemble{{{*/
    196                 void Assemble(void){
     185                void Assemble(void){/*{{{*/
    197186
    198187                        if(type==PetscMatType){
    … …  
    206195                }
    207196                /*}}}*/
    208                 /*FUNCTION Norm{{{*/
    209                 IssmDouble Norm(NormMode norm_type){
     197                IssmDouble Norm(NormMode norm_type){/*{{{*/
    210198
    211199                        IssmDouble norm=0;
    … …  
    223211                }
    224212                /*}}}*/
    225                 /*FUNCTION GetSize{{{*/
    226                 void GetSize(int* pM,int* pN){
     213                void GetSize(int* pM,int* pN){/*{{{*/
    227214
    228215                        if(type==PetscMatType){
    … …  
    237224                }
    238225                /*}}}*/
    239                 /*FUNCTION GetLocalSize{{{*/
    240                 void GetLocalSize(int* pM,int* pN){
     226                void GetLocalSize(int* pM,int* pN){/*{{{*/
    241227
    242228                        if(type==PetscMatType){
    … …  
    251237                }
    252238                /*}}}*/
    253                 /*FUNCTION MatMult{{{*/
    254                 void MatMult(Vector<doubletype>* X,Vector<doubletype>* AX){
     239                void MatMult(Vector<doubletype>* X,Vector<doubletype>* AX){/*{{{*/
    255240
    256241                        if(type==PetscMatType){
    … …  
    265250                }
    266251                /*}}}*/
    267                 /*FUNCTION Duplicate{{{*/
    268                 Matrix<doubletype>* Duplicate(void){
     252                Matrix<doubletype>* Duplicate(void){/*{{{*/
    269253
    270254                        Matrix<doubletype>* output=new Matrix<doubletype>();
    … …  
    282266                }
    283267                /*}}}*/
    284                 /*FUNCTION ToSerial{{{*/
    285                 doubletype* ToSerial(void){
     268                doubletype* ToSerial(void){/*{{{*/
    286269
    287270                        doubletype* output=NULL;
    … …  
    299282                }
    300283                /*}}}*/
    301                 /*FUNCTION SetValues{{{*/
    302                 void SetValues(int m,int* idxm,int n,int* idxn,IssmDouble* values,InsMode mode){
     284                void SetValues(int m,int* idxm,int n,int* idxn,IssmDouble* values,InsMode mode){/*{{{*/
    303285
    304286                        if(type==PetscMatType){
    … …  
    312294                }
    313295                /*}}}*/
    314                 /*FUNCTION Convert{{{*/
    315                 void Convert(MatrixType newtype){
     296                void Convert(MatrixType newtype){/*{{{*/
    316297
    317298                        if(type==PetscMatType){

  • TabularUnified issm/trunk-jpl/src/c/toolkits/objects/Vector.h

    r17509 r18063  
    128128
    129129                /*Vector specific routines*/
    130                 /*FUNCTION Echo{{{*/
    131                 void Echo(void){_assert_(this);
     130                void Echo(void){_assert_(this);/*{{{*/
    132131
    133132                        if(type==PetscVecType){
    … …  
    140139                }
    141140                /*}}}*/
    142                 /*FUNCTION Assemble{{{*/
    143                 void Assemble(void){_assert_(this);
     141                void Assemble(void){_assert_(this);/*{{{*/
    144142
    145143                        if(type==PetscVecType){
    … …  
    152150                }
    153151                /*}}}*/
    154                 /*FUNCTION SetValues{{{*/
    155                 void SetValues(int ssize, int* list, doubletype* values, InsMode mode){ _assert_(this);
     152                void SetValues(int ssize, int* list, doubletype* values, InsMode mode){ _assert_(this);/*{{{*/
    156153                        if(type==PetscVecType){
    157154                                #ifdef _HAVE_PETSC_
    … …  
    163160                }
    164161                /*}}}*/
    165                 /*FUNCTION SetValue{{{*/
    166                 void SetValue(int dof, doubletype value, InsMode mode){_assert_(this);
     162                void SetValue(int dof, doubletype value, InsMode mode){_assert_(this);/*{{{*/
    167163
    168164                        if(type==PetscVecType){
    … …  
    175171                }
    176172                /*}}}*/
    177                 /*FUNCTION GetValue{{{*/
    178                 void GetValue(doubletype* pvalue,int dof){_assert_(this);
     173                void GetValue(doubletype* pvalue,int dof){_assert_(this);/*{{{*/
    179174
    180175                        if(type==PetscVecType){
    … …  
    187182                }
    188183                /*}}}*/
    189                 /*FUNCTION GetSize{{{*/
    190                 void GetSize(int* pM){_assert_(this);
     184                void GetSize(int* pM){_assert_(this);/*{{{*/
    191185
    192186                        if(type==PetscVecType){
    … …  
    199193                }
    200194                /*}}}*/
    201                 /*FUNCTION IsEmpty{{{*/
    202                 bool IsEmpty(void){
     195                bool IsEmpty(void){/*{{{*/
    203196                        int M;
    204197
    … …  
    212205                }
    213206                /*}}}*/
    214                 /*FUNCTION GetLocalSize{{{*/
    215                 void GetLocalSize(int* pM){_assert_(this);
     207                void GetLocalSize(int* pM){_assert_(this);/*{{{*/
    216208
    217209                        if(type==PetscVecType){
    … …  
    224216                }
    225217                /*}}}*/
    226                 /*FUNCTION Duplicate{{{*/
    227                 Vector<doubletype>* Duplicate(void){_assert_(this);
     218                Vector<doubletype>* Duplicate(void){_assert_(this);/*{{{*/
    228219
    229220                        Vector<doubletype>* output=NULL;
    … …  
    242233                }
    243234                /*}}}*/
    244                 /*FUNCTION Set{{{*/
    245                 void Set(doubletype value){_assert_(this);
     235                void Set(doubletype value){_assert_(this);/*{{{*/
    246236
    247237                        if(type==PetscVecType){
    … …  
    254244                }
    255245                /*}}}*/
    256                 /*FUNCTION AXPY{{{*/
    257                 void AXPY(Vector* X, doubletype a){_assert_(this);
     246                void AXPY(Vector* X, doubletype a){_assert_(this);/*{{{*/
    258247
    259248                        if(type==PetscVecType){
    … …  
    266255                }
    267256                /*}}}*/
    268                 /*FUNCTION AYPX{{{*/
    269                 void AYPX(Vector* X, doubletype a){_assert_(this);
     257                void AYPX(Vector* X, doubletype a){_assert_(this);/*{{{*/
    270258
    271259                        if(type==PetscVecType){
    … …  
    277265                }
    278266                /*}}}*/
    279                 /*FUNCTION ToMPISerial{{{*/
    280                 doubletype* ToMPISerial(void){
     267                doubletype* ToMPISerial(void){/*{{{*/
    281268
    282269                        doubletype* vec_serial=NULL;
    … …  
    294281                }
    295282                /*}}}*/
    296                 /*FUNCTION Copy{{{*/
    297                 void Copy(Vector* to){_assert_(this);
     283                void Copy(Vector* to){_assert_(this);/*{{{*/
    298284
    299285                        if(type==PetscVecType){
    … …  
    305291                }
    306292                /*}}}*/
    307                 /*FUNCTION Max{{{*/
    308                 doubletype Max(void){_assert_(this);
     293                doubletype Max(void){_assert_(this);/*{{{*/
    309294
    310295                        doubletype max=0;
    … …  
    319304                }
    320305                /*}}}*/
    321                 /*FUNCTION Norm{{{*/
    322                 doubletype Norm(NormMode norm_type){_assert_(this);
     306                doubletype Norm(NormMode norm_type){_assert_(this);/*{{{*/
    323307
    324308                        doubletype norm=0;
    … …  
    333317                }
    334318                /*}}}*/
    335                 /*FUNCTION Scale{{{*/
    336                 void Scale(doubletype scale_factor){_assert_(this);
     319                void Scale(doubletype scale_factor){_assert_(this);/*{{{*/
    337320
    338321                        if(type==PetscVecType){
    … …  
    344327                }
    345328                /*}}}*/
    346                 /*FUNCTION Dot{{{*/
    347                 doubletype Dot(Vector* vector){_assert_(this);
     329                doubletype Dot(Vector* vector){_assert_(this);/*{{{*/
    348330
    349331                        doubletype dot;
    … …  
    358340                }
    359341                /*}}}*/
    360                 /*FUNCTION PointwiseDivide{{{*/
    361                 void PointwiseDivide(Vector* x,Vector* y){_assert_(this);
     342                void PointwiseDivide(Vector* x,Vector* y){_assert_(this);/*{{{*/
    362343
    363344                        if(type==PetscVecType){

  • TabularUnified issm/trunk-jpl/src/c/toolkits/petsc/objects/PetscMat.cpp

    r17110 r18063  
    1919
    2020/*PetscMat constructors and destructor*/
    21 /*FUNCTION PetscMat::PetscMat(){{{*/
    22 PetscMat::PetscMat(){
     21PetscMat::PetscMat(){/*{{{*/
    2322        this->matrix=NULL;
    2423        #ifdef _HAVE_ADOLC_
    … …  
    2827}
    2928/*}}}*/
    30 /*FUNCTION PetscMat::PetscMat(int M,int N){{{*/
    31 PetscMat::PetscMat(int M,int N){
     29PetscMat::PetscMat(int M,int N){/*{{{*/
    3230
    3331        this->matrix=NewMat(M,N,IssmComm::GetComm());
    3432}
    3533/*}}}*/
    36 /*FUNCTION PetscMat::PetscMat(int M,int N, IssmDouble sparsity){{{*/
    37 PetscMat::PetscMat(int M,int N, IssmDouble sparsity){
     34PetscMat::PetscMat(int M,int N, IssmDouble sparsity){/*{{{*/
    3835
    3936        this->matrix=NewMat(M,N,sparsity,IssmComm::GetComm());
    4037}
    4138/*}}}*/
    42 /*FUNCTION PetscMat::PetscMat(int m,int n,int M,int N,int* d_nnz,int* o_nnz){{{*/
    43 PetscMat::PetscMat(int m,int n,int M,int N,int* d_nnz,int* o_nnz){
     39PetscMat::PetscMat(int m,int n,int M,int N,int* d_nnz,int* o_nnz){/*{{{*/
    4440
    4541        MatCreate(IssmComm::GetComm(),&this->matrix);
    … …  
    5147}
    5248/*}}}*/
    53 /*FUNCTION PetscMat::PetscMat(IssmDouble* serial_mat,int M,int N,IssmDouble sparsity){{{*/
    54 PetscMat::PetscMat(IssmDouble* serial_mat,int M,int N,IssmDouble sparsity){
     49PetscMat::PetscMat(IssmDouble* serial_mat,int M,int N,IssmDouble sparsity){/*{{{*/
    5550
    5651        int     i;
    … …  
    7469}
    7570/*}}}*/
    76 /*FUNCTION PetscMat::PetscMat(int M,int N, int connectivity, int numberofdofspernode){{{*/
    77 PetscMat::PetscMat(int M,int N, int connectivity,int numberofdofspernode){
     71PetscMat::PetscMat(int M,int N, int connectivity,int numberofdofspernode){/*{{{*/
    7872
    7973        this->matrix=NewMat(M,N,connectivity,numberofdofspernode,IssmComm::GetComm());
    … …  
    8175}
    8276/*}}}*/
    83 /*FUNCTION PetscMat::~PetscMat(){{{*/
    84 PetscMat::~PetscMat(){
     77PetscMat::~PetscMat(){/*{{{*/
    8578        MatFree(&this->matrix);
    8679}
    … …  
    8881
    8982/*PetscMat specific routines: */
    90 /*FUNCTION PetscMat::AllocationInfo{{{*/
    91 void PetscMat::AllocationInfo(void){
     83void PetscMat::AllocationInfo(void){/*{{{*/
    9284
    9385        MatInfo info;
    … …  
    10395}
    10496/*}}}*/
    105 /*FUNCTION PetscMat::Echo{{{*/
    106 void PetscMat::Echo(void){
     97void PetscMat::Echo(void){/*{{{*/
    10798
    10899        MatView(this->matrix,PETSC_VIEWER_STDOUT_WORLD);
    109100}
    110101/*}}}*/
    111 /*FUNCTION PetscMat::Assemble{{{*/
    112 void PetscMat::Assemble(void){
     102void PetscMat::Assemble(void){/*{{{*/
    113103
    114104        _assert_(this->matrix);
    … …  
    118108}
    119109/*}}}*/
    120 /*FUNCTION PetscMat::Norm{{{*/
    121 IssmDouble PetscMat::Norm(NormMode mode){
     110IssmDouble PetscMat::Norm(NormMode mode){/*{{{*/
    122111
    123112        IssmDouble norm=0;
    … …  
    129118}
    130119/*}}}*/
    131 /*FUNCTION PetscMat::GetSize{{{*/
    132 void PetscMat::GetSize(int* pM,int* pN){
     120void PetscMat::GetSize(int* pM,int* pN){/*{{{*/
    133121
    134122        _assert_(this->matrix);
    … …  
    136124}
    137125/*}}}*/
    138 /*FUNCTION PetscMat::GetLocalSize{{{*/
    139 void PetscMat::GetLocalSize(int* pM,int* pN){
     126void PetscMat::GetLocalSize(int* pM,int* pN){/*{{{*/
    140127
    141128        _assert_(this->matrix);
    … …  
    144131}
    145132/*}}}*/
    146 /*FUNCTION PetscMat::MatMult{{{*/
    147 void PetscMat::MatMult(PetscVec* X,PetscVec* AX){
     133void PetscMat::MatMult(PetscVec* X,PetscVec* AX){/*{{{*/
    148134
    149135        _assert_(this->matrix);
    … …  
    153139}
    154140/*}}}*/
    155 /*FUNCTION PetscMat::Duplicate{{{*/
    156 PetscMat* PetscMat::Duplicate(void){
     141PetscMat* PetscMat::Duplicate(void){/*{{{*/
    157142
    158143        PetscMat* output=new PetscMat();
    … …  
    164149}
    165150/*}}}*/
    166 /*FUNCTION PetscMat::ToSerial{{{*/
    167 IssmDouble* PetscMat::ToSerial(void){
     151IssmDouble* PetscMat::ToSerial(void){/*{{{*/
    168152
    169153         IssmDouble* output=NULL;
    … …  
    174158}
    175159/*}}}*/
    176 /*FUNCTION PetscMat::SetValues{{{*/
    177 void PetscMat::SetValues(int m,int* idxm,int n,int* idxn,IssmDouble* values,InsMode mode){
     160void PetscMat::SetValues(int m,int* idxm,int n,int* idxn,IssmDouble* values,InsMode mode){/*{{{*/
    178161
    179162        PetscErrorCode ierr;
    … …  
    183166}
    184167/*}}}*/
    185 /*FUNCTION PetscMat::Convert{{{*/
    186 void PetscMat::Convert(MatrixType type){
     168void PetscMat::Convert(MatrixType type){/*{{{*/
    187169
    188170        MatConvert(this->matrix,ISSMToPetscMatrixType(type),MAT_REUSE_MATRIX,&this->matrix);

  • TabularUnified issm/trunk-jpl/src/c/toolkits/petsc/objects/PetscVec.cpp

    r17509 r18063  
    1919
    2020/*PetscVec constructors and destructor*/
    21 /*FUNCTION PetscVec::PetscVec(){{{*/
    22 PetscVec::PetscVec(){
     21PetscVec::PetscVec(){/*{{{*/
    2322        this->vector=NULL;
    2423        #ifdef _HAVE_ADOLC_
    … …  
    2726}
    2827/*}}}*/
    29 /*FUNCTION PetscVec::PetscVec(int M,bool fromlocalsize){{{*/
    30 PetscVec::PetscVec(int M,bool fromlocalsize){
     28PetscVec::PetscVec(int M,bool fromlocalsize){/*{{{*/
    3129
    3230        this->vector=NewVec(M,IssmComm::GetComm(),fromlocalsize);
    … …  
    3432}
    3533/*}}}*/
    36 /*FUNCTION PetscVec::PetscVec(int m,int M){{{*/
    37 PetscVec::PetscVec(int m,int M){
     34PetscVec::PetscVec(int m,int M){/*{{{*/
    3835
    3936        VecCreate(IssmComm::GetComm(),&this->vector);
    … …  
    4441}
    4542/*}}}*/
    46 /*FUNCTION PetscVec::PetscVec(Vec petsc_vec){{{*/
    47 PetscVec::PetscVec(Vec petsc_vec){
     43PetscVec::PetscVec(Vec petsc_vec){/*{{{*/
    4844
    4945        if(petsc_vec==NULL){
    … …  
    5854}
    5955/*}}}*/
    60 /*FUNCTION PetscVec::PetscVec(IssmDouble* serial_vec,int M){{{*/
    61 PetscVec::PetscVec(IssmDouble* serial_vec,int M){
     56PetscVec::PetscVec(IssmDouble* serial_vec,int M){/*{{{*/
    6257
    6358        int* idxm=NULL;
    … …  
    7368}
    7469/*}}}*/
    75 /*FUNCTION PetscVec::~PetscVec(){{{*/
    76 PetscVec::~PetscVec(){
     70PetscVec::~PetscVec(){/*{{{*/
    7771    VecFree(&this->vector);
    7872}
    … …  
    8074
    8175/*PetscVec specific routines: */
    82 /*FUNCTION PetscVec::Echo{{{*/
    83 void PetscVec::Echo(void){
     76void PetscVec::Echo(void){/*{{{*/
    8477
    8578        _assert_(this->vector);
    … …  
    8780}
    8881/*}}}*/
    89 /*FUNCTION PetscVec::Assemble{{{*/
    90 void PetscVec::Assemble(void){
     82void PetscVec::Assemble(void){/*{{{*/
    9183
    9284        _assert_(this->vector);
    … …  
    9688}
    9789/*}}}*/
    98 /*FUNCTION PetscVec::SetValues{{{*/
    99 void PetscVec::SetValues(int ssize, int* list, IssmDouble* values, InsMode mode){
     90void PetscVec::SetValues(int ssize, int* list, IssmDouble* values, InsMode mode){/*{{{*/
    10091
    10192        _assert_(this->vector);
    … …  
    10495}
    10596/*}}}*/
    106 /*FUNCTION PetscVec::SetValue{{{*/
    107 void PetscVec::SetValue(int dof, IssmDouble value, InsMode mode){
     97void PetscVec::SetValue(int dof, IssmDouble value, InsMode mode){/*{{{*/
    10898
    10999        _assert_(this->vector);
    … …  
    112102}
    113103/*}}}*/
    114 /*FUNCTION PetscVec::GetValue{{{*/
    115 void PetscVec::GetValue(IssmDouble* pvalue,int dof){
     104void PetscVec::GetValue(IssmDouble* pvalue,int dof){/*{{{*/
    116105
    117106        _assert_(this->vector);
    … …  
    120109}
    121110/*}}}*/
    122 /*FUNCTION PetscVec::GetSize{{{*/
    123 void PetscVec::GetSize(int* pM){
     111void PetscVec::GetSize(int* pM){/*{{{*/
    124112
    125113        _assert_(this->vector);
    … …  
    128116}
    129117/*}}}*/
    130 /*FUNCTION PetscVec::GetLocalSize{{{*/
    131 void PetscVec::GetLocalSize(int* pM){
     118void PetscVec::GetLocalSize(int* pM){/*{{{*/
    132119
    133120        _assert_(this->vector);
    … …  
    136123}
    137124/*}}}*/
    138 /*FUNCTION PetscVec::Duplicate{{{*/
    139 PetscVec* PetscVec::Duplicate(void){
     125PetscVec* PetscVec::Duplicate(void){/*{{{*/
    140126
    141127        _assert_(this->vector);
    … …  
    148134}
    149135/*}}}*/
    150 /*FUNCTION PetscVec::Set{{{*/
    151 void PetscVec::Set(IssmDouble value){
     136void PetscVec::Set(IssmDouble value){/*{{{*/
    152137
    153138        _assert_(this->vector);
    … …  
    156141}
    157142/*}}}*/
    158 /*FUNCTION PetscVec::AXPY{{{*/
    159 void PetscVec::AXPY(PetscVec* X, IssmDouble a){
     143void PetscVec::AXPY(PetscVec* X, IssmDouble a){/*{{{*/
    160144
    161145        _assert_(this->vector);
    … …  
    164148}
    165149/*}}}*/
    166 /*FUNCTION PetscVec::AYPX{{{*/
    167 void PetscVec::AYPX(PetscVec* X, IssmDouble a){
     150void PetscVec::AYPX(PetscVec* X, IssmDouble a){/*{{{*/
    168151
    169152        _assert_(this->vector);
    … …  
    172155}
    173156/*}}}*/
    174 /*FUNCTION PetscVec::ToMPISerial{{{*/
    175 IssmDouble* PetscVec::ToMPISerial(void){
     157IssmDouble* PetscVec::ToMPISerial(void){/*{{{*/
    176158
    177159        IssmDouble* vec_serial=NULL;
    … …  
    181163}
    182164/*}}}*/
    183 /*FUNCTION PetscVec::Copy{{{*/
    184 void PetscVec::Copy(PetscVec* to){
     165void PetscVec::Copy(PetscVec* to){/*{{{*/
    185166
    186167        if(this->vector) VecCopy(this->vector,to->vector);
    … …  
    188169}
    189170/*}}}*/
    190 /*FUNCTION PetscVec::Max{{{*/
    191 IssmDouble PetscVec::Max(void){
     171IssmDouble PetscVec::Max(void){/*{{{*/
    192172
    193173        _assert_(this->vector);
    … …  
    199179}
    200180/*}}}*/
    201 /*FUNCTION PetscVec::Norm{{{*/
    202 IssmDouble PetscVec::Norm(NormMode mode){
     181IssmDouble PetscVec::Norm(NormMode mode){/*{{{*/
    203182
    204183        IssmDouble norm=0;
    … …  
    209188}
    210189/*}}}*/
    211 /*FUNCTION PetscVec::Scale{{{*/
    212 void PetscVec::Scale(IssmDouble scale_factor){
     190void PetscVec::Scale(IssmDouble scale_factor){/*{{{*/
    213191
    214192        _assert_(this->vector);
    … …  
    217195}
    218196/*}}}*/
    219 /*FUNCTION PetscVec::Dot{{{*/
    220 IssmDouble PetscVec::Dot(PetscVec* input){
     197IssmDouble PetscVec::Dot(PetscVec* input){/*{{{*/
    221198
    222199        IssmDouble dot;
    … …  
    227204}
    228205/*}}}*/
    229 /*FUNCTION PetscVec::PointwiseDivide{{{*/
    230 void PetscVec::PointwiseDivide(PetscVec* x,PetscVec* y){
     206void PetscVec::PointwiseDivide(PetscVec* x,PetscVec* y){/*{{{*/
    231207
    232208        _assert_(this->vector);
Note: See TracChangeset for help on using the changeset viewer.