Searched refs:currdeg (Results 1 – 1 of 1) sorted by relevance
1395 INTEGER :: currdeg local1398 DO currdeg=0,pdeg1400 ( coeff(currdeg) * &1401 ( (Variable - ReferenceValue)/Normation )**(DBLE(currdeg)) )/(DBLE(currdeg) + 1.0_dp)