You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
544 lines
19 KiB
544 lines
19 KiB
2 years ago
|
C Copyright(C) 1999-2020 National Technology & Engineering Solutions
|
||
|
|
C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
||
|
|
C NTESS, the U.S. Government retains certain rights in this software.
|
||
|
|
C
|
||
|
|
C See packages/seacas/LICENSE for details
|
||
|
|
|
||
|
|
SUBROUTINE GMESH (NPNODE, NPELEM, MXNFLG, MXSFLG, NPNBC, NPSBC,
|
||
|
|
& MAXKXN, MR, NPREGN, MCOM, ICOM, JCOM, CIN, RIN, IIN, KIN, NNN,
|
||
|
|
& KKK, NUMMAT, NNXK, IPART, NODES, NNFLG, NNPTR, NSFLG, NVPTR,
|
||
|
|
& NVLEN, NSIDEN, MAPDXG, XN, YN, NXK, MAT, ILOOK, MAPGXD, CENTK,
|
||
|
|
& MATMAP, WTNODE, WTSIDE, NBCNOD, NNLIST, NBCSID, NVLIST, TITLE,
|
||
|
|
& IDUMP, AXIS, AREACG, LABE, LABO, LABN, LABNB, LABSB, LABM,
|
||
|
|
& LABW, IDEV, ALPHA, DEV1, EIGHT, NINE, VAXVMS, VERSN, WROTE,
|
||
|
|
& TIME1, HARDPL, BATCH)
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C SUBROUTINE GMESH = SETS UP GRAPHICS FOR THE GENERATED MESH
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C SUBROUTINE CALLED BY:
|
||
|
|
C MESH = ALLOWS MESH GENERATION AND DISPLAY
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C VARIABLES USED:
|
||
|
|
C TITLE = MESH TITLE
|
||
|
|
C LABE = .TRUE. IF ELEMENT NUMBERS ARE TO BE PLOTTED
|
||
|
|
C LABN = .TRUE. IF NODE NUMBERS ARE TO BE PLOTTED
|
||
|
|
C LABNB = .TRUE. IF NODE BOUNDARY NUMBERS ARE TO BE PLOTTED
|
||
|
|
C LABSB = .TRUE. IF ELEMENT BOUNDARY NUMBERS ARE TO BE PLOTTED
|
||
|
|
C LABM = .TRUE. IF MATERIAL NUMBERS ARE TO BE PLOTTED
|
||
|
|
C AXIS = .TRUE. IF THE AXIS IS TO BE DRAWN
|
||
|
|
C AREACG = .TRUE. IF THE AREA AND C.G. ARE CALCULATED AND THE C.G.
|
||
|
|
C IS DISPLAYED
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
DIMENSION IPART (3, NPREGN), CENTK (2, NPELEM)
|
||
|
|
DIMENSION ILOOK (NNXK * MAXKXN)
|
||
|
|
DIMENSION XN (NPNODE), YN (NPNODE), NXK (NNXK, NPELEM)
|
||
|
|
DIMENSION MAT (NPELEM)
|
||
|
|
DIMENSION MAPGXD (NPNODE)
|
||
|
|
DIMENSION NODES (NPNBC), NSIDEN (NPSBC), WTNODE (NPNBC)
|
||
|
|
DIMENSION WTSIDE (NPSBC)
|
||
|
|
DIMENSION NNFLG (MXNFLG), NNPTR (MXNFLG)
|
||
|
|
DIMENSION NSFLG (MXSFLG), NVPTR (MXSFLG), NVLEN (MXSFLG)
|
||
|
|
DIMENSION MAPDXG (NPNODE), MATMAP (3, NPREGN)
|
||
|
|
DIMENSION KIN (MCOM), IIN (MCOM), RIN (MCOM)
|
||
|
|
DIMENSION IDEV (2)
|
||
|
|
|
||
|
|
LOGICAL LABE, LABN, LABNB, LABSB, GOPLOT, SETFLG, DRAWN
|
||
|
|
LOGICAL AXIS, LABM, AREACG
|
||
|
|
LOGICAL LABW, ALPHA, EIGHT, NINE, OLD, LABO, VAXVMS, REGPLT
|
||
|
|
LOGICAL WROTE, HARDPL
|
||
|
|
LOGICAL BATCH
|
||
|
|
|
||
|
|
CHARACTER*72 TITLE, CIN (MCOM)
|
||
|
|
CHARACTER*3 DEV1, VERSN*9
|
||
|
|
|
||
|
|
IZ = 0
|
||
|
|
|
||
|
|
C CALCULATE THE CENTER OF EACH ELEMENT FOR CLIPPING CONSIDERATIONS
|
||
|
|
|
||
|
|
DO 100 I = 1, KKK
|
||
|
|
IF (NXK (3, I) .EQ. 0) THEN
|
||
|
|
CENTK (1, I) = .5 * (XN (NXK (1, I)) + XN (NXK (2, I)))
|
||
|
|
CENTK (2, I) = .5 * (YN (NXK (1, I)) + YN (NXK (2, I)))
|
||
|
|
ELSE IF (NXK (4, I) .EQ. 0) THEN
|
||
|
|
CENTK (1, I) = .33333 * (XN (NXK (1, I)) +
|
||
|
|
& XN (NXK (2, I)) + XN (NXK (3, I)))
|
||
|
|
CENTK (2, I) = .33333 * (YN (NXK (1, I)) +
|
||
|
|
& YN (NXK (2, I)) + YN (NXK (3, I)))
|
||
|
|
ELSE IF ((EIGHT).OR. (NINE)) THEN
|
||
|
|
CENTK (1, I) = .5 * (XN (NXK (1, I)) + XN (NXK (5, I)))
|
||
|
|
CENTK (2, I) = .5 * (YN (NXK (1, I)) + YN (NXK (5, I)))
|
||
|
|
ELSE
|
||
|
|
CENTK (1, I) = .5 * (XN (NXK (1, I)) + XN (NXK (3, I)))
|
||
|
|
CENTK (2, I) = .5 * (YN (NXK (1, I)) + YN (NXK (3, I)))
|
||
|
|
END IF
|
||
|
|
100 CONTINUE
|
||
|
|
DRAWN = .FALSE.
|
||
|
|
|
||
|
|
C FIND THE BODY MIN AND MAX
|
||
|
|
|
||
|
|
CALL MINMAX_FQ (NPNODE, NNN, XN, YN, XMIN, XMAX, YMIN, YMAX)
|
||
|
|
XMIN1 = XMIN
|
||
|
|
XMAX1 = XMAX
|
||
|
|
YMIN1 = YMIN
|
||
|
|
YMAX1 = YMAX
|
||
|
|
|
||
|
|
C ENTER GRAPHICS OPTION
|
||
|
|
|
||
|
|
110 CONTINUE
|
||
|
|
IF (ICOM .GT. JCOM) THEN
|
||
|
|
CALL MESSAGE(' ')
|
||
|
|
CALL FREFLD (IZ, IZ, 'ENTER MESH GRAPHICS OPTION: ', MCOM,
|
||
|
|
& IOSTAT, JCOM, KIN, CIN, IIN, RIN)
|
||
|
|
ICOM = 1
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C TOGGLE DRAWING OF THE AXIS
|
||
|
|
|
||
|
|
IF ((CIN (ICOM) (1:1) .EQ. 'A')
|
||
|
|
& .OR. (CIN (ICOM) (1:1) .EQ. 'a')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (AXIS) THEN
|
||
|
|
AXIS = .FALSE.
|
||
|
|
CALL MESSAGE('AXIS DRAWING - OFF')
|
||
|
|
ELSE
|
||
|
|
AXIS = .TRUE.
|
||
|
|
CALL MESSAGE('AXIS DRAWING - ON')
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C TOGGLE CALCULATION OF AREA AND C.G.
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:1) .EQ. 'C')
|
||
|
|
& .OR. (CIN (ICOM) (1:1) .EQ. 'c')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (AREACG) THEN
|
||
|
|
AREACG = .FALSE.
|
||
|
|
CALL MESSAGE('AREA AND C.G. REPORT - OFF')
|
||
|
|
ELSE
|
||
|
|
AREACG = .TRUE.
|
||
|
|
CALL MESSAGE('AREA AND C.G. REPORT - ON')
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C TOGGLE NODAL BOUNDARY DISPLAY
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:2) .EQ. 'NB') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'nb')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABNB) THEN
|
||
|
|
LABNB = .FALSE.
|
||
|
|
CALL MESSAGE('NODAL BOUNDARY DISPLAY - OFF')
|
||
|
|
ELSE
|
||
|
|
LABNB = .TRUE.
|
||
|
|
CALL MESSAGE('NODAL BOUNDARY DISPLAY - ON')
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C TOGGLE ELEMENT SIDE BOUNDARY DISPLAY
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:2) .EQ. 'EB') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'eb')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABSB) THEN
|
||
|
|
LABSB = .FALSE.
|
||
|
|
CALL MESSAGE('ELEMENT SIDE BOUNDARY DISPLAY - OFF')
|
||
|
|
ELSE
|
||
|
|
LABSB = .TRUE.
|
||
|
|
CALL MESSAGE('ELEMENT SIDE BOUNDARY DISPLAY - ON')
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C TOGGLE WEIGHTING FACTOR DISPLAY
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:1) .EQ. 'W') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'w')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABW) THEN
|
||
|
|
LABW = .FALSE.
|
||
|
|
CALL MESSAGE('BOUNDARY WEIGHTING DISPLAY - OFF')
|
||
|
|
ELSE
|
||
|
|
LABW = .TRUE.
|
||
|
|
CALL MESSAGE('BOUNDARY WEIGHTING DISPLAY - ON')
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C TOGGLE ELEMENT NUMBERING
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:2) .EQ. 'EN') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'en')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABE) THEN
|
||
|
|
LABE = .FALSE.
|
||
|
|
CALL MESSAGE('ELEMENT NUMBERS - OFF')
|
||
|
|
ELSE
|
||
|
|
LABE = .TRUE.
|
||
|
|
CALL MESSAGE('ELEMENT NUMBERS - ON')
|
||
|
|
LABO = .FALSE.
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C TOGGLE NODE NUMBERING
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:1) .EQ. 'N') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'n')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABN) THEN
|
||
|
|
LABN = .FALSE.
|
||
|
|
CALL MESSAGE('NODE NUMBERS - OFF')
|
||
|
|
ELSE
|
||
|
|
LABN = .TRUE.
|
||
|
|
CALL MESSAGE('NODE NUMBERS - ON')
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C TOGGLE MATERIAL NUMBER DISPLAY
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:2) .EQ. 'MN') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'mn')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABM) THEN
|
||
|
|
LABM = .FALSE.
|
||
|
|
CALL MESSAGE('MATERIAL NUMBERING - OFF')
|
||
|
|
ELSE
|
||
|
|
LABM = .TRUE.
|
||
|
|
CALL MESSAGE('MATERIAL NUMBERING - ON')
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C TOGGLE OPTIMIZED ORDER DISPLAY
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:1) .EQ. 'O') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'o')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABO) THEN
|
||
|
|
LABO = .FALSE.
|
||
|
|
CALL MESSAGE('OPTIMIZED ORDER NUMBERING - OFF')
|
||
|
|
ELSE
|
||
|
|
LABO = .TRUE.
|
||
|
|
CALL MESSAGE('OPTIMIZER ORDER NUMBERING - ON')
|
||
|
|
LABE = .FALSE.
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C PLOT ALL ACTIVE ELEMENTS (ZOOM STILL APPLIES)
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:1) .EQ. 'P') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'p')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (ALPHA) THEN
|
||
|
|
CALL MESSAGE('NO PLOTTING POSSIBLE ON ALPHANUMERIC '//
|
||
|
|
& 'TERMINAL')
|
||
|
|
ELSE
|
||
|
|
CALL PMESH (NPNODE, NPELEM, MXNFLG, MXSFLG, NPNBC, NPSBC,
|
||
|
|
& MAXKXN, NNN, KKK, NNXK, NBCNOD, NBCSID, NNLIST, NVLIST,
|
||
|
|
& NODES, NSIDEN, NNFLG, NNPTR, NSFLG, NVPTR, NVLEN, XN, YN,
|
||
|
|
& NXK, MAT, MAPDXG, MAPGXD, WTNODE, WTSIDE, AXIS, AREACG,
|
||
|
|
& LABE, LABO, LABN, LABNB, LABSB, LABM, LABW, CENTK, ILOOK,
|
||
|
|
& XMIN, XMAX, YMIN, YMAX, XX1, XX2, YY1, YY2, TITLE, DEV1,
|
||
|
|
& EIGHT, NINE, VERSN, VAXVMS)
|
||
|
|
DRAWN = .TRUE.
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C PLOT A LIMITED NUMBER OF ELEMENTS BY ELEMENT NUMBER
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:2) .EQ. 'EP') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'ep')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
SETFLG = .FALSE.
|
||
|
|
IF (LABO) THEN
|
||
|
|
OLD = .FALSE.
|
||
|
|
ELSE
|
||
|
|
OLD = .TRUE.
|
||
|
|
END IF
|
||
|
|
CALL FLAGK (NPELEM, NNXK, NXK, MAPDXG, 1, KKK, SETFLG, OLD)
|
||
|
|
SETFLG = .TRUE.
|
||
|
|
GOPLOT = .FALSE.
|
||
|
|
CALL MESSAGE('PLOT ELEMENTS FROM <I1> TO <I2>')
|
||
|
|
CALL MESSAGE('HIT RETURN TO END INPUT')
|
||
|
|
120 CONTINUE
|
||
|
|
IF (ICOM .GT. JCOM) THEN
|
||
|
|
CALL FREFLD (IZ, IZ, '>', MCOM, IOSTAT, JCOM, KIN, CIN, IIN,
|
||
|
|
& RIN)
|
||
|
|
ICOM = 1
|
||
|
|
END IF
|
||
|
|
CALL GETI12 (MCOM, ICOM, JCOM, CIN, IIN, KIN, I1, I2, IFOUND)
|
||
|
|
IF (IFOUND .GT. 0) THEN
|
||
|
|
IF (I1 .GT. 0) THEN
|
||
|
|
CALL CHECK (I1, I2, KKK)
|
||
|
|
CALL FLAGK (NPELEM, NNXK, NXK, MAPDXG, I1, I2, SETFLG,
|
||
|
|
& OLD)
|
||
|
|
GOPLOT = .TRUE.
|
||
|
|
GO TO 120
|
||
|
|
END IF
|
||
|
|
END IF
|
||
|
|
IF (GOPLOT) THEN
|
||
|
|
IF (ALPHA) THEN
|
||
|
|
CALL MESSAGE('NO PLOTTING POSSIBLE ON ALPHANUMERIC '//
|
||
|
|
& ' TERMINAL')
|
||
|
|
ELSE
|
||
|
|
CALL MNMXK (NPELEM, NPNODE, NNXK, NXK, XN, YN, CENTK,
|
||
|
|
& KKK, XMIN, XMAX, YMIN, YMAX)
|
||
|
|
CALL PMESH (NPNODE, NPELEM, MXNFLG, MXSFLG, NPNBC, NPSBC,
|
||
|
|
& MAXKXN, NNN, KKK, NNXK, NBCNOD, NBCSID, NNLIST,
|
||
|
|
& NVLIST, NODES, NSIDEN, NNFLG, NNPTR, NSFLG, NVPTR,
|
||
|
|
& NVLEN, XN, YN, NXK, MAT, MAPDXG, MAPGXD, WTNODE,
|
||
|
|
& WTSIDE, AXIS, AREACG, LABE, LABO, LABN, LABNB, LABSB,
|
||
|
|
& LABM, LABW, CENTK, ILOOK, XMIN, XMAX, YMIN, YMAX, XX1,
|
||
|
|
& XX2, YY1, YY2, TITLE, DEV1, EIGHT, NINE, VERSN,
|
||
|
|
& VAXVMS)
|
||
|
|
DRAWN = .TRUE.
|
||
|
|
END IF
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C PLOT ELEMENTS BY REGION (S) OR BARSET (S) CHOSEN
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:1) .EQ. 'R') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'r') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'B') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'b')) THEN
|
||
|
|
SETFLG = .FALSE.
|
||
|
|
OLD = .TRUE.
|
||
|
|
CALL FLAGK (NPELEM, NNXK, NXK, MAPDXG, 1, KKK, SETFLG, OLD)
|
||
|
|
SETFLG = .TRUE.
|
||
|
|
GOPLOT = .FALSE.
|
||
|
|
IF ((CIN (ICOM) (1:1) .EQ. 'R') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'r')) THEN
|
||
|
|
CALL MESSAGE('PLOT REGIONS FROM <I1> TO <I2>')
|
||
|
|
REGPLT = .TRUE.
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE('PLOT BARSETS FROM <I1> TO <I2>')
|
||
|
|
REGPLT = .FALSE.
|
||
|
|
END IF
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
CALL MESSAGE('HIT RETURN TO END INPUT')
|
||
|
|
130 CONTINUE
|
||
|
|
IF (ICOM .GT. JCOM) THEN
|
||
|
|
CALL FREFLD (IZ, IZ, '>', MCOM, IOSTAT, JCOM, KIN, CIN, IIN,
|
||
|
|
& RIN)
|
||
|
|
ICOM = 1
|
||
|
|
END IF
|
||
|
|
CALL GETI12 (MCOM, ICOM, JCOM, CIN, IIN, KIN, I1, I2, IFOUND)
|
||
|
|
IF (IFOUND .GT. 0) THEN
|
||
|
|
IF (I1 .GT. 0) THEN
|
||
|
|
IF (I2 .LT. I1)I2 = I1
|
||
|
|
DO 140 I = 1, NPREGN
|
||
|
|
IF ((IPART (1, I) .GE. I1)
|
||
|
|
& .AND. (IPART (1, I) .LE. I2)) THEN
|
||
|
|
IF ((REGPLT .AND. (NXK (4, IPART (2, I)) .GT. 0))
|
||
|
|
& .OR. (NXK (4, IPART (2, I)) .EQ. 0)) THEN
|
||
|
|
CALL FLAGK (NPELEM, NNXK, NXK, MAPDXG,
|
||
|
|
& IPART (2, I), IPART (3, I), SETFLG, OLD)
|
||
|
|
GOPLOT = .TRUE.
|
||
|
|
END IF
|
||
|
|
END IF
|
||
|
|
140 CONTINUE
|
||
|
|
GO TO 130
|
||
|
|
END IF
|
||
|
|
END IF
|
||
|
|
IF (GOPLOT) THEN
|
||
|
|
IF (ALPHA) THEN
|
||
|
|
CALL MESSAGE('NO PLOTTING POSSIBLE ON ALPHANUMERIC '//
|
||
|
|
& 'TERMINAL')
|
||
|
|
ELSE
|
||
|
|
CALL MNMXK (NPELEM, NPNODE, NNXK, NXK, XN, YN, CENTK,
|
||
|
|
& KKK, XMIN, XMAX, YMIN, YMAX)
|
||
|
|
CALL PMESH (NPNODE, NPELEM, MXNFLG, MXSFLG, NPNBC, NPSBC,
|
||
|
|
& MAXKXN, NNN, KKK, NNXK, NBCNOD, NBCSID, NNLIST,
|
||
|
|
& NVLIST, NODES, NSIDEN, NNFLG, NNPTR, NSFLG, NVPTR,
|
||
|
|
& NVLEN, XN, YN, NXK, MAT, MAPDXG, MAPGXD, WTNODE,
|
||
|
|
& WTSIDE, AXIS, AREACG, LABE, LABO, LABN, LABNB, LABSB,
|
||
|
|
& LABM, LABW, CENTK, ILOOK, XMIN, XMAX, YMIN, YMAX, XX1,
|
||
|
|
& XX2, YY1, YY2, TITLE, DEV1, EIGHT, NINE, VERSN,
|
||
|
|
& VAXVMS)
|
||
|
|
DRAWN = .TRUE.
|
||
|
|
XMIN1 = XMIN
|
||
|
|
XMAX1 = XMAX
|
||
|
|
YMIN1 = YMIN
|
||
|
|
YMAX1 = YMAX
|
||
|
|
END IF
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C PLOT ELEMENTS BY MATERIAL NUMBER
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:1) .EQ. 'M') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'm')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
SETFLG = .FALSE.
|
||
|
|
OLD = .TRUE.
|
||
|
|
CALL FLAGK (NPELEM, NNXK, NXK, MAPDXG, 1, KKK, SETFLG, OLD)
|
||
|
|
GOPLOT = .FALSE.
|
||
|
|
SETFLG = .TRUE.
|
||
|
|
CALL MESSAGE('PLOT MATERIALS FROM <I1> TO <I2>')
|
||
|
|
CALL MESSAGE('HIT RETURN TO END INPUT')
|
||
|
|
150 CONTINUE
|
||
|
|
IF (ICOM .GT. JCOM) THEN
|
||
|
|
CALL FREFLD (IZ, IZ, '>', MCOM, IOSTAT, JCOM, KIN, CIN, IIN,
|
||
|
|
& RIN)
|
||
|
|
ICOM = 1
|
||
|
|
END IF
|
||
|
|
CALL GETI12 (MCOM, ICOM, JCOM, CIN, IIN, KIN, I1, I2, IFOUND)
|
||
|
|
IF (IFOUND .GT. 0) THEN
|
||
|
|
IF (I1 .GT. 0) THEN
|
||
|
|
IF (I2 .LT. I1)I2 = I1
|
||
|
|
DO 170 IM = I1, I2
|
||
|
|
DO 160 I = 1, NUMMAT
|
||
|
|
IF (IM .EQ. MATMAP (1, I)) THEN
|
||
|
|
CALL FLAGK (NPELEM, NNXK, NXK, MAPDXG,
|
||
|
|
& MATMAP (2, I), MATMAP (3, I), SETFLG, OLD)
|
||
|
|
GOPLOT = .TRUE.
|
||
|
|
END IF
|
||
|
|
160 CONTINUE
|
||
|
|
170 CONTINUE
|
||
|
|
GO TO 150
|
||
|
|
END IF
|
||
|
|
END IF
|
||
|
|
IF (GOPLOT) THEN
|
||
|
|
IF (ALPHA) THEN
|
||
|
|
CALL MESSAGE('NO PLOTTING POSSIBLE ON ALPHANUMERIC '//
|
||
|
|
& 'TERMINAL')
|
||
|
|
ELSE
|
||
|
|
CALL MNMXK (NPELEM, NPNODE, NNXK, NXK, XN, YN, CENTK,
|
||
|
|
& KKK, XMIN, XMAX, YMIN, YMAX)
|
||
|
|
CALL PMESH (NPNODE, NPELEM, MXNFLG, MXSFLG, NPNBC, NPSBC,
|
||
|
|
& MAXKXN, NNN, KKK, NNXK, NBCNOD, NBCSID, NNLIST,
|
||
|
|
& NVLIST, NODES, NSIDEN, NNFLG, NNPTR, NSFLG, NVPTR,
|
||
|
|
& NVLEN, XN, YN, NXK, MAT, MAPDXG, MAPGXD, WTNODE,
|
||
|
|
& WTSIDE, AXIS, AREACG, LABE, LABO, LABN, LABNB, LABSB,
|
||
|
|
& LABM, LABW, CENTK, ILOOK, XMIN, XMAX, YMIN, YMAX, XX1,
|
||
|
|
& XX2, YY1, YY2, TITLE, DEV1, EIGHT, NINE, VERSN,
|
||
|
|
& VAXVMS)
|
||
|
|
DRAWN = .TRUE.
|
||
|
|
END IF
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C SPAWN A PROCESS
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:2) .EQ. 'SP') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'sp')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
CALL SPAWN (VAXVMS)
|
||
|
|
|
||
|
|
C SHOW STATUS OF ALL TOGGLES
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:1) .EQ. 'S') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 's')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
CALL MESSAGE(' ')
|
||
|
|
CALL MESSAGE('THE CURRENT STATUS OF ALL PLOTTING TOGGLES IS:')
|
||
|
|
IF (AXIS) THEN
|
||
|
|
CALL MESSAGE(' AXIS PLOTTING - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' AXIS PLOTTING - OFF')
|
||
|
|
END IF
|
||
|
|
IF (AREACG) THEN
|
||
|
|
CALL MESSAGE(' AREA AND C.G. REPORT - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' AREA AND C.G. REPORT - OFF')
|
||
|
|
END IF
|
||
|
|
IF (LABN) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF NODES - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF NODES - OFF')
|
||
|
|
END IF
|
||
|
|
IF (LABNB) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF NODAL BOUND. - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF NODAL BOUND. - OFF')
|
||
|
|
END IF
|
||
|
|
IF (LABW) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF NODE WEIGHTING - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF NODE WEIGHTING - OFF')
|
||
|
|
END IF
|
||
|
|
IF (LABE) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF ELEMENTS - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF ELEMENTS - OFF')
|
||
|
|
END IF
|
||
|
|
IF (LABSB) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF ELEM SIDE BOUND. - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF ELEM SIDE BOUND. - OFF')
|
||
|
|
END IF
|
||
|
|
IF (LABM) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF BLOCK ID (MAT) - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF BLOCK ID (MAT) - OFF')
|
||
|
|
END IF
|
||
|
|
CALL MESSAGE(' ')
|
||
|
|
CALL MESSAGE('*----------------- NOTE -----------------*')
|
||
|
|
CALL MESSAGE(' PLOTTING ORDER AT NODES IS: ')
|
||
|
|
CALL MESSAGE(' NODE NO./NODAL BOUND. FLAG/WEIGHT ')
|
||
|
|
CALL MESSAGE(' PLOTTING ORDER AT ELEMENT CENTER IS: ')
|
||
|
|
CALL MESSAGE(' ELEMENT NO./BLOCK ID (MAT) NO. ')
|
||
|
|
CALL MESSAGE('*----------------- NOTE -----------------*')
|
||
|
|
|
||
|
|
C GET A QMS PLOT FILE OF THE CURRENT SCREEN
|
||
|
|
|
||
|
|
ELSE IF (( (CIN (ICOM) (1:1) .EQ. 'H') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'h')) .AND.
|
||
|
|
& (CIN (ICOM) (2:2).NE.'E') .AND.
|
||
|
|
& (CIN (ICOM) (2:2).NE.'e')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
CALL VDIQES (10002, KAVAL2)
|
||
|
|
IF (KAVAL2 .EQ. 1) THEN
|
||
|
|
IF (.NOT.ALPHA)CALL VDESCP (10002, 0, 0)
|
||
|
|
CALL PMESH (NPNODE, NPELEM, MXNFLG, MXSFLG, NPNBC, NPSBC,
|
||
|
|
& MAXKXN, NNN, KKK, NNXK, NBCNOD, NBCSID, NNLIST, NVLIST,
|
||
|
|
& NODES, NSIDEN, NNFLG, NNPTR, NSFLG, NVPTR, NVLEN, XN, YN,
|
||
|
|
& NXK, MAT, MAPDXG, MAPGXD, WTNODE, WTSIDE, AXIS, AREACG,
|
||
|
|
& LABE, LABO, LABN, LABNB, LABSB, LABM, LABW, CENTK, ILOOK,
|
||
|
|
& XMIN, XMAX, YMIN, YMAX, XX1, XX2, YY1, YY2, TITLE, 'XXX',
|
||
|
|
& EIGHT, NINE, VERSN, VAXVMS)
|
||
|
|
IF (.NOT.ALPHA) THEN
|
||
|
|
CALL PLTFLU
|
||
|
|
CALL VDESCP (10001, 0, 0)
|
||
|
|
END IF
|
||
|
|
CALL MESSAGE('HARDCOPY PLOT GENERATED')
|
||
|
|
HARDPL = .TRUE.
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE('HARDCOPY DEVICE NOT AVAILABLE')
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C ENTER ZOOM LOCATION
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:1) .EQ. 'Z') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'z')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
CALL ZOOMLT (MCOM, ICOM, JCOM, CIN, RIN, IIN, KIN, IDUMP,
|
||
|
|
& DRAWN, ALPHA, DEV1, X1, X2, Y1, Y2, XX1, XX2, YY1, YY2,
|
||
|
|
& XMIN1, XMAX1, YMIN1, YMAX1, XMIN, XMAX, YMIN, YMAX)
|
||
|
|
DRAWN = .FALSE.
|
||
|
|
|
||
|
|
C EXIT OPTION - EXITS FASTQ
|
||
|
|
|
||
|
|
ELSE IF ((CIN (ICOM) (1:2) .EQ. 'EX') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'ex')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
CALL STRLNG (CIN(ICOM), LEN)
|
||
|
|
IF (((LEN .GT. 1) .AND. (CIN(ICOM)(2:2) .NE. 'X')) .OR.
|
||
|
|
& ((LEN .GT. 1) .AND. (CIN(ICOM)(2:2) .NE. 'x'))) THEN
|
||
|
|
CALL HELP_FQ (11)
|
||
|
|
ELSE
|
||
|
|
CALL FEXIT (WROTE, MCOM, ICOM, JCOM, CIN, IIN, RIN, KIN,
|
||
|
|
& TIME1, BATCH, VERSN)
|
||
|
|
ENDIF
|
||
|
|
GO TO 110
|
||
|
|
|
||
|
|
C RETURN TO MESH ROUTINE
|
||
|
|
|
||
|
|
ELSE IF (CIN (ICOM) (1:1) .EQ. ' ') THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
DO 180 I = 1, KKK
|
||
|
|
NXK (1, I) = IABS (NXK (1, I))
|
||
|
|
180 CONTINUE
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
C GET HELP MESSAGE
|
||
|
|
|
||
|
|
ELSE
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
CALL HELP_FQ (11)
|
||
|
|
END IF
|
||
|
|
GO TO 110
|
||
|
|
|
||
|
|
END
|