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.
55 lines
1.2 KiB
55 lines
1.2 KiB
C Copyright(C) 1999-2021 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 PLTLOA(LINE1,NUM,TYPE)
|
|
CHARACTER*10 LINE
|
|
CHARACTER*(*) LINE1
|
|
INTEGER TYPE
|
|
|
|
LINE1 = ' '
|
|
LINE = ' '
|
|
IF (TYPE.EQ.1) THEN
|
|
IF (NUM.GE.0) THEN
|
|
WRITE (LINE,10,ERR=20) INT(10.**NUM)
|
|
|
|
20 DO J = 1,10
|
|
IF (LINE(J:J).NE.' ') THEN
|
|
GO TO 2690
|
|
|
|
END IF
|
|
|
|
end do
|
|
2690 CONTINUE
|
|
LINE1 = LINE(J:)
|
|
RETURN
|
|
|
|
END IF
|
|
|
|
LINE1(1:1) = '.'
|
|
DO I = 1,ABS(NUM) - 1
|
|
LINE1(I+1:I+1) = '0'
|
|
end do
|
|
LINE1(I+1:I+1) = '1'
|
|
|
|
ELSE
|
|
WRITE (LINE,10,ERR=40) NUM
|
|
40 DO J = 1,10
|
|
IF (LINE(J:J).NE.' ') THEN
|
|
GO TO 2730
|
|
|
|
END IF
|
|
|
|
end do
|
|
2730 CONTINUE
|
|
LINE1 = LINE(J:)
|
|
END IF
|
|
10 FORMAT (I10)
|
|
|
|
|
|
RETURN
|
|
|
|
END
|
|
|