mirror of https://github.com/saitohirga/WSJT-X.git
47 lines
1.7 KiB
Fortran
47 lines
1.7 KiB
Fortran
|
subroutine chk77_03(nwords,w,i3,n3)
|
||
|
|
! Check 0.3 and 0.4 (ARRL Field Day exchange)
|
||
|
|
|
||
|
|
parameter (NSEC=83) !Number of ARRL Sections
|
||
|
|
character*13 w(19)
|
||
|
|
character*6 bcall_1,bcall_2
|
||
|
|
character*3 csec(NSEC),section
|
||
|
|
logical ok1,ok2
|
||
|
|
|
||
|
|
data csec/ &
|
||
|
|
"AB ","AK ","AL ","AR ","AZ ","BC ","CO ","CT ","DE ","EB ", &
|
||
|
|
"EMA","ENY","EPA","EWA","GA ","GTA","IA ","ID ","IL ","IN ", &
|
||
|
|
"KS ","KY ","LA ","LAX","MAR","MB ","MDC","ME ","MI ","MN ", &
|
||
|
|
"MO ","MS ","MT ","NC ","ND ","NE ","NFL","NH ","NL ","NLI", &
|
||
|
|
"NM ","NNJ","NNY","NT ","NTX","NV ","OH ","OK ","ONE","ONN", &
|
||
|
|
"ONS","OR ","ORG","PAC","PR ","QC ","RI ","SB ","SC ","SCV", &
|
||
|
|
"SD ","SDG","SF ","SFL","SJV","SK ","SNJ","STX","SV ","TN ", &
|
||
|
|
"UT ","VA ","VI ","VT ","WCF","WI ","WMA","WNY","WPA","WTX", &
|
||
|
|
"WV ","WWA","WY "/
|
||
|
|
|
||
|
|
call chkcall(w(1),bcall_1,ok1)
|
||
|
|
call chkcall(w(2),bcall_2,ok2)
|
||
|
|
|
||
|
|
if(nwords.eq.4 .or. nwords.eq.5) then
|
||
|
|
n=-1
|
||
|
|
j=len(trim(w(nwords-1)))-1
|
||
|
|
if(j.ge.2) read(w(nwords-1)(1:j),*,err=4) n !Number of transmitters
|
||
|
|
4 m=len(trim(w(nwords))) !Length of section abbreviation
|
||
|
|
if(ok1 .and. ok2 .and. n.ge.1 .and. n.le.32 .and. (m.eq.2 .or. m.eq.3)) then
|
||
|
|
section=' '
|
||
|
|
do i=1,NSEC
|
||
|
|
if(csec(i).eq.w(nwords)) then
|
||
|
|
section=csec(i)
|
||
|
|
exit
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
if(section.ne.' ') then
|
||
|
|
i3=0
|
||
|
|
if(n.ge.1 .and. n.le.16) n3=3 !Type 0.3 ARRL Field Day
|
||
|
|
if(n.ge.17 .and. n.le.32) n3=4 !Type 0.4 ARRL Field Day
|
||
|
|
endif
|
||
|
|
endif
|
||
|
|
endif
|
||
|
|
|
||
|
|
return
|
||
|
|
end subroutine chk77_03
|