mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-23 12:48:40 -05:00
11 lines
181 B
Fortran
11 lines
181 B
Fortran
|
subroutine grid2n(grid,n)
|
||
|
|
character*4 grid
|
||
|
|
|
||
|
|
i1=ichar(grid(1:1))-ichar('A')
|
||
|
|
i2=ichar(grid(3:3))-ichar('0')
|
||
|
|
i=10*i1 + i2
|
||
|
|
n=-i - 31
|
||
|
|
|
||
|
|
return
|
||
|
|
end subroutine grid2n
|