File: value.f

package info (click to toggle)
x13as 1.1-B39-2
  • links: PTS, VCS
  • area: non-free
  • in suites: bullseye
  • size: 8,700 kB
  • sloc: fortran: 110,641; makefile: 14
file content (15 lines) | stat: -rw-r--r-- 617 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
C     Last change:  BCM  25 Nov 97    2:22 pm
**==value.f    processed by SPAG 4.03F  at 09:54 on  1 Mar 1994
      SUBROUTINE value
      IMPLICIT NONE
c-----------------------------------------------------------------------
      INCLUDE 'srslen.prm'
      INCLUDE 'chrt.cmn'
c-----------------------------------------------------------------------
      DOUBLE PRECISION yvalue
c-----------------------------------------------------------------------
      yvalue=Fact1*(Xyvec-Ymin)/Ydiff
      Ixy=Ifact2-int(yvalue)
c-----------------------------------------------------------------------
      RETURN
      END