Searched refs:amesh_ (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/upflib/ |
| H A D | read_cpmd.f90 | 70 REAL (dp) :: amesh_, vnl0(0:3) local
127 READ (line,*,iostat=ios) mesh, amesh_
130 amesh_ = -1.0d0
205 READ (line,*,iostat=ios) mesh, amesh_
208 amesh_ = -1.0d0
225 CALL check_radial_grid ( amesh_, mesh, r, amesh )
614 REAL(dp), INTENT (in) :: amesh_, r(mesh) local
621 IF (amesh_ < 0.0d0) THEN
628 IF ( abs ( amesh - amesh_ ) > 1.0d-5 ) THEN
630 amesh = log(amesh_)
[all …]
|