mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-07-06 11:55:15 -04:00
12 lines
149 B
Fortran
12 lines
149 B
Fortran
|
subroutine foxgen2(nslots,cmsg)
|
||
|
|
|
||
|
|
character*40 cmsg(5)
|
||
|
|
|
||
|
|
print*,' '
|
||
|
|
do i=1,nslots
|
||
|
|
print*,i,cmsg(i)
|
||
|
|
enddo
|
||
|
|
|
||
|
|
return
|
||
|
|
end subroutine foxgen2
|