|
|
|
Открытие файла в Фортране
|
|||
|---|---|---|---|
|
#18+
Добрый день. Проблема простая, пришлось столкнуться с программой на фортране, там в одном модуле код filename='123.txt' OPEN(UNIT=12,ERR=70,STATUS='OLD',FILE=filename) понятно - открывается файл, но прогоняя отладчиком, при выполнении OPEN.. процесс зависает и всё, данный файл существует, находится там где надо, помогите разобраться. Заранее благодарен. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.05.2017, 11:32 |
|
||
|
Открытие файла в Фортране
|
|||
|---|---|---|---|
|
#18+
patrick1968, информации маловато. что на метке 70 находится? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.05.2017, 12:01 |
|
||
|
Открытие файла в Фортране
|
|||
|---|---|---|---|
|
#18+
на выход из модуля 70 write(*,72) 72 format('ВЫХОД ') END У меня сильные подозрения, что программа файл не находит, как это можно проверить? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.05.2017, 12:09 |
|
||
|
Открытие файла в Фортране
|
|||
|---|---|---|---|
|
#18+
patrick1968У меня сильные подозрения, что программа файл не находит, как это можно проверить? полный путь указать, права доступа проверить. одинхер виснуть не должна. без отладчика 'ВЫХОД ' - выводится? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.05.2017, 12:13 |
|
||
|
Открытие файла в Фортране
|
|||
|---|---|---|---|
|
#18+
нет не выводится, она тут же сообщает о каких-то косяках в др. модулях ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.05.2017, 12:25 |
|
||
|
Открытие файла в Фортране
|
|||
|---|---|---|---|
|
#18+
patrick1968она тут же сообщает о каких-то косяках в др. модулях читать внимательно что за косяки, куда деваться ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.05.2017, 13:28 |
|
||
|
Открытие файла в Фортране
|
|||
|---|---|---|---|
|
#18+
Изопропилполный путь указать, права доступа проверить. +1 Изопропилpatrick1968она тут же сообщает о каких-то косяках в др. модулях читать внимательно что за косяки, куда деваться+1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.05.2017, 15:28 |
|
||
|
Открытие файла в Фортране
|
|||
|---|---|---|---|
|
#18+
implicit none CHARACTER*100 filename filename='123.txt' OPEN(UNIT=12,ERR=70,STATUS='OLD',FILE=filename) goto 22 70 write(*,*)'No File' goto 33 22 write(*,*)'File Found' close(12) 33 end ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.05.2017, 16:57 |
|
||
|
|
start [/forum/topic.php?fid=16&fpage=21&tid=1340393]: |
0ms |
get settings: |
7ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
45ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
40ms |
get tp. blocked users: |
1ms |
| others: | 219ms |
| total: | 343ms |
| 0 / 0 |
