@@ -469,65 +469,7 @@ sub write_fortran_file {
469
469
470
470
# Create preprocessor files
471
471
472
- my $output = ' /* WARNING! THIS IS A GENERATED FILE!!
473
- * ANY EDITS YOU PUT HERE WILL BE LOST!
474
- * Instead, edit topdir/ompi/include/mpif-values.pl
475
- */
476
-
477
- /*
478
- * Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
479
- * University Research and Technology
480
- * Corporation. All rights reserved.
481
- * Copyright (c) 2004-2006 The University of Tennessee and The University
482
- * of Tennessee Research Foundation. All rights
483
- * reserved.
484
- * Copyright (c) 2004-2007 High Performance Computing Center Stuttgart,
485
- * University of Stuttgart. All rights reserved.
486
- * Copyright (c) 2004-2005 The Regents of the University of California.
487
- * All rights reserved.
488
- * Copyright (c) 2007-2009 Cisco Systems, Inc. All rights reserved.
489
- * Copyright (c) 2008-2009 Sun Microsystems, Inc. All rights reserved.
490
- * Copyright (c) 2009 Oak Ridge National Labs. All rights reserved.
491
- * Copyright (c) 2009-2012 Los Alamos National Security, LLC.
492
- * All rights reserved.
493
- * Copyright (c) 2016 Research Organization for Information Science
494
- * and Technology (RIST). All rights reserved.
495
- * $COPYRIGHT$
496
- *
497
- * Additional copyrights may follow
498
- *
499
- * $HEADER$
500
- */
501
-
502
- #ifndef USE_MPI_F08_CONSTANTS_H
503
- #define USE_MPI_F08_CONSTANTS_H
504
-
505
- ' ;
506
-
507
- foreach my $key (sort (keys (%{$constants }))) {
508
- $output .= " #define OMPI_$key $constants ->{$key }\n " ;
509
- }
510
- $output .= " \n " ;
511
- foreach my $key (sort (keys (%{$handles }))) {
512
- $output .= " #define OMPI_$key $handles ->{$key }\n " ;
513
- }
514
-
515
- foreach my $key (sort (keys (%{$io_constants }))) {
516
- $output .= " #define OMPI_$key $io_constants ->{$key }\n " ;
517
- }
518
- foreach my $key (sort (keys (%{$lio_constants }))) {
519
- $output .= " #define OMPI_$key $lio_constants ->{$key }\n " ;
520
- }
521
- $output .= " \n " ;
522
- foreach my $key (sort (keys (%{$io_handles }))) {
523
- $output .= " #define OMPI_$key $io_handles ->{$key }\n " ;
524
- }
525
- $output .= " \n " ;
526
- $output .= " #endif /* USE_MPI_F08_CONSTANTS_H */\n " ;
527
-
528
- write_file(" $topdir /ompi/mpi/fortran/use-mpi-f08/constants.h" , $output );
529
-
530
- $output = ' ! WARNING! THIS IS A GENERATED FILE!!
472
+ my $output = ' ! WARNING! THIS IS A GENERATED FILE!!
531
473
! ANY EDITS YOU PUT HERE WILL BE LOST!
532
474
! Instead, edit topdir/ompi/include/mpif-values.pl
533
475
!
0 commit comments