2013-01-23 16:25:07 +00:00
|
|
|
subroutine chkmsg(message,cok,nspecial,flip)
|
|
|
|
|
|
|
|
|
|
character message*22,cok*3
|
|
|
|
|
|
|
|
|
|
nspecial=0
|
|
|
|
|
flip=1.0
|
|
|
|
|
cok=" "
|
|
|
|
|
|
|
|
|
|
do i=22,1,-1
|
|
|
|
|
if(message(i:i).ne.' ') go to 10
|
|
|
|
|
enddo
|
|
|
|
|
i=22
|
|
|
|
|
|
|
|
|
|
10 if(i.ge.11) then
|
|
|
|
|
if((message(i-3:i).eq.' OOO') .or. (message(20:22).eq.' OO')) then
|
|
|
|
|
cok='OOO'
|
|
|
|
|
flip=-1.0
|
|
|
|
|
if(message(20:22).eq.' OO') then
|
|
|
|
|
message=message(1:19)
|
|
|
|
|
else
|
|
|
|
|
message=message(1:i-4)
|
|
|
|
|
endif
|
|
|
|
|
endif
|
|
|
|
|
endif
|
|
|
|
|
|
2014-01-30 18:03:21 +00:00
|
|
|
if(message(1:3).eq.'RO ') nspecial=2
|
|
|
|
|
if(message(1:4).eq.'RRR ') nspecial=3
|
|
|
|
|
if(message(1:3).eq.'73 ') nspecial=4
|
2013-01-23 16:25:07 +00:00
|
|
|
|
|
|
|
|
return
|
|
|
|
|
end subroutine chkmsg
|
