CONTAINS

Statement: Separates the body of a main program, module, or external subprogram from any internal or module procedures it may contain. It is not executable.

Syntax

CONTAINS

Any number of internal procedures can follow a CONTAINS statement, but a CONTAINS statement cannot appear in the internal procedures themselves.

See Also: Internal Procedures, Modules and Module Procedures, Main Program

Example

PROGRAM OUTER
   REAL, DIMENSION(10) :: A
   . . .
   CALL INNER (A)
CONTAINS
   SUBROUTINE INNER (B)
   REAL, DIMENSION(10) :: B
   . . .
   END SUBROUTINE INNER
END PROGRAM OUTER