sample Program

Uses

Variables

Type Attributes Name Initial
type(Seed_) :: dry_seed
type(Seed_) :: wet_seed