module Template_mod
! Uses
use precision_mod
use example_mod
! Types
public type examplestr_type
! Variables
integer (kind=I4), public, PARAMETER :: MaxExamples = 5
real (kind=R4), private, PARAMETER :: Pi = 3.14159
integer (kind=I4), public :: nExamples
type (examplestr_type), public, DIMENSION(MaxExamples), TARGET :: ExampleStr
! Subroutines and functions
public subroutine EnterTemplate ()
end module Template_mod
==============================================================================
Name: Template_mod
------------------------------------------------------------------------------
Description:
[put description here]
==============================================================================
Author: Stu Dent (!! is for inclusion of comments in f90doc)
Version: 1.1
public type examplestr_type
integer (kind=I4) :: iExample
real (kind=R4) :: Average
end type examplestr_type
integer (kind=I4), public, PARAMETER :: MaxExamples = 5
real (kind=R4), private, PARAMETER :: Pi = 3.14159
integer (kind=I4), public :: nExamples
type (examplestr_type), public, DIMENSION(MaxExamples), TARGET :: ExampleStr
public subroutine EnterTemplate () end subroutine EnterTemplate ---------------------------------------------------------------------------- [Subroutine EnterTemplate description] ----------------------------------------------------------------------------Author: Stu Dent