Initialise module variables
subroutine init_constants !! Initialise module variables implicit none dcopper = 8900.0D0 dalu = 2700.0D0 end subroutine init_constants