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.
60 lines
2.0 KiB
60 lines
2.0 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
|
||
|
|
|
||
|
|
C=======================================================================
|
||
|
|
SUBROUTINE GRTEXC (DX, DY, STRING)
|
||
|
|
C=======================================================================
|
||
|
|
|
||
|
|
C --*** GRTEXC *** (GRPLIB) Write centered text (PLT)
|
||
|
|
C -- Written by Amy Gilkey - revised 03/22/88
|
||
|
|
C --
|
||
|
|
C --GRTEXC writes a software or hardware character string centered on
|
||
|
|
C --a location.
|
||
|
|
C --
|
||
|
|
C --Parameters:
|
||
|
|
C -- DX, DY - IN - the horizontal and vertical string location
|
||
|
|
C -- (in device coordinates)
|
||
|
|
C -- STRING - IN - the string to be written, may be truncated
|
||
|
|
C --
|
||
|
|
C --Common Variables:
|
||
|
|
C -- Uses ICURDV, SOFTCH of /GRPCOM/
|
||
|
|
|
||
|
|
C --Routines Called:
|
||
|
|
C -- PLTXSL - (PLTLIB) Find the software string length
|
||
|
|
C -- PLTXTC1 - (PLTLIB) Display a centered software string
|
||
|
|
C -- PLTXTH - (PLTLIB) Display a hardware string
|
||
|
|
C -- PLTXTL - (PLTLIB) Find the hardware string length
|
||
|
|
C -- LENSTR - (STRLIB) Find string length
|
||
|
|
|
||
|
|
COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2)
|
||
|
|
CHARACTER*3 DEVNAM
|
||
|
|
CHARACTER*8 DEVCOD
|
||
|
|
COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2),
|
||
|
|
& NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2),
|
||
|
|
& MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2)
|
||
|
|
LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL
|
||
|
|
|
||
|
|
REAL DX, DY
|
||
|
|
CHARACTER*(*) STRING
|
||
|
|
|
||
|
|
LSTR = LENSTR(STRING)
|
||
|
|
IF (STRING(LSTR:LSTR) .EQ. ' ') RETURN
|
||
|
|
|
||
|
|
IF (SOFTCH(ICURDV)) THEN
|
||
|
|
CALL PLTXSL (STRING(:LSTR), SLEN)
|
||
|
|
XLEFT = DX
|
||
|
|
IF (XLEFT*2 .LT. SLEN) XLEFT = 0.5*SLEN
|
||
|
|
CALL PLTXTC1 (XLEFT, DY, STRING(:LSTR))
|
||
|
|
ELSE
|
||
|
|
CALL PLTXHL (STRING(:LSTR), SLEN)
|
||
|
|
XLEFT = DX - .5*SLEN
|
||
|
|
IF (XLEFT .LT. 0.0) XLEFT = 0.0000
|
||
|
|
CALL PLTXTH (XLEFT, DY, STRING(:LSTR))
|
||
|
|
END IF
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
END
|