24小时热门版块排行榜

>论坛更新日志 (3985)
>文献求助 (426)
>导师招生 (370)
>虫友互识 (364)
>休闲灌水 (242)
>考博 (168)
>硕博家园 (124)
>招聘信息布告栏 (116)
>博后之家 (96)
>论文投稿 (89)
>基金申请 (69)
>公派出国 (63)
>考研 (61)
>论文道贺祈福 (55)
>找工作 (45)
>教师之家 (37)

返回列表

田山东

捐助贵宾 (著名写手)

应助: 5 (幼儿园)
金币: 77
散金: 739
红花: 8
帖子: 1577
在线: 138.1小时
虫号: 800307
注册: 2009-06-28
性别: GG
专业: 基础物理学

[求助] openmpi应用出错：Error: Unexpected data declaration statement

原来带的例子运行的很好，例子如下：

C
C Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
C                      University Research and Technology
C                      Corporation.  All rights reserved.
C Copyright (c) 2006    Cisco Systems, Inc.  All rights reserved.
C
C Sample MPI "hello world" application in Fortran 77
C
      program main
      implicit none
      include 'mpif.h'
      integer ierr, rank, size

      call MPI_INIT(ierr)
      call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)
      call MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierr)


      print *, "Hello, world, I am ", rank, " of ", size
      call MPI_FINALIZE(ierr)

      end

我自己修改了下，只是在里面添加了几个数据类型，就提示出问题了.我修改的程序如下：



C
C Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
C                      University Research and Technology
C                      Corporation.  All rights reserved.
C Copyright (c) 2006    Cisco Systems, Inc.  All rights reserved.
C
C Sample MPI "hello world" application in Fortran 77
C
      program main
      implicit none
      include 'mpif.h'
      integer ierr, rank, size

      call MPI_INIT(ierr)
      call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)
      call MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierr)
      integer i,j,k
      real a1,a2
      a1=0.2
      do i=1,20
         do j=1,10
         a2=i*a1-j
         enddo
      enddo



      print *, a2, size
      call MPI_FINALIZE(ierr)

      end

出现问题如下：



ello_f77.f:17.72:

      integer i,j,k
                                                                     1
Error: Unexpected data declaration statement at (1)

.......下面还好几个，谁知道是怎么回事吗？该怎么修改呢？

回复此楼