00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019 #include "hydroclimate.h"
00020 #include "hydroparams.h"
00021 #include "hydrotimeser.h"
00022
00023
00024
00025
00026 int hydromaxevents()
00027 {
00028
00029
00030
00031
00032 int err, p, x, y;
00033 double Qpeakalleventstemp, Qpeakalleventstemp2;
00034 err = 0;
00035
00036
00037
00038
00039 if ( yr == syear[ep] )
00040 for ( p=0; p<eventsnr[ep]; p++ )
00041 Qpeakallevents[ep][p] = Qpeakevents[p];
00042 else
00043 for ( p=eventsnr[ep]-1; p>=0; p-- )
00044 for ( x=0; x<eventsnr[ep]; x++ ){
00045 if ( Qpeakevents[p] > Qpeakallevents[ep][p-x] ){
00046 Qpeakalleventstemp = Qpeakallevents[ep][p-x];
00047 Qpeakallevents[ep][p-x] = Qpeakevents[p];
00048 for ( y=p-x-1; y>=0; y-- ){
00049 Qpeakalleventstemp2 = Qpeakallevents[ep][y];
00050 Qpeakallevents[ep][y] = Qpeakalleventstemp;
00051 Qpeakalleventstemp = Qpeakalleventstemp2;
00052 }
00053 }
00054 x = eventsnr[ep];
00055 }
00056 return (err);
00057 }
00058
00059