110470Sdlw /* 2*22876Skre * Copyright (c) 1980 Regents of the University of California. 3*22876Skre * All rights reserved. The Berkeley software License Agreement 4*22876Skre * specifies the terms and conditions for redistribution. 5*22876Skre * 6*22876Skre * @(#)d_tan.c 5.1 06/07/85 710470Sdlw */ 810470Sdlw 910470Sdlw double d_tan(x) 1010470Sdlw double *x; 1110470Sdlw { 1210470Sdlw double tan(); 1310470Sdlw return( tan(*x) ); 1410470Sdlw } 15