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.
46 lines
1.5 KiB
46 lines
1.5 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 dbonam(ndbout, ndim, nameco,
|
||
|
|
& nvargl, ixgv, nvarnp, ixnv, nvarel, ixev,
|
||
|
|
* nvarns, ixnsv, nvarss, ixssv, names)
|
||
|
|
C=======================================================================
|
||
|
|
include 'gp_namlen.blk'
|
||
|
|
|
||
|
|
character*(maxnam) nameco(ndim)
|
||
|
|
character*(maxnam) names(*)
|
||
|
|
|
||
|
|
if (ndim .gt. 0) then
|
||
|
|
call expcon(ndbout, nameco, ierr)
|
||
|
|
end if
|
||
|
|
if (nvargl .gt. 0) then
|
||
|
|
call expvp(ndbout, 'g', nvargl, ierr)
|
||
|
|
call expvan(ndbout, 'g', nvargl, names(ixgv), ierr)
|
||
|
|
end if
|
||
|
|
|
||
|
|
if (nvarnp .gt. 0) then
|
||
|
|
call expvp(ndbout, 'n', nvarnp, ierr)
|
||
|
|
call expvan(ndbout, 'n', nvarnp, names(ixnv), ierr)
|
||
|
|
end if
|
||
|
|
|
||
|
|
if (nvarel .gt. 0) then
|
||
|
|
call expvp(ndbout, 'e', nvarel, ierr)
|
||
|
|
call expvan(ndbout, 'e', nvarel, names(ixev), ierr)
|
||
|
|
end if
|
||
|
|
|
||
|
|
if (nvarns .gt. 0) then
|
||
|
|
call expvp(ndbout, 'm', nvarns, ierr)
|
||
|
|
call expvan(ndbout, 'm', nvarns, names(ixnsv), ierr)
|
||
|
|
end if
|
||
|
|
|
||
|
|
if (nvarss .gt. 0) then
|
||
|
|
call expvp(ndbout, 's', nvarss, ierr)
|
||
|
|
call expvan(ndbout, 's', nvarss, names(ixssv), ierr)
|
||
|
|
end if
|
||
|
|
return
|
||
|
|
end
|