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.
104 lines
3.5 KiB
104 lines
3.5 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 SHOTSP (WHONLY, TMIN, TMAX, DELT, NINTV, NPTIMS)
|
||
|
|
C=======================================================================
|
||
|
|
|
||
|
|
C --*** SHOTSP *** (TIMSEL) Display time step parameters
|
||
|
|
C -- Written by Amy Gilkey - revised 11/11/87
|
||
|
|
C --
|
||
|
|
C --SHOTSP displays the time step selection parameters.
|
||
|
|
C --
|
||
|
|
C --Parameters:
|
||
|
|
C -- WHONLY - IN - true iff only whole times may be selected
|
||
|
|
C -- TMIN - IN - the minimum selected time
|
||
|
|
C -- TMAX - IN - the maximum selected time
|
||
|
|
C -- DELT - IN - the selected times interval (<0 = selected times)
|
||
|
|
C -- NINTV - IN - negative for zero interval
|
||
|
|
C -- NPTIMS - IN - the number of selected times
|
||
|
|
|
||
|
|
C --Routines Called:
|
||
|
|
C -- LENSTR - (STRLIB) Find string length
|
||
|
|
C -- NUMSTR - (STRLIB) Convert numbers to engineering notation
|
||
|
|
C -- SQZSTR - (STRLIB) Delete extra blanks from string
|
||
|
|
|
||
|
|
LOGICAL WHONLY
|
||
|
|
REAL TMIN, TMAX, DELT
|
||
|
|
INTEGER NINTV
|
||
|
|
INTEGER NPTIMS
|
||
|
|
|
||
|
|
CHARACTER*80 STRING
|
||
|
|
CHARACTER*20 RSTR(3)
|
||
|
|
REAL RNUM(3)
|
||
|
|
|
||
|
|
IF (DELT .GT. 0) THEN
|
||
|
|
IF (NINTV .NE. 0) THEN
|
||
|
|
RNUM(1) = TMIN
|
||
|
|
RNUM(2) = TMAX
|
||
|
|
CALL NUMSTR (2, 4, RNUM, RSTR, LSTR)
|
||
|
|
IF (NINTV .GT. 0) THEN
|
||
|
|
IF (WHONLY) THEN
|
||
|
|
WRITE (STRING, 10000) ' whole ',
|
||
|
|
& (RSTR(I)(:LSTR), I=1,2), NINTV, 'delta'
|
||
|
|
ELSE
|
||
|
|
WRITE (STRING, 10000) ' ',
|
||
|
|
& (RSTR(I)(:LSTR), I=1,2), NINTV, 'delta'
|
||
|
|
END IF
|
||
|
|
ELSE
|
||
|
|
IF (WHONLY) THEN
|
||
|
|
WRITE (STRING, 10000) ' whole ',
|
||
|
|
& (RSTR(I)(:LSTR), I=1,2), -NINTV, 'zero'
|
||
|
|
ELSE
|
||
|
|
WRITE (STRING, 10000) ' ',
|
||
|
|
& (RSTR(I)(:LSTR), I=1,2), -NINTV, 'zero'
|
||
|
|
END IF
|
||
|
|
END IF
|
||
|
|
10000 FORMAT ('Select', A, 'times ', A, ' to ', A, ' in ', I6,
|
||
|
|
& ' intervals with ', A, ' offset')
|
||
|
|
ELSE
|
||
|
|
RNUM(1) = TMIN
|
||
|
|
RNUM(2) = TMAX
|
||
|
|
RNUM(3) = DELT
|
||
|
|
CALL NUMSTR (3, 4, RNUM, RSTR, LSTR)
|
||
|
|
IF (WHONLY) THEN
|
||
|
|
WRITE (STRING, 10010) ' whole ', (RSTR(I)(:LSTR), I=1,3)
|
||
|
|
ELSE
|
||
|
|
WRITE (STRING, 10010) ' ', (RSTR(I)(:LSTR), I=1,3)
|
||
|
|
END IF
|
||
|
|
10010 FORMAT ('Select', A, 'times ', A, ' to ', A, ' by ', A)
|
||
|
|
END IF
|
||
|
|
CALL SQZSTR (STRING, LSTR)
|
||
|
|
WRITE (*, 10030) STRING(:LSTR)
|
||
|
|
|
||
|
|
ELSE IF (DELT .EQ. 0) THEN
|
||
|
|
RNUM(1) = TMIN
|
||
|
|
RNUM(2) = TMAX
|
||
|
|
CALL NUMSTR (2, 4, RNUM, RSTR, LSTR)
|
||
|
|
IF (WHONLY) THEN
|
||
|
|
WRITE (STRING, 10020) ' whole ', (RSTR(I)(:LSTR), I=1,2)
|
||
|
|
ELSE
|
||
|
|
WRITE (STRING, 10020) ' ', (RSTR(I)(:LSTR), I=1,2)
|
||
|
|
END IF
|
||
|
|
10020 FORMAT ('Select all', A, 'times from ', A, ' to ', A)
|
||
|
|
CALL SQZSTR (STRING, LSTR)
|
||
|
|
WRITE (*, 10030) STRING(:LSTR)
|
||
|
|
|
||
|
|
ELSE
|
||
|
|
IF (WHONLY) THEN
|
||
|
|
WRITE (*, 10030) 'Select specified whole times'
|
||
|
|
ELSE
|
||
|
|
WRITE (*, 10030) 'Select specified times'
|
||
|
|
END IF
|
||
|
|
END IF
|
||
|
|
|
||
|
|
CALL INTSTR (1, 0, NPTIMS, STRING, LSTR)
|
||
|
|
WRITE (*, 10030) ' Number of selected times = ', STRING(:LSTR)
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
10030 FORMAT (1X, 5A)
|
||
|
|
END
|