Home
last modified time | relevance | path

Searched refs:AMATRX (Results 1 – 5 of 5) sorted by relevance

/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/pdpack/
H A Dprintpkg.F63 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 Dprintpkg.F11 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 Dgpdahle.F195 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 Dgpjeppe.F203 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 Dcc3_xi_cont.F2308 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)