Searched refs:master_xunit (Results 1 – 2 of 2) sorted by relevance
| /dports/science/siesta/siesta-4.1.5/Src/ |
| H A D | iosockets.F90 | 90 master_xunit='unknown' variable
187 master_xunit = ipi_xunit
190 call readbuffer(socket, master_xunit)
200 call MPI_Bcast(master_xunit, unit_len, MPI_Character,0, &
241 write(*,'(/,4a,/,(3f12.6))') myName,'cell (',trim(master_xunit),') =', cell
242 write(*,'(4a,/,(3f12.6))') myName,'coords (',trim(master_xunit),') =', xa
246 cell = cell * fdf_convfac( master_xunit, siesta_xunit )
247 xa = xa * fdf_convfac( master_xunit, siesta_xunit )
281 / fdf_convfac( siesta_xunit, master_xunit )
283 / fdf_convfac( siesta_xunit, master_xunit )**3
[all …]
|
| H A D | siesta_master.f90 | 147 character(len=32),save:: master_xunit = 'Ang' ! Master's unit of length variable
249 coords = xa * fdf_convfac( master_xunit, siesta_xunit )
250 ucell = cell * fdf_convfac( master_xunit, siesta_xunit )
265 master_xunit = xunit
|