The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"FORTRAN"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"FORTRAN" 
Сообщение от Новичек Искать по авторуВ закладки(??) on 28-Мрт-05, 22:26  (MSK)
Привет всем!!!

Есть тестовая задача на фортране-90.
Под Windows2000 идет всё нормально, в FreeBSD 5.3(gcc3.2.2)
выдает вот такую ошибку:

#f77 -ff90 /root/test.for

/root/test_unix/text22.for: In program `mtime':
/root/test_unix/text22.for:13:

          CALL DATE_AND_TIME(values = mydate)
               ^
Reference to intrinsic `DATE_AND_TIME' at (^) invalid -- one or more arguments have incorrect type
/root/test_unix/text22.for:13:
           CALL DATE_AND_TIME(values = mydate)
                1                    2
Invalid token at (2) in expression or subexpression at (1)
/root/test_unix/text22.for:41:
           CALL DATE_AND_TIME(values = mydate)
                ^
Reference to intrinsic `DATE_AND_TIME' at (^) invalid -- one or more arguments have incorrect type
/root/test_unix/text22.for:41:
           CALL DATE_AND_TIME(values = mydate)
                1                    2
Invalid token at (2) in expression or subexpression at (1)

Программа ни чего особенного не делает, выполняет некоторые математические операции, а для сравнения скорости с Windows2000 вначале и в конце расчёта  запрашивает время командой

integer*4 mydate(8)

CALL DATE_AND_TIME(values = mydate)

Помогите,а то весь день мучаюсь.

  Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

  • FORTRAN, dimus, 09:35 , 29-Мрт-05, (1)  
    • FORTRAN, Новичек, 12:24 , 29-Мрт-05, (2)  
  • FORTRAN, denlu, 18:44 , 31-Мрт-05, (3)  

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "FORTRAN" 
Сообщение от dimus Искать по авторуВ закладки(??) on 29-Мрт-05, 09:35  (MSK)
А тут не может быть проблема в регистре букв? Или фортрану регистр побоку?
  Удалить Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "FORTRAN" 
Сообщение от Новичек Искать по авторуВ закладки(??) on 29-Мрт-05, 12:24  (MSK)
>А тут не может быть проблема в регистре букв? Или фортрану регистр
>побоку?

Насчёт регистра не знаю(сам я пишу на С++), но при попытке писать большими буквами выдаёт тоже самое.


  Удалить Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "FORTRAN" 
Сообщение от denlu emailИскать по авторуВ закладки on 31-Мрт-05, 18:44  (MSK)
>Привет всем!!!
>
>Есть тестовая задача на фортране-90.
>Под Windows2000 идет всё нормально, в FreeBSD 5.3(gcc3.2.2)
>выдает вот такую ошибку:
>
>#f77 -ff90 /root/test.for
>
>/root/test_unix/text22.for: In program `mtime':
>/root/test_unix/text22.for:13:
>
>          CALL DATE_AND_TIME(values
>= mydate)
>            
>   ^
>Reference to intrinsic `DATE_AND_TIME' at (^) invalid -- one or more arguments
>have incorrect type
>/root/test_unix/text22.for:13:
>           CALL
>DATE_AND_TIME(values = mydate)
>            
>    1      
>          
>  2
>Invalid token at (2) in expression or subexpression at (1)
>/root/test_unix/text22.for:41:
>           CALL
>DATE_AND_TIME(values = mydate)
>            
>    ^
>Reference to intrinsic `DATE_AND_TIME' at (^) invalid -- one or more arguments
>have incorrect type
>/root/test_unix/text22.for:41:
>           CALL
>DATE_AND_TIME(values = mydate)
>            
>    1      
>          
>  2
>Invalid token at (2) in expression or subexpression at (1)
>
>Программа ни чего особенного не делает, выполняет некоторые математические операции, а для
>сравнения скорости с Windows2000 вначале и в конце расчёта  запрашивает
>время командой
>
>integer*4 mydate(8)
>
>CALL DATE_AND_TIME(values = mydate)
>
>Помогите,а то весь день мучаюсь.

у меня в коде вызов этой процедуры выглядит так
    character(80)           chtrash;
    integer                   iaDateAndTime(8);
...

call date_and_time(chtrash,chtrash,chtrash,iaDateAndTime);

Попробуй все-же явно указать первые три фактических аргумента и убери values = mydate на всякий.

  Удалить Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх


Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру