Fortran SFF API to data I/O streams in C++
fapid_sff_modwid2samprat.cc
Go to the documentation of this file.
1 
34 #define TF_FAPID_SFF_MODWID2SAMPRAT_CC_VERSION \
35  "TF_FAPID_SFF_MODWID2SAMPRAT_CC V1.0"
36 
37 #include <fapidxx/fapidsff.h>
38 #include <fapidxx/wid2container.h>
39 #include <fapidxx/error.h>
40 
61 int sff_modwid2samprat__(char *wid2line, real *samprat,
62  ftnlen wid2line_len)
63 {
64  fapidxx::WID2container wid2c(wid2line, wid2line_len);
65  wid2c.wid2.dt=1./(*samprat);
66  wid2c.encode(wid2line, wid2line_len);
67  return 0;
68 } /* sff_modwid2samprat__ */
69 
70 /* ----- END OF fapid_sff_modwid2samprat.cc ----- */
fapidsff.h
This is the interface usually expected by Fortran programs linking to libsff.a (prototypes) ...
sff_modwid2samprat__
int sff_modwid2samprat__(char *wid2line, real *samprat, ftnlen wid2line_len)
modify sampling rate in WID2 line
Definition: fapid_sff_modwid2samprat.cc:61
fapidxx::WID2container::wid2
sff::WID2 wid2
WID2 data.
Definition: wid2container.h:160
fapidxx::WID2container
This struct is used to pass WID2 line data within libfapidxx.
Definition: wid2container.h:62
wid2container.h
container for WID2 data (prototypes)
error.h
exceptions and error handling macros (prototypes)
real
float real
Fortran real type (single precision)
Definition: fapidsff.h:73
ftnlen
long int ftnlen
Fortran string size type.
Definition: fapidsff.h:70
fapidxx::WID2container::encode
void encode(char *fstring, ftnlen slen) const
encode data into a character string depending on wasascii flag
Definition: wid2container.cc:120