The OpenNET Project / Index page

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




Версия для распечатки Пред. тема | След. тема
Новые ответы [ Отслеживать ]
FORTRAN, !*! Новичек, 28-Мрт-05, 22:26  [смотреть все]
Привет всем!!!

Есть тестовая задача на фортране-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)

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

  • FORTRAN, !*! dimus, 09:35 , 29-Мрт-05 (1)
    А тут не может быть проблема в регистре букв? Или фортрану регистр побоку?
    • FORTRAN, !*! Новичек, 12:24 , 29-Мрт-05 (2)
      >А тут не может быть проблема в регистре букв? Или фортрану регистр
      >побоку?

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


  • FORTRAN, !*! denlu, 18:44 , 31-Мрт-05 (3)
    >Привет всем!!!
    >
    >Есть тестовая задача на фортране-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 на всякий.




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

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