Changeset 326 for SH_SHM/trunk


Ignore:
Timestamp:
02/17/2011 12:16:59 PM (12 years ago)
Author:
marcus
Message:

r165 | klaus | 2011-02-17 12:03:57 +0100 (Do, 17 Feb 2011) | 1 line

handle data record identifier M; also in split_seed

Location:
SH_SHM/trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • SH_SHM/trunk/inputs/LocalSensitivities.dat

    r308 r326  
     1a803-hh-?   ...                ...                 3.9725 
     2a807-hh-?   ...                ...                 3.9725 
     3 
    14gor1-hh-?   11-Nov-2009        ...                 0.1877 
    25gor1-bh-?   11-Nov-2009        ...                 0.1877 
  • SH_SHM/trunk/inputs/chantrans.txt

    r301 r326  
    55 
    66 
    7 a803-++   hh 
    8 a807-++   hh 
    97ahrw-++   hh 
    108asse-++   hh 
     
    7775zerf-++   hh 
    7876 
     77gor1-++   hh 
     78gor2-++   hh 
     79gor3-++   hh 
     80gor4-++   hh 
     81gor5-++   hh 
     82 
    7983han0-++   dh 
    8084han1-++   dh 
     
    8993a055-++   hh 
    9094p180-++   dh 
     95 
     96a803-++   hh 
     97a807-++   hh 
     98clnz-++   hh 
    9199 
    92100gea0-++   sh 
  • SH_SHM/trunk/inputs/sensitivities.txt

    r317 r326  
    22!      ================= 
    33! 
    4 ! $Revision: 156 $, $Date: 2011-02-08 14:26:10 +0100 (Di, 08 Feb 2011) $ 
     4! $Revision: 165 $, $Date: 2011-02-17 12:03:57 +0100 (Do, 17 Feb 2011) $ 
    55! 
    66! Sensitivity file for data streams 
     
    441441ham-lh-?    ...                ...                 1.67 
    442442 
     443ham3-bh-?   ...                ...                 1.67 
     444ham3-hh-?   ...                ...                 1.67 
     445ham3-lh-?   ...                ...                 1.67 
     446 
    443447henn-hh-?   20-may-2010        ...                 0.8750 
    444448 
  • SH_SHM/trunk/source/seed_io/seed_lib.c

    r325 r326  
    33 *      ========== 
    44 * 
    5  * $Revision: 164 $, $Date: 2011-02-16 10:01:41 +0100 (Mi, 16 Feb 2011) $ 
     5 * $Revision: 165 $, $Date: 2011-02-17 12:03:57 +0100 (Do, 17 Feb 2011) $ 
    66 * 
    77 * SEED library 
     
    40134013 
    40144014#define IDOFFSET 6 
    4015 #define DATCHARS "DQRM" 
    40164015 
    40174016 
     
    40534052        if  (id1 == EOF || isdigit1 == FALSE)  { 
    40544053                /* no SEED file, leave recsize zero */ 
    4055         } else if  (strchr(DATCHARS,id1) != NULL && strchr(DATCHARS,id2) == NULL)  { 
     4054        } else if  (strchr(Seed_C_DATCHARS,id1) != NULL && strchr(Seed_C_DATCHARS,id2) == NULL)  { 
    40564055                /* definitely not 512 */ 
    40574056                *recsize = 4096; 
    40584057                *byteoff = 0; 
    4059         } else if  (id1 == 'V' && strchr(DATCHARS,id2) != NULL && isdigit2 == TRUE)  { 
     4058        } else if  (id1 == 'V' && strchr(Seed_C_DATCHARS,id2) != NULL && isdigit2 == TRUE)  { 
    40604059                /* very likely 512 */ 
    40614060                *recsize = 512; 
     
    40644063                *recsize = 4096; 
    40654064                *byteoff = 0;  /* this is a guess */ 
    4066         } else if  (strchr(DATCHARS,id1) != NULL && strchr(DATCHARS,id2) != NULL)  { 
     4065        } else if  (strchr(Seed_C_DATCHARS,id1) != NULL && strchr(Seed_C_DATCHARS,id2) != NULL)  { 
    40674066                *byteoff = 0; 
    40684067                fseek( fp, 1024+IDOFFSET, 0 ); 
     
    40704069                fseek( fp, 1024+512+IDOFFSET, 0 ); 
    40714070                id2 = getc( fp ); 
    4072                 if  (strchr(DATCHARS,id1) != NULL && strchr(DATCHARS,id2) != NULL)  { 
     4071                if  (strchr(Seed_C_DATCHARS,id1) != NULL && strchr(Seed_C_DATCHARS,id2) != NULL)  { 
    40734072                        *recsize = 512; 
    4074                 } else if  (strchr(DATCHARS,id1) != NULL && id2 == EOF)  { 
     4073                } else if  (strchr(Seed_C_DATCHARS,id1) != NULL && id2 == EOF)  { 
    40754074                        *recsize = 512; 
    40764075                } else if  (id1 == EOF)  { 
  • SH_SHM/trunk/source/seed_io/seedcfg.h

    r305 r326  
    33 *      ========= 
    44 * 
    5  * $Revision: 147 $, $Date: 2011-01-13 09:13:13 +0100 (Do, 13 Jan 2011) $ 
     5 * $Revision: 165 $, $Date: 2011-02-17 12:03:57 +0100 (Do, 17 Feb 2011) $ 
    66 * 
    77 * SEED basic constants and types 
     
    155155#define Seed_C_EmptyAddinfStr "...." 
    156156 
     157/* this characters can appear in a data record header */ 
     158#define Seed_C_DATCHARS "DQRM" 
     159 
    157160/* data formats (should not be here ...) */ 
    158161#define Seed_C_FORMAT_MSEED 1 
  • SH_SHM/trunk/source/seed_io/split_seed.c

    r16 r326  
    144144                        return 1; 
    145145                } /*endif*/ 
    146                 if  (seedrec[6] != 'D' && seedrec[6] != 'Q' && seedrec[6] != 'R')  continue; 
     146                if  (strchr(Seed_C_DATCHARS,seedrec[6]) == NULL)  continue; 
    147147                strncpy( curr_station, seedhdr->statcode, 5 ); 
    148148                curr_station[5] = '\0'; 
Note: See TracChangeset for help on using the changeset viewer.