Searched refs:nscalar (Results 1 – 1 of 1) sorted by relevance
46 subroutine Dirichlet2Neumann_faux(nscalar, itype, tmp) argument63 integer itype, nscalar local64 real*8 tmp(nscalar)78 do i=1,nscalar 85 if(nscalar.gt.24) then90 do i=1,nscalar 141 subroutine Dirichlet2Neumann(nscalar, itype, tmp) argument142 integer nscalar, itype local143 real*8 tmp(nscalar),foo148 if(nscalar .eq. 1) then[all …]