File: peakup.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 (13 lines) | stat: -rw-r--r-- 325 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
! This source code file was last time modified by Igor Chernikov UA3DJY on July 07th, 2016.
! All changes are shown in the patch file coming together with the full JTDX source code.

subroutine peakup(ym,y0,yp,dx)

real*4 b,c,dx,yp,ym,y0

  b=yp-ym
  c=yp+ym-2*y0
  dx=-((b/c)/2)

  return
end subroutine peakup