sys/gio/ncarutil/veldat.f


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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

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 +noao: block data veldat changed to run time initialization
c     BLOCK DATA VELDAT
        subroutine veldat
C
C THIS 'ROUTINE' DEFINES THE DEFAULT VALUES OF THE VELVCT PARAMETERS.
C
      COMMON /VEC1/   ASH        ,EXT        ,ICTRFG     ,ILAB,
     +                IOFFD      ,IOFFM      ,ISX        ,ISY,
     +                RMN        ,RMX        ,SIDE       ,SIZE,
     +                XLT        ,YBT        ,ZMN        ,ZMX
C
      COMMON /VEC2/   BIG        ,INCX       ,INCY
C
c     DATA     EXT /    0.25 /
c     DATA  ICTRFG /    1         /
c     DATA    ILAB /    0         /
c     DATA   IOFFD /    0         /
c     DATA   IOFFM /    0         /
c     DATA     RMN /  160.00 /
c     DATA     RMX / 6400.00 /
c     DATA    SIDE /    0.90 /
c     DATA    SIZE /  256.00 /
c     DATA     XLT /    0.05 /
c     DATA     YBT /    0.05 /
c     DATA     ZMX /    0.00 /
c     DATA    INCX /    1          /
c     DATA    INCY /    1          /
c
c +noao: following flag added to prevent over-initialization
      logical first
        SAVE
      data first /.true./
      if (.not. first) then
          return
      endif
      first = .false.

      EXT =     0.25 
      ICTRFG =  1    
      ILAB =    0         
      IOFFD =   0    
      IOFFM =   0    
      RMN =  160.00 
      RMX = 6400.00 
      SIDE =    0.90 
      SIZE =  256.00 
      XLT =     0.05 
      YBT =     0.05 
      ZMX =     0.00 
      INCX =    1          
      INCY =    1          
C
c - noao
      END