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 CHRUP(LINE1,LINE2) CHARACTER*(*) LINE1,LINE2 L = MIN(LEN(LINE1),LEN(LINE2)) I = 1 2210 IF (.NOT. (I.LE.L)) GO TO 2230 ICH = ICHAR(LINE1(I:I)) IF (ICH.GE.97 .AND. ICH.LE.122) THEN ICH = ICH - 32 END IF LINE2(I:I) = CHAR(ICH) I = I + 1 GO TO 2210 2230 CONTINUE RETURN END