| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 61 integer intfromfile(50) ! integers read from headers local
216 intfromfile=0
217 call readheader(descriptor,fname1//char(0),intfromfile,ithree,
219 if(intfromfile(1).ne.0) then
220 nshg2=intfromfile(1) !Do not use nshg and ndof from common.h here!
221 ndofybar=intfromfile(2)
250 intfromfile=0
251 call readheader(descriptor,fname1//char(0),intfromfile,ithree,
253 if(intfromfile(1).ne.0) then
254 nshg2=intfromfile(1)
[all …]
|
| /phasta/phSolver/common/ |
| H A D | genblkSyncIO.f | 19 integer, target :: intfromfile(50) ! integers read from headers local
54 intfromfile(:)=-1
58 & c_loc(intfromfile), iseven, dataInt, iotype)
59 neltp = intfromfile(1) ! -1 if fname2 was not found, >=0 otherwise
83 & c_loc(intfromfile), iseven, dataInt, iotype)
84 neltp =intfromfile(1)
85 nenl =intfromfile(2)
86 ipordl =intfromfile(3)
87 nshl =intfromfile(4)
88 ijunk =intfromfile(5)
[all …]
|
| H A D | genblk.f | 19 integer, target :: intfromfile(50) ! integers read from headers local
54 intfromfile(:)=-1
65 & c_loc(intfromfile), iseven, dataInt, iotype)
66 neltp = intfromfile(1) ! -1 if fname2 was not found, >=0 otherwise
92 & c_loc(intfromfile), iseven, dataInt, iotype)
93 neltp =intfromfile(1)
94 nenl =intfromfile(2)
95 ipordl =intfromfile(3)
96 nshl =intfromfile(4)
97 ijunk =intfromfile(5)
[all …]
|
| H A D | genbkb.f | 21 integer, target :: intfromfile(50) ! integers read from headers local
61 intfromfile(:)=-1
70 & c_loc(intfromfile), ieight, dataInt, iotype)
71 neltp = intfromfile(1) ! -1 if fname2 was not found, >=0 otherwise
95 & c_loc(intfromfile), ieight, dataInt, iotype)
96 neltp =intfromfile(1)
97 nenl =intfromfile(2)
98 ipordl=intfromfile(3)
99 nshl =intfromfile(4)
100 nshlb =intfromfile(5)
[all …]
|
| H A D | genbkbSyncIO.f | 21 integer, target :: intfromfile(50) ! integers read from headers local
61 intfromfile(:)=-1
67 & c_loc(intfromfile), ieight, dataInt, iotype)
68 neltp = intfromfile(1) ! -1 if fname2 was not found, >=0 otherwise
89 & c_loc(intfromfile), ieight, dataInt, iotype)
90 neltp =intfromfile(1)
91 nenl =intfromfile(2)
92 ipordl=intfromfile(3)
93 nshl =intfromfile(4)
94 nshlb =intfromfile(5)
[all …]
|
| H A D | genblkPosix.f | 19 integer, target :: intfromfile(50) ! integers read from headers local
43 & c_loc(intfromfile), iseven, dataInt, iotype)
44 neltp =intfromfile(1)
45 nenl =intfromfile(2)
46 ipordl =intfromfile(3)
47 nshl =intfromfile(4)
48 ijunk =intfromfile(5)
49 ijunk =intfromfile(6)
50 lcsyst =intfromfile(7)
|
| H A D | genbkbPosix.f | 21 integer, target :: intfromfile(50) ! integers read from headers local
48 & c_loc(intfromfile), ieight, dataInt, iotype)
49 neltp =intfromfile(1)
50 nenl =intfromfile(2)
51 ipordl=intfromfile(3)
52 nshl =intfromfile(4)
53 nshlb =intfromfile(5)
54 nenbl =intfromfile(6)
55 lcsyst=intfromfile(7)
56 numnbc=intfromfile(8)
[all …]
|
| H A D | readnblk.f | 56 integer, target :: intfromfile(50) ! integers read from headers local
247 & c_loc(intfromfile),itwo, dataDbl, iotype)
248 numnp=intfromfile(1)
341 & c_loc(intfromfile),ione, dataDbl, iotype)
345 nsecondrank=intfromfile(1)/numpbc
347 iBCinpsiz=intfromfile(1)
351 iBCinpsiz=intfromfile(1)
492 intfromfile=0
495 & c_loc(intfromfile), ithree, dataInt, iotype)
500 if(intfromfile(1).ne.0) then
[all …]
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 64 integer intfromfile(50) ! integers read from headers local
319 intfromfile=0
320 call readheader(descriptor,fname1//char(0) ,intfromfile,
326 if(intfromfile(1).ne.0) then
327 nshg2=intfromfile(1)
328 ndof2=intfromfile(2)
332 lstep=intfromfile(3)
373 intfromfile=0
374 call readheader(descriptor,fname1//char(0),intfromfile,
376 nshg2=intfromfile(1)
[all …]
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 62 integer :: intfromfile(50) ! integers read from headers local
332 intfromfile=0
333 call readheader(descriptor,fname1//char(0) ,intfromfile,
343 if(intfromfile(1).ne.0) then
344 nshg2=intfromfile(1)
345 ndof2=intfromfile(2)
346 lstep=intfromfile(3)
391 intfromfile=0
392 call readheader(descriptor,fname1//char(0),intfromfile,
396 ndofybar=intfromfile(2)
[all …]
|