File: partint.f90

package info (click to toggle)
jtdx 2.2.159%2Bimproved-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 75,336 kB
  • sloc: cpp: 38,503; f90: 31,141; python: 27,061; ansic: 11,772; sh: 409; fortran: 353; makefile: 232
file content (19 lines) | stat: -rw-r--r-- 407 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
! last time modified by Igor UA3DJY on 20200105

subroutine partint(ndelay,nutc)

  use jt65_mod6
  real rnd

  numsamp=ndelay*1200
  dd(numsamp+1:624000)=dd(1:(624000-numsamp))
     do i=1,numsamp
        call random_number(rnd)
        dd(i)=10.0*rnd-5.
     enddo
  write(*,2) nutc,'partial loss of data','d'
2 format(i4.4,2x,a20,21x,a1)
  call flush(6)

  return
end subroutine partint