На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
  
    > вопрос по коду на Фортране
      есть следующий код на фортране
      ExpandedWrap disabled
        <br><br>DIMENSION COEF(7,2,3)<br>DATA COEF /2.0, 4,5......../<br>


      потом массив COEF используется следующим образом:

      ExpandedWrap disabled
        <br>E1=COEF(NQ, MTYP, 1)<br>E2=COEF(NQ, MTYP, 2)<br>E3=COEF(NQ, MTYP, 3)<br>

      NQ, MTYP - целочисленные величины
      Почему в описании массива три индекса, хотя инициализация линейная?
        Просто в Фортране не предусмотрена трехмерная инициализация.
          описание и инициализация выглядит вот так
          ExpandedWrap disabled
            <br>      DIMENSION  COEF(7,2,3)<br>      DATA COEF /2.0,4.5,7.333,10.42,13.7,17.15,1.0,<br>     1             2.0,12.0,24.0,37.89,53.33,70.08,87.97,<br>     1             3.0,6.0,9.167,12.5,15.98,1.0,1.0,<br>     1             12.0,24.0,37.89,53.33,70.08,87.97,1.0,<br>     1             1.,1.,0.5,0.1667,0.04133,0.008267,1.0,<br>     1             1.0,1.0,2.0,1.0,.3157,.07407,.0139/<br>

          при этом обращение к массиву
          ExpandedWrap disabled
            <br>EUP = COEF(NQ,MTYP,2)<br>E = COEF(NQ,MTYP,1)<br>EDWN = COEF(NQ,MTYP,3)<br>

          короче проблема в том, что если например
          NQ=5, MTYP=1
          какой элемент я получу в EUP = COEF(5,1,2)
          как разобраться с общим принципом привсвоеннияя в фортране?
            порядок - как и везде, начиная с младших индексов:
            1,1,1
            1,1,2
            1,1,3
            1,2,1
            1,2,2
            1,2,3
            2,1,1
            2,1,2
            2,1,3
            2,2,1
            2,2,2
            2,2,3
            3,1,1
            ......
            1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
            0 пользователей:


            Рейтинг@Mail.ru
            [ Script execution time: 0,0164 ]   [ 14 queries used ]   [ Generated: 19.05.24, 03:13 GMT ]