| File |
Line number |
Procedure |
Code |
|
./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 |
259 |
MACHINE |
CHARACTER*1024 strTmp |
|
./eesupp/src/utils.F |
263 |
MACHINE |
strTmp = 'UNKNOWN' |
|
./eesupp/src/utils.F |
268 |
MACHINE |
CALL PXFGETENV('USER',iFirst,strTmp,ILast,Iend ) |
|
./eesupp/src/utils.F |
270 |
MACHINE |
CALL GETENV('USER',strTmp ) |
|
./eesupp/src/utils.F |
272 |
MACHINE |
IF ( strTmp .NE. ' ' ) THEN |
|
./eesupp/src/utils.F |
273 |
MACHINE |
iFirst = IFNBLNK(strTmp) |
|
./eesupp/src/utils.F |
274 |
MACHINE |
iLast = ILNBLNK(strTmp) |
|
./eesupp/src/utils.F |
277 |
MACHINE |
idString(iFree:) = strTmp(iFirst:iFirst+iEnd) |
|
./eesupp/src/utils.F |
285 |
MACHINE |
strTmp = 'UNKNOWN' |
|
./eesupp/src/utils.F |
288 |
MACHINE |
CALL PXFGETENV('HOST',iFirst,strTmp,ILast,Iend ) |
|
./eesupp/src/utils.F |
290 |
MACHINE |
CALL GETENV('HOST',strTmp ) |
|
./eesupp/src/utils.F |
292 |
MACHINE |
IF ( strTmp .NE. ' ' ) THEN |
|
./eesupp/src/utils.F |
293 |
MACHINE |
iFirst = IFNBLNK(strTmp) |
|
./eesupp/src/utils.F |
294 |
MACHINE |
iLast = ILNBLNK(strTmp) |
|
./eesupp/src/utils.F |
299 |
MACHINE |
idString(iFree:) = strTmp(iFirst:iFirst+iEnd) |