From f1c65870e6839e4fcff97837717c051b9c47877b Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 23 Dec 2005 17:14:46 +0000 Subject: [PATCH] Moved definitions of Fortran LUs to ftn_init.f90. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@11 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- a2d.f90 | 17 ----------------- ftn_init.f90 | 16 ++++++++++++++++ g1 | 3 ++- 3 files changed, 18 insertions(+), 18 deletions(-) diff --git a/a2d.f90 b/a2d.f90 index ad878a329..8ee572251 100644 --- a/a2d.f90 +++ b/a2d.f90 @@ -1,20 +1,3 @@ -! Fortran logical units used in WSJT6 -! -! 10 wave files read from disk -! 11 decoded.txt -! 12 decoded.ave -! 13 tsky.dat -! 14 azel.dat -! 15 debug.txt -! 16 c:/wsjt.reg -! 17 wave files written to disk -! 18 test file to be transmitted (wsjtgen.f90) -! 19 -! 20 -! 21 ALL.TXT -! 22 kvasd.dat -! 23 CALL3.TXT - !---------------------------------------------------- a2d subroutine a2d(iarg) diff --git a/ftn_init.f90 b/ftn_init.f90 index 0c9750450..3836da408 100644 --- a/ftn_init.f90 +++ b/ftn_init.f90 @@ -1,3 +1,19 @@ +! Fortran logical units used in WSJT6 +! +! 10 wave files read from disk +! 11 decoded.txt +! 12 decoded.ave +! 13 tsky.dat +! 14 azel.dat +! 15 debug.txt +! 16 c:/wsjt.reg +! 17 wave files written to disk +! 18 test file to be transmitted (wsjtgen.f90) +! 19 +! 20 +! 21 ALL.TXT +! 22 kvasd.dat +! 23 CALL3.TXT !------------------------------------------------ ftn_init subroutine ftn_init diff --git a/g1 b/g1 index 4195f0cfc..56602fa1e 100755 --- a/g1 +++ b/g1 @@ -1,3 +1,4 @@ g95 -cpp -DLinux -fno-second-underscore -o makedate makedate.f90 makedate -python f2py.py -c --quiet --opt="-O -cpp -DLinux -fno-second-underscore" init_rs.o encode_rs.o decode_rs.o -m Audio --"f77exec=/home/joe/bin/g95" --f90exec="/home/joe/bin/g95" -L//usr/lib/gcc-lib/i386-redhat-linux/3.2.2/ -lpthread -lg2c only: ftn_init ftn_quit audio_init spec getfile azdist0 astro0 makedate_sub : Audio.f90 wsjtgen.f90 runqqq.f90 wsjt1.f fsubs1.f fsubs.f astro.f astropak.f jtaudio.c ptt_linux.c wrapkarn.c start_threads.c cutil.c fivehz.f90 +python f2py.py -c --quiet --opt="-O -cpp -DLinux -fno-second-underscore" init_rs.o encode_rs.o decode_rs.o -m Audio --"f77exec=/home/joe/bin/g95" --f90exec="/home/joe/bin/g95" -L//usr/lib/gcc-lib/i386-redhat-linux/3.2.2/ -lpthread -lg2c only: ftn_init ftn_quit audio_init spec getfile azdist0 astro0 makedate_sub : +a2d.f90 abc441.f90 astro0.f90 audio_init.f90 azdist0.f90 decode1.f90 decode2.f90 decode3.f90 ftn_init.f90 ftn_quit.f90 get_fname.f90 getfile.f90 horizspec.f90 hscroll.f90 i1tor4.f90 makedate_sub.f90 rfile.f90 savedata.f90 spec.f90 wsjtgen.f90 runqqq.f90 wsjt1.f fsubs1.f fsubs.f astro.f astropak.f jtaudio.c ptt_linux.c wrapkarn.c start_threads.c cutil.c fivehz.f90