mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-08-30 01:56:34 -04:00
212b8cc528
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2688 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
16 lines
342 B
Fortran
16 lines
342 B
Fortran
subroutine n2grid(n,grid)
|
|
character*4 grid
|
|
character*1 c1,c2
|
|
|
|
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
|