Searched refs:AMATRX (Results 1 – 5 of 5) sorted by relevance
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/pdpack/ |
H A D | printpkg.F | 63 DIMENSION AMATRX(*) 90 IF (IS_NAN(AMATRX(I),AMATRX(I))) THEN 94 BMAX = MAX( BMAX, AMATRX(I)) 95 CMAX = MIN( CMAX, AMATRX(I)) 188 DIMENSION AMATRX(*) 216 IF ( IS_NAN(AMATRX(I),AMATRX(I)) ) THEN 334 DIMENSION AMATRX(*) 478 DIMENSION AMATRX(*) 507 IF ( IS_NAN(AMATRX(I),AMATRX(I)) ) THEN 607 DIMENSION AMATRX(ROWDIM,COLDIM) [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/qfitlib/src/ |
H A D | printpkg.F | 11 SUBROUTINE OUTPUT (AMATRX,ROWLOW,ROWHI,COLLOW,COLHI,ROWDIM,COLDIM, argument 53 DIMENSION AMATRX(ROWDIM,COLDIM) 68 IF ( IS_NAN(AMATRX(I,J),AMATRX(I,J)) ) THEN 71 AMAX = MAX( AMAX, ABS(AMATRX(I,J)) ) 108 IF (abs(AMATRX(K,I)).gt.thrpri) GO TO 5 111 5 WRITE (LUPRI,PFMT) CTL,K,(AMATRX(K,I), I = BEGIN,LAST)
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/gp/ |
H A D | gpdahle.F | 195 SUBROUTINE OUTPK1(AMATRX,IVW,NVW,NTOT,NROW,KCOL,LUPRI) 234 DIMENSION AMATRX(NVW,NTOT) 240 AMAX = MAX( AMAX, ABS(AMATRX(IVW,I)) ) 368 & (AMATRX(IVW,((BEGIN+J-1)*(BEGIN+J-2))/2+K),J=NCOL,KMAX) 382 SUBROUTINE OUTPU1 (AMATRX,IVW,NVW,ROWDIM,COLDIM,KCOL,LUPRI) 418 DIMENSION AMATRX(NVW,ROWDIM,COLDIM) 424 AMAX = MAX( AMAX, ABS(AMATRX(IVW,I,J)) ) 501 WRITE (LUPRI,PFMT) K,(AMATRX(IVW,K,I), I = BEGIN,LAST)
|
H A D | gpjeppe.F | 203 SUBROUTINE WRTMAT(AMATRX,NRDIM,NCDIM,NRMAX,NCMAX,ITRANS) 206 DIMENSION AMATRX(NRMAX,NCMAX) 210 WRITE(LUPRI,1011) (AMATRX(1,J),J=1,NCDIM) 213 WRITE(LUPRI,1010) I,(AMATRX(I,J),J=1,NCDIM) 217 WRITE(LUPRI,1010) I,(AMATRX(J,I),J=1,NRDIM)
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
H A D | cc3_xi_cont.F | 2308 SUBROUTINE OUTPUT_E(AMATRX,ROWLOW,ROWHI,COLLOW,COLHI,ROWDIM, argument 2349 DIMENSION AMATRX(ROWDIM,COLDIM) 2362 AMAX = MAX( AMAX, ABS(AMATRX(I,J)) ) 2393 IF (AMATRX(K,I).NE.ZERO) GO TO 5 2396 5 WRITE (LUPRI,PFMT) CTL,K,(AMATRX(K,I), I = BEGIN,LAST)
|