Searched defs:LSQEQ (Results 1 – 1 of 1) sorted by relevance
| /dports/science/libccp4/libccp4-6.5.1/fortran/ |
| H A D | lgglib.f | 2069 SUBROUTINE LSQEQ(M,N,A,PHI,DETA,ATA,B1) subroutine
2107 50 DETA(I) = DETA(I) + ATA(I,J)*PHI(J)
2118 10 ATA(I,J) = ATA(I,J) + A(K,I)*A(K,J)
2122 20 ATA(I,J) = ATA(J,I)
2136 30 B1(I) = POIMULT(M, M, A(1,I), PHI)
2147 40 DETA(I) = DETA(I) + ATA(I,J)*B1(J)
|