subroutine cblas()
      call caxpy(n,ca,cx,incx,cy,incy)
      call  ccopy(n,cx,incx,cy,incy)
      c =  cdotc(n,cx,incx,cy,incy)
      c =  cdotu(n,cx,incx,cy,incy)
      r = cmach(job)
      call crotg(ca,cb,c,s)
      call  cscal(n,ca,cx,incx)
      call  csrot (n,cx,incx,cy,incy,c,s)
      call  csscal(n,sa,cx,incx)
      call  cswap (n,cx,incx,cy,incy)
      i = icamax(n,cx,incx)
      r = scasum(n,cx,incx)
      r = scnrm2( n, cx, incx)
      call srotg(sa,sb,c,s)
      stop
      end