Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [General] передача массива 
:(
    Опции темы
chipon
Дата 21.9.2009, 18:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 21.9.2009

Репутация: нет
Всего: нет



Как передать двумерный массив из одной подпрограммы в другую?
PM MAIL   Вверх
FCM
Дата 22.9.2009, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 461
Регистрация: 30.3.2009

Репутация: 8
Всего: 9



На фортране 77 возможно так (а лучше (точнее на порядок лучше) перейти на современный фортран-90/95/03)

Код

      PROGRAM A2P
      IMPLICIT NONE
      INTEGER R, C, I, J
      PARAMETER (R=2,C=3)
      INTEGER A(R,C)
      DO I = 1,R
        DO J = 1,C
          A(I,J) = 10*I+J
        END DO
      END DO
      CALL SHOW(A,R,C)
      END


Код

      SUBROUTINE SHOW(ARRAY, ROWS, COLS)
      IMPLICIT NONE
      INTEGER I, J, ROWS, COLS, ARRAY(ROWS, COLS)
      DO I = 1, ROWS
         WRITE(*,*) (ARRAY(I,J), J = 1, COLS)
      END DO
      END

PM MAIL   Вверх
chipon
Дата 22.9.2009, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 21.9.2009

Репутация: нет
Всего: нет



привет! а ты не знаешь как передать массив, если главный программный модуль зашит, а дописывать свою математику можно через SUBROUTINE программы, в данном случае используются з подпрограммы. и вроде все эти подпрограммы компилируются с главной , но на выходе результат 0.Почему? может знаешь?
PM MAIL   Вверх
FCM
Дата 22.9.2009, 19:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 461
Регистрация: 30.3.2009

Репутация: 8
Всего: 9



Слишком все неопределенно. 
Что такое главный программный модуль? Если что-то недоступно в исходниках, но предполагается для внешнего использования, то должно быть как-то задокументировано. Иначе откуда пользователям знать как оформлять подпрограммы.

PS/ Где-то был такой вопрос и касался он какого-то ПО из Сарова.
PM MAIL   Вверх
chipon
Дата 22.9.2009, 20:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 21.9.2009

Репутация: нет
Всего: нет



есть программа которая моделирует газодинамические процессы.в этой программе вся математика описана фортраном и зашита разработчиками, , а могу я сделать это через подпрограммы, которые предаставляет разработчик, вот в этих подпрограммах мне нужно передать массивы, в них уже есть переменные мне нужно правильно написать алгоритм передачи массива
PM MAIL   Вверх
FCM
Дата 23.9.2009, 09:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 461
Регистрация: 30.3.2009

Репутация: 8
Всего: 9



Цитата(chipon @  22.9.2009,  20:21 Найти цитируемый пост)
вот в этих подпрограммах мне нужно передать массивы, в них уже есть переменные мне нужно правильно написать алгоритм передачи массива 


Как выглядит интерфейс (объявление) подпрограммы и ее фрагмент, где предполагается задавать массив?
PM MAIL   Вверх
chipon
Дата 25.9.2009, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 21.9.2009

Репутация: нет
Всего: нет



давай я тебе на майл отправлю, а ты посмотришь,если время будет.
ps (работаю с программой не долго,а с программированием столкнулся 1раз.......)  smile 
PM MAIL   Вверх
FCM
Дата 25.9.2009, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 461
Регистрация: 30.3.2009

Репутация: 8
Всего: 9



Отправляй (в профиле есть опция), посмотрю на досуге
PM MAIL   Вверх
chipon
Дата 25.9.2009, 19:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 21.9.2009

Репутация: нет
Всего: нет



напиши e-mail, через профиль не передает!
PM MAIL   Вверх
FCM
Дата 25.9.2009, 20:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 461
Регистрация: 30.3.2009

Репутация: 8
Всего: 9



Проверь свою почту. Я через профиль послал тебе email
PM MAIL   Вверх
chipon
Дата 25.9.2009, 21:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 21.9.2009

Репутация: нет
Всего: нет



отправил лови
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Fortran | Следующая тема »


 




[ Время генерации скрипта: 0.0732 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.