subroutine SHOW_FAIL
! Calls
call RITE
call rite
! Variables
integer (kind=4) :: i
integer (kind=4) :: ifail
integer (kind=4) :: iss
integer (kind=4) :: size
integer (kind=4) :: Lensig
character (len=40) :: name
end subroutine SHOW_FAIL
integer (kind=4) :: i
integer (kind=4) :: ifail
integer (kind=4) :: iss
integer (kind=4) :: size
integer (kind=4) :: Lensig
character (len=40) :: name