Added srf2moment code

Author: fabiolsilva

gmsvtoolkit/src/gp/StandRupFormat/.gitignore

@@ -1,2 +1,3 @@
 # Binaries
 srf_gethypo
+srf2moment

gmsvtoolkit/src/gp/StandRupFormat/makefile

@@ -24,13 +24,17 @@ CFLAGS = ${UFLAGS} ${LF_FLAGS} ${FFTW_INCFLAGS}
 
 ##### make options
 
-all : srf_gethypo
+all : srf_gethypo srf2moment
 
 srf_gethypo : srf_gethypo.c ${OBJS}
 	${CC} ${CFLAGS} -o srf_gethypo srf_gethypo.c ${OBJS} ${LDLIBS} ${INCPAR}
 	cp srf_gethypo ../bin/.
 
+srf2moment : srf2moment.c ${OBJS}
+	${CC} ${CFLAGS} -o srf2moment srf2moment.c ${OBJS} ${LDLIBS} ${INCPAR}
+	cp srf2moment ../bin/
+
 ${OBJS} : ${HEADS}
 
 clean :
-	-rm -f *.o srf_gethypo
+	-rm -f *.o srf_gethypo srf2moment

gmsvtoolkit/src/gp/StandRupFormat/srf2moment.c

@@ -0,0 +1,35 @@
+#include "include.h"
+#include "structure.h"
+#include "function.h"
+#include "defs.h"
+#include "getpar.h"
+
+int main(int ac,char **av)
+{
+char infile[256], velfile[256];
+
+struct standrupformat srf;
+struct velmodel vmod;
+
+int inbin = 0;
+int use_srf_mu = 0;
+int moment_rate = 0;
+
+sprintf(infile,"stdin");
+sprintf(velfile,"NOT_PROVIDED");
+
+setpar(ac,av);
+getpar("infile","s",infile);
+getpar("velfile","s",velfile);
+getpar("use_srf_mu","d",&use_srf_mu);
+getpar("moment_rate","d",&moment_rate);
+endpar();
+
+read_Fvelmodel(velfile,&vmod);
+read_srf(&srf,infile,inbin);
+
+if(moment_rate)
+   get_moment_rate(&srf,&vmod,use_srf_mu);
+else
+   get_moment(&srf,&vmod,use_srf_mu);
+}