init_constants Subroutine

public subroutine init_constants()

Initialise module variables

Arguments

None

Contents

Source Code


Source Code

  subroutine init_constants
    !! Initialise module variables
    implicit none

    dcopper = 8900.0D0
    dalu = 2700.0D0
  end subroutine init_constants