Searched refs:imax (Results 1 – 4 of 4) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | ludcmp.f | 39 imax=i
43 if (j.ne.imax) then
45 dum=aa(imax,k)
46 aa(imax,k)=aa(j,k)
50 vv(imax)=vv(j)
52 indx(j)=imax
|
| H A D | renum.f | 148 allocate (imax(nfint))
159 imax(jj) = (thmax-thmin)*xcyl(nrint(jj),1)/ds
160 do i=1,imax(jj)
163 & *cos(1.0*i/imax(jj)*(thmax-thmin)+thmin)
165 & *sin(1.0*i/imax(jj)*(thmax-thmin)+thmin)
169 & *cos(1.0*i/imax(jj)*(thmax-thmin)+thmin)
171 & *sin(1.0*i/imax(jj)*(thmax-thmin)+thmin)
284 allocate (imax(nfint))
295 imax(jj) = s
296 do i=1,imax(jj)
|
| H A D | spebc.f | 14 integer, allocatable :: nrint(:), imax(:) variable
|
| H A D | genscale.f | 74 do j=1,imax(i)+1
81 velbarR(i,:)=velbarR(i,:) / (imax(i)+1)
|