Mercurial > hg > octave-lyh

comparison libcruft/odessa/odessa_intdy.f @ 4139:02ca908056e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-11-01 00:49:13 by jwe]
author jwe
date Fri, 01 Nov 2002 00:49:13 +0000
parents 3995501ce1d9
children
comparison
equal deleted inserted replaced
4138:b38835ea3c6e 4139:02ca908056e9
59 DO 60 I = 1,NYH 59 DO 60 I = 1,NYH
60 60 DKY(I) = R*DKY(I) 60 60 DKY(I) = R*DKY(I)
61 RETURN 61 RETURN
62 C 62 C
63 80 CALL XERRWD('ODESSA_INTDY-- K (=I1) ILLEGAL', 63 80 CALL XERRWD('ODESSA_INTDY-- K (=I1) ILLEGAL',
64 1 51, 1, 1, K, 0, 0, ZERO,ZERO) 64 1 31, 51, 1, 1, K, 0, 0, ZERO,ZERO)
65 IFLAG = -1 65 IFLAG = -1
66 RETURN 66 RETURN
67 90 CALL XERRWD ('ODESSA_INTDY-- T (=R1) ILLEGAL', 67 90 CALL XERRWD ('ODESSA_INTDY-- T (=R1) ILLEGAL',
68 1 52, 1, 0, 0, 0, 1, T, ZERO) 68 1 31, 52, 1, 0, 0, 0, 1, T, ZERO)
69 CALL XERRWD('T NOT IN INTERVAL TCUR - HU (= R1) TO TCUR (=R2)', 69 CALL XERRWD('T NOT IN INTERVAL TCUR - HU (= R1) TO TCUR (=R2)',
70 1 52, 1, 0, 0, 0, 2, TP, TN) 70 1 48, 52, 1, 0, 0, 0, 2, TP, TN)
71 IFLAG = -2 71 IFLAG = -2
72 RETURN 72 RETURN
73 C------------------ END OF SUBROUTINE ODESSA_INTDY ----------------------- 73 C------------------ END OF SUBROUTINE ODESSA_INTDY -----------------------
74 END 74 END