Главная Обзор Помощь
Вход
SMusatov
/
ydb
зеркало из https://github.com/ydb-platform/ydb.git
1
0
Ответвить 0
Файлы
Дерево: 6bb28dfd11
Ветки Метки
ydb
/
contrib
/
libs
/
libf2c
/
d_prod.c

d_prod.c 207 B
История Исходник

12345678910111213141516 
  1. #include "f2c.h"
    2. 

  2. #ifdef __cplusplus
    3. 

  3. extern "C" {
    4. 

  4. #endif
    5. 

  5. 

  6. #ifdef KR_headers
    7. 

  7. double d_prod(x,y) real *x, *y;
    8. 

  8. #else
    9. 

  9. double d_prod(real *x, real *y)
    10. 

  10. #endif
    11. 

  11. {
    12. 

  12. return( (*x) * (*y) );
    13. 

  13. }
    14. 

  14. #ifdef __cplusplus
    15. 

  15. }
    16. 

  16. #endif
    17.