TREX/irpjast
1
0
Fork 0
mirror of https://github.com/TREX-CoE/irpjast.git synced 2024-07-03 09:56:11 +02:00
Code Issues Projects Releases Wiki Activity

Added input of nelec, nnuc, and initialization of typenuc_arr=1.

Browse Source
This commit is contained in:
vijay gopal chilkuri 2021-03-08 21:47:00 +01:00
parent e4fa71430c
commit e2f1404784
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
electrons.irp.f
View File

@ -3,7 +3,8 @@ BEGIN_PROVIDER [ integer, nelec ]
BEGIN_DOC
! Number of electrons
END_DOC
nelec = 10
!nelec = 10
read(*,*)nelec
END_PROVIDER
BEGIN_PROVIDER [ integer, nelec_up ]

6
nuclei.irp.f
View File

@ -3,7 +3,8 @@ BEGIN_PROVIDER [ integer, nnuc ]
BEGIN_DOC
! Number of nuclei
END_DOC
nnuc = 2
!nnuc = 2
read(*,*)nnuc
END_PROVIDER
@ -14,7 +15,8 @@ BEGIN_PROVIDER [ integer, typenuc ]
! Type of the nuclei
END_DOC
typenuc = 1
typenuc_arr = (/1, 1/)
!typenuc_arr = (/1, 1/)
typenuc_arr = 1
END_PROVIDER