eabs.o k ? x 0 ; 7w 8 8 9 ) abs. " dabs. " retrn temp aimag.o k ? l 0 V7w 8 9 ) aimag. " rval8p retrn temp aint.o k ? l 0 ; @ww 9 aint. " temp one @retrn alog.o k ? ( H ; 7w w X X ) Y 9 I alog. " dlog. " log retrn rerr temp alog10.o k ? 2 T ; 7 7w w ?[7f(X X ) Y 9 I dlog10. " alog10. " log retrn rerr temp const * amax0.o k
@ > 0
Y@
www 8 8 9 9 ) amax0. " max0. " retrn temp amax1.o k #@ H <
Y@
www H H H I I 9 amax1. " dmax1. " max1. " retrn temp amin0.o k 7@ > 0
Y@
www 8 8 9 9 ) amin0. " min0. " retrn temp amin1.o k M@ H <
Y@
www H H H I I 9 amin1. " dmin1. " min1. " retrn temp amod.o k c@ 8 H / ; { @7w w H H I ) Y amod. " dmod. " retrn one @temp rerr atan.o k x@ < ; 7w H H ) I 9 atan. " datan. " atan retrn temp atan2.o k @ 0 H /
; { 7w w H H Y I ) 9 atan2. " datan2. " retrn rerr temp atan2 cabs.o k @ X ` Q 7w w f@ @&@V @ V X X Y 9 I ) cabs. " dcabs. " sqrt retrn rerr temp hypot * one @cexp.o k @ < ` 7 77 77w w 8 Y 9 i 9 9 y 9 9 ) I cexp. " rval8p retrn temp rerr exp sin cos cmplx.o k
A 0 < /
Y Qw w 8 8 8 ) I cmplx. " dcmplx. " retrn temp rerr conjg.o k #A x 0 77w 8 9 9 ) conjg. " rval8p retrn temp cos.o k 8A < ; 7w H H ) I 9 cos. " dcos. " cos retrn temp dble.o k A T h ( h 8 H X dble. " rval4p lval r4r8 gas8 retrn temp dim.o k /B * 0 / ; ; 7w w ( ) 9 dim. " retrn temp rerr dimag.o k BB l 0 V7w 8 9 ) dimag. " rval16p retrn temp exp.o k XB ( H ; 7w w X X ) Y 9 I exp. " dexp. " exp retrn rerr temp float.o k nB T h ( h H 8 X float. " rval4p lval gas4 i4r4 retrn temp iabs.o k B ` $
; 7w ( ) iabs. " retrn temp idim.o k B . 0
/ ; { 7w w 8 9 ) idim. " retrn rerr temp idint.o k B \ $
; 7w ( ) idint. " retrn temp ierr.o k B pl ( l t z 7 d -^ w x e N H e P w z "e 7 " e &&p w w z ) 9 9 ierror. " erret # l rerr retrn zero t errbuf z cerrp x eerbuf one p ifix.o k B ` x ( x X 8 H h ifix. " int. " lval r4i4 gas4 rval4p retrn temp isign.o k B . 0
/ ; { 7w w
8 9 ) isign. " retrn rerr temp mod.o k C 2 <
/ ; { @7w w ( ) I mod. " retrn temp one @rerr real.o k C t 0 ; 7w 8 8 9 ) real. " dreal. " retrn temp sign.o k .C 4 < / ; { 7w w 8 8 9 ) I sign. " dsign. " retrn temp rerr sin.o k AC < ; 7w H H ) I 9 sin. " dsin. " sin retrn temp sngl.o k VC T h ( h 8 H X sngl. " rval8p lval r8r4 gas4 retrn temp sqrt.o k nC & H ; 7w w
X X ) Y 9 I sqrt. " dsqrt. " sqrt retrn rerr temp ccos.o k @ h @ A ( H h h h h ( 8H h h h xH H ccos. " ccos_ rval8p z1_ gmv8 z2_ stsp ft rval4 b_ call exp. gmv4 c_ c0 rdv4 d_ a_ sin. rsb4 rmp4 c1 cos. rad4 c2 rval8 retrn d0 base dummy_ clog.o k @ r z r t r r t v r r t r z ( H h h h h h h h H (( clog. " clog_ z rval8p z1_ gmv8 z2_ stsp ft r rval8 call cabs. gmv4 c_ rval4 b_ a_ atan2. alog. retrn d0 l base x dummy_ csin.o k XA h @ A ( H h h h h ( 8H h h h xH H csin. " csin_ rval8p z1_ gmv8 z2_ stsp ft rval4 b_ call exp. gmv4 c_ c0 rdv4 d_ a_ cos. rsb4 rmp4 c1 sin. rad4 c2 rval8 retrn d0 base dummy_ csqrt.o k zA D A ( H h h h h h h h 8 h h H X h h h X H xx csqrt. " csqrt_ rval8p z1_ gmv8 z2_ stsp ft rval8 call cabs. gmv4 c_ rval4 sqrt. b_ a_ atan2. c0 rdv4 cos. rmp4 sin. retrn d0 base dummy_ dccos.o k A 6 h @ A ( H h h h h ( 8H h h h xH H dccos. " dccos_ rval16p z1_ gmv16 z2_ stsp ft rval8 b_ call dexp. gmv8 c_ c0 rdv8 d_ a_ dsin. rsb8 rmp8 c1 dcos. rad8 c2 rval16 retrn d0 base dummy_ dclog.o k A r 0 z r t r r t v r r t r z ( H h h h h h h h H (( dclog. " dclog_ z rval16p z1_ gmv16 z2_ stsp ft r rval16 call dcabs. gmv8 c_ rval8 b_ a_ datan2. dlog. retrn d0 l base x dummy_ dcsin.o k A 6 h @ A ( H h h h h ( 8H h h h xH H dcsin. " dcsin_ rval16p z1_ gmv16 z2_ stsp ft rval8 b_ call dexp. gmv8 c_ c0 rdv8 d_ a_ dcos. rsb8 rmp8 c1 dsin. rad8 c2 rval16 retrn d0 base dummy_ dcsqrt.o k B 0 D A ( H h h h h h h h 8 h h H X h h h X H xx dcsqrt. " dcsqrt_ rval16p z1_ gmv16 z2_ stsp ft rval16 call dcabs. gmv8 c_ rval8 dsqrt. b_ a_ datan2. c0 rdv8 dcos. rmp8 dsin. retrn d0 base dummy_ tanh.o k C L R L N L V H V Z V Z V Z R @ ( H ( h x tanh. " tanh_ R stsp ft L rval4p a_ call exp. gmv4 b_ V rval4 c0 H rdv4 c_ Z rsb4 rad4 retrn base P