func=function %cursor%()\n\timplicit none\nend function sub=subroutine %cursor%()\n\timplicit none\nend subroutine
mod=module %cursor%\n\t\nend module prog=program %cursor%\n\t\nend program
imp=implicit none dim=dimension(%cursor%) int=integer
do=do %cursor%\n\t\nend do