| File |
Line number |
Procedure |
Code |
|
./verification/OpenAD/code_ad_openad/utils.F |
308 |
MACHINE |
CHARACTER*1024 strTmp |
|
./verification/OpenAD/code_ad_openad/utils.F |
312 |
MACHINE |
strTmp = 'UNKNOWN' |
|
./verification/OpenAD/code_ad_openad/utils.F |
317 |
MACHINE |
CALL PXFGETENV('USER',iFirst,strTmp,ILast,Iend ) |
|
./verification/OpenAD/code_ad_openad/utils.F |
319 |
MACHINE |
CALL GETENV('USER',strTmp ) |
|
./verification/OpenAD/code_ad_openad/utils.F |
321 |
MACHINE |
IF ( strTmp .NE. ' ' ) THEN |
|
./verification/OpenAD/code_ad_openad/utils.F |
322 |
MACHINE |
iFirst = IFNBLNK(strTmp) |
|
./verification/OpenAD/code_ad_openad/utils.F |
323 |
MACHINE |
iLast = ILNBLNK(strTmp) |
|
./verification/OpenAD/code_ad_openad/utils.F |
326 |
MACHINE |
idString(iFree:) = strTmp(iFirst:iFirst+iEnd) |
|
./verification/OpenAD/code_ad_openad/utils.F |
334 |
MACHINE |
strTmp = 'UNKNOWN' |
|
./verification/OpenAD/code_ad_openad/utils.F |
337 |
MACHINE |
CALL PXFGETENV('HOST',iFirst,strTmp,ILast,Iend ) |
|
./verification/OpenAD/code_ad_openad/utils.F |
339 |
MACHINE |
CALL GETENV('HOST',strTmp ) |
|
./verification/OpenAD/code_ad_openad/utils.F |
341 |
MACHINE |
IF ( strTmp .NE. ' ' ) THEN |
|
./verification/OpenAD/code_ad_openad/utils.F |
342 |
MACHINE |
iFirst = IFNBLNK(strTmp) |
|
./verification/OpenAD/code_ad_openad/utils.F |
343 |
MACHINE |
iLast = ILNBLNK(strTmp) |
|
./verification/OpenAD/code_ad_openad/utils.F |
348 |
MACHINE |
idString(iFree:) = strTmp(iFirst:iFirst+iEnd) |
|
./optim/utils.F |
187 |
MACHINE |
CHARACTER*1024 strTmp |
|
./optim/utils.F |
190 |
MACHINE |
strTmp = 'UNKNOWN' |
|
./optim/utils.F |
195 |
MACHINE |
CALL PXFGETENV('USER',iFirst,strTmp,ILast,Iend ) |
|
./optim/utils.F |
197 |
MACHINE |
CALL GETENV('USER',strTmp ) |
|
./optim/utils.F |
199 |
MACHINE |
IF ( strTmp .NE. ' ' ) THEN |
|
./optim/utils.F |
200 |
MACHINE |
iFirst = IFNBLNK(strTmp) |
|
./optim/utils.F |
201 |
MACHINE |
iLast = ILNBLNK(strTmp) |
|
./optim/utils.F |
204 |
MACHINE |
idString(iFree:) = strTmp(iFirst:iFirst+iEnd) |
|
./optim/utils.F |
212 |
MACHINE |
strTmp = 'UNKNOWN' |
|
./optim/utils.F |
215 |
MACHINE |
CALL PXFGETENV('HOST',iFirst,strTmp,ILast,Iend ) |
|
./optim/utils.F |
217 |
MACHINE |
CALL GETENV('HOST',strTmp ) |
|
./optim/utils.F |
219 |
MACHINE |
IF ( strTmp .NE. ' ' ) THEN |
|
./optim/utils.F |
220 |
MACHINE |
iFirst = IFNBLNK(strTmp) |
|
./optim/utils.F |
221 |
MACHINE |
iLast = ILNBLNK(strTmp) |
|
./optim/utils.F |
226 |
MACHINE |
idString(iFree:) = strTmp(iFirst:iFirst+iEnd) |
|
./eesupp/src/utils.F |
255 |
MACHINE |
CHARACTER*1024 strTmp |
|
./eesupp/src/utils.F |
259 |
MACHINE |
strTmp = 'UNKNOWN' |
|
./eesupp/src/utils.F |
264 |
MACHINE |
CALL PXFGETENV('USER',iFirst,strTmp,ILast,Iend ) |
|
./eesupp/src/utils.F |
266 |
MACHINE |
CALL GETENV('USER',strTmp ) |
|
./eesupp/src/utils.F |
268 |
MACHINE |
IF ( strTmp .NE. ' ' ) THEN |
|
./eesupp/src/utils.F |
269 |
MACHINE |
iFirst = IFNBLNK(strTmp) |
|
./eesupp/src/utils.F |
270 |
MACHINE |
iLast = ILNBLNK(strTmp) |
|
./eesupp/src/utils.F |
273 |
MACHINE |
idString(iFree:) = strTmp(iFirst:iFirst+iEnd) |
|
./eesupp/src/utils.F |
281 |
MACHINE |
strTmp = 'UNKNOWN' |
|
./eesupp/src/utils.F |
284 |
MACHINE |
CALL PXFGETENV('HOST',iFirst,strTmp,ILast,Iend ) |
|
./eesupp/src/utils.F |
286 |
MACHINE |
CALL GETENV('HOST',strTmp ) |
|
./eesupp/src/utils.F |
288 |
MACHINE |
IF ( strTmp .NE. ' ' ) THEN |
|
./eesupp/src/utils.F |
289 |
MACHINE |
iFirst = IFNBLNK(strTmp) |
|
./eesupp/src/utils.F |
290 |
MACHINE |
iLast = ILNBLNK(strTmp) |
|
./eesupp/src/utils.F |
295 |
MACHINE |
idString(iFree:) = strTmp(iFirst:iFirst+iEnd) |