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.
31 lines
988 B
31 lines
988 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=======================================================================
|
|
INTEGER FUNCTION IOWDSZ()
|
|
C=======================================================================
|
|
C convenience function for setting desired exodusII output word size
|
|
C via the EXT05 environment variable.
|
|
|
|
character*80 ws
|
|
character*8 cdum
|
|
|
|
iows = 4
|
|
call exname (-5, ws, llen)
|
|
if (llen .lt. 1) goto 25
|
|
read(ws,'(i1)',ERR=25)iows
|
|
if (iows .ne. 4 .and. iows .ne. 8) then
|
|
CALL PRTERR('WARNING', 'invalid output word size, set to 4')
|
|
iows = 4
|
|
endif
|
|
goto 26
|
|
25 continue
|
|
|
|
call exparm (cdum, cdum, idum, iows, idum, idum)
|
|
26 continue
|
|
iowdsz = iows
|
|
return
|
|
end
|
|
|