Searched refs:QUOT1 (Results 1 – 3 of 3) sorted by relevance
| /dports/science/siconos/siconos-4.4.0/externals/hairer/ |
| H A D | radau5.f | 506 QUOT1=1.D0
508 QUOT1=WORK(5)
515 IF (QUOT1.GT.1.0D0.OR.QUOT2.LT.1.0D0) THEN
516 WRITE(6,*)' CURIOUS INPUT FOR WORK(5,6)=',QUOT1,QUOT2
632 & NMAX,UROUND,SAFE,THET,FNEWT,QUOT1,QUOT2,NIT,IJOB,STARTN,
669 & NMAX,UROUND,SAFE,THET,FNEWT,QUOT1,QUOT2,NIT,IJOB,STARTN, argument
1063 IF ((X+HNEW/QUOT1-XEND)*POSNEG.GE.0.D0) THEN
1069 IF (THETA.LE.THET.AND.QT.GE.QUOT1.AND.QT.LE.QUOT2) GOTO 30
|
| H A D | radaup.f | 522 QUOT1=1.D0
524 QUOT1=WORK(5)
531 IF (QUOT1.GT.1.0D0.OR.QUOT2.LT.1.0D0) THEN
532 WRITE(6,*)' CURIOUS INPUT FOR WORK(5,6)=',QUOT1,QUOT2
645 & NMAX,UROUND,SAFE,THET,FNEWT,QUOT1,QUOT2,NIT,IJOB,STARTN,
680 & NMAX,UROUND,SAFE,THET,FNEWT,QUOT1,QUOT2,NIT,IJOB,STARTN, argument
1064 IF ((X+HNEW/QUOT1-XEND)*POSNEG.GE.0.D0) THEN
1070 IF (THETA.LE.THET.AND.QT.GE.QUOT1.AND.QT.LE.QUOT2) GOTO 30
|
| H A D | radau.f | 531 QUOT1=1.D0
533 QUOT1=WORK(5)
540 IF (QUOT1.GT.1.0D0.OR.QUOT2.LT.1.0D0) THEN
541 WRITE(6,*)' CURIOUS INPUT FOR WORK(5,6)=',QUOT1,QUOT2
675 & NMAX,UROUND,SAFE,THET,QUOT1,QUOT2,NIT,IJOB,STARTN,
700 & NMAX,UROUND,SAFE,THET,QUOT1,QUOT2,NIT1,IJOB,STARTN,NIND1, argument
1626 IF ((X+HNEW/QUOT1-XEND)*POSNEG.GE.0.D0) THEN
1632 IF (THETA.LE.THET.AND.QT.GE.QUOT1.AND.QT.LE.QUOT2) THEN
|