From 03ed90914e4714f641f1e90d261985209e7d0b9f Mon Sep 17 00:00:00 2001 From: Shahram Najm Date: Thu, 8 Jan 2015 13:24:05 +0000 Subject: [PATCH] ECC-13: partially reverted --- examples/F90/clone.f90 | 2 +- examples/F90/copy_message.f90 | 2 +- examples/F90/copy_namespace.f90 | 2 +- examples/F90/count_messages.f90 | 2 +- examples/F90/get.f90 | 2 +- examples/F90/get_data.f90 | 2 +- examples/F90/get_fortran.f90 | 2 +- examples/F90/get_pl.f90 | 2 +- examples/F90/get_pv.f90 | 2 +- examples/F90/get_set_uuid.f90 | 2 +- examples/F90/index.f90 | 2 +- examples/F90/iterator_fortran.f90 | 2 +- examples/F90/keys_iterator.f90 | 2 +- examples/F90/keys_iterator_fortran.f90 | 2 +- examples/F90/multi.f90 | 2 +- examples/F90/multi_fortran.f90 | 2 +- examples/F90/multi_write.f90 | 2 +- examples/F90/nearest.f90 | 2 +- examples/F90/new_from_file.f90 | 2 +- examples/F90/precision.f90 | 2 +- examples/F90/precision_fortran.f90 | 2 +- examples/F90/print_data.f90 | 2 +- examples/F90/print_data_fortran.f90 | 2 +- examples/F90/read_from_file.f90 | 2 +- examples/F90/read_message.f90 | 2 +- examples/F90/samples.f90 | 2 +- examples/F90/set.f90 | 2 +- examples/F90/set_bitmap.f90 | 2 +- examples/F90/set_fortran.f90 | 2 +- examples/F90/set_gvc.f90 | 2 +- examples/F90/set_missing.f90 | 2 +- examples/F90/set_missing_fortran.f90 | 2 +- examples/F90/set_pv.f90 | 2 +- 33 files changed, 33 insertions(+), 33 deletions(-) diff --git a/examples/F90/clone.f90 b/examples/F90/clone.f90 index 1572c5489..a800c3d46 100644 --- a/examples/F90/clone.f90 +++ b/examples/F90/clone.f90 @@ -14,7 +14,7 @@ ! ! program clone - use eccodes + use grib_api implicit none integer :: err,i,iret integer :: nx, ny diff --git a/examples/F90/copy_message.f90 b/examples/F90/copy_message.f90 index bcfbb1664..0a8694c13 100644 --- a/examples/F90/copy_message.f90 +++ b/examples/F90/copy_message.f90 @@ -13,7 +13,7 @@ ! ! program copy - use eccodes + use grib_api implicit none integer :: err, centre integer(kind=kindOfSize) :: byte_size diff --git a/examples/F90/copy_namespace.f90 b/examples/F90/copy_namespace.f90 index 29f457e1c..14fabadb6 100644 --- a/examples/F90/copy_namespace.f90 +++ b/examples/F90/copy_namespace.f90 @@ -12,7 +12,7 @@ ! ! program copy_namespace - use eccodes + use grib_api implicit none integer :: file1, file2, file3 integer :: igrib1,igrib2,igrib3 diff --git a/examples/F90/count_messages.f90 b/examples/F90/count_messages.f90 index 0cc3b0126..d1cbc5a36 100644 --- a/examples/F90/count_messages.f90 +++ b/examples/F90/count_messages.f90 @@ -10,7 +10,7 @@ ! ! program get - use eccodes + use grib_api implicit none integer :: ifile diff --git a/examples/F90/get.f90 b/examples/F90/get.f90 index 8cc4d9569..7c78d212d 100644 --- a/examples/F90/get.f90 +++ b/examples/F90/get.f90 @@ -11,7 +11,7 @@ ! ! program get - use eccodes + use grib_api implicit none integer :: ifile diff --git a/examples/F90/get_data.f90 b/examples/F90/get_data.f90 index a9862846d..ea84a0ac1 100644 --- a/examples/F90/get_data.f90 +++ b/examples/F90/get_data.f90 @@ -12,7 +12,7 @@ ! ! program get_data -use eccodes +use grib_api implicit none integer :: ifile integer :: iret,i diff --git a/examples/F90/get_fortran.f90 b/examples/F90/get_fortran.f90 index 4d936ba6a..8066f26f1 100644 --- a/examples/F90/get_fortran.f90 +++ b/examples/F90/get_fortran.f90 @@ -6,7 +6,7 @@ ! ! program get -use eccodes +use grib_api implicit none integer :: ifile diff --git a/examples/F90/get_pl.f90 b/examples/F90/get_pl.f90 index 706410110..bc0660e7d 100644 --- a/examples/F90/get_pl.f90 +++ b/examples/F90/get_pl.f90 @@ -12,7 +12,7 @@ ! ! program get_pl - use eccodes + use grib_api implicit none integer :: infile integer :: igrib diff --git a/examples/F90/get_pv.f90 b/examples/F90/get_pv.f90 index b8f28f60b..cda6708fa 100644 --- a/examples/F90/get_pv.f90 +++ b/examples/F90/get_pv.f90 @@ -13,7 +13,7 @@ ! ! program get_pv - use eccodes + use grib_api implicit none integer :: infile integer :: igrib diff --git a/examples/F90/get_set_uuid.f90 b/examples/F90/get_set_uuid.f90 index 066cc4d5a..63e149136 100644 --- a/examples/F90/get_set_uuid.f90 +++ b/examples/F90/get_set_uuid.f90 @@ -12,7 +12,7 @@ ! Original authors: Harald Anlauf, Doerte Liermann (DWD), Luis Kornblueh (MPIfM). ! program get_set_uuid - use eccodes + use grib_api implicit none integer :: infile, outfile integer :: igrib, ogrib diff --git a/examples/F90/index.f90 b/examples/F90/index.f90 index 87a2be8b8..530e114d3 100644 --- a/examples/F90/index.f90 +++ b/examples/F90/index.f90 @@ -13,7 +13,7 @@ ! ! program index - use eccodes + use grib_api implicit none integer :: iret diff --git a/examples/F90/iterator_fortran.f90 b/examples/F90/iterator_fortran.f90 index ca4122c27..181552811 100644 --- a/examples/F90/iterator_fortran.f90 +++ b/examples/F90/iterator_fortran.f90 @@ -8,7 +8,7 @@ ! ! program iterator -use eccodes +use grib_api implicit none integer :: ifile integer :: iret,iter diff --git a/examples/F90/keys_iterator.f90 b/examples/F90/keys_iterator.f90 index cb12b0012..e28a483c0 100644 --- a/examples/F90/keys_iterator.f90 +++ b/examples/F90/keys_iterator.f90 @@ -14,7 +14,7 @@ ! ! program keys_iterator - use eccodes + use grib_api implicit none character(len=20) :: name_space integer :: kiter,ifile,igrib,iret diff --git a/examples/F90/keys_iterator_fortran.f90 b/examples/F90/keys_iterator_fortran.f90 index a8f8022e4..61d720097 100644 --- a/examples/F90/keys_iterator_fortran.f90 +++ b/examples/F90/keys_iterator_fortran.f90 @@ -14,7 +14,7 @@ ! ! program keys_iterator - use eccodes + use grib_api implicit none integer :: kiter,ifile,igrib,iret character(len=256) :: key diff --git a/examples/F90/multi.f90 b/examples/F90/multi.f90 index 87b4aa2ff..b68457f8b 100644 --- a/examples/F90/multi.f90 +++ b/examples/F90/multi.f90 @@ -16,7 +16,7 @@ ! ! program multi - use eccodes + use grib_api implicit none integer :: iret diff --git a/examples/F90/multi_fortran.f90 b/examples/F90/multi_fortran.f90 index 43b994bd5..7d95a77d9 100644 --- a/examples/F90/multi_fortran.f90 +++ b/examples/F90/multi_fortran.f90 @@ -14,7 +14,7 @@ ! ! program multi - use eccodes + use grib_api implicit none integer :: iret diff --git a/examples/F90/multi_write.f90 b/examples/F90/multi_write.f90 index 93aa66739..078752e0c 100644 --- a/examples/F90/multi_write.f90 +++ b/examples/F90/multi_write.f90 @@ -15,7 +15,7 @@ ! ! program multi_write - use eccodes + use grib_api implicit none integer :: infile,outfile integer :: in_gribid,iret diff --git a/examples/F90/nearest.f90 b/examples/F90/nearest.f90 index bd7019aaf..c91ce22cc 100644 --- a/examples/F90/nearest.f90 +++ b/examples/F90/nearest.f90 @@ -13,7 +13,7 @@ ! ! program find - use eccodes + use grib_api implicit none integer :: npoints integer :: infile diff --git a/examples/F90/new_from_file.f90 b/examples/F90/new_from_file.f90 index 437942958..6aba32b5b 100644 --- a/examples/F90/new_from_file.f90 +++ b/examples/F90/new_from_file.f90 @@ -11,7 +11,7 @@ ! ! program new_from_file -use eccodes +use grib_api implicit none integer :: ifile integer :: iret diff --git a/examples/F90/precision.f90 b/examples/F90/precision.f90 index 339145e54..b5cb06f0e 100644 --- a/examples/F90/precision.f90 +++ b/examples/F90/precision.f90 @@ -13,7 +13,7 @@ ! ! program precision - use eccodes + use grib_api implicit none integer(kind = 4) :: size1 integer :: infile,outfile diff --git a/examples/F90/precision_fortran.f90 b/examples/F90/precision_fortran.f90 index e925beda7..9fd73e698 100644 --- a/examples/F90/precision_fortran.f90 +++ b/examples/F90/precision_fortran.f90 @@ -11,7 +11,7 @@ ! ! program precision - use eccodes + use grib_api implicit none integer(kind = 4) :: size integer :: infile,outfile diff --git a/examples/F90/print_data.f90 b/examples/F90/print_data.f90 index be2ac236d..422ac2bfa 100644 --- a/examples/F90/print_data.f90 +++ b/examples/F90/print_data.f90 @@ -12,7 +12,7 @@ ! ! program print_data -use eccodes +use grib_api implicit none integer :: ifile integer :: iret diff --git a/examples/F90/print_data_fortran.f90 b/examples/F90/print_data_fortran.f90 index 7ab9ec3c0..ac3aac117 100644 --- a/examples/F90/print_data_fortran.f90 +++ b/examples/F90/print_data_fortran.f90 @@ -13,7 +13,7 @@ ! ! program print_data_fortran -use eccodes +use grib_api implicit none integer :: ifile integer :: iret diff --git a/examples/F90/read_from_file.f90 b/examples/F90/read_from_file.f90 index f0198d41d..e5cf6f271 100644 --- a/examples/F90/read_from_file.f90 +++ b/examples/F90/read_from_file.f90 @@ -10,7 +10,7 @@ ! See GRIB-292 ! program read_from_file -use eccodes +use grib_api implicit none character(len=32) :: input_grib_file integer,dimension(26) :: message_lengths ! expected message lengths diff --git a/examples/F90/read_message.f90 b/examples/F90/read_message.f90 index 1c92a2111..7de8e2ebb 100644 --- a/examples/F90/read_message.f90 +++ b/examples/F90/read_message.f90 @@ -10,7 +10,7 @@ ! Description: how to get values using keys. ! program read_message -use eccodes +use grib_api implicit none integer :: ifile,ofile integer :: iret,igrib diff --git a/examples/F90/samples.f90 b/examples/F90/samples.f90 index ef2cf83f9..61d8c6060 100644 --- a/examples/F90/samples.f90 +++ b/examples/F90/samples.f90 @@ -11,7 +11,7 @@ ! ! program sample - use eccodes + use grib_api implicit none integer :: err integer :: outfile, infile, datafile diff --git a/examples/F90/set.f90 b/examples/F90/set.f90 index b8f0e8a88..499763d5e 100644 --- a/examples/F90/set.f90 +++ b/examples/F90/set.f90 @@ -13,7 +13,7 @@ ! ! program set - use eccodes + use grib_api implicit none integer(kind = 4) :: centre, date1 integer :: infile,outfile diff --git a/examples/F90/set_bitmap.f90 b/examples/F90/set_bitmap.f90 index 02dceba84..0718b7898 100644 --- a/examples/F90/set_bitmap.f90 +++ b/examples/F90/set_bitmap.f90 @@ -13,7 +13,7 @@ ! ! program set_bitmap - use eccodes + use grib_api implicit none integer :: infile,outfile integer :: igrib, iret diff --git a/examples/F90/set_fortran.f90 b/examples/F90/set_fortran.f90 index e025a74e5..4bd724b36 100644 --- a/examples/F90/set_fortran.f90 +++ b/examples/F90/set_fortran.f90 @@ -10,7 +10,7 @@ ! ! program set - use eccodes + use grib_api implicit none integer :: err integer(kind = 4) :: centre diff --git a/examples/F90/set_gvc.f90 b/examples/F90/set_gvc.f90 index ca832cefb..a53d92e19 100644 --- a/examples/F90/set_gvc.f90 +++ b/examples/F90/set_gvc.f90 @@ -13,7 +13,7 @@ ! ! program set - use eccodes + use grib_api implicit none integer(kind = 4) :: NV integer :: infile,outfile diff --git a/examples/F90/set_missing.f90 b/examples/F90/set_missing.f90 index 7a713b3d6..bd872d00b 100644 --- a/examples/F90/set_missing.f90 +++ b/examples/F90/set_missing.f90 @@ -13,7 +13,7 @@ ! ! program set - use eccodes + use grib_api implicit none integer :: infile,outfile integer :: igrib, Ni, is_missing diff --git a/examples/F90/set_missing_fortran.f90 b/examples/F90/set_missing_fortran.f90 index 649fe2a4c..1eb4c5ea7 100644 --- a/examples/F90/set_missing_fortran.f90 +++ b/examples/F90/set_missing_fortran.f90 @@ -10,7 +10,7 @@ ! ! program set - use eccodes + use grib_api implicit none integer :: err integer :: len diff --git a/examples/F90/set_pv.f90 b/examples/F90/set_pv.f90 index ab0d4331e..8c069bdae 100644 --- a/examples/F90/set_pv.f90 +++ b/examples/F90/set_pv.f90 @@ -13,7 +13,7 @@ ! ! program set_pv - use eccodes + use grib_api implicit none integer :: numberOfLevels integer :: numberOfCoefficients