aboutsummaryrefslogtreecommitdiff
path: root/sys/gio/ncarutil/hfinit.f
diff options
context:
space:
mode:
authorJoseph Hunkeler <jhunkeler@gmail.com>2015-07-08 20:46:52 -0400
committerJoseph Hunkeler <jhunkeler@gmail.com>2015-07-08 20:46:52 -0400
commitfa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 (patch)
treebdda434976bc09c864f2e4fa6f16ba1952b1e555 /sys/gio/ncarutil/hfinit.f
downloadiraf-linux-fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4.tar.gz
Initial commit
Diffstat (limited to 'sys/gio/ncarutil/hfinit.f')
-rw-r--r--sys/gio/ncarutil/hfinit.f229
1 files changed, 229 insertions, 0 deletions
diff --git a/sys/gio/ncarutil/hfinit.f b/sys/gio/ncarutil/hfinit.f
new file mode 100644
index 00000000..e64207eb
--- /dev/null
+++ b/sys/gio/ncarutil/hfinit.f
@@ -0,0 +1,229 @@
+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 hfinit changed to run time initialization
+c BLOCKDATA HFINIT
+ subroutine hfinit
+C
+ COMMON /HAFTO3/ XLT ,YBT ,SIDE ,EXT,
+ 1 IOFFM ,ALPH ,MXLEV ,NCRTG ,
+ 2 NCRTF ,IL(135)
+ COMMON /HAFTO4/ NPTMAX ,NPOINT ,XPNT(50) ,YPNT(50)
+C
+C INITIALIZATION OF INTERNAL PARAMETERS
+C
+c DATA XLT, YBT,SIDE,EXT,IOFFM,ALPH,MXLEV,NCRTG,NCRTF/
+c 1 0.102,0.102,.805,.25, 0, 1.6, 16, 8, 1024/
+c
+c +noao: following flag added to prevent initializing more than once
+ logical first
+ SAVE
+ data first /.true./
+ if (.not. first) then
+ return
+ endif
+ first = .false.
+
+c +noao: call to utilbd added to make sure those parameters set by getusv
+c have been set before they are retrieved.
+ call utilbd
+c -noao
+ XLT = 0.102
+ YBT = 0.102
+ SIDE = .805
+ EXT = .25
+ IOFFM = 0
+ ALPH = 1.6
+ MXLEV = 16
+ NCRTG = 8
+ NCRTF = 1024
+c
+c DATA IL(1),IL(2),IL(3),IL(4),IL(5),IL(6),IL(7),IL(8),IL(9),IL(10),
+c 1IL(11),IL(12),IL(13),IL(14),IL(15),IL(16),IL(17),IL(18),IL(19),
+c 2IL(20),IL(21),IL(22),IL(23),IL(24),IL(25),IL(26),IL(27),IL(28),
+c 3IL(29),IL(30),IL(31),IL(32),IL(33),IL(34),IL(35),IL(36),IL(37),
+c 4IL(38),IL(39),IL(40),IL(41),IL(42),IL(43),IL(44)/
+c 5 5,11,
+c 6 4, 8,12,
+c 7 3, 6,10,13,
+c 8 2, 5, 8,11,14,
+c 9 1, 4, 7, 9,12,15,
+c + 1, 4, 6, 8,10,12,15,
+c 1 1, 3, 5, 7, 9,11,13,15,
+c 2 1, 3, 4, 6, 8, 10, 12, 13, 15/
+c
+ IL(1) = 5
+ IL(2) = 11
+ IL(3) = 4
+ IL(4) = 8
+ IL(5) = 12
+ IL(6) = 3
+ IL(7) = 6
+ IL(8) = 10
+ IL(9) = 13
+ IL(10) = 2
+ IL(11) = 5
+ IL(12) = 8
+ IL(13) = 11
+ IL(14) = 14
+ IL(15) = 1
+ IL(16) = 4
+ IL(17) = 7
+ IL(18) = 9
+ IL(19) = 12
+ IL(20) = 15
+ IL(21) = 1
+ IL(22) = 4
+ IL(23) = 6
+ IL(24) = 8
+ IL(25) = 10
+ IL(26) = 12
+ IL(27) = 15
+ IL(28) = 1
+ IL(29) = 3
+ IL(30) = 5
+ IL(31) = 7
+ IL(32) = 9
+ IL(33) = 11
+ IL(34) = 13
+ IL(35) = 15
+ IL(36) = 1
+ IL(37) = 3
+ IL(38) = 4
+ IL(39) = 6
+ IL(40) = 8
+ IL(41) = 10
+ IL(42) = 12
+ IL(43) = 13
+ IL(44) = 15
+c
+c DATA IL(45),IL(46),
+c 1IL(47),IL(48),IL(49),IL(50),IL(51),IL(52),IL(53),IL(54),IL(55),
+c 2IL(56),IL(57),IL(58),IL(59),IL(60),IL(61),IL(62),IL(63),IL(64),
+c 3IL(65),IL(66),IL(67),IL(68),IL(69),IL(70),IL(71),IL(72),IL(73),
+c 4IL(74),IL(75),IL(76),IL(77),IL(78),IL(79),IL(80),IL(81),IL(82),
+c 5IL(83),IL(84),IL(85),IL(86),IL(87),IL(88),IL(89),IL(90)/
+c 6 1, 3, 4, 6, 7, 9,10,12,13,15,
+c 7 1, 2, 3, 5, 6, 8,10,11,13,14,15,
+c 8 1, 2, 3, 5, 6, 7, 9,10,11,13,14,15,
+c 9 1, 2, 3, 4, 6, 7, 8, 9, 10, 12, 13, 14, 15/
+c
+ IL(45) = 1
+ IL(46) = 3
+ IL(47) = 4
+ IL(48) = 6
+ IL(49) = 7
+ IL(50) = 9
+ IL(51) = 10
+ IL(52) = 12
+ IL(53) = 13
+ IL(54) = 15
+ IL(55) = 1
+ IL(56) = 2
+ IL(57) = 3
+ IL(58) = 5
+ IL(59) = 6
+ IL(60) = 8
+ IL(61) = 10
+ IL(62) = 11
+ IL(63) = 13
+ IL(64) = 14
+ IL(65) = 15
+ IL(66) = 1
+ IL(67) = 2
+ IL(68) = 3
+ IL(69) = 5
+ IL(70) = 6
+ IL(71) = 7
+ IL(72) = 9
+ IL(73) = 10
+ IL(74) = 11
+ IL(75) = 13
+ IL(76) = 14
+ IL(77) = 15
+ IL(78) = 1
+ IL(79) = 2
+ IL(80) = 3
+ IL(81) = 4
+ IL(82) = 6
+ IL(83) = 7
+ IL(84) = 8
+ IL(85) = 9
+ IL(86) = 10
+ IL(87) = 12
+ IL(88) = 13
+ IL(89) = 14
+ IL(90) = 15
+c
+c DATA IL(91),
+c 1IL(92),IL(93),IL(94),IL(95),IL(96),IL(97),IL(98),IL(99),IL(100),
+c 2IL(101),IL(102),IL(103),IL(104),IL(105),IL(106),IL(107),IL(108),
+c 3IL(109),IL(110),IL(111),IL(112),IL(113),IL(114),IL(115),IL(116),
+c 4IL(117),IL(118),IL(119),IL(120),IL(121),IL(122),IL(123),IL(124),
+c 5IL(125),IL(126),IL(127),IL(128),IL(129),IL(130),IL(131),IL(132),
+c 6IL(133),IL(134),IL(135)/
+c 7 1, 2, 3, 4, 5, 6, 7, 9,10,11,12,13,14,15,
+c 8 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,15,
+c 9 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,15/
+c
+ IL(91) = 1
+ IL(92) = 2
+ IL(93) = 3
+ IL(94) = 4
+ IL(95) = 5
+ IL(96) = 6
+ IL(97) = 7
+ IL(98) = 9
+ IL(99) = 10
+ IL(100) = 11
+ IL(101) = 12
+ IL(102) = 13
+ IL(103) = 14
+ IL(104) = 15
+ IL(105) = 1
+ IL(106) = 2
+ IL(107) = 3
+ IL(108) = 4
+ IL(109) = 5
+ IL(110) = 6
+ IL(111) = 7
+ IL(112) = 8
+ IL(113) = 9
+ IL(114) = 10
+ IL(115) = 11
+ IL(116) = 12
+ IL(117) = 13
+ IL(118) = 14
+ IL(119) = 15
+ IL(120) = 0
+ IL(121) = 1
+ IL(122) = 2
+ IL(123) = 3
+ IL(124) = 4
+ IL(125) = 5
+ IL(126) = 6
+ IL(127) = 7
+ IL(128) = 8
+ IL(129) = 9
+ IL(130) = 10
+ IL(131) = 11
+ IL(132) = 12
+ IL(133) = 13
+ IL(134) = 14
+ IL(135) = 15
+c
+C SIZE OF THE COORDINATE BUFFERING ARRAYS FOR POINTS BUFFERING.
+c DATA NPTMAX/50/
+ NPTMAX = 50
+c -noao
+ END
generated by cgit (git 2.34.1) at 2025-09-20 12:19:40 -0400