Syntax of a (non-recursive) subroutine declaration:
SUBROUTINE < procname >[ (< dummy args >) ]< declaration of dummy args >
< declaration of local objects >
...
< executable stmts >
[ CONTAINS
< internal procedure definitions > ]
END [ SUBROUTINE [< procname > ] ]
For more information, click here