Initial commit

1 files changed, 54 insertions, 0 deletions

diff --git a/sys/gio/ncarutil/conlib/condsd.f b/sys/gio/ncarutil/conlib/condsd.f
new file mode 100644
index 00000000..0ea5fb43
--- /dev/null
+++ b/sys/gio/ncarutil/conlib/condsd.f
@@ -0,0 +1,54 @@
+      SUBROUTINE CONDSD
+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  DRAW THE OUTLINE OF THE SHIELD ON THE PLOT
+C
+      COMMON /CONR13/XVS(50),YVS(50),ICOUNT,SPVAL,SHIELD,
+     1               SLDPLT
+      LOGICAL SHIELD,SLDPLT
+C
+        SAVE
+C
+C  GET THE START POINT
+C
+      XS = XVS(1)
+      YS = YVS(1)
+C
+C  MOVE TO THE START OF THE OUTLINE
+C
+      CALL FL2INT(XS,YS,IX,IY)
+      CALL PLOTIT(IX,IY,0)
+C
+C  LOOP FOR ALL SHIELD ELEMENTS
+C
+      DO 100 IC = 2,ICOUNT
+C
+C       DRAW THE OUTLINE OF THE SHIELD
+C
+        CALL FL2INT(XVS(IC),YVS(IC),IX,IY)
+        CALL PLOTIT(IX,IY,1)
+C
+ 100  CONTINUE
+C
+C  DRAW TO THE START
+C
+      CALL FL2INT(XS,YS,IX,IY)
+      CALL PLOTIT(IX,IY,1)
+C
+C  FLUSH PLOTIT BUFFER
+C
+      CALL PLOTIT(0,0,0)
+      RETURN
+C
+      END