mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-12-19 01:16:11 -05:00
15 lines
321 B
Fortran
15 lines
321 B
Fortran
|
subroutine n2grid(n,grid)
|
||
|
|
character*4 grid
|
||
|
|
|
||
|
|
if(n.gt.-31 .or. n.lt.-70) stop 'Error in n2grid'
|
||
|
|
i=-(n+31) !NB: 0 <= i <= 39
|
||
|
|
i1=i/10
|
||
|
|
i2=mod(i,10)
|
||
|
|
grid(1:1)=char(ichar('A')+i1)
|
||
|
|
grid(2:2)='A'
|
||
|
|
grid(3:3)=char(ichar('0')+i2)
|
||
|
|
grid(4:4)='0'
|
||
|
|
|
||
|
|
return
|
||
|
|
end subroutine n2grid
|