| /dports/math/slatec/src/ |
| H A D | dplpup.f | 132 CALL DUSRMT(I,J,AIJ,INDCAT,PRGOPT,DATTRV,IFLAG)
172 IF (INDCAT.EQ.0) THEN
174 ELSEIF (INDCAT.EQ.1) THEN
180 WRITE (XERN1, '(I8)') INDCAT
|
| H A D | splpup.f | 132 CALL USRMAT(I,J,AIJ,INDCAT,PRGOPT,DATTRV,IFLAG)
172 IF (INDCAT.EQ.0) THEN
174 ELSEIF (INDCAT.EQ.1) THEN
180 WRITE (XERN1, '(I8)') INDCAT
|
| H A D | usrmat.f | 2 SUBROUTINE USRMAT (I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument
66 INDCAT=0
|
| H A D | dusrmt.f | 2 SUBROUTINE DUSRMT (I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument
67 INDCAT=0
|
| H A D | dfulmt.f | 2 SUBROUTINE DFULMT (I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument
82 90 INDCAT = 0
|
| H A D | fulmat.f | 2 SUBROUTINE FULMAT (I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument
81 90 INDCAT = 0
|
| /dports/math/cmlib/cmlib-3.0_8/src/splp/ |
| H A D | splpup.f | 116 CALL USRMAT(I,J,AIJ,INDCAT,PRGOPT,DATTRV,IFLAG)
137 20038 IF (.NOT.(INDCAT.EQ.0)) GO TO 20045
140 20045 IF (.NOT.(INDCAT.EQ.1)) GO TO 10003
148 *BE EITHER 0 OR 1.',68,NERR,IOPT,1,INDCAT,I2,0,R1,R2)
|
| H A D | usrmat.f | 1 SUBROUTINE USRMAT(I,J,AIJ, INDCAT,PRGOPT,DATTRV,IFLAG) argument
54 INDCAT=0
|
| H A D | fulmat.f | 1 SUBROUTINE FULMAT(I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument
67 90 INDCAT = 0
|
| /dports/math/cmlib/cmlib-3.0_8/doc/splp/ |
| H A D | splp | 408 C SUBROUTINE 'NAME'(I,J,AIJ, INDCAT, PRGOPT, DATTRV, IFLAG)
410 C The variables I,J, INDCAT, IFLAG(10) are type INTEGER,
432 C Define one set of values for I,J,AIJ, and INDCAT.
452 C Set INDCAT=0 if this value defines that entry.
453 C Set INDCAT=1 if this entry is to be updated,
456 C not between 1 and NVARS, or a value of INDCAT
487 C SUBROUTINE USRMAT(I,J,AIJ, INDCAT,PRGOPT,DATTRV,IFLAG)
532 C INDCAT=0 DENOTES THAT ENTRIES OF THE MATRIX ARE ASSIGNED THE
534 C INDCAT=0
|