Trailing-Edge
-
PDP-10 Archives
-
decuslib10-12
-
43,50547/grid.for
There is 1 other file named grid.for in the archive. Click here to see a list.
SUBROUTINE GRID(X,Y,DELX,DELY,NX,NY)
C
C
C THIS ROUTINE IS USED TO DRAW A GRID
C
C
C CALLING SEQUENCE:
C
C (X,Y) - (I) COORDINATES OF THE CORNER OF THE GRID
C
C DELX - (I) DISTANCE (IN INCHES) BETWEEN GRID LINES IN THE X
C DIRECTION
C
C DELY - (I) DISTANCE (IN INCHES) BETWEEN GRID LINES IN THE Y
C DIRECTION
C
C NX - (I) NUMBER OF SPACES IN X DIRECTION WITHIN THE GRID
C
C NY - (I) NUMBER OF SPACES IN Y DIRECTION WITHIN THE GRID
C
C
C SUBPROGRAMS USED:
C
C FLOAT AND PLOT
C
C
DIMENSION DX(6:7),DY(6:7),TDX(6:7),TDY(6:7)
EQUIVALENCE (TDX(7),DX(6)),(TDY(7),DY(6))
DATA DX(6),DY(6) / 0.,0. /
DX(7) = DELX
TDX(6) = -DELX * FLOAT(NX)
DY(7) = DELY
TDY(6) = DELY * FLOAT(NY)
IPEN = 6
CALL PLOT (X,Y,3)
DO 10 I = 1,(NX * 2 + 1)
CALL PLOT (DX(IPEN),TDY(IPEN),IPEN)
IPEN = IPEN .XOR. 1
10 IF (IPEN .EQ. 6) TDY(6) = -TDY(6)
IF ((NX .AND. 1) .EQ. 0) DY(7) = -DY(7)
DO 20 I = 1,(NY * 2 + 1)
IPEN = IPEN .XOR. 1
CALL PLOT (TDX(IPEN),DY(IPEN),IPEN)
20 IF (IPEN .EQ. 6) TDX(6) = -TDX(6)
RETURN
END