46       subroutine Dirichlet2Neumann_faux(nscalar, itype, tmp)  argument
63       integer itype, nscalar  local
64       real*8 tmp(nscalar)
78       do i=1,nscalar 
85       if(nscalar.gt.24) then
90       do i=1,nscalar 
141       subroutine Dirichlet2Neumann(nscalar, itype, tmp)  argument
142       integer nscalar, itype  local
143       real*8 tmp(nscalar),foo
148       if(nscalar .eq. 1) then
151          call Dirichlet2Neumann_1(nscalar,itype,tmp)
154       elseif(nscalar.eq.2) then
155          call Dirichlet2Neumann_2(nscalar,itype,tmp)
157          write(*,*) 'FATAL ERROR: cannont handle ',nscalar,' scalars'
164       subroutine Dirichlet2Neumann_2(nscalar, itype, tmp)  argument
180       integer itype, nscalar  local
181       real*8 tmp(nscalar)
199       if(nscalar .ne. 2) then
201          write(*,*) 'You asked for ', nscalar
383       subroutine Dirichlet2Neumann_1(nscalar, itype, tmp)  argument
399       integer itype, nscalar  local
400       real*8 tmp(nscalar)
417       if(nscalar .ne. 1) then
419          write(*,*) 'You asked for ', nscalar