mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-02 11:25:26 +02:00
18 lines
397 B
Fortran
18 lines
397 B
Fortran
|
program print_hcc
|
||
|
|
implicit none
|
||
|
|
read_wf = .True.
|
||
|
|
touch read_wf
|
||
|
|
call test
|
||
|
|
end
|
||
|
|
subroutine test
|
||
|
|
implicit none
|
||
|
|
double precision :: accu
|
||
|
|
integer :: i,j
|
||
|
|
print*,'Z AU GAUSS MHZ cm^-1'
|
||
|
|
do i = 1, nucl_num
|
||
|
|
write(*,'(I2,X,F3.1,X,4(F16.6,X))')i,nucl_charge(i),spin_density_at_nucleous(i),iso_hcc_gauss(i),iso_hcc_mhz(i),iso_hcc_cm_1(i)
|
||
|
|
enddo
|
||
|
|
|
||
|
|
end
|
||
|
|
|