Searched defs:FindVX (Results 1 – 1 of 1) sorted by relevance
| /dports/science/atompaw/atompaw-4.1.1.0/src/ |
| H A D | exx_pseudo.F90 | 728 SUBROUTINE FindVX(mxloop,n,threshold,arg,trvx) subroutine
729 Integer, INTENT(IN) :: mxloop,n
730 REAL(8), INTENT(IN) :: threshold
731 REAL(8), INTENT(INOUT) :: arg(:)
732 REAL(8), INTENT(INOUT) :: trvx(:)
734 LOGICAL :: success
735 REAL(8) :: xxx
736 INTEGER :: loop,i
737 INTEGER, parameter :: mxl=50
738 REAL(8), parameter :: mix=0.2d0
[all …]
|