source: CIVL/examples/fortran/cv2018/matrix_mult/driver.cvl

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: 448 bytes
RevLine 
[d5096aa]1/*
2 * A MXM driver written in CIVL-C for CIVL verifier.
3 *
4 */
5
6$input int size;
7$assume(0 < size && size < 5);
8$input double a[size][size], b[size][size];
9$output double o[size][size];
10
11void MXM(double a[][], int* n1, double b[][], int* n2, double c[][], int* n3);
12
13void main(){
14 int n = size;
15 double c[size][size];
16
17 MXM(a,&n,b,&n,c,&n);
18
19 for (int i=0; i<n; i++)
20 for (int j=0; j<n; j++)
21 o[i][j] = c[i][j];
22}
Note: See TracBrowser for help on using the repository browser.