subroutine FAIL
! Variables
integer (kind=4) :: I_FAIL
integer (kind=4) :: I_SS
integer (kind=4) :: IFAIL
integer (kind=4) :: ISS
end subroutine FAIL
integer (kind=4) :: I_FAIL
integer (kind=4) :: I_SS
integer (kind=4) :: IFAIL
integer (kind=4) :: ISS