Lines Matching refs:ADDS

48       DOUBLE PRECISION   ADDS, EK, EM, EN, MULTS  local
69       ADDS = 0
84             ADDS = EM*EK*EN
94                ADDS = EM*EM*EN
97                ADDS = EM*EN*EN
104                ADDS = EN*EM*( EM-1.D0 ) / 2.D0
107                ADDS = EM*EN*( EN-1.D0 ) / 2.D0
122             ADDS = EK*EM*( EM+1.D0 ) / 2.D0
135             ADDS = EK*EM*EM + EM
146             ADDS = EN*EM*( EM-1.D0 ) / 2.D0
149             ADDS = EM*EN*( EN-1.D0 ) / 2.D0
164          DOPBL3 = MULTS + ADDS
168          DOPBL3 = 6*MULTS + 2*ADDS