jt9 calls symspec, but the interface appears to have evolved, and now the
caller and callee don't match. I made some guesses, but don't know the
subject domain.
See attached
# Mangled inter-procedural interfaces for symspec
```
diff --git a/lib/jt9.f90 b/lib/jt9.f90
index d284f6dd2..bf97ac70e 100644
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@@ -18,6 +18,9 @@ program jt9
type(wav_header) wav
real*4 s(NSMAX)
real*8 TRperiod
+ real*8 Tperiod
+ integer npct_unused
+
character c
character(len=500) optarg, infile
character wisfile*256
@@ -275,8 +278,10 @@ program jt9
ingain=0
call timer('symspec ',0)
nminw=1
+ ! TODO(rrh): perhaps Tperiod should be TRperiod, to match
+ ! name in callee args decl.
call symspec(shared_data,k,Tperiod,nsps,ingain, &
- bLowSidelobes,nminw,pxdb,s,df3,ihsym,npts8,pxdbmax)
+ bLowSidelobes,nminw,pxdb,s,df3,ihsym,npts8,pxdbmax,npct_unused)
call timer('symspec ',1)
endif
nhsym0=nhsym
```
_______________________________________________
wsjt-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/wsjt-devel
