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.
36 lines
846 B
36 lines
846 B
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 CHRRVC(BUFF,TXT,L)
|
|
CHARACTER*16 LOCTXT
|
|
CHARACTER*(*) TXT
|
|
|
|
LT = LEN(TXT)
|
|
WRITE (LOCTXT,'(1pg13.6)') BUFF
|
|
DO 2110 I = 1,LT
|
|
IF (LOCTXT(I:I).NE.' ') THEN
|
|
L1 = I
|
|
GO TO 2120
|
|
|
|
END IF
|
|
|
|
2110 CONTINUE
|
|
2120 CONTINUE
|
|
DO 2130 I = L1,LT
|
|
IF (LOCTXT(I:I).EQ.' ') THEN
|
|
L2 = I
|
|
GO TO 2140
|
|
|
|
END IF
|
|
|
|
2130 CONTINUE
|
|
2140 CONTINUE
|
|
TXT = LOCTXT(L1:L2)
|
|
L = L2 - L1
|
|
RETURN
|
|
|
|
END
|
|
|