Class to represent a distance factory
Class constructor
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(factory_distance) | :: | factory | 
                 A   | 
        |||
| character(len=*) | :: | type_ | 
                 A character string with the type of distance to be instantiated  | 
        |||
| class(distance_base), | allocatable | :: | dist | 
                 An allocatable   | 
        
type factory_distance !! Class to represent a distance factory contains procedure,public :: create_distance end type factory_distance