1*10470Sdlw /* 2*10470Sdlw * "@(#)d_tan.c 1.1" 3*10470Sdlw */ 4*10470Sdlw 5*10470Sdlw double d_tan(x) 6*10470Sdlw double *x; 7*10470Sdlw { 8*10470Sdlw double tan(); 9*10470Sdlw return( tan(*x) ); 10*10470Sdlw } 11