| /dports/math/cmlib/cmlib-3.0_8/src/uncmin/ |
| H A D | dogstp.f | 1 SUBROUTINE DOGSTP(NR,N,G,A,P,SX,RNWTLN,DLT,NWTAKE,FSTDOG, argument
49 IF(RNWTLN.GT.DLT) GO TO 100
56 DLT=RNWTLN
98 200 IF(ETA*RNWTLN.GT.DLT) GO TO 220
105 SC(I)=(DLT/RNWTLN)*P(I)
144 + 18H DOGSTP RNWTLN=,E20.13/
|
| H A D | hookst.f | 1 SUBROUTINE HOOKST(NR,N,G,A,UDIAG,P,SX,RNWTLN,DLT,AMU, argument
48 IF(RNWTLN.GT.HI*DLT) GO TO 15
58 DLT=MIN(DLT,RNWTLN)
76 PHI=RNWTLN-DLT
87 PHIP0=-DNRM2(N,WRK0,1)**2/RNWTLN
|
| H A D | dogdrv.f | 55 RNWTLN=SQRT(TMP)
61 CALL DOGSTP(NR,N,G,A,P,SX,RNWTLN,DLT,NWTAKE,FSTDOG,
76 954 FORMAT(18H0DOGDRV RNWTLN=,E20.13)
|
| H A D | hookdr.f | 62 RNWTLN=SQRT(TMP)
98 CALL HOOKST(NR,N,G,A,UDIAG,P,SX,RNWTLN,DLT,AMU,
114 954 FORMAT(18H0HOOKDR RNWTLN=,E20.13)
|
| /dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
| H A D | optimi.F | 571 RNWTLN=SQRT(TMP)
646 IF(RNWTLN.GT.DLT) GO TO 100
653 DLT=RNWTLN
695 200 IF(ETA*RNWTLN.GT.DLT) GO TO 220
702 SC(I)=(DLT/RNWTLN)*P(I)
1186 RNWTLN=SQRT(TMP)
1222 CALL HOOKSZ(NR,N,G,A,UDIAG,P,SX,RNWTLN,DLT,AMU,
1298 IF(RNWTLN.GT.HI*DLT) GO TO 15
1308 DLT=MIN(DLT,RNWTLN)
1326 PHI=RNWTLN-DLT
[all …]
|
| H A D | dp7.F | 4176 RNWTLN=SQRT(TMP)
4182 CALL DOGSTP(NR,N,G,A,P,SX,RNWTLN,DLT,NWTAKE,FSTDOG,
4201 SUBROUTINE DOGSTP(NR,N,G,A,P,SX,RNWTLN,DLT,NWTAKE,FSTDOG, argument
4246 IF(RNWTLN.GT.DLT) GO TO 100
4253 DLT=RNWTLN
4295 200 IF(ETA*RNWTLN.GT.DLT) GO TO 220
4302 SC(I)=(DLT/RNWTLN)*P(I)
|
| H A D | dp40.F | 5395 RNWTLN=SQRT(TMP)
5431 CALL HOOKST(NR,N,G,A,UDIAG,P,SX,RNWTLN,DLT,AMU,
5451 SUBROUTINE HOOKST(NR,N,G,A,UDIAG,P,SX,RNWTLN,DLT,AMU, argument
5497 IF(RNWTLN.GT.HI*DLT) GO TO 15
5507 DLT=MIN(DLT,RNWTLN)
5525 PHI=RNWTLN-DLT
5536 PHIP0=-DNRM2(N,WRK0,1)**2/RNWTLN
|