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.
56 lines
2.1 KiB
56 lines
2.1 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
|
||
|
|
|
||
|
|
SUBROUTINE DISCLM (NCOLS)
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C SUBROUTINE DISCLM = PRINTS THE SANDIA DISCLAIMER
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
CHARACTER*29 BLANK
|
||
|
|
|
||
|
|
DATA BLANK/' '/
|
||
|
|
|
||
|
|
NSHIFT = MAX ( (NCOLS-76)/2, 1) + 1
|
||
|
|
NSHIFT = MIN (NSHIFT, 29)
|
||
|
|
WRITE (*, 10000) (BLANK (1:NSHIFT), I = 1, 9)
|
||
|
|
WRITE (*, 10010) (BLANK (1:NSHIFT), I = 1, 5)
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
10000 FORMAT (' ', A,
|
||
|
|
& '**************************************',
|
||
|
|
& '**************************************'//, A,
|
||
|
|
& ' ISSUED BY SANDIA NAT',
|
||
|
|
& 'IONAL LABORATORIES, '/, A,
|
||
|
|
& ' A PRIME CONTR',
|
||
|
|
& 'ACTOR TO THE'/, A,
|
||
|
|
& ' UNITED STATES DEP',
|
||
|
|
& 'ARTMENT OF ENERGY'//, A,
|
||
|
|
& '**************************************',
|
||
|
|
& '**************************************'//, A,
|
||
|
|
& 'THIS CODE WAS PREPARED IN THE COURSE O',
|
||
|
|
& 'F WORK SPONSORED BY THE UNITED STATES'/, A,
|
||
|
|
& 'GOVERNMENT. NEITHER THE UNITED STATES',
|
||
|
|
& ', NOR THE UNITED STATES DEPARTMENT OF'/, A,
|
||
|
|
& 'ENERGY, NOR THE UNITED STATES NUCLEAR ',
|
||
|
|
& 'REGULATORY COMMISSION, NOR ANY OF'/, A,
|
||
|
|
& 'THEIR EMPLOYEES, NOR ANY OF THEIR CONT',
|
||
|
|
& 'RACTORS, SUBCONTRACTORS, OR THEIR')
|
||
|
|
10010 FORMAT (A,
|
||
|
|
& 'EMPLOYEES, MAKES ANY WARRANTY, EXPRESS',
|
||
|
|
& ' OR IMPLIED, OR ASSUMES ANY LEGAL'/A,
|
||
|
|
& 'LIABILITY OR RESPONSIBILITY FOR THE AC',
|
||
|
|
& 'CURACY, COMPLETENESS OR USEFULNESS OF'/, A,
|
||
|
|
& 'ANY INFORMATION, APPARATUS, PRODUCT OR',
|
||
|
|
& ' PROCESS DISCLOSED, OR REPRESENTS THAT'/, A,
|
||
|
|
& 'ITS USE WOULD NOT INFRINGE PRIVATELY O',
|
||
|
|
& 'WNED RIGHTS.'//, A,
|
||
|
|
& '**************************************',
|
||
|
|
& '**************************************'/)
|
||
|
|
|
||
|
|
END
|