... PRICE ( M , PI , A , * ) DIMENSION PI ( 1 , M ) MATRIX A ( SEQUENTIAL BY COLUMN ) COMMON / TOL / DJTOL N = MAXCOL ( A ) DØ 10 J = 1 , N DJ = PI ( 1 , * ) * A ( * , J ) IF ( DJ.GT.DJTOL ) RETURN CONTINUE RETURN 1 END 12345678 9 10 11 ...

This work has been selected by scholars as being culturally important and is part of the knowledge base of civilization as we know it. This work is in the public domain in the United States of America, and possibly other nations.