NEVER MIND - I SEE the ERROR.......................
But it does not explain how to access the :LAPACK routines.
That include file doesn't work.
subroutine solve(a,x,b)
parameter nrhs=1;m=4;n=10
real*8 a(m,n),x(m,nrhs),b(m,nrhs)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!
lda=m;ldb=m
call gelss(m,n,nrhs,a,lda,b,ldb)
end