w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-19 10:32:02 -05:00
Code Issues Packages Projects Releases Wiki Activity

Trivial deletion in astro0.F90.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@622 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2008-01-15 00:06:31 +00:00
parent 469e07495d
commit 4298a0f2d3
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
astro0.F90
View File

@ -95,7 +95,6 @@ subroutine astro0(nyear,month,nday,uth8,nfreq,grid,cauxra,cauxdec, &
imin=60*uth8 imin=60*uth8
isec=3600*uth8 isec=3600*uth8
!#ifdef CVF
if(isec.ne.isec0 .and. ndecoding.eq.0) then if(isec.ne.isec0 .and. ndecoding.eq.0) then
ih=uth8 ih=uth8
im=mod(imin,60) im=mod(imin,60)
@ -114,7 +113,6 @@ subroutine astro0(nyear,month,nday,uth8,nfreq,grid,cauxra,cauxdec, &
rewind 14 rewind 14
isec0=isec isec0=isec
endif endif
!#endif
return return
end subroutine astro0 end subroutine astro0

2
map65.py
View File

@ -1,4 +1,4 @@
#--------------------------------------------------------------------- MAP65 #---------------------------------------------------------------------- MAP65
# $Date$ $Revision$ # $Date$ $Revision$
# #
from Tkinter import * from Tkinter import *