File: value.f

package info (click to toggle)
x13as 1.1-b59-1
  • links: PTS, VCS
  • area: non-free
  • in suites: bookworm
  • size: 9,088 kB
  • sloc: fortran: 114,121; makefile: 14
file content (15 lines) | stat: -rw-r--r-- 632 bytes parent folder | download | duplicates (3) 
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