OVAL.GRS

$$ PROGRAM: OVAL.GRS
$$
$$ KEYWORDS:
$$
$$ ABSTRACT: Program creates an ellipse when a tilt angle and major
$$           diameter are known. Minor diameter is calulated automajically.
$$
$$ RELEASE HISTORY:
$$   01-APR-83 INITIAL RELEASE
$$
$$ Required Subroutines: (None)
$$
$$ AUTHOR: Kathy Pfeufer
$$ COMPANY: Los Alamos National Labs
$$          P.O. Box 1663
$$          Los Alamos, NM 87545
$$
$$ SYSTEM TYPE:
$$

$$
$$ PORTION WHICH DRAWS THE BOLTING
$$ CIRCLE AT AN ANGLE ADDED WINTER
$$ 1985, BY KATHY PFEUFER
$$
$$ NUMERIC VARIABLE LIST:
$$
$$ ENDANG = END ANGLE
$$ PROANG = TILT ANGLE
$$ RANG = ANGLE OF CIRCLE ROTATION
$$ SANG = STARTING ANGLE
$$ DIA = MAJOR DIAMETER
$$ BCD = BOLTING CIRCLE DIAMETER
$$ HDIA = HOLE SIZE (DIAMETER)
$$ NUM = NUMBER OF HOLES ON BOLTING CIRCLE
$$ YDENS = DENSITY EDA NUMERIC VALUE
$$ YFONT = FONT EDA NUMERIC VALUE
$$ MRAD = HALF OF THE DIAMETER
$$ MNRAD = DISTANCE BETWEEN CONSTRUCTED LINES FOR MINOR DIA
$$ HMNRAD = DISTANCE BETWEEN CONSTRUCTED LINES FOR HOLE LOC.
$$ STRTAN = STARTING ANGLE OF THE BOLTING CIRCLE FROM 0 DEG.
$$ A = ANGLE BETWEEN HOLES
$$ PCT = SAME AS NUM. USED FOR DO LOOP
$$ SPCT = ANGLE FOR START POINT
$$ EPCT = ANGLE FOR END POINT
$$ INDEX = INDEXING VARIABLE FOR DO LOOP
$$ X1,Y1,Z1 = BOLTING CIRCLE CENTER LOCATION FOR GPOS
$$ X2,Y2,Z2 = ENDPOINT OF LINE FOR MINOR RAD
$$ X3,Y3,Z3 = ENDPOINT OF LINE FOR MINOR RAD
$$ RS? = RESPONCE TO INTERACTIVE STATEMENTS

$$ DECLARATIONS AND INITIALIZATIONS