| File |
Line number |
Procedure |
Code |
|
./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) |
|
./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) |