BUGFIX y-coordinate in SU output should be 0

5ae8a37e · laura.gassner · 42299882 · 5ae8a37e · 5ae8a37e
Commit 5ae8a37e authored May 11, 2016 by laura.gassner
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 6 deletions

src/outseis_glob.c src/outseis_glob.c +2 -3

src/outseis_vector.c src/outseis_vector.c +2 -3

No files found.
--- a/src/outseis_glob.c
+++ b/src/outseis_glob.c
@@ -122,10 +122,9 @@ int nsrc, int ns, int seis_form, int ishot, int sws){
 			tr.gwdep=0     	; /* water depth at receiver group */

 			
-			tr.sy= (signed int)iround(YS*1000.0)    ;   /* Y source coordinate */
+			tr.sy=0         ; /* Y source coordinate */

-	
-			tr.gy= (signed int)iround(yr*1000.0)    ;   /* Y group coordinate */
+			tr.gy=0         ; /* Y group coordinate */

 			tr.counit=0    	;   /* coordinate units code:
 						for previous four entries

--- a/src/outseis_vector.c
+++ b/src/outseis_vector.c
@@ -123,10 +123,9 @@ int nsrc, int ns, int seis_form, int ishot, int sws){
 			tr.gwdep=0     	; /* water depth at receiver group */

 			
-			tr.sy= (signed int)iround(YS*1000.0)    ;   /* Y source coordinate */
+			tr.sy=0         ; /* Y source coordinate */

-	
-			tr.gy= (signed int)iround(yr*1000.0)    ;   /* Y group coordinate */
+			tr.gy=0         ; /* Y group coordinate */

 			tr.counit=0    	;   /* coordinate units code:
 						for previous four entries