BagaBaga
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Немного вопросов по ERRORS от Oracle Fortran
При компиляции
Код:
/opt/oracle/solarisstudio12.3/bin/f77 -c m6_98a.f -o m6_98a.o
|
выдает
Код:
path='arch\'
^
"m6_98a.f", Line = 32, Column = 12: ERROR: This token is missing the ' delimiter
...
i1=scan(FileName,'\',.true.)
^
"m6_98a.f", Line = 2284, Column = 24: ERROR: This token is missing the ' delimiter.
|
У него, получается, обратный слеш (\) - как в С, требует экранирования?
Добавлено:
akaGM, PGL1
Код:
SUBROUTINE GLOBRW(READFL,PGL1,KDFN,NPG,MDOR)
LOGICAL READFL
DIMENSION PGL1(NPG)
KZ=NPG/MDOR
KOST=NPG-KZ*MDOR
IF(KOST.NE.0)KZ=KZ+1
ISP=KDFN+1
K1=1
K2=MDOR
...
|
Добавлено:
open(4,
Код:
SUBROUTINE OpenMDF(POLE,MDOR)
C Model Data File opening
real POLE(1024)
open(4,FILE='MOD4',ACCESS='DIRECT',STATUS='OLD',RECL=4*1024)
read(4,REC=1) POLE
call RLABEL(POLE)
MDOR = POLE(82)
close(4)
open(4,FILE='MOD4',ACCESS='DIRECT',STATUS='OLD',RECL=4*MDOR)
return
end
|
Сначала есть "область заголовка", из которой читаются количества и размерности хранящихся там массивов данных. В самом начале лежит magic number (по нему проверяется, файл ли это модели)
Код:
SUBROUTINE RLABEL(POLE)
REAL POLE(1024),METKA(3)
DATA METKA/'GLOB','AL M','ODEL'/
DO 1 I=1,3
1 IF(POLE(1020+I).NE.METKA(I))STOP 'This is NOT Model data file!'
RETURN
END
|
|
Всего записей: 463 | Зарегистр. 14-11-2005 | Отправлено: 23:29 15-08-2012 | Исправлено: BagaBaga, 00:00 16-08-2012 |
|
