Автор Антон Филин задал вопрос в разделе Другие языки и технологии
Фортран 77. Нужна помощь!! и получил лучший ответ
Ответ от И.А. Голованов[гуру]
А чего ошибочного в IMPLICIT REAL*8(a-h,o-z) PARAMETER (n = 11) ?? IMPLICIT REAL*8(a-h,o-z) Объявляет что все переменные начинающиеся с букв (a-h,o-z) имеют тип REAL*8 разве что пробела вроде не хватает, но может он и не нужен, не помню IMPLICIT REAL*8 (a-h,o-z) А PARAMETER (n = 11) просто объявляет что есть такая константа n=11 Код программы - это не фортран77, это более поздние расширения тут я пас, лет 20 на фортране не программил -------DO i = ista, iend b(i) = i ENDDO ... CALL MPI_IRECV(b(ista-1), 1, MPI_REAL8, iprev, 1, MPI COMM_WORLD, irecv1, ierr) CALL MPI_IRECV(b(iend+1), 1, MPI_REAL8, inext, 1, MPI COMM_WORLD, irecv2, ierr) -------b(ista-1)и b(iend+1) вроде же не инициализировано? или MPI_IRECV туда значение вгоняет? и где проверка на попадание (ista-1)и (iend+1) в границу массива?
это всяко не 77-ой.. . такие длинные строки (в 72 позиции ну никак не полезут).. . и я не совсем уверен что означает prograMM с двумя MM затем, у вас в IF условиях знаки равенства то появляются то исчезают.. . короче у меня