Changeset 306

Timestamp:

01/13/2011 05:00:19 PM (12 years ago)

Author:

marcus

Message:

r148 | walther | 2011-01-13 16:46:31 +0100 (Do, 13 Jan 2011) | 2 lines

seed_tidy now is able to alter the location code.

File:

• SH_SHM/trunk/source/seed_io/seed_tidy.c (modified) (6 diffs)

SH_SHM/trunk/source/seed_io/seed_tidy.c

@@ -74 +74 @@
 #define F_YQFIXNAMES    0x100000
 #define F_TBFIXNAMES    0x200000
+#define F_SETLOCATION   0x400000
 
 
@@ -84 +85 @@
 static char tdv_newchan[cBcLineLth+1]=""; /* new channel name */
 static char tdv_newnetwork[cBcLineLth+1]=""; /* new network code */
+static char tdv_newlocation[cBcLineLth+1]=""; /* new location code */
 static int tdv_max_recsamp=0;             /* maximum number of samples per rec*/
 static int tdv_timecorr=0;                /* time correction */
@@ -155 +157 @@
                 fprintf( stderr, "   -chan=<chan>  replaces channel by <chan> (bhz)\n" );
                 fprintf( stderr, "   -network=<net> replaces network code by <net>\n" );
+                fprintf( stderr, "   -location=<loc> replaces location code by <loc>\n" );
                 fprintf( stderr, "   -b1000        insert blockette 1000 (Sparc=big-endian)\n" );
                 fprintf( stderr, "   -b1000l       insert blockette 1000 (intel=little-endian)\n" );
@@ -202 +205 @@
         if  (pa_qspecified( "-network" ))    {
                 flags |= F_SETNETWORK;
-                strcpy( tdv_newnetwork, pa_qvalue("-network") );
+                strncpy( tdv_newnetwork, pa_qvalue("-network"), 2 );
+        } /*endif*/
+        if  (pa_qspecified( "-location" ))    {
+                flags |= F_SETLOCATION;
+                strncpy( tdv_newlocation, pa_qvalue("-location"), 2 );
         } /*endif*/
         if  (pa_qspecified( "-maxgapfac" ))
@@ -824 +831 @@
         } /*endif*/
         if  (F_SETNETWORK & flags)  {
-                shdr->network[0] = tdv_newnetwork[0];
-                shdr->network[1] = tdv_newnetwork[1];
+                shdr->network[0] = Cap(tdv_newnetwork[0]);
+                shdr->network[1] = Cap(tdv_newnetwork[1]);
+        } /*endif*/
+        if  (F_SETLOCATION & flags)  {
+                shdr->locid[0] = Cap(tdv_newlocation[0]);
+                shdr->locid[1] = Cap(tdv_newlocation[1]);
         } /*endif*/
         /* set time correction if requested */
@@ -886 +897 @@
                 switch_days = switch_hours = FALSE;
 
-    /* new file if the record lenth changes */
+    /* new file if the record length changes */
     this_reclth = SeedGetReclth( (SeedDataHeaderT *)rec, FALSE );
     if  (last_reclth > 0 && this_reclth != last_reclth)