init_reference_c6 Subroutine

public subroutine init_reference_c6()

Arguments

None

Source Code

subroutine init_reference_c6
   !$omp critical(d3_reference)
   if (.not.allocated(reference_c6)) call copy_c6(reference_c6)
   !$omp end critical(d3_reference)
end subroutine init_reference_c6