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.
69 lines
2.5 KiB
69 lines
2.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 CKMAP (ICNT, MAP, INDX, TYPE)
|
||
|
|
C=======================================================================
|
||
|
|
|
||
|
|
C --*** CKMAP *** (EXPLORE) Check database node/element map
|
||
|
|
C --
|
||
|
|
C --CKMAP checks the node/element order map.
|
||
|
|
C --
|
||
|
|
C --Parameters:
|
||
|
|
C -- ICNT - IN - the number of nodes/elements
|
||
|
|
C -- MAP - IN - the node/element order map
|
||
|
|
C -- INDX - SCRATCH - size = ICNT
|
||
|
|
|
||
|
|
include 'exp_errcnt.blk'
|
||
|
|
INTEGER MAP(*)
|
||
|
|
INTEGER INDX(*)
|
||
|
|
CHARACTER*(*) TYPE
|
||
|
|
|
||
|
|
CHARACTER*1024 STRA
|
||
|
|
C --Check that each node/element appears once and only once in the map
|
||
|
|
C The 'map(i)' values may be larger than icnt, so we can't do a
|
||
|
|
C simple check. Instead, we do an indexed sort and check for no
|
||
|
|
C duplicate adjacent values.
|
||
|
|
|
||
|
|
nerr = 0
|
||
|
|
if (icnt .le. 1) return
|
||
|
|
|
||
|
|
CALL INDEXI (MAP, INDX, ICNT, .TRUE.)
|
||
|
|
|
||
|
|
C ... There has been a request to show min and max ids to help with
|
||
|
|
C debugging potential database corruption issues. Do it here.
|
||
|
|
|
||
|
|
write (stra, 10001) type, map(indx(1)), map(indx(icnt))
|
||
|
|
10001 FORMAT('INFO: ', A, ' global id range: ',I12, ' to ', I12)
|
||
|
|
call sqzstr(stra, lstra)
|
||
|
|
CALL PRTERR ('CMDSPEC', STRA(:lstra))
|
||
|
|
|
||
|
|
ILAST = MAP(INDX(1))
|
||
|
|
DO 100 IEL = 2, ICNT
|
||
|
|
if (map(indx(iel)) .eq. ilast) then
|
||
|
|
if (nerr .lt. maxerrs .or. maxerrs .le. 0) then
|
||
|
|
write (stra, 10000) type, ilast, type,
|
||
|
|
* indx(iel-1), indx(iel)
|
||
|
|
10000 FORMAT('MAP ERROR: ',A,' global id ',I12,
|
||
|
|
* ' assigned to ',A,'s', I12,' and ',I12,'.')
|
||
|
|
call sqzstr(stra, lstra)
|
||
|
|
CALL PRTERR ('CMDSPEC', STRA(:lstra))
|
||
|
|
else if (nerr .eq. maxerrs .and. maxerrs .gt. 0) then
|
||
|
|
call prterr('CMDSPEC',
|
||
|
|
$ '...skipping additional errors...')
|
||
|
|
end if
|
||
|
|
nerr = nerr + 1
|
||
|
|
end if
|
||
|
|
ilast = map(indx(iel))
|
||
|
|
100 CONTINUE
|
||
|
|
if (nerr .gt. 0) then
|
||
|
|
write (stra, 10010) nerr, type
|
||
|
|
10010 FORMAT('MAP ERROR: Found ',I12,' errors in ',A,' map check.')
|
||
|
|
call sqzstr(stra, lstra)
|
||
|
|
CALL PRTERR ('CMDSPEC', STRA(:lstra))
|
||
|
|
end if
|
||
|
|
RETURN
|
||
|
|
END
|