Commit 9a62e04e authored by William Gropp's avatar William Gropp
Browse files

[svn-r9336] Added missing copyright info and standardize comment symbols for old f77 files

parent 4e1b5570
C -*- Mode: Fortran; -*-
C
C (C) 2004 by Argonne National Laboratory.
C See COPYRIGHT in top-level directory.
C
program main
include 'mpif.h'
integer atype, ierr
......
C -*- Mode: Fortran; -*-
C
C (C) 2010 by Argonne National Laboratory.
C See COPYRIGHT in top-level directory.
C
program main
include 'mpif.h'
integer ierr
......
! This program is Fortran version of dgraph_unwgt.c
! Specify a distributed graph of a bidirectional ring of the MPI_COMM_WORLD,
! i.e. everyone only talks to left and right neighbors.
C -*- Mode: Fortran; -*-
C
C (C) 2010 by Argonne National Laboratory.
C See COPYRIGHT in top-level directory.
C
C This program is Fortran version of dgraph_unwgt.c
C Specify a distributed graph of a bidirectional ring of the MPI_COMM_WORLD,
C i.e. everyone only talks to left and right neighbors.
logical function validate_dgraph(dgraph_comm)
implicit none
......@@ -55,8 +60,8 @@
return
endif
! Check if the neighbors returned from MPI are really
! the nearest neighbors that within a ring.
C Check if the neighbors returned from MPI are really
C the nearest neighbors that within a ring.
call MPI_Comm_rank(MPI_COMM_WORLD, world_rank, ierr)
call MPI_Comm_size(MPI_COMM_WORLD, world_size, ierr)
......
! This program is Fortran version of dgraph_unwgt.c
! Specify a distributed graph of a bidirectional ring of the MPI_COMM_WORLD,
! i.e. everyone only talks to left and right neighbors.
C -*- Mode: Fortran; -*-
C
C (C) 2010 by Argonne National Laboratory.
C See COPYRIGHT in top-level directory.
C
C This program is Fortran version of dgraph_unwgt.c
C Specify a distributed graph of a bidirectional ring of the MPI_COMM_WORLD,
C i.e. everyone only talks to left and right neighbors.
logical function validate_dgraph(dgraph_comm)
implicit none
......@@ -56,8 +61,8 @@
return
endif
! Check if the neighbors returned from MPI are really
! the nearest neighbors that within a ring.
C Check if the neighbors returned from MPI are really
C the nearest neighbors that within a ring.
call MPI_Comm_rank(MPI_COMM_WORLD, world_rank, ierr)
call MPI_Comm_size(MPI_COMM_WORLD, world_size, ierr)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment