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.
39 lines
1.6 KiB
39 lines
1.6 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 version (qainfo)
|
||
|
|
C************************************************************************
|
||
|
|
|
||
|
|
include 'exodusII.inc'
|
||
|
|
character*(mxstln) qainfo(6)
|
||
|
|
|
||
|
|
C The CVS* variables are updated by the CVS/RCS program every time
|
||
|
|
C this routine is committed to the repository. Therefore, whenever
|
||
|
|
C there are any changes to any routines, this routine should also
|
||
|
|
C be committed. The assignment to QAINFO(I) strips off the 'Revision'
|
||
|
|
C and 'Date' strings from the CVS variables. Klugey but it might work.
|
||
|
|
|
||
|
|
C --QAINFO - the current program QA information:
|
||
|
|
C -- (1) = program name
|
||
|
|
C -- (2) = revision date
|
||
|
|
C -- (3) = version as "QA xx.xx" or "X xx.xx" or " xx.xx"
|
||
|
|
C -- (4) = program name with version appended
|
||
|
|
C -- (5) = date of current run
|
||
|
|
C -- (6) = time of current run
|
||
|
|
|
||
|
|
qainfo(1) = 'mapvar-kd '
|
||
|
|
qainfo(2) = '2022/09/16 '
|
||
|
|
qainfo(3) = ' 2.02 '
|
||
|
|
qainfo(4) = ' '
|
||
|
|
qainfo(5) = ' '
|
||
|
|
qainfo(6) = ' '
|
||
|
|
call exdate(qainfo(5))
|
||
|
|
call extime(qainfo(6))
|
||
|
|
return
|
||
|
|
end
|
||
|
|
C..................
|