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