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