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.
65 lines
1.7 KiB
65 lines
1.7 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
|
||
|
|
|
||
|
|
program testcpd
|
||
|
|
|
||
|
|
c This is a test program for the Fortran binding of the EXODUS II
|
||
|
|
c database copy function (excopy).
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
include 'exodusII.inc'
|
||
|
|
|
||
|
|
integer iin, iout, exoid, exoid1, ierr, cpu_ws, io_ws
|
||
|
|
|
||
|
|
real vers
|
||
|
|
|
||
|
|
data iin /5/, iout /6/
|
||
|
|
|
||
|
|
c open EXODUS II input file
|
||
|
|
|
||
|
|
c the setting of cpu_ws isn't used for copying but will test the
|
||
|
|
c conversion routines
|
||
|
|
|
||
|
|
cpu_ws = 8
|
||
|
|
io_ws = 4
|
||
|
|
|
||
|
|
exoid = exopen ("test.exo", EXREAD, cpu_ws, io_ws, vers, ierr)
|
||
|
|
write (iout, '(/"after exopen, error = ",i3)')
|
||
|
|
1 ierr
|
||
|
|
|
||
|
|
write (iout, '("test.exo is an EXODUSII file; version ",
|
||
|
|
1 f4.2)') vers
|
||
|
|
write (iout, '(" I/O word size: ",i4)') io_ws
|
||
|
|
|
||
|
|
c create EXODUS II output file with default size reals
|
||
|
|
|
||
|
|
c the setting of cpu_ws isn't used for copying but will test the
|
||
|
|
c conversion routines
|
||
|
|
|
||
|
|
cpu_ws = 8
|
||
|
|
io_ws = 0
|
||
|
|
|
||
|
|
exoid1 = excre ("testcp.exo",
|
||
|
|
1 EXCLOB, cpu_ws, io_ws, ierr)
|
||
|
|
write (iout,'("after excre, id = ", i6, ", error = ",i4)')
|
||
|
|
1 exoid1, ierr
|
||
|
|
write (iout,'(" I/O word size: ",i4)') io_ws
|
||
|
|
|
||
|
|
write (iout,'("after excre, error = ", i4)') ierr
|
||
|
|
|
||
|
|
call excopy (exoid, exoid1, ierr)
|
||
|
|
write (iout, '(/"after excopy, error = ", i3)' ) ierr
|
||
|
|
|
||
|
|
call exclos (exoid, ierr)
|
||
|
|
write (iout, '(/"after exclos, error = ", i3)' ) ierr
|
||
|
|
|
||
|
|
call exclos (exoid1, ierr)
|
||
|
|
write (iout, '(/"after exclos, error = ", i3)' ) ierr
|
||
|
|
|
||
|
|
stop
|
||
|
|
end
|