Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.6 by heimbach, Wed Jul 20 20:01:46 2005 UTC | revision 1.7 by heimbach, Fri Aug 19 18:01:29 2005 UTC | |
|---|---|---|
| # | Line 246 C Check first for global file with simpl | Line 246 C Check first for global file with simpl |
| 246 | ||
| 247 | C If negative check for global file with MDS name (ie. fName.data) | C If negative check for global file with MDS name (ie. fName.data) |
| 248 | if (.NOT. globalFile) then | if (.NOT. globalFile) then |
| 249 | write(dataFname(1:80),'(2a)') fName(1:IL),'.data' | write(dataFname(1:128),'(2a)') fName(1:IL),'.data' |
| 250 | inquire( file=dataFname, exist=exst ) | inquire( file=dataFname, exist=exst ) |
| 251 | if (exst) globalFile = .TRUE. | if (exst) globalFile = .TRUE. |
| 252 | endif | endif |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |