Cloned SEACAS for EXODUS library with extra build files for internal package management.
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.

18 lines
548 B

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
SUBROUTINE SETPRC(I,MSG)
C sets the precision for output.
C I = 4. std precision
C I = 9. extended precision
C MSG=0 no message
COMMON /GRPPRC/ IPREC
IPREC = I
IF (MSG.NE.0) WRITE(*,10) I
10 FORMAT('Precision set to ', I2)
RETURN
END