Lines Matching refs:NM
101 INTEGER I, IC, K, LDA, NM, NMATS,
153 READ( NIN, FMT = * )NM
154 IF( NM.LT.1 ) THEN
155 WRITE( NOUT, FMT = 9996 )' NM ', NM, 1
156 NM = 0
158 ELSE IF( NM.GT.MAXIN ) THEN
159 WRITE( NOUT, FMT = 9995 )' NM ', NM, MAXIN
160 NM = 0
163 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
164 DO 10 I = 1, NM
173 IF( NM.GT.0 )
174 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
300 CALL DDRVAB( DOTYPE, NM, MVAL, NNS,
321 CALL DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,