File: test_area.c

package info (click to toggle)
ecbuild 3.13.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,068 kB
  • sloc: sh: 1,404; perl: 732; f90: 472; cpp: 466; python: 383; ansic: 304; fortran: 43; makefile: 15
file content (18 lines) | stat: -rw-r--r-- 261 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#include "stdio.h"
#include "math.h"

double area_circle_(double *);

int main() {

  double r = 10.;
  double a = area_circle_(&r);

  printf("%le %le %le\n", r, a, fabs(a - 100*M_PI));

  if( fabs(a - 100*M_PI) > 1E-5 )
    return -1;
  else
    return 0;
}