mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-22 04:11:16 -05:00
Squashed yet more compiler warnings.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3980 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
db0ba3940d
commit
690fc66ca7
@ -104,7 +104,7 @@ contains
|
|||||||
integer, save :: pos = 1, cnt = 0
|
integer, save :: pos = 1, cnt = 0
|
||||||
character(len=500), save :: arg
|
character(len=500), save :: arg
|
||||||
|
|
||||||
integer :: chrpos, length, st, id
|
integer :: chrpos, length, st, id = 0
|
||||||
character :: chr
|
character :: chr
|
||||||
logical :: long
|
logical :: long
|
||||||
|
|
||||||
|
@ -36,7 +36,7 @@ void tmoonsub_(double *day, double *glat, double *glong, double *moonalt,
|
|||||||
double *mrv, double *l, double *b, double *paxis);
|
double *mrv, double *l, double *b, double *paxis);
|
||||||
|
|
||||||
static const char
|
static const char
|
||||||
*usage = " Usage: tmoon date[yyyymm] timz[+/-h.hh] long[+/-dddmm] lat[+/-ddmm]\n"
|
usage[] = " Usage: tmoon date[yyyymm] timz[+/-h.hh] long[+/-dddmm] lat[+/-ddmm]\n"
|
||||||
"example: tmoon 200009 0 -00155 5230\n";
|
"example: tmoon 200009 0 -00155 5230\n";
|
||||||
|
|
||||||
/*
|
/*
|
||||||
|
Loading…
Reference in New Issue
Block a user