|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
Miriam
Joined: 17 Nov 2011 Posts: 15
|
Posted: Wed Nov 23, 2011 10:18 am Post subject: Case distinction, file creation and modification |
|
|
Hello guys,
I would like to check if a file exists, if it is the right calculation case. If it does not exist, it is created und results are stored in there.
This didnt work correctly, at least not when the file already exists.
Here is the code, I hope someone can help me:
Code: |
fexist = .FALSE.
fright = .FALSE.
fscat = .TRUE.
IF (fscat) THEN
INQUIRE (FILE = 'mie_scat_int.asc', EXIST=fexist)
IF (fexist) THEN
WRITE(*,*) 'mie_scat_int.asc already exists'
OPEN(20, FILE = 'mie_scat_int.asc', STATUS = 'UNKNOWN')
READ (20,*) dummy1
READ (20,*) dummy2
READ (20,*) dummy3
CLOSE (UNIT=20)
IF ((dummy1==alfamax).AND.(dummy2==alfares).AND.(dummy3==nn)) THEN
fright = .TRUE.
WRITE(*,*) 'mie file fits the present analysis'
ELSE
fright = .FALSE.
END IF
ENDIF
IF (fexist.AND.fright) THEN
WRITE (*,*) 'mie_scat_int.asc is read'
OPEN(20, FILE = 'mie_scat_int.asc', STATUS = 'UNKNOWN')
READ (20,*) dummy1
READ (20,*) dummy2
READ (20,*) dummy3
DO jj = 1,alfares
DO ii = 1,nn
READ (20,*) alfa(ii,jj), theta(ii), i1(ii,jj)
END DO
END DO
CLOSE (UNIT=20)
ELSE
WRITE (*,*) 'mie_scat_int.asc is created'
OPEN(20, FILE = 'mie_scat_int.asc', STATUS = 'UNKNOWN')
WRITE (20,*) alfamax
WRITE (20,*) alfares
WRITE (20,*) nn
DO ii = 1, nn
theta(ii) = (ii-1)*dang
END DO
|
|
|
Back to top |
|
|
johannes
Joined: 21 Jan 2011 Posts: 65 Location: Leimen, Germany
|
Posted: Wed Nov 23, 2011 6:40 pm Post subject: |
|
|
Your INQUIRE implies, that your FTN95 exe is executed from within the directory of the .asc file. Otherwise add the complete path, best like 'd:\...\mie_scat_int.asc' |
|
Back to top |
|
|
JohnCampbell
Joined: 16 Feb 2006 Posts: 2593 Location: Sydney
|
Posted: Thu Nov 24, 2011 1:56 am Post subject: |
|
|
Miriam,
I'd recommend that you include IOSTAT=error_code in each I/O statement and manage any non-zero error reports.
Another problem could be your access rights, as you may only have read access. This might be tested by including ACTION='READ' or STATUS='READONLY'.
Only a minor point, use a character variable to store the file name. This can make the code more robust.
You have gone through a range of testing the file accessibility. I'd review the order so you can report the likely access states that could exist.
Having just started to use Windows 7, I'm learning how to access files, in restricted areas. Previously I stored configuration files, like sdbg.ini, in c:\windows or c:\ but am now finding these files have restricted access.
I am looking for a more robust approach for these files in Windows 7.
John |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|