kopia lustrzana https://github.com/ag1le/morse-wip
119 wiersze
2.9 KiB
C
119 wiersze
2.9 KiB
C
/* inputl.f -- translated by f2c (version 20100827).
|
|
You must link the resulting object file with libf2c:
|
|
on Microsoft Windows system, link with libf2c.lib;
|
|
on Linux or Unix systems, link with .../path/to/libf2c.a -lm
|
|
or, if you install libf2c.a in a standard place, with -lf2c -lm
|
|
-- in that order, at the end of the command line, as in
|
|
cc *.o -lf2c -lm
|
|
Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
|
|
|
|
http://www.netlib.org/f2c/libf2c.zip
|
|
*/
|
|
|
|
|
|
//#include "f2c.h"
|
|
#include "morse.h"
|
|
|
|
/* Common Block Declarations */
|
|
|
|
struct blk1_1_ {
|
|
real tau;
|
|
};
|
|
|
|
#define blk1_1 (*(struct blk1_1_ *) &blk1_)
|
|
|
|
struct blk6_1_ {
|
|
real dmean, xdur, esep[6], edev[6];
|
|
};
|
|
|
|
#define blk6_1 (*(struct blk6_1_ *) &blk6_)
|
|
|
|
struct {
|
|
real wc, wchirp, asigma, bsigma, phisgm, rsigm, tchirp, gamm;
|
|
} blk2_;
|
|
|
|
#define blk2_1 blk2_
|
|
|
|
/* Initialized data */
|
|
|
|
struct {
|
|
real e_1;
|
|
} blk1_ = { 1.25e-4f };
|
|
|
|
struct {
|
|
integer fill_1[1];
|
|
real e_2[13];
|
|
} blk6_ = { {0}, 0.f, 1.f, 3.f, 1.f, 3.f, 7.f, 14.f, 0.f, 0.f, 0.f, 0.f,
|
|
0.f, 0.f };
|
|
|
|
|
|
/* Subroutine */ int inputl_(void)
|
|
{
|
|
/* Format strings */
|
|
/* static char fmt_100[] = "(1x,\002INPUT KEYING PARMS: RATE,MEAN ELEM DURA"
|
|
"TIONS\002)";
|
|
static char fmt_150[] = "(1x,\002INPUT ELEM DURATION STD OEVIATIONS\002)";
|
|
static char fmt_300[] = "(1x,\002INPUT SIG PARMS- AVAR,BVAR,FCHIRP,TCHIR"
|
|
"P,PHIVAR\002)";
|
|
static char fmt_400[] = "(1x,\002INPUT SIG PARMS: GAMMA,FREQ,NOISE\002)";
|
|
|
|
/* Builtin functions */
|
|
// integer s_wsfe(cilist *), e_wsfe(void);
|
|
// double sqrt(doublereal);
|
|
|
|
/* Local variables */
|
|
static real fc, rc, avar, bvar, rate, fchirp, phivar, rnoise;
|
|
|
|
/* Fortran I/O blocks */
|
|
/* static cilist io___1 = { 0, 6, 0, fmt_100, 0 };
|
|
static cilist io___2 = { 0, 6, 0, fmt_150, 0 };
|
|
static cilist io___3 = { 0, 6, 0, fmt_300, 0 };
|
|
static cilist io___4 = { 0, 6, 0, fmt_400, 0 };
|
|
*/
|
|
|
|
goto L600;
|
|
// s_wsfe(&io___1);
|
|
// e_wsfe();
|
|
/* READ 200,RATE,(ESEP(K), K=1,6) */
|
|
// s_wsfe(&io___2);
|
|
// e_wsfe();
|
|
/* READ 200,(EDEV(K),K=1,6) */
|
|
/* L200: */
|
|
// s_wsfe(&io___3);
|
|
// e_wsfe();
|
|
/* READ 210,AVAR,BVAR,FCHIRP,TCHIRP,PHIVAR */
|
|
/* L210: */
|
|
// s_wsfe(&io___4);
|
|
// e_wsfe();
|
|
/* READ 220, GAMM,FC,RNOISE */
|
|
/* L220: */
|
|
L600:
|
|
/* ADDED BY MAURI */
|
|
avar = 4.f;
|
|
bvar = 4.f;
|
|
rate = 25.f;
|
|
fc = 4e3f;
|
|
fchirp = 20.f;
|
|
rnoise = 4.f;
|
|
phivar = 4.f;
|
|
blk2_1.tchirp = 2.f;
|
|
blk2_1.gamm = 1.f;
|
|
blk2_1.asigma = sqrt(avar);
|
|
blk2_1.bsigma = sqrt(bvar);
|
|
blk2_1.phisgm = sqrt(phivar);
|
|
blk2_1.rsigm = sqrt(rnoise);
|
|
blk6_1.dmean = 1200.f / rate;
|
|
rc = fc * 6.28319f;
|
|
blk2_1.wchirp = fchirp * 6.2831f;
|
|
/* IF (ESEP(1).NE.0.) GO TO 500 */
|
|
blk6_1.esep[0] = 1.f;
|
|
blk6_1.esep[1] = 3.f;
|
|
blk6_1.esep[2] = 1.f;
|
|
blk6_1.esep[3] = 3.f;
|
|
blk6_1.esep[4] = 7.f;
|
|
blk6_1.esep[5] = 14.f;
|
|
/* L500: */
|
|
return 0;
|
|
} /* inputl_ */
|
|
|