void danal(STRING,double,double,double);
void prgm_(void);