void prgm_(void);
void sanal(STRING,float,float,float);