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