init_constants Subroutine

public subroutine init_constants()

Initialise module variables

Arguments

None

Contents

Source Code

init_constants

Source Code

  subroutine init_constants
    !! Initialise module variables
    implicit none

    dcopper = 8900.0D0
    dalu = 2700.0D0
  end subroutine init_constants