blob: f4900b60f9f98b599182172cd0e64c3be73c3d3f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
C
C
C +-----------------------------------------------------------------+
C | |
C | Copyright (C) 1986 by UCAR |
C | University Corporation for Atmospheric Research |
C | All Rights Reserved |
C | |
C | NCARGRAPHICS Version 1.00 |
C | |
C +-----------------------------------------------------------------+
C
C
C ---------------------------------------------------------------------
C
INTEGER FUNCTION AGFPBN (FPDP)
C
C The value of AGFPBN(FPDP) is a binary dash pattern, obtained from the
C floating-point dash pattern FPDP. On machines having a word length
C greater than 16 bits, AGFPBN(FPDP) = IFIX(FPDP). On machines having
C a word length of 16 bits, this is not true. For example, when FPDP =
C 65535. (2 to the 16th minus 1), the equivalent binary dash pattern
C does not have the value 65535, but the value -1 (assuming integers
C are represented in a ones' complement format). So, the functions
C ISHIFT and IOR must be used to generate the dash pattern.
C
TEMP=FPDP
AGFPBN=0
C
DO 101 I=1,16
IF (AMOD(TEMP,2.).GE.1.) AGFPBN=IOR(AGFPBN,ISHIFT(1,I-1))
TEMP=TEMP/2.
101 CONTINUE
C
RETURN
C
END
|
