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' для записи, а если я разрешаю запись, то файл стирается! |