Eugeen
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Мужики, помогите!
Вот примитивная программа:
Код:
PROGRAM Normalise
I M P L I C I T R E A L*8 ( A-H,O-Z)
PARAMETER (Nparm=22,Ntab=100)
R E A L*8 PROPRT (Nparm) , PROMAX(Nparm) , PROMIN(Nparm)
CHARACTER (17) STRING(Nparm)
IRZ=11
IRN=12
OPEN (IRZ,FILE='M:\UnNormalise9E1.txt'
* , recordtype='stream_LF')
C * , ACTION='READ')
OPEN (IRN,FILE='M:\Normalise10.TXT',recordtype='stream_lf')
C * ,SHARED,SHARE='DENYNONE',
C * POSITION='REWIND',STATUS='REPLACE')
READ (IRZ,41)(STRING(J), J=1,Nparm)
PRINT *,(STRING(J), J=1,Nparm)
WRITE (IRN,41)(STRING(J), J=1,Nparm)
DO 1 J=1,Nparm
PROMAX(J)=-1.D30
1 PROMIN(J)=1.D30
101 CONTINUE
READ (IRZ,42, END=102)(PROPRT(J), J=1,Nparm)
PRINT 42, (PROPRT(J), J=1,Nparm)
C WRITE(IRZ,42)(PROPRT(J), J=1,Nparm)
DO 11 M=1,Nparm
PROMAX(M)=MAX(PROMAX(M),PROPRT(M))
11 PROMIN(M)=MIN(PROMIN(M),PROPRT(M))
C WRITE(IRZ,
GO TO 101
102 CONTINUE
REWIND (IRZ)
READ (IRZ,41)STRING
201 CONTINUE
READ (IRZ,42, END=202)(PROPRT(J), J=1,Nparm)
Tmult=2.D0
DO 99 N=1,Nparm
99 PROPRT(N)=1.D0- Tmult*(PROMAX(N)-PROPRT(N))/(PROMAX(N)-PROMIN(N))
WRITE (IRN,42) (PROPRT(L), L=1,Nparm)
GO TO 201
202 CONTINUE
41 FORMAT(7A16,A17,4A16,A17,4A16,A17,4A16)
42 FORMAT(E15.9,6E16.9,E17.9,4E16.9,E17.9,4E16.9,E17.9,4E16.9)
C 43 FORMAT(
STOP 100
END |
Не могу понять, почему она требует открыть файл 'M:\UnNormalise9E1.txt' для записи, а если я разрешаю запись, то файл стирается! |
помогите, пожалуйстааааааа!!!!!
