source: CIVL/examples/fortran/cv2018/equivalence/resid/residual_driver.c

main
Last change on this file was ea777aa, checked in by Alex Wilton <awilton@…>, 3 years ago

Moved examples, include, build_default.properties, common.xml, and README out from dev.civl.com into the root of the repo.

git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@5704 fb995dde-84ed-4084-dfe6-e5aef3e2452c

  • Property mode set to 100644
File size: 319 bytes
Line 
1#include<civlc.cvh>
2#include<stdio.h>
3
4void RESIDUAL_8(int* N, int ia1[], int ia2[]);
5
6$input int X;
7$assume(0 < X);
8
9void main(){
10 int a[1], b[1];
11 int size = 1;
12
13 a[0] = X;
14 b[0] = 0;
15
16 RESIDUAL_8(&size, a, b);
17
18
19 //for (int i = 0; i < 1; i++){
20 // printf("%s%d%s%d", "B[", i, "] = ", b[i]);
21 //}
22}
23
Note: See TracBrowser for help on using the repository browser.