Lines Matching refs:IERROR
69 INTEGER MTRANS, COMPRESS,NCMP,IERROR,J,JPERM,NCST local
247 & IERROR, KEEP, KEEP8, ICNTL)
971 & IWFR, IFLAG, IERROR, MP) argument
978 INTEGER, INTENT(OUT) :: IERROR local
986 IERROR = 0
1002 50 IERROR = IERROR + 1
1004 IF (IERROR.LE.1 .AND. MP.GT.0) WRITE (MP,99999)
1005 IF (IERROR.LE.10 .AND. MP.GT.0) WRITE (MP,99998) K, I, J
1012 IF (IERROR.GE.1) THEN
2694 & NRORM, NIORM, IFLAG,IERROR, ICNTL, argument
2703 INTEGER, intent(out) :: IERROR, symmetry local
2722 IERROR = 0
2734 IERROR = IERROR + 1
2750 IERROR = IERROR + 1
2762 IF (IERROR.GE.1) THEN
2794 IF (IERROR.GE.1) THEN