hecmw_adapt_error_exit.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2019 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
 
subroutine hecmw_adapt_error_exit (hecMESH, IFLAG)
  use  hecmw_util
  type (hecmwST_local_mesh) :: hecMESH
 
  write (*,'(/,a, i8)')                                             &
    &        "********** MESSAGE from HEC-MW ADAPTATION **********",   &
    &         hecmesh%my_rank
 
  if (iflag.ge. 1001) then
    write (*,'(/,a)')                                               &
      &        " ### ABORT : unexpected ZERO/minus in the original file"
    if (iflag.eq.1001) write (*,'(  a,/)')                          &
      &        "       TOTAL NODE and/or ELEMENT NUMBER"
    if (iflag.eq.1002) write (*,'(  a,/)')                          &
      &        "       BOUNDARY GROUP NUMBER"
    if (iflag.eq.1003) write (*,'(  a,/)')                          &
      &        "       BOUNDARY info ITEMs"
    if (iflag.eq.1004) write (*,'(  a,/)')                          &
      &        "       ELEMENT type"
    if (iflag.eq.1005) write (*,'(  a,/)')                          &
      &        "       ELEMENT connectivity"
  endif
 
  if (iflag.eq. 1) then
    write (*,'(/,a,/)')                                             &
      &        " ### ABORT : ERROR in ORIGINAL GRID FILE : Parallel Info"
  endif
 
  if (iflag.eq. 2) then
    write (*,'(/,a,/)')                                             &
      &        " ### ABORT : ERROR in ORIGINAL GRID FILE : Parallel Info"
  endif
 
  if (iflag.eq.11) then
    write (*,'(/,a,/)')                                             &
      &        " ### ABORT : ERROR in ORIGINAL GRID FILE"
  endif
 
  if (iflag.eq.12) then
    write (*,'(/,a,/)')                                             &
      &        " ### ABORT : UNEXPECTED EOF in ORIGINAL GRID FILE"
  endif
 
  if (iflag.eq.21) then
    write (*,'(/,a,/)')                                             &
      &        " ### ABORT : ERROR in MeTiS PARTITION FILE"
  endif
 
  if (iflag.eq.99) then
    write (*,'(/,a,/)')                                             &
      &        " ### ABORT : ERROR allocating ieaddrs in load_mesh.f90"
  endif
 
  if (iflag.eq. 101) then
    write (*,'(/,a,/)')                                             &
      &        " ### ABORT : file not found : GRID FILE"
  endif
 
  if (iflag.eq. 102) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : file not found : RESTART FILE"
  endif
 
  if (iflag.eq. 20) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : invalid file format : CNTL FILE"
  endif
 
  if (iflag.eq. 22) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : invalid file format : RESTART FILE"
  endif
 
  if (iflag.eq. 94) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : invalid value : CNTL. FILE"
  endif
 
  if (iflag.eq.61) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : array overflow (CELL)"
  endif
 
  if (iflag.eq.62) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : array overflow (NODES)"
  endif
 
  if (iflag.eq.63) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : array overflow (LAYER)"
  endif
 
  if (iflag.eq.64) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : array overflow (EDGES)"
  endif
 
  if (iflag.eq.81) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : arithmetic overflow : Zero Volume"
  endif
 
  if (iflag.eq.82) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : arithmetic overflow : Zero Density"
  endif
 
  if (iflag.eq.9) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : adaptation level exceeded"
  endif
 
  if (iflag.eq.95) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : inconsistent grid-result files"
  endif
 
  if (iflag.eq.7) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : iteration failed"
  endif
 
  if (iflag.eq.201) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : initial conditions"
  endif
 
  if (iflag.eq.202) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : element-based partition"
  endif
 
  if (iflag.eq.203) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : multiple DOF group"
  endif
 
  if (iflag.eq.204) then
    write (*,'(/,a,/)')                                             &
      &       " ### ABORT : composite material"
  endif
 
 
  call mpi_finalize (                  ier1      )
 
  stop
end