CONTAINS

プログラム中に内部関数を記述する文。

PROGRAMの場合:

program hoge
...
...
...
CONTAINS
subroutine fuga
   ...
   ...
end subroutine
end program

MODULEの場合:

module hoge
CONTAINS
   subroutine fuga
   ...
   ...
   end subroutine

   function hage
   ...
   ...
   end function
end module