Skip to content

Instantly share code, notes, and snippets.

View blakejohnson's full-sized avatar

Blake Johnson blakejohnson

View GitHub Profile
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
extern void dgeqrt3_(long * m, long *n, double * a, long *lda, double *t, long *ldt, long*info);
int main(int argc, char**argv)
{
int in, i;
long n,info=1;
int ct;