Changeset 2150


Ignore:
Timestamp:
05/02/06 09:25:59 (14 years ago)
Author:
paulf
Message:

new installment of scream2ew from GSL

Location:
trunk/src/data_sources/scream2ew
Files:
10 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/data_sources/scream2ew/dispatch.c

    r1212 r2150  
    2525/* 
    2626 * $Log$ 
     27 * Revision 1.2  2006/05/02 16:25:59  paulf 
     28 *  new installment of scream2ew from GSL 
     29 * 
    2730 * Revision 1.1  2003/03/27 18:07:18  alex 
    2831 * Initial revision 
     
    4548{ 
    4649  uint8_t *buf; 
    47   TRACE_HEADER *t; 
     50  TRACE2_HEADER *t; 
    4851  int len; 
    4952 
     
    5457 
    5558  buf = 
    56     malloc (sizeof (TRACE_HEADER) + (len = ((b->samples) * sizeof (int)))); 
     59    malloc (sizeof (TRACE2_HEADER) + (len = ((b->samples) * sizeof (int)))); 
    5760  if (!buf) 
    5861    fatal (("malloc failed")); 
    59   t = (TRACE_HEADER *) buf; 
     62  t = (TRACE2_HEADER *) buf; 
    6063 
    6164  if (map_lookup (b, t)) { 
     
    6467  } 
    6568 
    66  
     69  t->version[0] = TRACE2_VERSION0; 
     70  t->version[1] = TRACE2_VERSION1; 
    6771  t->endtime = t->starttime = (double) b->estart; 
    6872  t->endtime += ((double) (b->samples - 1)) / ((double) b->sample_rate); 
     
    7377  memcpy (t + 1, b->data, len); 
    7478 
    75   ewc_send (buf, len + sizeof (TRACE_HEADER)); 
     79  ewc_send (buf, len + sizeof (TRACE2_HEADER)); 
    7680 
    7781  if (config.verbose)  
    7882      info (("Sent %d bytes: %s %s as net=%s sta=%s chan=%s pin=%d sr=%.2f",  
    79             len+sizeof(TRACE_HEADER), b->sysid, b->strid, t->net, t->sta, 
     83            len+sizeof(TRACE2_HEADER), b->sysid, b->strid, t->net, t->sta, 
    8084            t->chan, t->pinno, t->samprate,t->starttime,t->endtime)); 
    8185 
  • trunk/src/data_sources/scream2ew/ewc.c

    r1212 r2150  
    2525/* 
    2626 * $Log$ 
     27 * Revision 1.2  2006/05/02 16:25:59  paulf 
     28 *  new installment of scream2ew from GSL 
     29 * 
    2730 * Revision 1.1  2003/03/27 18:07:18  alex 
    2831 * Initial revision 
     
    6568    fatal (("Cannot get type number for TYPE_ERROR message")); 
    6669 
    67   if (GetType ("TYPE_TRACEBUF", &TypeTraceBuf)) 
    68     fatal (("Cannot get type number for TYPE_TRACEBUF message")); 
     70  if (GetType ("TYPE_TRACEBUF2", &TypeTraceBuf)) 
     71    fatal (("Cannot get type number for TYPE_TRACEBUF2 message")); 
    6972 
    7073  tport_attach (&Region, RingKey); /*Why is this void? */ 
  • trunk/src/data_sources/scream2ew/gcf.c

    r2148 r2150  
    2525/* 
    2626 * $Log$ 
    27  * Revision 1.2  2006/04/28 20:24:31  paulf 
    28  * MKIII DM24 patch 
     27 * Revision 1.3  2006/05/02 16:25:59  paulf 
     28 *  new installment of scream2ew from GSL 
    2929 * 
    3030 * Revision 1.1  2003/03/27 18:07:18  alex 
     
    4949} 
    5050 
    51 static void 
     51static int 
    5252extract_8 (gcf_block b) 
    5353{ 
     
    6363  ptr += 4; 
    6464 
    65   if (*ptr) 
    66     fatal (("First difference is not zero")); 
     65  if (*ptr) { 
     66    warning(("First difference is not zero")); 
     67    return 1; 
     68  } 
    6769  while (n--) 
    6870    { 
     
    7375  b->ric = gp_int32 (ptr); 
    7476 
    75   if (b->fic != b->ric) 
    76     fatal (("Fic!=Ric")); 
    77  
    78 } 
    79  
    80 static void 
     77  if (b->fic != b->ric) { 
     78    warning(("Fic!=Ric")); 
     79    return 1; 
     80  } 
     81 
     82  return 0; 
     83} 
     84 
     85static int 
    8186extract_16 (gcf_block b) 
    8287{ 
     
    9297  ptr += 4; 
    9398 
    94   if (*ptr) 
    95     fatal (("First difference is not zero")); 
     99  if (*ptr) { 
     100    warning(("First difference is not zero")); 
     101    return 1; 
     102  } 
    96103 
    97104  while (n--) 
     
    104111  b->ric = gp_int32 (ptr); 
    105112 
    106   if (b->fic != b->ric) 
    107     fatal (("Fic!=Ric")); 
    108  
    109  
    110 } 
    111  
    112 void 
     113  if (b->fic != b->ric) { 
     114    warning(("Fic!=Ric")); 
     115    return 1; 
     116  } 
     117   
     118  return 0; 
     119} 
     120 
     121static int 
    113122extract_24 (gcf_block b) 
    114123{ 
     
    121130  ptr += 16; 
    122131 
    123   if ((*ptr) && (0xff != *ptr)) 
    124     fatal (("claimed 24 bit data isn't")); 
     132  if ((*ptr) && (0xff != *ptr)) { 
     133    warning(("claimed 24 bit data isn't")); 
     134    return 1; 
     135  } 
    125136 
    126137  val = gp_int32 (ptr); 
    127138  ptr += 4; 
    128139 
    129   if (gp_int24 (ptr)) 
    130     fatal (("First difference is not zero")); 
     140  if (gp_int24 (ptr)) { 
     141    warning(("First difference is not zero")); 
     142    return 1; 
     143  } 
    131144 
    132145  while (n--) 
     
    139152    } 
    140153  b->fic = val; 
    141   if ((*ptr) && (0xff != *ptr)) 
    142     fatal (("claimed 24 bit data isn't")); 
    143  
    144   b->ric = gp_int32 (ptr); 
    145  
    146  
    147   if (b->fic != b->ric) 
    148     fatal (("Fic!=Ric")); 
    149  
    150 } 
    151  
    152 #if 0 
    153 void 
    154 extract_32 (gcf_block b) 
    155 { 
    156   uint8_t *ptr = b->buf; 
    157   int *optr = b->data; 
    158  
    159   int64_t val; 
    160   int n = b->samples; 
    161  
    162   ptr += 16; 
    163  
    164   val = (int64_t) gp_int32 (ptr); 
    165   ptr += 4; 
    166  
    167   if (*ptr) 
    168     fatal (("First difference is not zero")); 
    169  
    170   while (n--) 
    171     { 
    172       val += (int64_t) gp_int32 (ptr); 
    173       ptr += 4; 
    174       *(optr++) = (int) val; 
    175     } 
    176  
    177   b->fic = (int) val; 
    178   b->ric = gp_int32 (ptr); 
    179  
    180   if (b->fic != b->ric) 
    181     fatal (("Fic!=Ric")); 
    182 } 
    183 #else 
    184  
    185  
    186 void 
     154  if ((*ptr) && (0xff != *ptr)) { 
     155    warning(("claimed 24 bit data isn't")); 
     156    return 1; 
     157  } 
     158 
     159  b->ric = gp_int32 (ptr); 
     160 
     161 
     162  if (b->fic != b->ric) { 
     163    warning(("Fic!=Ric")); 
     164    return 1; 
     165  } 
     166 
     167  return 0; 
     168} 
     169 
     170static int 
    187171extract_32 (gcf_block b) 
    188172{ 
     
    200184  ptr += 4; 
    201185 
    202   if (*ptr) 
    203     fatal (("First difference is not zero")); 
     186  if (*ptr) { 
     187    warning(("First difference is not zero")); 
     188    return 1; 
     189  } 
    204190 
    205191  while (n--) 
     
    227213  b->ric = gp_int32 (ptr); 
    228214 
    229   if (b->fic != b->ric) 
    230     fatal (("Fic!=Ric")); 
    231 } 
    232  
    233  
    234 #endif 
    235  
    236  
    237 void  
     215  if (b->fic != b->ric) { 
     216    warning(("Fic!=Ric")); 
     217    return 1; 
     218  } 
     219   
     220  return 0; 
     221} 
     222 
     223 
     224 
     225int 
    238226gcf_dispatch (uint8_t * buf, int sz) 
    239227{ 
    240228  int i; 
    241229  struct gcf_block_struct block; 
     230  uint8_t *ptr; 
     231  int err = 0; 
    242232 
    243233  block.buf = buf; 
     
    269259        case 4: 
    270260          block.csize = 24 + block.samples; 
    271           extract_8 (&block); 
     261          err = extract_8 (&block); 
    272262          break; 
    273263        case 2: 
    274264          block.csize = 24 + (2 * block.samples); 
    275           extract_16 (&block); 
     265          err = extract_16 (&block); 
    276266          break; 
    277267        case 1: 
     
    279269            { 
    280270              block.csize = 24 + (4 * block.samples); 
    281               extract_32 (&block); 
     271              err = extract_32 (&block); 
    282272            } 
    283273          else if ((sz - 24) == (3 * block.samples)) 
    284274            { 
    285275              block.csize = 24 + (3 * block.samples); 
    286               extract_24 (&block); 
     276              err = extract_24 (&block); 
    287277            } 
    288278          else 
    289279            { 
    290280              /* Guess 32 */ 
    291               extract_32 (&block); 
     281              err = extract_32 (&block); 
    292282            } 
    293283          break; 
    294284        default: 
    295           fatal (("unknown GCF compression format")); 
    296         } 
    297     } 
    298  
    299   dispatch (&block); 
    300 } 
     285          warning(("unknown GCF compression format")); 
     286          err = 1; 
     287        } 
     288    } 
     289 
     290  if(!err) dispatch (&block); 
     291  return err; 
     292} 
  • trunk/src/data_sources/scream2ew/gcf.h

    r2148 r2150  
    2626/* 
    2727 * $Log$ 
    28  * Revision 1.2  2006/04/28 20:24:31  paulf 
    29  * MKIII DM24 patch 
     28 * Revision 1.3  2006/05/02 16:25:59  paulf 
     29 *  new installment of scream2ew from GSL 
    3030 * 
    3131 * Revision 1.1  2003/03/27 18:07:18  alex 
     
    7676#define GCF_EPOCH 627264000L 
    7777 
    78 extern void extract_24 (gcf_block b); 
    79 extern void extract_32 (gcf_block b); 
    80 extern void gcf_dispatch (uint8_t * buf, int sz); 
     78extern int gcf_dispatch (uint8_t * buf, int sz); 
    8179#endif /* __GCF_H__ */ 
  • trunk/src/data_sources/scream2ew/gputil.c

    r2148 r2150  
    2525/* 
    2626 * $Log$ 
    27  * Revision 1.2  2006/04/28 20:24:31  paulf 
    28  * MKIII DM24 patch 
     27 * Revision 1.3  2006/05/02 16:25:59  paulf 
     28 *  new installment of scream2ew from GSL 
    2929 * 
    3030 * Revision 1.1  2003/03/27 18:07:18  alex 
     
    131131} 
    132132 
    133  
    134133char * 
    135134gp_base36_to_a (int i) 
  • trunk/src/data_sources/scream2ew/main.c

    r2117 r2150  
    99 * the Free Software Foundation; either version 2 of the License, or 
    1010 * (at your option) any later version. 
    11  * 
     11 *  
    1212 * This program is distributed in the hope that it will be useful, 
    1313 * but WITHOUT ANY WARRANTY; without even the implied warranty of 
    1414 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 
    1515 * GNU General Public License for more details. 
    16  * 
     16 *  
    1717 * You should have received a copy of the GNU General Public License 
    1818 * along with this program; if not, write to the Free Software 
    1919 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 
    20  * 
    2120 * 
    2221 */ 
     
    2625/* 
    2726 * $Log$ 
    28  * Revision 1.3  2006/04/03 15:58:05  stefan 
    29  * test 
    30  * 
    31  * Revision 1.2  2006/04/03 15:08:53  stefan 
    32  * typo fix 
     27 * Revision 1.4  2006/05/02 16:25:59  paulf 
     28 *  new installment of scream2ew from GSL 
    3329 * 
    3430 * Revision 1.1  2003/03/27 18:07:18  alex 
     
    5551 */ 
    5652 
    57 /* 
    58  * scream2ew module 
     53/*  
     54 * scream2ew module   
    5955 *    Supports listening for UDP gcf packets from SCREAM! 
    6056 *    -or- 
     
    7268    fatal (("Usage:\n\t%s configfile\n", argv[0])); 
    7369 
     70  /* Start logging to screen initially */ 
     71  logit_init (argv[0], 0, 256, config.writelog); 
     72   
    7473  /* Parse the configuration file */ 
    7574  parse_config (argv[1]); 
    7675 
    77   /*Start logging */ 
    78   logit_init (argv[0], (short) config.modulename, 256, config.writelog); 
    79  
    80   warning (("Read configuration file %s\n", argv[1])); 
     76  /* Possibly change log options */ 
     77  logit_init (argv[0], 0, 256, config.writelog); 
     78  info (("Read configuration file %s\n", argv[1])); 
    8179 
    8280  /*Initialize communication with ew */ 
  • trunk/src/data_sources/scream2ew/map.c

    r1212 r2150  
    2525/* 
    2626 * $Log$ 
     27 * Revision 1.2  2006/05/02 16:25:59  paulf 
     28 *  new installment of scream2ew from GSL 
     29 * 
    2730 * Revision 1.1  2003/03/27 18:07:18  alex 
    2831 * Initial revision 
     
    4447  char *station; 
    4548  char *channel; 
     49  char *location; 
    4650  int pinno; 
    4751  int ignore;                   /*Use to generate warnings */ 
     
    5155static Map map = NULL; 
    5256 
     57/* this include terminating NULL */ 
     58#define SCREAM_SYSID_LEN 12 
     59#define SCREAM_STREAM_LEN 12 
     60 
    5361void 
    5462map_add (char *mapping) 
    5563{ 
    56 /* FIXME: don't use static strings here*/ 
    5764  Map new; 
    58   char system[128]; 
    59   char stream[128]; 
    60   char network[128]; 
    61   char station[128]; 
    62   char channel[128]; 
    63   char pinno[128]; 
    64   int j; 
     65  char system[SCREAM_SYSID_LEN]; 
     66  char stream[SCREAM_STREAM_LEN]; 
     67  char network[TRACE2_NET_LEN]; 
     68  char station[TRACE2_STA_LEN]; 
     69  char channel[TRACE2_CHAN_LEN]; 
     70  char location[TRACE2_LOC_LEN]; 
     71  int pinno, j; 
     72  char dummy; 
    6573 
    66  
    67  
    68   if ((j = sscanf (mapping, "%[^ \t]" "%*[ \t]" "%[^ \t]" "%*[ \t]" "%[^ \t]" 
    69                    "%*[ \t]" "%[^ \t]" "%*[ \t]" "%[^ \t]" "%*[ \t]" 
    70                    "%[^ \t]", &system, &stream, &network, &station, &channel, 
    71                    &pinno)) != 6) 
    72     fatal (("Failed to parse ChanInfo %s (got %d fields expected %d)\n", 
    73             mapping, j, 6)); 
    74  
     74  if ((j = sscanf (mapping, "%11s %11s %8s %6s %2s %3s %d%c", 
     75                   &system, &stream, &network, &station, &location, &channel,  
     76                   &pinno, &dummy)) != 7) 
     77    fatal (("Failed to parse ChanInfo '%s' (got %d fields expected %d)\n", 
     78            mapping, j, 7)); 
    7579 
    7680  new = malloc (sizeof (struct map_struct)); 
    7781 
    78   new->system = strdup(gp_base36_to_a(gp_a_to_base36(system))); 
    79   new->stream = strdup(gp_base36_to_a(gp_a_to_base36(stream))); 
    80   new->network = strdup (network); 
    81   new->station = strdup (station); 
    82   new->channel = strdup (channel); 
    83   new->pinno = atoi (pinno); 
     82  new->system = strdup(system); 
     83  new->stream = strdup(stream); 
     84  new->network = strdup(network); 
     85  new->station = strdup(station); 
     86  new->location = strdup(location); 
     87  new->channel = strdup(channel); 
     88  new->pinno = pinno; 
    8489  new->ignore = 0; 
    8590  new->next = map; 
     
    8994 
    9095int 
    91 map_lookup (gcf_block b, TRACE_HEADER * h) 
     96map_lookup (gcf_block b, TRACE2_HEADER* h) 
    9297{ 
    9398  Map m = map; 
     
    101106            return 1; 
    102107 
    103           strncpy (h->net, m->network, sizeof (h->net)); 
    104           strncpy (h->sta, m->station, sizeof (h->sta)); 
    105           strncpy (h->chan, m->channel, sizeof (h->chan)); 
     108          strncpy (h->loc, m->location, TRACE2_LOC_LEN); 
     109          strncpy (h->net, m->network, TRACE2_NET_LEN); 
     110          strncpy (h->sta, m->station, TRACE2_STA_LEN); 
     111          strncpy (h->chan, m->channel, TRACE2_CHAN_LEN); 
    106112          h->pinno = m->pinno; 
    107113 
  • trunk/src/data_sources/scream2ew/map.h

    r1212 r2150  
    2727/* 
    2828 * $Log$ 
     29 * Revision 1.2  2006/05/02 16:25:59  paulf 
     30 *  new installment of scream2ew from GSL 
     31 * 
    2932 * Revision 1.1  2003/03/27 18:07:18  alex 
    3033 * Initial revision 
     
    3942 
    4043extern void map_add (char *mapping); 
    41 extern int map_lookup (gcf_block b, TRACE_HEADER * h); 
     44extern int map_lookup (gcf_block b, TRACE2_HEADER * h); 
    4245#endif /* __MAP_H__ */ 
  • trunk/src/data_sources/scream2ew/scream.c

    r1212 r2150  
    2525/* 
    2626 * $Log$ 
     27 * Revision 1.2  2006/05/02 16:25:59  paulf 
     28 *  new installment of scream2ew from GSL 
     29 * 
    2730 * Revision 1.1  2003/03/27 18:07:18  alex 
    2831 * Initial revision 
     
    133136{ 
    134137  uint8_t buf[SCREAM_MAX_LENGTH]; 
     138  struct sockaddr_in sin = { 0 }; 
     139  int sinlen = sizeof(sin); 
    135140 
    136141  switch (protocol) 
     
    138143    case SCM_PROTO_UDP: 
    139144        memset(buf,0,sizeof(buf)); 
    140       if (recv (sockfd, buf, SCREAM_MAX_LENGTH, 0) < 0) 
     145      if (recvfrom(sockfd, buf, SCREAM_MAX_LENGTH, 0, (struct sockaddr*)&sin, &sinlen) < 0) 
    141146        { 
    142147#if defined(WIN32) 
     
    182187    } 
    183188 
    184   gcf_dispatch (buf, GCF_BLOCK_LEN); 
     189  if(gcf_dispatch (buf, GCF_BLOCK_LEN)) { 
     190    switch(protocol) { 
     191    case SCM_PROTO_UDP: 
     192        warning(("GCF parser failed on block from %s port %d\n", 
     193                inet_ntoa(sin.sin_addr),ntohs(sin.sin_port))); 
     194        break; 
     195         
     196    case SCM_PROTO_TCP: 
     197        warning(("GCF parser failed on block from TCP connection\n")); 
     198        break; 
     199         
     200    default: 
     201        warning(("GCF parser failed on block from unknown source\n")); 
     202        break; 
     203    } 
     204  } 
    185205 
    186206} 
  • trunk/src/data_sources/scream2ew/scream2ew.d

    r1212 r2150  
    1  
    21# 
    32# This is scream2ew's parameter file 
     3# 
     4# Please check that line endings are set appropriately for your platform. 
     5# 
    46 
    57#  Basic Earthworm setup: 
     
    2729# 
    2830 
    29 ChanInfo "D850  EKA12   FISH SOUP1      BHZ     1" 
    30 ChanInfo "D850  EKA22   FISH SOUP2      BHZ     2" 
    31 ChanInfo "D850  EKA32   FISH SOUP3      BHZ     3" 
    32 ChanInfo "D850  EKA42   FISH SOUP4      BHZ     4" 
    33 ChanInfo "D850  EKA62   FISH SOUP5      BHZ     5" 
    34 ChanInfo "D850  EKA72   FISH SOUP6      BHZ     6" 
    35 ChanInfo "D850  EKA82   FISH SOUP7      BHZ     7" 
    36 ChanInfo "D851  EKA92   FISH SOUP8      BHZ     8" 
    37 ChanInfo "D851  EKAA2   FISH SOUP9      BHZ     9" 
    38 ChanInfo "D851  EKAB2   FISH SOUP10     BHZ     10" 
    39 ChanInfo "D851  EKAC2   FISH SOUP11     BHZ     11" 
    40 ChanInfo "D851  EKAD2   FISH SOUP12     BHZ     12" 
    41 ChanInfo "D851  EKAE2   FISH SOUP13     BHZ     13" 
    42 ChanInfo "D851  EKAF2   FISH SOUP14     BHZ     14" 
    43 ChanInfo "D851  EKAG2   FISH SOUP15     BHZ     15" 
    44 ChanInfo "D852  EKAH2   FISH SOUP16     BHZ     16" 
    45 ChanInfo "D852  EKAI2   FISH SOUP17     BHZ     17" 
    46 ChanInfo "D852  EKAJ2   FISH SOUP18     BHZ     18" 
    47 ChanInfo "D852  EKAK2   FISH SOUP19     BHZ     19" 
    48 ChanInfo "D852  EKAL2   FISH SOUP20     BHZ     20" 
    49 ChanInfo "D852  EKAM2   FISH SOUP21     BHZ     21" 
    50 ChanInfo "D852  EKAN2   FISH SOUP22     BHZ     22" 
    51 ChanInfo "D852  EKAO2   FISH SOUP23     BHZ     23" 
    52 ChanInfo "GURALP        3661E2  FISH SOUP24     BHZ     24" 
    53 ChanInfo "GURALP        3661E6  FISH SOUP25     BHZ     25" 
    54 ChanInfo "GURALP        3661M8  FISH SOUP26     BHZ     26" 
    55 ChanInfo "GURALP        3661M9  FISH SOUP27     BHZ     27" 
    56 ChanInfo "GURALP        3661MA  FISH SOUP28     BHZ     28" 
    57 ChanInfo "GURALP        3661ME  FISH SOUP29     BHZ     29" 
    58 ChanInfo "GURALP        3661N2  FISH SOUP30     BHZ     30" 
    59 ChanInfo "GURALP        3661N6  FISH SOUP31     BHZ     31" 
    60 ChanInfo "GURALP        3661Z2  FISH SOUP32     BHZ     32" 
    61 ChanInfo "GURALP        3661Z6  FISH SOUP33     BHZ     33" 
    62 ChanInfo "GURALP        DIALE4  FISH SOUP34     BHZ     34" 
    63 ChanInfo "GURALP        DIALE6  FISH SOUP35     BHZ     35" 
    64 ChanInfo "GURALP        DIALM8  FISH SOUP36     BHZ     36" 
    65 ChanInfo "GURALP        DIALM9  FISH SOUP37     BHZ     37" 
    66 ChanInfo "GURALP        DIALMA  FISH SOUP38     BHZ     38" 
    67 ChanInfo "GURALP        DIALME  FISH SOUP39     BHZ     39" 
    68 ChanInfo "GURALP        DIALN4  FISH SOUP40     BHZ     40" 
    69 ChanInfo "GURALP        DIALN6  FISH SOUP41     BHZ     41" 
    70 ChanInfo "GURALP        DIALZ4  FISH SOUP42     BHZ     42" 
    71 ChanInfo "GURALP        DIALZ6  FISH SOUP43     BHZ     43" 
    72 ChanInfo "WO1242        3442E2  FISH SOUP44     BHZ     44" 
    73 ChanInfo "WO1242        3442E6  FISH SOUP45     BHZ     45" 
    74 ChanInfo "WO1242        3442N2  FISH SOUP46     BHZ     46" 
    75 ChanInfo "WO1242        3442N6  FISH SOUP47     BHZ     47" 
    76 ChanInfo "WO1242        3442Z2  FISH SOUP48     BHZ     48" 
    77 ChanInfo "WO1242        3442Z6  FISH SOUP49     BHZ     49" 
    78 ChanInfo "WO1343        4998E2  FISH SOUP50     BHZ     50" 
    79 ChanInfo "WO1343        4998E4  FISH SOUP51     BHZ     51" 
    80 ChanInfo "WO1343        4998E6  FISH SOUP52     BHZ     52" 
    81 ChanInfo "WO1343        4998M8  FISH SOUP53     BHZ     53" 
    82 ChanInfo "WO1343        4998M9  FISH SOUP54     BHZ     54" 
    83 ChanInfo "WO1343        4998MA  FISH SOUP55     BHZ     55" 
    84 ChanInfo "WO1343        4998ME  FISH SOUP56     BHZ     56" 
    85 ChanInfo "WO1343        4998N2  FISH SOUP57     BHZ     57" 
    86 ChanInfo "WO1343        4998N4  FISH SOUP58     BHZ     58" 
    87 ChanInfo "WO1343        4998N6  FISH SOUP59     BHZ     59" 
    88 ChanInfo "WO1343        4998Z2  FISH SOUP60     BHZ     60" 
    89 ChanInfo "WO1343        4998Z4  FISH SOUP61     BHZ     61" 
    90 ChanInfo "WO1343        4998Z6  FISH SOUP62     BHZ     62" 
     31# 
     32# These lines specify the mapping between the GCF system ID and stream ID and the earthworm 
     33# network, station, location, channel and pin number. 
     34# 
     35# For example: 
     36#  ChanInfo "D850 EKA12 AB CDE 00 BHZ 1" 
     37# 
     38# This line would map Scream packets with: 
     39#  GCF system ID: D850 
     40#  GCF stream ID: EKA12 
     41# 
     42# To: 
     43#  Network:       AB 
     44#  Station:       CDE 
     45#  Location:      00 
     46#  Channel:       BHZ 
     47#  Pin number:    1 
     48# 
     49# If you do not wish to specify any location, use the sequence '--'. 
     50# 
     51ChanInfo "D850 EKA12 AB CDE 00 BHZ 1" 
     52ChanInfo "D850 EKA13 AB CDE 01 BHZ 2" 
Note: See TracChangeset for help on using the changeset viewer.