Searched refs:large_weight (Results 1 – 2 of 2) sorted by relevance
822 REAL(KIND=dp) :: f, large_weight, small_weight, weight local837 large_weight = small_weight*(10.0_dp**k)858 weight = large_weight