S4: no unqualified END statements

END statements shall all be qualified. END SUBROUTINE shall state subroutine name.

Correct use of end statement :

end statements

SUBROUTINE SOME_SUBROUTINE( ARG1, ARG2, ARG3)

INTEGER(KIND=JPIM), INTENT(IN)  :: ARG1
INTEGER(KIND=JPIM), INTENT(IN)  :: ARG2
INTEGER(KIND=JPIM), INTENT(OUT) :: ARG3

END SUBROUTINE SOME_SUBROUTINE