Searched refs:rslt (Results 1 – 2 of 2) sorted by relevance
2 subroutine eval(dimn,x,rslt) argument5 real*8 rslt local7 rslt=tanh(x(1)+0.1)9 rslt=rslt+atan(x(2)+0.2)12 rslt=rslt+exp(-(x(3)+0.3)*(x(3)+0.3))
2 subroutine eval(dimn,x,rslt) argument5 real*8 rslt local10 rslt=114 rslt=rslt*tanh(x(d)-center)