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.
894 lines
31 KiB
894 lines
31 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 GDATA (MP, ML, MS, MR, MSC, MCOM, ICOM, JCOM, CIN,
|
||
|
|
& RIN, IIN, KIN, IDUMP, N, IPOINT, COOR, IPBOUN, ILINE, LTYPE,
|
||
|
|
& NINT, FACTOR, LCON, ILBOUN, ISBOUN, ISIDE, NLPS, IFLINE,
|
||
|
|
& ILLIST, IBARST, JMAT, JCENT, NLPB, JFLINE, JLLIST, IREGN,
|
||
|
|
& IMAT, NSPR, IFSIDE, ISLIST, LINKP, LINKL, LINKS, LINKB, LINKR,
|
||
|
|
& LINKSC, REXTRM, RSIZE, SCHEME, DEFSCH, DEFSIZ, TITLE, LABP,
|
||
|
|
& LABL, LABR, AXISD, LABMD, LABI, LABF, LABPB, LABLB, LABSBD,
|
||
|
|
& LABSC, LABSZ, FULL, IDEV, ALPHA, DEV1, VAXVMS, VERSN, WROTE,
|
||
|
|
& TIME1, HARDPL, BATCH)
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C GDATA = SUBROUTINE TO INPUT LIGHT TABLE POINTS
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C SUBROUTINE CALLED BY:
|
||
|
|
C FASTQ = A PROGRAM TO QUICKLY PREPARE QMESH INPUT
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
DIMENSION IPOINT (MP), COOR (2, MP), IPBOUN (MP)
|
||
|
|
DIMENSION ILINE (ML), LTYPE (ML), NINT (ML)
|
||
|
|
DIMENSION FACTOR (ML), LCON (3, ML)
|
||
|
|
DIMENSION ILBOUN (ML), ISBOUN (ML)
|
||
|
|
DIMENSION ISIDE (MS), NLPS (MS), IFLINE (MS), ILLIST (MS*3)
|
||
|
|
DIMENSION IBARST (MS), JMAT (MS), JCENT (MS)
|
||
|
|
DIMENSION NLPB (MS), JFLINE (MS), JLLIST (MS*3)
|
||
|
|
DIMENSION IREGN (MR), IMAT (MR), NSPR (MR), IFSIDE (MR)
|
||
|
|
DIMENSION ISLIST (MR*4)
|
||
|
|
DIMENSION SCHEME (MSC), RSIZE (MR)
|
||
|
|
DIMENSION LINKP (2, MP), LINKL (2, ML), LINKS (2, MS)
|
||
|
|
DIMENSION LINKB (2, MS), LINKR (2, MR), LINKSC (2, MR)
|
||
|
|
DIMENSION REXTRM (4, MR), N (29)
|
||
|
|
DIMENSION KIN (MCOM), IIN (MCOM), RIN (MCOM)
|
||
|
|
DIMENSION IDEV (2), III (1)
|
||
|
|
|
||
|
|
CHARACTER*72 SCHEME, DEFSCH, TITLE, CIN (MCOM)
|
||
|
|
CHARACTER*3 DEV1, VERSN*9
|
||
|
|
|
||
|
|
LOGICAL DRAWN, FLAG, GOPLOT, ALPHA
|
||
|
|
LOGICAL ADDLNK, VAXVMS, WROTE
|
||
|
|
LOGICAL LABP, LABL, LABR, AXISD, LABMD
|
||
|
|
LOGICAL LABI, LABF, LABPB, LABLB, LABSBD
|
||
|
|
LOGICAL FULL, LABSC, LABSZ, GETMAX, TEST
|
||
|
|
LOGICAL NUMPLT, HARDPL, BATCH, FOUND
|
||
|
|
|
||
|
|
IZ = 0
|
||
|
|
DRAWN = .FALSE.
|
||
|
|
ADDLNK = .FALSE.
|
||
|
|
GETMAX = .FALSE.
|
||
|
|
TEST = .FALSE.
|
||
|
|
NUMPLT = .FALSE.
|
||
|
|
|
||
|
|
C FLAG ALL THE DATA TO BE PLOTTED
|
||
|
|
|
||
|
|
FLAG = .TRUE.
|
||
|
|
CALL FLAGD (MP, N (18), LINKP, IPOINT, FLAG)
|
||
|
|
CALL FLAGD (ML, N (19), LINKL, ILINE, FLAG)
|
||
|
|
CALL FLAGD (MR, N (22), LINKR, IREGN, FLAG)
|
||
|
|
|
||
|
|
C GET THE REGION AND BODY EXTREMES
|
||
|
|
|
||
|
|
CALL GETEXT (MP, ML, MS, MR, N, IPOINT, COOR, ILINE, LTYPE,
|
||
|
|
& LCON, NLPS, IFLINE, ILLIST, NSPR, IFSIDE, ISLIST, LINKP,
|
||
|
|
& LINKL, LINKS, LINKR, REXTRM, XMIN, XMAX, YMIN, YMAX)
|
||
|
|
|
||
|
|
XMIN1 = XMIN
|
||
|
|
XMAX1 = XMAX
|
||
|
|
YMIN1 = YMIN
|
||
|
|
YMAX1 = YMAX
|
||
|
|
HXMIN = XMIN
|
||
|
|
HYMIN = YMIN
|
||
|
|
HXMAX = XMAX
|
||
|
|
HYMAX = YMAX
|
||
|
|
|
||
|
|
C ENTER GRAPHICS OPTION
|
||
|
|
|
||
|
|
100 CONTINUE
|
||
|
|
IF (ICOM .GT. JCOM) THEN
|
||
|
|
CALL MESSAGE(' ')
|
||
|
|
CALL FREFLD (IZ, IZ, 'ENTER GRAPHICS OPTION: ', MCOM,
|
||
|
|
& IOSTAT, JCOM, KIN, CIN, IIN, RIN)
|
||
|
|
ICOM = 1
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
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 (AXISD) THEN
|
||
|
|
AXISD = .FALSE.
|
||
|
|
CALL MESSAGE('AXIS DRAWING - OFF')
|
||
|
|
ELSE
|
||
|
|
AXISD = .TRUE.
|
||
|
|
CALL MESSAGE('AXIS DRAWING - ON')
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C TOGGLE THE FACTOR NUMBERS
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:2) .EQ. 'FA') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'fa')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABF) THEN
|
||
|
|
LABF = .FALSE.
|
||
|
|
CALL MESSAGE('FACTOR LABELS - OFF')
|
||
|
|
ELSE
|
||
|
|
LABF = .TRUE.
|
||
|
|
CALL MESSAGE('FACTOR LABELS - ON')
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C TOGGLE THE FULL DISPLAY OF PROPERTIES
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:1) .EQ. 'F') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'f')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (FULL) THEN
|
||
|
|
FULL = .FALSE.
|
||
|
|
CALL MESSAGE('FULL DISPLAY OF PROPERTIES - OFF')
|
||
|
|
ELSE
|
||
|
|
FULL = .TRUE.
|
||
|
|
CALL MESSAGE('FULL DISPLAY OF PROPERTIES - ON')
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C TOGGLE THE SCHEME DISPLAY
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:2) .EQ. 'SC') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'sc')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABSC) THEN
|
||
|
|
LABSC = .FALSE.
|
||
|
|
CALL MESSAGE('SCHEME LABELS - OFF')
|
||
|
|
ELSE
|
||
|
|
LABSC = .TRUE.
|
||
|
|
CALL MESSAGE('SCHEME LABELS - ON')
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C TOGGLE THE SCHEME DISPLAY
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:2) .EQ. 'SI') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'si')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABSZ) THEN
|
||
|
|
LABSZ = .FALSE.
|
||
|
|
CALL MESSAGE('ELEMENT SIZE LABELS - OFF')
|
||
|
|
ELSE
|
||
|
|
LABSZ = .TRUE.
|
||
|
|
CALL MESSAGE('ELEMENT SIZE LABELS - ON')
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C TOGGLE THE MATERIAL NUMBERS
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:1) .EQ. 'M') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'm')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABMD) THEN
|
||
|
|
LABMD = .FALSE.
|
||
|
|
CALL MESSAGE('MATERIAL LABELS - OFF')
|
||
|
|
ELSE
|
||
|
|
LABMD = .TRUE.
|
||
|
|
CALL MESSAGE('MATERIAL LABELS - ON')
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C ENTER LINE INTERVALS
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:2) .EQ. 'II') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'ii')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (ICOM .GT. JCOM) THEN
|
||
|
|
CALL MESSAGE('ENTER LINE INTERVALS IN THE FOLLOWING '//
|
||
|
|
& 'FORMAT:')
|
||
|
|
CALL MESSAGE('[ LINE NO. (OR NEG SIDE NO.), INTERVALS ]')
|
||
|
|
CALL MESSAGE('HIT RETURN TO END INPUT')
|
||
|
|
ENDIF
|
||
|
|
110 CONTINUE
|
||
|
|
IF (ICOM .GT. JCOM) THEN
|
||
|
|
CALL FREFLD (IZ, IZ, '>', MCOM, IOSTAT, JCOM, KIN, CIN,
|
||
|
|
& IIN, RIN)
|
||
|
|
ICOM = 1
|
||
|
|
ENDIF
|
||
|
|
CALL GETI12 (MCOM, ICOM, JCOM, CIN, IIN, KIN, I1, I2, IFOUND)
|
||
|
|
III (1) = I1
|
||
|
|
IF (IFOUND .GT. 0) THEN
|
||
|
|
CALL ININTR (ML, MS, 1, I2, III, N (19), N (20), NINT,
|
||
|
|
& NLPS, IFLINE, ILLIST, LINKL, LINKS, ADDLNK)
|
||
|
|
GOTO 110
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C ENTER LINE FACTORS
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:2) .EQ. 'IF') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'if')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (ICOM .GT. JCOM) THEN
|
||
|
|
CALL MESSAGE('ENTER LINE FACTORS IN THE FOLLOWING FORMAT:')
|
||
|
|
CALL MESSAGE('[ LINE NO. (OR NEG. SIDE NO., ) FACTOR ]')
|
||
|
|
CALL MESSAGE('HIT RETURN TO END INPUT')
|
||
|
|
ENDIF
|
||
|
|
120 CONTINUE
|
||
|
|
IF (ICOM .GT. JCOM) THEN
|
||
|
|
CALL FREFLD (IZ, IZ, '>', MCOM, IOSTAT, JCOM, KIN, CIN,
|
||
|
|
& IIN, RIN)
|
||
|
|
ICOM = 1
|
||
|
|
ENDIF
|
||
|
|
CALL GETI1R (MCOM, ICOM, JCOM, CIN, IIN, RIN, KIN, I1, R1,
|
||
|
|
& IFOUND)
|
||
|
|
III (1) = I1
|
||
|
|
IF (IFOUND .GT. 0) THEN
|
||
|
|
CALL INFACT (ML, MS, 1, R1, III, N (19), N (20), FACTOR,
|
||
|
|
& NLPS, IFLINE, ILLIST, LINKL, LINKS, ADDLNK)
|
||
|
|
GOTO 120
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C TOGGLE THE INTERVAL NUMBERS
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:1) .EQ. 'I') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'i')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABI) THEN
|
||
|
|
LABI = .FALSE.
|
||
|
|
CALL MESSAGE('INTERVAL LABELS - OFF')
|
||
|
|
ELSE
|
||
|
|
LABI = .TRUE.
|
||
|
|
CALL MESSAGE('INTERVAL LABELS - ON')
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C TOGGLE THE NODE BOUNDARY NUMBERS
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:1) .EQ. 'N') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'n')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABLB) THEN
|
||
|
|
LABLB = .FALSE.
|
||
|
|
CALL MESSAGE('LINE BOUNDARY LABELS - OFF')
|
||
|
|
ELSE
|
||
|
|
LABLB = .TRUE.
|
||
|
|
CALL MESSAGE('LINE BOUNDARY LABELS - ON')
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C FLAG LINES TO BE PROCESSED
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:2) .EQ. 'LP') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'lp')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
HXMIN = XMIN
|
||
|
|
HYMIN = YMIN
|
||
|
|
HXMAX = XMAX
|
||
|
|
HYMAX = YMAX
|
||
|
|
GETMAX = .TRUE.
|
||
|
|
FOUND = .FALSE.
|
||
|
|
FLAG = .FALSE.
|
||
|
|
CALL FLAGD (MP, N (18), LINKP, IPOINT, FLAG)
|
||
|
|
CALL FLAGD (ML, N (19), LINKL, ILINE, FLAG)
|
||
|
|
CALL FLAGD (MR, N (22), LINKR, IREGN, FLAG)
|
||
|
|
GOPLOT = .FALSE.
|
||
|
|
CALL MESSAGE('PLOT LINES FROM <I1> TO <I2>')
|
||
|
|
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
|
||
|
|
ENDIF
|
||
|
|
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, N (19))
|
||
|
|
|
||
|
|
C FLAG ALL DATA ASSOCIATED WITH THE LINES
|
||
|
|
|
||
|
|
DO 150 I = I1, I2
|
||
|
|
CALL LTSORT (ML, LINKL, I, KK, ADDLNK)
|
||
|
|
IF (KK .GT. 0) THEN
|
||
|
|
GOPLOT = .TRUE.
|
||
|
|
|
||
|
|
DO 140 L = 1, 3
|
||
|
|
IF (LCON (L, KK) .GT. 0) THEN
|
||
|
|
CALL LTSORT (MP, LINKP, LCON (L, KK),
|
||
|
|
& LL, ADDLNK)
|
||
|
|
IF (LL .GT. 0) THEN
|
||
|
|
IPOINT (LL) = -IABS (IPOINT (LL))
|
||
|
|
IF (.NOT.FOUND) THEN
|
||
|
|
XMAX = COOR (1, LL)
|
||
|
|
XMIN = COOR (1, LL)
|
||
|
|
YMAX = COOR (2, LL)
|
||
|
|
YMIN = COOR (2, LL)
|
||
|
|
FOUND = .TRUE.
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
140 CONTINUE
|
||
|
|
|
||
|
|
CALL DLINE (MP, ML, COOR, LINKP, ILINE (KK),
|
||
|
|
& LTYPE (KK), LCON (1, KK), LCON (2, KK),
|
||
|
|
& LCON (3, KK), NUMPLT, X1, Y1, TEST, GETMAX,
|
||
|
|
& XMIN, XMAX, YMIN, YMAX)
|
||
|
|
ILINE (KK) = -IABS (ILINE (KK))
|
||
|
|
ENDIF
|
||
|
|
150 CONTINUE
|
||
|
|
GOTO 130
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
GETMAX = .FALSE.
|
||
|
|
IF (GOPLOT) THEN
|
||
|
|
|
||
|
|
C PLOT THE LINE DATA THAT HAS BEEN FLAGGED
|
||
|
|
|
||
|
|
IF (ALPHA) THEN
|
||
|
|
CALL MESSAGE('NO PLOTTING POSSIBLE ON ALPHANUMERIC '//
|
||
|
|
& 'TERMINAL')
|
||
|
|
ELSE
|
||
|
|
CALL PDATA (MP, ML, MR, MSC, IPOINT, COOR, IPBOUN,
|
||
|
|
& ILINE, LTYPE, NINT, LCON, FACTOR, ILBOUN, ISBOUN,
|
||
|
|
& IREGN, IMAT, LINKP, LINKL, LINKR, LINKSC, RSIZE,
|
||
|
|
& SCHEME, DEFSCH, DEFSIZ, REXTRM, N, LABP, LABL, LABR,
|
||
|
|
& FULL, LABMD, LABI, LABF, LABPB, LABLB, LABSBD, LABSC,
|
||
|
|
& LABSZ, AXISD, TITLE, XMIN, XMAX, YMIN, YMAX, XX1,
|
||
|
|
& YY1, XX2, YY2, DEV1, VERSN)
|
||
|
|
DRAWN = .TRUE.
|
||
|
|
ENDIF
|
||
|
|
ELSE
|
||
|
|
XMIN = HXMIN
|
||
|
|
YMIN = HYMIN
|
||
|
|
XMAX = HXMAX
|
||
|
|
YMAX = HYMAX
|
||
|
|
ENDIF
|
||
|
|
XMIN1 = XMIN
|
||
|
|
YMIN1 = YMIN
|
||
|
|
XMAX1 = XMAX
|
||
|
|
YMAX1 = YMAX
|
||
|
|
|
||
|
|
C TOGGLE THE LINE NUMBERS
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:1) .EQ. 'L') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'l')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABL) THEN
|
||
|
|
LABL = .FALSE.
|
||
|
|
CALL MESSAGE('LINE LABELS - OFF')
|
||
|
|
ELSE
|
||
|
|
LABL = .TRUE.
|
||
|
|
CALL MESSAGE('LINE LABELS - ON')
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C TOGGLE THE POINT BOUNDARY NUMBERS
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:2) .EQ. 'PB') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'pb')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABPB) THEN
|
||
|
|
LABPB = .FALSE.
|
||
|
|
CALL MESSAGE('POINT BOUNDARY LABELS - OFF')
|
||
|
|
ELSE
|
||
|
|
LABPB = .TRUE.
|
||
|
|
CALL MESSAGE('POINT BOUNDARY LABELS - ON')
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C TOGGLE THE SIDE BOUNDARY NUMBERS
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:2) .EQ. 'EB') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'eb')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABSBD) THEN
|
||
|
|
LABSBD = .FALSE.
|
||
|
|
CALL MESSAGE('ELEMENT BOUNDARY LABELS - OFF')
|
||
|
|
ELSE
|
||
|
|
LABSBD = .TRUE.
|
||
|
|
CALL MESSAGE('ELEMENT BOUNDARY LABELS - ON')
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C TOGGLE THE POINT NUMBERS
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:2) .EQ. 'PO') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'po')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABP) THEN
|
||
|
|
LABP = .FALSE.
|
||
|
|
CALL MESSAGE('POINT LABELS - OFF')
|
||
|
|
ELSE
|
||
|
|
LABP = .TRUE.
|
||
|
|
CALL MESSAGE('POINT LABELS - ON')
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C TOGGLE THE REGION NUMBERS
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:2) .EQ. 'RE') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 're')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
IF (LABR) THEN
|
||
|
|
LABR = .FALSE.
|
||
|
|
CALL MESSAGE('REGION LABELS - OFF')
|
||
|
|
ELSE
|
||
|
|
LABR = .TRUE.
|
||
|
|
CALL MESSAGE('REGION LABELS - ON')
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C SPAWN A PROCESS
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:3) .EQ. 'SPA') .OR.
|
||
|
|
& (CIN (ICOM) (1:3) .EQ. 'spa')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
CALL SPAWN (VAXVMS)
|
||
|
|
|
||
|
|
C FLAG SIDES TO BE PROCESSED
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:2) .EQ. 'SP') .OR.
|
||
|
|
& (CIN (ICOM) (1:2) .EQ. 'sp')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
HXMIN = XMIN
|
||
|
|
HYMIN = YMIN
|
||
|
|
HXMAX = XMAX
|
||
|
|
HYMAX = YMAX
|
||
|
|
XMIN = 100000.
|
||
|
|
YMIN = 100000.
|
||
|
|
XMAX = -100000.
|
||
|
|
YMAX = -100000.
|
||
|
|
FOUND = .FALSE.
|
||
|
|
GETMAX = .TRUE.
|
||
|
|
FLAG = .FALSE.
|
||
|
|
CALL FLAGD (MP, N (18), LINKP, IPOINT, FLAG)
|
||
|
|
CALL FLAGD (ML, N (19), LINKL, ILINE, FLAG)
|
||
|
|
CALL FLAGD (MR, N (22), LINKR, IREGN, FLAG)
|
||
|
|
GOPLOT = .FALSE.
|
||
|
|
CALL MESSAGE('PLOT SIDES FROM <I1> TO <I2>')
|
||
|
|
CALL MESSAGE('HIT RETURN TO END INPUT')
|
||
|
|
160 CONTINUE
|
||
|
|
IF (ICOM .GT. JCOM) THEN
|
||
|
|
CALL FREFLD (IZ, IZ, '>', MCOM, IOSTAT, JCOM, KIN, CIN,
|
||
|
|
& IIN, RIN)
|
||
|
|
ICOM = 1
|
||
|
|
ENDIF
|
||
|
|
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, N (20))
|
||
|
|
|
||
|
|
C FLAG ALL DATA ASSOCIATED WITH THE SIDES
|
||
|
|
|
||
|
|
DO 190 I = I1, I2
|
||
|
|
CALL LTSORT (MS, LINKS, I, JJ, ADDLNK)
|
||
|
|
IF (JJ .GT. 0) THEN
|
||
|
|
GOPLOT = .TRUE.
|
||
|
|
DO 180 K = IFLINE (JJ), IFLINE (JJ)+NLPS (JJ)-1
|
||
|
|
CALL LTSORT (ML, LINKL, ILLIST (K), KK, ADDLNK)
|
||
|
|
IF (KK .GT. 0) THEN
|
||
|
|
CALL DLINE (MP, ML, COOR, LINKP, ILINE (KK),
|
||
|
|
& LTYPE (KK), LCON (1, KK), LCON (2, KK),
|
||
|
|
& LCON (3, KK), NUMPLT, X1, Y1, TEST,
|
||
|
|
& GETMAX, XMIN, XMAX, YMIN, YMAX)
|
||
|
|
ILINE (KK) = -IABS (ILINE (KK))
|
||
|
|
DO 170 L = 1, 3
|
||
|
|
IF (LCON (L, KK) .GT. 0) THEN
|
||
|
|
CALL LTSORT (MP, LINKP, LCON (L, KK),
|
||
|
|
& LL, ADDLNK)
|
||
|
|
IF (LL .GT. 0) THEN
|
||
|
|
IPOINT (LL) = -IABS (IPOINT (LL))
|
||
|
|
IF (.NOT.FOUND) THEN
|
||
|
|
XMAX = COOR (1, LL)
|
||
|
|
XMIN = COOR (1, LL)
|
||
|
|
YMAX = COOR (2, LL)
|
||
|
|
YMIN = COOR (2, LL)
|
||
|
|
FOUND = .TRUE.
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
170 CONTINUE
|
||
|
|
ENDIF
|
||
|
|
180 CONTINUE
|
||
|
|
ENDIF
|
||
|
|
190 CONTINUE
|
||
|
|
GOTO 160
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
GETMAX = .FALSE.
|
||
|
|
IF (GOPLOT) THEN
|
||
|
|
|
||
|
|
C PLOT THE SIDE DATA THAT HAS BEEN FLAGGED
|
||
|
|
|
||
|
|
IF (ALPHA) THEN
|
||
|
|
CALL MESSAGE('NO PLOTTING POSSIBLE ON ALPHANUMERIC ' //
|
||
|
|
& 'TERMINAL')
|
||
|
|
ELSE
|
||
|
|
CALL PDATA (MP, ML, MR, MSC, IPOINT, COOR, IPBOUN,
|
||
|
|
& ILINE, LTYPE, NINT, LCON, FACTOR, ILBOUN, ISBOUN,
|
||
|
|
& IREGN, IMAT, LINKP, LINKL, LINKR, LINKSC, RSIZE,
|
||
|
|
& SCHEME, DEFSCH, DEFSIZ, REXTRM, N, LABP, LABL, LABR,
|
||
|
|
& FULL, LABMD, LABI, LABF, LABPB, LABLB, LABSBD, LABSC,
|
||
|
|
& LABSZ, AXISD, TITLE, XMIN, XMAX, YMIN, YMAX, XX1,
|
||
|
|
& YY1, XX2, YY2, DEV1, VERSN)
|
||
|
|
DRAWN = .TRUE.
|
||
|
|
ENDIF
|
||
|
|
ELSE
|
||
|
|
XMIN = HXMIN
|
||
|
|
YMIN = HYMIN
|
||
|
|
XMAX = HXMAX
|
||
|
|
YMAX = HYMAX
|
||
|
|
ENDIF
|
||
|
|
XMIN1 = XMIN
|
||
|
|
YMIN1 = YMIN
|
||
|
|
XMAX1 = XMAX
|
||
|
|
YMAX1 = YMAX
|
||
|
|
|
||
|
|
C SHOW STATUS OF ALL TOGGLES
|
||
|
|
|
||
|
|
ELSEIF ( (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 (AXISD) THEN
|
||
|
|
CALL MESSAGE(' AXIS PLOTTING - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' AXIS PLOTTING - OFF')
|
||
|
|
ENDIF
|
||
|
|
IF (LABP) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF POINTS - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF POINTS - OFF')
|
||
|
|
ENDIF
|
||
|
|
IF (LABPB) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF POINBC FLAGS - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF POINBC FLAGS - OFF')
|
||
|
|
ENDIF
|
||
|
|
IF (LABL) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF LINES - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF LINES - OFF')
|
||
|
|
ENDIF
|
||
|
|
IF (LABI) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF LINE INTERVALS - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF LINE INTERVALS - OFF')
|
||
|
|
ENDIF
|
||
|
|
IF (LABF) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF LINE FACTORS - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF LINE FACTORS - OFF')
|
||
|
|
ENDIF
|
||
|
|
IF (LABLB) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF NODEBC FLAGS - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF NODEBC FLAGS - OFF')
|
||
|
|
ENDIF
|
||
|
|
IF (LABSBD) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF ELEMBC FLAGS - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF ELEMBC FLAGS - OFF')
|
||
|
|
ENDIF
|
||
|
|
IF (LABR) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF REGIONS - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF REGIONS - OFF')
|
||
|
|
ENDIF
|
||
|
|
IF (LABMD) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF BLOCK ID (MAT) - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF BLOCK ID (MAT) - OFF')
|
||
|
|
ENDIF
|
||
|
|
IF (LABSC) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF REGION SCHEMES - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF REGION SCHEMES - OFF')
|
||
|
|
ENDIF
|
||
|
|
IF (LABSZ) THEN
|
||
|
|
CALL MESSAGE(' LABELING OF REGION ELEM SIZE - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' LABELING OF REGION ELEM SIZE - OFF')
|
||
|
|
ENDIF
|
||
|
|
IF (FULL) THEN
|
||
|
|
CALL MESSAGE(' FULL LABELING OF PROPERTIES - ON')
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE(' FULL LABELING OF PROPERTIES - OFF')
|
||
|
|
ENDIF
|
||
|
|
CALL MESSAGE('*-------------------- NOTE -------------------*')
|
||
|
|
CALL MESSAGE(' PLOTTING ORDER AT POINTS IS: ')
|
||
|
|
CALL MESSAGE(' POINT NO./POINBC FLAG ')
|
||
|
|
CALL MESSAGE(' PLOTTING ORDER AT LINE CENTERS IS: ')
|
||
|
|
CALL MESSAGE(' LINE NO./INTERVALS/FACTORS/NODEBC/ELEMBC')
|
||
|
|
CALL MESSAGE(' PLOTTING ORDER AT REGION CENTERS IS: ')
|
||
|
|
CALL MESSAGE(' REGION NO./BLOCK ID NO./SCHEME ')
|
||
|
|
CALL MESSAGE('*-------------------- NOTE -------------------*')
|
||
|
|
|
||
|
|
C FLAG REGIONS TO BE PROCESSED
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:1) .EQ. 'R') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'r')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
HXMIN = XMIN
|
||
|
|
HYMIN = YMIN
|
||
|
|
HXMAX = XMAX
|
||
|
|
HYMAX = YMAX
|
||
|
|
XMIN = 100000.
|
||
|
|
YMIN = 100000.
|
||
|
|
XMAX = -100000.
|
||
|
|
YMAX = -100000.
|
||
|
|
FLAG = .FALSE.
|
||
|
|
CALL FLAGD (MP, N (18), LINKP, IPOINT, FLAG)
|
||
|
|
CALL FLAGD (ML, N (19), LINKL, ILINE, FLAG)
|
||
|
|
CALL FLAGD (MR, N (21), LINKB, IBARST, FLAG)
|
||
|
|
CALL FLAGD (MR, N (22), LINKR, IREGN, FLAG)
|
||
|
|
GOPLOT = .FALSE.
|
||
|
|
CALL MESSAGE('PLOT REGIONS FROM <I1> TO <I2>')
|
||
|
|
CALL MESSAGE('HIT RETURN TO END INPUT')
|
||
|
|
200 CONTINUE
|
||
|
|
IF (ICOM .GT. JCOM) THEN
|
||
|
|
CALL FREFLD (IZ, IZ, '>', MCOM, IOSTAT, JCOM, KIN, CIN,
|
||
|
|
& IIN, RIN)
|
||
|
|
ICOM = 1
|
||
|
|
ENDIF
|
||
|
|
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, N (22))
|
||
|
|
|
||
|
|
C FLAG ALL DATA ASSOCIATED WITH THE REGIONS
|
||
|
|
|
||
|
|
DO 250 I = I1, I2
|
||
|
|
CALL LTSORT (MR, LINKR, I, II, ADDLNK)
|
||
|
|
IF (II .GT. 0) THEN
|
||
|
|
|
||
|
|
C FIND THE MAXIMUM AND MINIMUM
|
||
|
|
|
||
|
|
XMIN = AMIN1 (XMIN, REXTRM (1, II))
|
||
|
|
XMAX = AMAX1 (XMAX, REXTRM (2, II))
|
||
|
|
YMIN = AMIN1 (YMIN, REXTRM (3, II))
|
||
|
|
YMAX = AMAX1 (YMAX, REXTRM (4, II))
|
||
|
|
GOPLOT = .TRUE.
|
||
|
|
IREGN (II) = -IABS (IREGN (II))
|
||
|
|
DO 240 J = IFSIDE (II), IFSIDE (II) + NSPR (II)-1
|
||
|
|
|
||
|
|
C FLAG SIDE DATA
|
||
|
|
|
||
|
|
IF ( ISLIST (J) .GT. 0) then
|
||
|
|
CALL LTSORT (MS, LINKS, ISLIST(J), JJ, ADDLNK)
|
||
|
|
if (JJ .GT. 0) THEN
|
||
|
|
DO 220 K = IFLINE (JJ), IFLINE (JJ) +
|
||
|
|
& NLPS (JJ)-1
|
||
|
|
CALL LTSORT (ML, LINKL, ILLIST (K), KK,
|
||
|
|
& ADDLNK)
|
||
|
|
IF (KK .GT. 0) THEN
|
||
|
|
ILINE (KK) = -IABS (ILINE (KK))
|
||
|
|
DO 210 L = 1, 3
|
||
|
|
IF (LCON (L, KK) .GT. 0) THEN
|
||
|
|
CALL LTSORT (MP, LINKP,
|
||
|
|
& LCON (L, KK), LL, ADDLNK)
|
||
|
|
IF (LL .GT. 0) THEN
|
||
|
|
IPOINT (LL) =
|
||
|
|
& -IABS (IPOINT (LL))
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
210 CONTINUE
|
||
|
|
ENDIF
|
||
|
|
220 CONTINUE
|
||
|
|
end if
|
||
|
|
|
||
|
|
C FLAG LINE DATA
|
||
|
|
|
||
|
|
ELSE
|
||
|
|
JJ = IABS (ISLIST (J))
|
||
|
|
CALL LTSORT (ML, LINKL, JJ, KK, ADDLNK)
|
||
|
|
IF (KK .GT. 0) THEN
|
||
|
|
ILINE (KK) = -IABS (ILINE (KK))
|
||
|
|
DO 230 L = 1, 3
|
||
|
|
IF (LCON (L, KK) .GT. 0) THEN
|
||
|
|
CALL LTSORT (MP, LINKP,
|
||
|
|
& LCON (L, KK), LL, ADDLNK)
|
||
|
|
IF (LL .GT. 0) THEN
|
||
|
|
IPOINT (LL) = -IABS (IPOINT (LL))
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
230 CONTINUE
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
240 CONTINUE
|
||
|
|
ENDIF
|
||
|
|
250 CONTINUE
|
||
|
|
GOTO 200
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
IF (GOPLOT) THEN
|
||
|
|
|
||
|
|
C PLOT THE REGION DATA THAT HAS BEEN FLAGGED
|
||
|
|
|
||
|
|
IF (ALPHA) THEN
|
||
|
|
CALL MESSAGE('NO PLOTTING POSSIBLE ON ALPHA-NUMERIC'//
|
||
|
|
& ' TERMINAL')
|
||
|
|
ELSE
|
||
|
|
CALL PDATA (MP, ML, MR, MSC, IPOINT, COOR, IPBOUN,
|
||
|
|
& ILINE, LTYPE, NINT, LCON, FACTOR, ILBOUN, ISBOUN,
|
||
|
|
& IREGN, IMAT, LINKP, LINKL, LINKR, LINKSC, RSIZE,
|
||
|
|
& SCHEME, DEFSCH, DEFSIZ, REXTRM, N, LABP, LABL, LABR,
|
||
|
|
& FULL, LABMD, LABI, LABF, LABPB, LABLB, LABSBD, LABSC,
|
||
|
|
& LABSZ, AXISD, TITLE, XMIN, XMAX, YMIN, YMAX, XX1,
|
||
|
|
& YY1, XX2, YY2, DEV1, VERSN)
|
||
|
|
DRAWN = .TRUE.
|
||
|
|
ENDIF
|
||
|
|
ELSE
|
||
|
|
XMIN = HXMIN
|
||
|
|
YMIN = HYMIN
|
||
|
|
XMAX = HXMAX
|
||
|
|
YMAX = HYMAX
|
||
|
|
ENDIF
|
||
|
|
XMIN1 = XMIN
|
||
|
|
YMIN1 = YMIN
|
||
|
|
XMAX1 = XMAX
|
||
|
|
YMAX1 = YMAX
|
||
|
|
|
||
|
|
C FLAG BARSETS TO BE PLOTTED
|
||
|
|
|
||
|
|
ELSEIF ( (CIN (ICOM) (1:1) .EQ. 'B') .OR.
|
||
|
|
& (CIN (ICOM) (1:1) .EQ. 'b')) THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
HXMIN = XMIN
|
||
|
|
HYMIN = YMIN
|
||
|
|
HXMAX = XMAX
|
||
|
|
HYMAX = YMAX
|
||
|
|
XMIN = 100000.
|
||
|
|
YMIN = 100000.
|
||
|
|
XMAX = -100000.
|
||
|
|
YMAX = -100000.
|
||
|
|
FLAG = .FALSE.
|
||
|
|
CALL FLAGD (MP, N (18), LINKP, IPOINT, FLAG)
|
||
|
|
CALL FLAGD (ML, N (19), LINKL, ILINE, FLAG)
|
||
|
|
CALL FLAGD (MR, N (21), LINKB, IBARST, FLAG)
|
||
|
|
CALL FLAGD (MR, N (22), LINKR, IREGN, FLAG)
|
||
|
|
GOPLOT = .FALSE.
|
||
|
|
CALL MESSAGE('PLOT BARSETS FROM <I1> TO <I2>')
|
||
|
|
CALL MESSAGE('HIT RETURN TO END INPUT')
|
||
|
|
260 CONTINUE
|
||
|
|
IF (ICOM .GT. JCOM) THEN
|
||
|
|
CALL FREFLD (IZ, IZ, '>', MCOM, IOSTAT, JCOM, KIN, CIN,
|
||
|
|
& IIN, RIN)
|
||
|
|
ICOM = 1
|
||
|
|
ENDIF
|
||
|
|
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, N (21))
|
||
|
|
|
||
|
|
C FLAG ALL LINES ASSOCIATED WITH THE BARSETS
|
||
|
|
|
||
|
|
DO 290 I = I1, I2
|
||
|
|
CALL LTSORT (MS, LINKB, I, II, ADDLNK)
|
||
|
|
IF (II .GT. 0) THEN
|
||
|
|
GOPLOT = .TRUE.
|
||
|
|
IBARST (II) = -IABS (IBARST (II))
|
||
|
|
DO 280 J = JFLINE (II), JFLINE (II)+NLPB (II)-1
|
||
|
|
JJ = IABS (JLLIST (J))
|
||
|
|
CALL LTSORT (ML, LINKL, JJ, KK, ADDLNK)
|
||
|
|
IF (KK .GT. 0) THEN
|
||
|
|
ILINE (KK) = -IABS (ILINE (KK))
|
||
|
|
DO 270 L = 1, 3
|
||
|
|
IF (LCON (L, KK) .GT. 0) THEN
|
||
|
|
CALL LTSORT (MP, LINKP, LCON (L, KK),
|
||
|
|
& LL, ADDLNK)
|
||
|
|
IF (LL .GT. 0) THEN
|
||
|
|
IPOINT (LL) = -IABS (IPOINT (LL))
|
||
|
|
XMIN = AMIN1 (XMIN, COOR (1, LL))
|
||
|
|
XMAX = AMAX1 (XMAX, COOR (1, LL))
|
||
|
|
YMIN = AMIN1 (YMIN, COOR (2, LL))
|
||
|
|
YMAX = AMAX1 (YMAX, COOR (2, LL))
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
270 CONTINUE
|
||
|
|
ENDIF
|
||
|
|
280 CONTINUE
|
||
|
|
ENDIF
|
||
|
|
290 CONTINUE
|
||
|
|
GOTO 260
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
IF (GOPLOT) THEN
|
||
|
|
|
||
|
|
C PLOT THE BARSET DATA THAT HAS BEEN FLAGGED
|
||
|
|
|
||
|
|
IF (ALPHA) THEN
|
||
|
|
CALL MESSAGE('NO PLOTTING POSSIBLE ON ALPHANUMERIC '//
|
||
|
|
& 'TERMINAL')
|
||
|
|
ELSE
|
||
|
|
CALL PDATA (MP, ML, MR, MSC, IPOINT, COOR, IPBOUN,
|
||
|
|
& ILINE, LTYPE, NINT, LCON, FACTOR, ILBOUN, ISBOUN,
|
||
|
|
& IREGN, IMAT, LINKP, LINKL, LINKR, LINKSC, RSIZE,
|
||
|
|
& SCHEME, DEFSCH, DEFSIZ, REXTRM, N, LABP, LABL, LABR,
|
||
|
|
& FULL, LABMD, LABI, LABF, LABPB, LABLB, LABSBD, LABSC,
|
||
|
|
& LABSZ, AXISD, TITLE, XMIN, XMAX, YMIN, YMAX, XX1,
|
||
|
|
& YY1, XX2, YY2, DEV1, VERSN)
|
||
|
|
DRAWN = .TRUE.
|
||
|
|
ENDIF
|
||
|
|
ELSE
|
||
|
|
XMIN = HXMIN
|
||
|
|
YMIN = HYMIN
|
||
|
|
XMAX = HXMAX
|
||
|
|
YMAX = HYMAX
|
||
|
|
ENDIF
|
||
|
|
XMIN1 = XMIN
|
||
|
|
YMIN1 = YMIN
|
||
|
|
XMAX1 = XMAX
|
||
|
|
YMAX1 = YMAX
|
||
|
|
|
||
|
|
C ENTER ZOOM LOCATION
|
||
|
|
|
||
|
|
ELSEIF ( (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 RETURN FROM DATA PLOTTING
|
||
|
|
|
||
|
|
ELSEIF (CIN (ICOM) (1:1) .EQ. ' ') THEN
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
FLAG = .FALSE.
|
||
|
|
CALL FLAGD (MP, N (18), LINKP, IPOINT, FLAG)
|
||
|
|
CALL FLAGD (ML, N (19), LINKL, ILINE, FLAG)
|
||
|
|
CALL FLAGD (MS, N (21), LINKB, IBARST, FLAG)
|
||
|
|
CALL FLAGD (MR, N (22), LINKR, IREGN, FLAG)
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
C GENERATE A HARDCOPY QMS PLOT
|
||
|
|
|
||
|
|
ELSEIF ( ( (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 PDATA (MP, ML, MR, MSC, IPOINT, COOR, IPBOUN, ILINE,
|
||
|
|
& LTYPE, NINT, LCON, FACTOR, ILBOUN, ISBOUN, IREGN, IMAT,
|
||
|
|
& LINKP, LINKL, LINKR, LINKSC, RSIZE, SCHEME, DEFSCH,
|
||
|
|
& DEFSIZ, REXTRM, N, LABP, LABL, LABR, FULL, LABMD, LABI,
|
||
|
|
& LABF, LABPB, LABLB, LABSBD, LABSC, LABSZ, AXISD, TITLE,
|
||
|
|
& XMIN, XMAX, YMIN, YMAX, XX1, YY1, XX2, YY2, 'XXX', VERSN)
|
||
|
|
IF (.NOT.ALPHA)CALL VDESCP (10001, 0, 0)
|
||
|
|
CALL MESSAGE('HARDCOPY PLOT GENERATED')
|
||
|
|
HARDPL = .TRUE.
|
||
|
|
ELSE
|
||
|
|
CALL MESSAGE('HARDCOPY DEVICE NOT AVAILABLE')
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C PLOT THE CURRENT ACTIVE ITEMS
|
||
|
|
|
||
|
|
ELSEIF ( (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 PDATA (MP, ML, MR, MSC, IPOINT, COOR, IPBOUN, ILINE,
|
||
|
|
& LTYPE, NINT, LCON, FACTOR, ILBOUN, ISBOUN, IREGN, IMAT,
|
||
|
|
& LINKP, LINKL, LINKR, LINKSC, RSIZE, SCHEME, DEFSCH,
|
||
|
|
& DEFSIZ, REXTRM, N, LABP, LABL, LABR, FULL, LABMD, LABI,
|
||
|
|
& LABF, LABPB, LABLB, LABSBD, LABSC, LABSZ, AXISD, TITLE,
|
||
|
|
& XMIN, XMAX, YMIN, YMAX, XX1, YY1, XX2, YY2, DEV1, VERSN)
|
||
|
|
DRAWN = .TRUE.
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C EXIT OPTION - EXITS FASTQ
|
||
|
|
|
||
|
|
ELSEIF ( (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(5)
|
||
|
|
ELSE
|
||
|
|
CALL FEXIT (WROTE, MCOM, ICOM, JCOM, CIN, IIN, RIN, KIN,
|
||
|
|
& TIME1, BATCH, VERSN)
|
||
|
|
ENDIF
|
||
|
|
GOTO 100
|
||
|
|
|
||
|
|
C WRITE OUT THE HELP MESSAGE
|
||
|
|
|
||
|
|
ELSE
|
||
|
|
ICOM = ICOM + 1
|
||
|
|
CALL HELP_FQ (5)
|
||
|
|
ENDIF
|
||
|
|
GOTO 100
|
||
|
|
|
||
|
|
END
|