Home
last modified time | relevance | path

Searched refs:itpblktot (Results 1 – 6 of 6) sorted by relevance

/phasta/phSolver/common/
H A Dgenblk.f24 integer, target :: itpblktot,ierr,iseven local
38 itpblktot=1 ! hardwired to montopology for now
41 & c_loc(itpblktot), ione, dataInt, iotype)
43 if (itpblktot == -1) then
68 itpblktot = iblk-1
72 write(*,*) 'Number of interior topologies: ',itpblktot
80 do iblk = 1, itpblktot
H A DgenblkSyncIO.f24 integer, target :: itpblktot,ierr,iseven local
38 itpblktot=-1
41 & c_loc(itpblktot), ione, dataInt, iotype)
43 if (itpblktot == -1) then
61 itpblktot = iblk-1
65 write(*,*) 'Number of interior topologies: ',itpblktot
76 do iblk = 1, itpblktot
H A DgenbkbSyncIO.f26 integer, target :: itpblktot,ierr local
45 itpblktot=-1
48 & c_loc(itpblktot), ione, dataInt, iotype)
50 if (itpblktot == -1) then
70 itpblktot = iblk-1
74 write(*,*) 'Number of boundary topologies: ',itpblktot
83 do iblk = 1, itpblktot
H A Dgenbkb.f26 integer, target :: itpblktot,ierr local
45 itpblktot=1 ! hardwired to monotopology for now
48 & c_loc(itpblktot), ione, dataInt, iotype)
50 if (itpblktot == -1) then
73 itpblktot = iblk-1
77 write(*,*) 'Number of boundary topologies: ',itpblktot
84 do iblk = 1, itpblktot
H A DgenblkPosix.f24 integer, target :: itpblktot,ierr,iseven local
H A DgenbkbPosix.f26 integer, target :: itpblktot,ierr local