Searched refs:wantednodes (Results 1 – 1 of 1) sorted by relevance
| /dports/science/atompaw/atompaw-4.1.1.0/src/ |
| H A D | pseudo.F90 | 2048 INTEGER :: nbase,lmax,l,io,irc,wantednodes,nb,n,icount local
2082 wantednodes=icount-1
2086 CALL bsolv(Grid,PS,io,wantednodes,irc_io(io))
2088 CALL bsolv(Grid,PS,io,wantednodes)
2134 SUBROUTINE bsolv(Grid,Pot,io,wantednodes,irc_io) argument
2137 INTEGER, INTENT(IN) :: io,wantednodes local
2185 WRITE(STD_OUT,*) 'in bsolv -- l, en, n',l,en,wantednodes
2207 IF (nodes.EQ.wantednodes) THEN
2228 ELSE IF(nodes.GT.wantednodes) THEN
2231 ELSE IF(nodes.LT.wantednodes) THEN
|