Searched defs:wfnsrinit (Results 1 – 1 of 1) sorted by relevance
134 SUBROUTINE wfnsrinit(Grid,l,wfn,lwfn,istart) subroutine137 Type(GridInfo), INTENT(IN) :: Grid138 INTEGER, INTENT(IN) :: l local139 REAL(8),INTENT(INOUT) :: wfn(:),lwfn(:)140 INTEGER, INTENT(OUT) :: istart164 End SUBROUTINE wfnsrinit argument