w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-14 08:01:49 -05:00
Code Issues Packages Projects Releases Wiki Activity
2e4a6c3c32
WSJT-X/lib/astrosub.f90

98 lines
3.5 KiB
Fortran
Raw Normal View History

Modernize Fortran interfaces that are called from C/C++ Making Fortran interfaces called from other languages fully portable avoids issues with newer Fortran compilers.
2019-06-06 10:00:47 -04:00
module astro_module
implicit none
private
public :: astrosub
Environment variable to add extra data to azel.dat The new environment variable WSJT_AZEL_EXTRA_LINES when set to positive integer value adds up to that number of extra data lines to the azel.dat file. Currently only one extra line is supported which contains the following data: Dpol, MNR, Dgrd. Where the values are the same as displayed in the astronomical data window. I.e. EME spatial polarization offset in degrees, maximum non-reciprocity of the PATH in dB, and the estimated signal degradation relative to best possible in dB.
2021-10-23 07:03:33 -04:00
logical :: initialized = .false.
integer :: azel_extra_lines = 0
Modernize Fortran interfaces that are called from C/C++ Making Fortran interfaces called from other languages fully portable avoids issues with newer Fortran compilers.
2019-06-06 10:00:47 -04:00
contains
Improved C/Fortran string interoperation, and fix azel.dat updates The azel.dat file is no longer written with future Doppler correction information designed for rigs that can't do CAT QSY commands while transmitting.
2020-07-20 10:15:55 -04:00
subroutine astrosub(nyear,month,nday,uth8,freq8,mygrid_cp, &
hisgrid_cp,AzSun8,ElSun8,AzMoon8,ElMoon8,AzMoonB8,ElMoonB8, &
Modernize Fortran interfaces that are called from C/C++ Making Fortran interfaces called from other languages fully portable avoids issues with newer Fortran compilers.
2019-06-06 10:00:47 -04:00
ntsky,ndop,ndop00,RAMoon8,DecMoon8,Dgrd8,poloffset8,xnr8,techo8,width1, &
Improved C/Fortran string interoperation, and fix azel.dat updates The azel.dat file is no longer written with future Doppler correction information designed for rigs that can't do CAT QSY commands while transmitting.
2020-07-20 10:15:55 -04:00
width2,bTx,AzElFileName_cp,jpleph_file_name_cp) &
Modernize Fortran interfaces that are called from C/C++ Making Fortran interfaces called from other languages fully portable avoids issues with newer Fortran compilers.
2019-06-06 10:00:47 -04:00
bind (C, name="astrosub")
Improved C/Fortran string interoperation, and fix azel.dat updates The azel.dat file is no longer written with future Doppler correction information designed for rigs that can't do CAT QSY commands while transmitting.
2020-07-20 10:15:55 -04:00
use :: types, only: dp
use :: C_interface_module, only: C_int, C_double, C_bool, C_ptr, C_string_value, assignment(=)
Modernize Fortran interfaces that are called from C/C++ Making Fortran interfaces called from other languages fully portable avoids issues with newer Fortran compilers.
2019-06-06 10:00:47 -04:00
Improved C/Fortran string interoperation, and fix azel.dat updates The azel.dat file is no longer written with future Doppler correction information designed for rigs that can't do CAT QSY commands while transmitting.
2020-07-20 10:15:55 -04:00
integer(C_int), intent(in), value :: nyear, month, nday
real(C_double), intent(in), value :: uth8, freq8
real(C_double), intent(out) :: AzSun8, ElSun8, AzMoon8, ElMoon8, AzMoonB8, &
Modernize Fortran interfaces that are called from C/C++ Making Fortran interfaces called from other languages fully portable avoids issues with newer Fortran compilers.
2019-06-06 10:00:47 -04:00
ElMoonB8, Ramoon8, DecMoon8, Dgrd8, poloffset8, xnr8, techo8, width1, &
width2
Improved C/Fortran string interoperation, and fix azel.dat updates The azel.dat file is no longer written with future Doppler correction information designed for rigs that can't do CAT QSY commands while transmitting.
2020-07-20 10:15:55 -04:00
integer(C_int), intent(out) :: ntsky, ndop, ndop00
logical(C_bool), intent(in), value :: bTx
type(C_ptr), value, intent(in) :: mygrid_cp, hisgrid_cp, AzElFileName_cp, &
jpleph_file_name_cp
Modernize Fortran interfaces that are called from C/C++ Making Fortran interfaces called from other languages fully portable avoids issues with newer Fortran compilers.
2019-06-06 10:00:47 -04:00
character(len=6) :: mygrid, hisgrid
Improved C/Fortran string interoperation, and fix azel.dat updates The azel.dat file is no longer written with future Doppler correction information designed for rigs that can't do CAT QSY commands while transmitting.
2020-07-20 10:15:55 -04:00
character(len=:), allocatable :: AzElFileName
Modernize Fortran interfaces that are called from C/C++ Making Fortran interfaces called from other languages fully portable avoids issues with newer Fortran compilers.
2019-06-06 10:00:47 -04:00
character(len=1) :: c1
Environment variable to add extra data to azel.dat The new environment variable WSJT_AZEL_EXTRA_LINES when set to positive integer value adds up to that number of extra data lines to the azel.dat file. Currently only one extra line is supported which contains the following data: Dpol, MNR, Dgrd. Where the values are the same as displayed in the astronomical data window. I.e. EME spatial polarization offset in degrees, maximum non-reciprocity of the PATH in dB, and the estimated signal degradation relative to best possible in dB.
2021-10-23 07:03:33 -04:00
character(len=32) :: envvar
integer :: ih, im, imin, is, isec, nfreq, env_status
Modernize Fortran interfaces that are called from C/C++ Making Fortran interfaces called from other languages fully portable avoids issues with newer Fortran compilers.
2019-06-06 10:00:47 -04:00
real(dp) :: AzAux, ElAux, dbMoon8, dfdt, dfdt0, doppler, doppler00, HA8, sd8, xlst8
character*256 jpleph_file_name
common/jplcom/jpleph_file_name
Environment variable to add extra data to azel.dat The new environment variable WSJT_AZEL_EXTRA_LINES when set to positive integer value adds up to that number of extra data lines to the azel.dat file. Currently only one extra line is supported which contains the following data: Dpol, MNR, Dgrd. Where the values are the same as displayed in the astronomical data window. I.e. EME spatial polarization offset in degrees, maximum non-reciprocity of the PATH in dB, and the estimated signal degradation relative to best possible in dB.
2021-10-23 07:03:33 -04:00
if (.not.initialized) then
call get_environment_variable ('WSJT_AZEL_EXTRA_LINES', envvar, status=env_status)
if (env_status.eq.0) read (envvar, *, iostat=env_status) azel_extra_lines
initialized = .true.
end if
Improved C/Fortran string interoperation, and fix azel.dat updates The azel.dat file is no longer written with future Doppler correction information designed for rigs that can't do CAT QSY commands while transmitting.
2020-07-20 10:15:55 -04:00
mygrid = mygrid_cp
hisgrid = hisgrid_cp
AzElFileName = C_string_value (AzElFileName_cp)
jpleph_file_name = jpleph_file_name_cp
Modernize Fortran interfaces that are called from C/C++ Making Fortran interfaces called from other languages fully portable avoids issues with newer Fortran compilers.
2019-06-06 10:00:47 -04:00
call astro0(nyear,month,nday,uth8,freq8,mygrid,hisgrid, &
AzSun8,ElSun8,AzMoon8,ElMoon8,AzMoonB8,ElMoonB8,ntsky,ndop,ndop00, &
dbMoon8,RAMoon8,DecMoon8,HA8,Dgrd8,sd8,poloffset8,xnr8,dfdt,dfdt0, &
width1,width2,xlst8,techo8)
if (len_trim(AzElFileName) .eq. 0) go to 999
If DX grid is blank, set DX astro params to zero. Do this in astrosub.f90, not asstro.cpp!
2022-07-17 16:12:59 -04:00
if(len(trim(hisgrid)).eq.0) then !If DX grid is blank, set these to zero:
AzMoonB8=0
ElMoonB8=0
ndop=0
width2=0
endif
Modernize Fortran interfaces that are called from C/C++ Making Fortran interfaces called from other languages fully portable avoids issues with newer Fortran compilers.
2019-06-06 10:00:47 -04:00
imin=60*uth8
isec=3600*uth8
ih=uth8
im=mod(imin,60)
is=mod(isec,60)
open(15,file=AzElFileName,status='unknown',err=900)
c1='R'
if(bTx) then
c1='T'
endif
AzAux=0.
ElAux=0.
nfreq=freq8/1000000
doppler=ndop
doppler00=ndop00
write(15,1010,err=10) ih,im,is,AzMoon8,ElMoon8, &
ih,im,is,AzSun8,ElSun8, &
ih,im,is,AzAux,ElAux, &
nfreq,doppler,dfdt,doppler00,dfdt0,c1
Environment variable to add extra data to azel.dat The new environment variable WSJT_AZEL_EXTRA_LINES when set to positive integer value adds up to that number of extra data lines to the azel.dat file. Currently only one extra line is supported which contains the following data: Dpol, MNR, Dgrd. Where the values are the same as displayed in the astronomical data window. I.e. EME spatial polarization offset in degrees, maximum non-reciprocity of the PATH in dB, and the estimated signal degradation relative to best possible in dB.
2021-10-23 07:03:33 -04:00
if (azel_extra_lines.ge.1) write(15, 1020, err=10) poloffset8,xnr8,Dgrd8
Make flag variables boolean types especially those passed between languages git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6585 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-04-06 13:11:19 -04:00
1010 format( &
Modernize Fortran interfaces that are called from C/C++ Making Fortran interfaces called from other languages fully portable avoids issues with newer Fortran compilers.
2019-06-06 10:00:47 -04:00
i2.2,':',i2.2,':',i2.2,',',f5.1,',',f5.1,',Moon'/ &
i2.2,':',i2.2,':',i2.2,',',f5.1,',',f5.1,',Sun'/ &
i2.2,':',i2.2,':',i2.2,',',f5.1,',',f5.1,',Source'/ &
i5,',',f8.1,',',f8.2,',',f8.1,',',f8.2,',Doppler, ',a1)
Environment variable to add extra data to azel.dat The new environment variable WSJT_AZEL_EXTRA_LINES when set to positive integer value adds up to that number of extra data lines to the azel.dat file. Currently only one extra line is supported which contains the following data: Dpol, MNR, Dgrd. Where the values are the same as displayed in the astronomical data window. I.e. EME spatial polarization offset in degrees, maximum non-reciprocity of the PATH in dB, and the estimated signal degradation relative to best possible in dB.
2021-10-23 07:03:33 -04:00
1020 format(f8.1,','f8.1,',',f8.1,',Pol')
Modernize Fortran interfaces that are called from C/C++ Making Fortran interfaces called from other languages fully portable avoids issues with newer Fortran compilers.
2019-06-06 10:00:47 -04:00
10 close(15)
go to 999
Make flag variables boolean types especially those passed between languages git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6585 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-04-06 13:11:19 -04:00
900 print*,'Error opening azel.dat'
999 return
Modernize Fortran interfaces that are called from C/C++ Making Fortran interfaces called from other languages fully portable avoids issues with newer Fortran compilers.
2019-06-06 10:00:47 -04:00
end subroutine astrosub
end module astro_module
Reference in New Issue Copy Permalink