| /phasta/phSolver/compressible/ |
| H A D | elmgmr.f | 42 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
87 allocate (tmpshp(nshl,MAXQPT))
90 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
94 & tmpshp,
100 deallocate ( tmpshp )
148 allocate (tmpshp(nshl,MAXQPT))
151 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
156 & tmpshp,
168 deallocate ( tmpshp )
325 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
[all …]
|
| H A D | elmgmrpetsc.f | 52 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
101 allocate (tmpshp(nshl,MAXQPT))
104 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
108 & tmpshp,
114 deallocate ( tmpshp )
170 allocate (tmpshp(nshl,MAXQPT))
172 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
177 & tmpshp,
200 deallocate ( tmpshp )
341 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
[all …]
|
| H A D | elmmfg.f | 40 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
86 allocate (tmpshp(nshl,MAXQPT))
89 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
94 & tmpshp,
100 deallocate (tmpshp)
145 allocate (tmpshp(nshl,MAXQPT))
148 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
153 & tmpshp, tmpshgl,
159 deallocate (tmpshp)
|
| H A D | itrres.f | 32 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
72 allocate (tmpshp(nshl, MAXQPT))
75 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
80 & tmpshp, tmpshgl,
84 deallocate (tmpshp)
|
| H A D | vorticity.f | 13 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
38 allocate (tmpshp(nshl,MAXQPT))
40 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
48 call vortELE(y,x,tmpshp,tmpshgl,mien(iblk)%p,vortIntG,lpmassG)
50 deallocate(tmpshp)
|
| /phasta/phSolver/common/ |
| H A D | errorsmooth.f | 19 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
49 allocate (tmpshp(nshl,MAXQPT))
52 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
56 & tmpshp,
62 deallocate ( tmpshp )
|
| H A D | solvecon.f | 30 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
64 allocate (tmpshp(nshl,MAXQPT))
67 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
70 call volcon (y, x, tmpshp,
74 deallocate ( tmpshp )
|
| /phasta/phSolver/incompressible/ |
| H A D | errsmooth.f | 20 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
50 allocate (tmpshp(nshl,MAXQPT))
53 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
57 & tmpshp,
63 deallocate ( tmpshp )
|
| H A D | genlmass.f | 13 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
40 allocate (tmpshp(nshl,MAXQPT))
42 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
46 call AsImass (x, tmpshp,
50 deallocate ( tmpshp )
|
| H A D | elmgmr.f | 54 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
163 allocate (tmpshp(nshl,MAXQPT))
166 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
171 & tmpshp,
191 deallocate ( tmpshp )
|