Fortran SFF API to data I/O streams in C++
fapid_sff_modwid2samps.cc
Go to the documentation of this file.
1 
34 #define TF_FAPID_SFF_MODWID2SAMPS_CC_VERSION \
35  "TF_FAPID_SFF_MODWID2SAMPS_CC V1.0"
36 
37 #include <fapidxx/fapidsff.h>
38 #include <fapidxx/wid2container.h>
39 #include <fapidxx/error.h>
40 
61 int sff_modwid2samps__(char *wid2line, integer *samps,
62  ftnlen wid2line_len)
63 {
64  fapidxx::WID2container wid2c(wid2line, wid2line_len);
65  wid2c.wid2.nsamples=(*samps);
66  wid2c.encode(wid2line, wid2line_len);
67  return 0;
68 } /* sff_modwid2samps__ */
69 
70 /* ----- END OF fapid_sff_modwid2samps.cc ----- */
fapidsff.h
This is the interface usually expected by Fortran programs linking to libsff.a (prototypes) ...
integer
long int integer
Fortran integer type.
Definition: fapidsff.h:66
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)
sff_modwid2samps__
int sff_modwid2samps__(char *wid2line, integer *samps, ftnlen wid2line_len)
modify number of samples in WID2 line
Definition: fapid_sff_modwid2samps.cc:61
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