xref: /csrg-svn/usr.bin/f77/libF77/pow_dd.c (revision 22927)
110511Sdlw /*
2*22927Skre  * Copyright (c) 1980 Regents of the University of California.
3*22927Skre  * All rights reserved.  The Berkeley software License Agreement
4*22927Skre  * specifies the terms and conditions for redistribution.
5*22927Skre  *
6*22927Skre  *	@(#)pow_dd.c	5.1	06/07/85
710511Sdlw  */
810511Sdlw 
910511Sdlw double pow_dd(ap, bp)
1010511Sdlw double *ap, *bp;
1110511Sdlw {
1210511Sdlw double pow();
1310511Sdlw 
1410511Sdlw return(pow(*ap, *bp) );
1510511Sdlw }
16