parseFN2STA('/data/wadati/bourbon/GUATEMALA/SEGY/R009.01/07.009.22.25.34.CAS.E')
fn <- "2011-11-06-0637-21S.SI01__003_SI01__SH_N_SAC"
parseFN2STA(fn, 4, 1, sep="_" )
### or:
parseFN2STA(fn, 4, 7, sep="_", dir=1 )
Run the code above in your browser using DataLab