Skip to content

Commit

Permalink
Enabled F function trap
Browse files Browse the repository at this point in the history
  • Loading branch information
Madu86 committed Sep 8, 2023
1 parent 0dc217c commit c1de288
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/basis.f90
Original file line number Diff line number Diff line change
Expand Up @@ -656,7 +656,7 @@ subroutine readbasis(natomxiao,natomstart,natomfinal,nbasisstart,nbasisfinal,ier
jshell = jshell+1
elseif (shell == 'F') then

!ierr=10
ierr=10

quick_basis%ktype(jshell) = 10
quick_basis%katom(jshell) = i
Expand Down

0 comments on commit c1de288

Please sign in to comment.