Searched refs:master_eunit (Results 1 – 2 of 2) sorted by relevance
| /dports/science/siesta/siesta-4.1.5/Src/ |
| H A D | iosockets.F90 | 89 character(len=unit_len),save:: master_eunit='unknown', & variable
188 master_eunit = ipi_eunit
191 call readbuffer(socket, master_eunit)
202 call MPI_Bcast(master_eunit, unit_len, MPI_Character,0, &
279 e = e * fdf_convfac( siesta_eunit, master_eunit )
280 f(:) = f(:) * fdf_convfac( siesta_eunit, master_eunit ) &
282 s(:) = s(:) * fdf_convfac( siesta_eunit, master_eunit ) &
333 write(*,'(/,a,f12.6)') myName// 'energy ('//trim(master_eunit)//') =', e
334 …write(*,'(a,/,(3f12.6))') myName//'stress ('//trim(master_eunit)//'/'//trim(master_xunit)//'^3) ='…
335 …write(*,'(a,/,(3f12.6))') myName//'forces ('//trim(master_eunit)//'/'//trim(master_xunit)//') =', f
|
| H A D | siesta_master.f90 | 148 character(len=32),save:: master_eunit = 'eV' ! Master's unit of energy variable
222 Etot = energy * fdf_convfac( siesta_eunit, master_eunit )
266 master_eunit = eunit
|