Fortran API: formatting (https://github.com/pseewald/fprettify)

fortran/eccodes_f90_head.f90

@@ -24,7 +24,6 @@ module eccodes
   integer, parameter, public :: CODES_PRODUCT_GRIB = 1
   integer, parameter, public :: CODES_PRODUCT_BUFR = 2
 
-
   !> Create a new message in memory from an integer or character array containting the coded message.
   !>
   !> The message can be accessed through its ID and it will be available\n

fortran/eccodes_f90_int.f90

@@ -6,7 +6,6 @@
 ! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
 ! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
 
-
   !> Get the distinct values of the key in argument contained in the index. The key must belong to the index.
   !>
   !>
@@ -105,7 +104,6 @@
       codes_get_real8_array
   end interface codes_get
 
-
   !> Get the size of an array key.
   !>
   !> To get the size of a key representing an array.

fortran/eccodes_f90_long_int.f90

@@ -6,7 +6,6 @@
 ! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
 ! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
 
-
   !> Get the distinct values of the key in argument contained in the index. The key must belong to the index.
   !>
   !>

fortran/eccodes_f90_tail.f90

@@ -1096,7 +1096,6 @@ subroutine codes_bufr_new_from_file ( ifile, bufrid , status)
     call bufr_new_from_file(ifile, bufrid, status)
   end subroutine codes_bufr_new_from_file
 
-
   !> Create a new message in memory from a character array containting the coded message.
   !>
   !> The message can be accessed through its msgid and it will be available\n
@@ -1415,7 +1414,6 @@ subroutine codes_keys_iterator_rewind ( iterid, status )
     call grib_keys_iterator_rewind(iterid, status)
   end subroutine codes_keys_iterator_rewind
 
-
 ! BUFR keys iterator
 ! -----------------------
   !> Create a new iterator on the keys of a BUFR message.
@@ -1445,7 +1443,6 @@ subroutine codes_bufr_keys_iterator_new ( msgid, iterid, status )
     end if
   end subroutine codes_bufr_keys_iterator_new
 
-
   !> Advance to the next BUFR keys iterator value.
   !>
   !> @param iterid   keys iterator id created with @ref codes_bufr_keys_iterator_new
@@ -1463,7 +1460,6 @@ subroutine codes_bufr_keys_iterator_next (iterid , status)
     end if
   end subroutine codes_bufr_keys_iterator_next
 
-
   !> Get the name of a key from a BUFR keys iterator.
   !>
   !> If the status parameter (optional) is not given the program will exit with an error message\n
@@ -1528,8 +1524,6 @@ end subroutine codes_bufr_keys_iterator_get_name
     end if
   end subroutine codes_bufr_keys_iterator_delete
 
-
-
   !> Dump the content of a message.
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -1545,7 +1539,6 @@ subroutine codes_dump ( msgid , status)
     call grib_dump(msgid, status)
   end subroutine codes_dump
 
-
   !> Get the API version
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -1564,7 +1557,6 @@ subroutine codes_get_api_version(api_version, status)
     end if
   end subroutine codes_get_api_version
 
-
 !> Get the error message given an error code
 !>
 !> @param error          error code
@@ -1871,7 +1863,6 @@ subroutine codes_set_string_array ( msgid, key, value, status )
 
   end subroutine codes_set_string_array
 
-
   !> Get the integer array of values for a key from a message.
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -2103,7 +2094,6 @@ subroutine codes_get_real8_array ( msgid, key, value, status )
     end if
   end subroutine codes_get_real8_array
 
-
   !> Get a real(4) value of specified index from an array key.
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -2125,7 +2115,6 @@ subroutine codes_get_real4_element ( msgid, key, kindex,value, status )
     call grib_get_real4_element(msgid, key, kindex, value, status)
   end subroutine codes_get_real4_element
 
-
   !> Get a real(8) value of specified index from an array key.
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -2147,7 +2136,6 @@ subroutine codes_get_real8_element ( msgid, key, kindex,value, status )
     call grib_get_real8_element(msgid, key, kindex, value, status)
   end subroutine codes_get_real8_element
 
-
   !> Get the real(4) values whose indexes are stored in the array "index" from an array key.
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -2209,7 +2197,6 @@ subroutine codes_set_int ( msgid, key, value, status )
     call grib_set_int(msgid, key, value, status)
   end subroutine codes_set_int
 
-
   !> Set the integer value for a key in a message.
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -2229,7 +2216,6 @@ subroutine codes_set_long ( msgid, key, value, status )
     call grib_set_long(msgid, key, value, status)
   end subroutine codes_set_long
 
-
   !> Set the real(4) value for a key in a message.
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -2268,7 +2254,6 @@ subroutine codes_set_real8 ( msgid, key, value, status )
     call grib_set_real8(msgid, key, value, status)
   end subroutine codes_set_real8
 
-
   !> Set the integers values for an array key in a message.
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -2444,7 +2429,6 @@ subroutine codes_get_message_size_int  ( msgid, nbytes, status)
     call grib_get_message_size_int(msgid, nbytes, status)
   end subroutine codes_get_message_size_int
 
-
   !> Get the size of a coded message.
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -2513,7 +2497,6 @@ subroutine codes_grib_multi_write ( multigribid, ifile  , status)
     call grib_multi_write(multigribid, ifile, status)
   end subroutine codes_grib_multi_write
 
-
   !> Append a single field grib message to a multi field grib message.
   !> Only the sections with section number greather or equal "startsection" are copied from the input single message to the multi field output grib.
   !>
@@ -2605,7 +2588,6 @@ subroutine codes_grib_find_nearest_single(gribid,is_lsm,  &
                                   value, distance, kindex, status)
   end subroutine codes_grib_find_nearest_single
 
-
   !> Find the 4 nearest points of a latitude longitude point.
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -2641,7 +2623,6 @@ subroutine codes_grib_find_nearest_four_single(gribid,is_lsm, &
                                        value, distance, kindex, status)
   end subroutine codes_grib_find_nearest_four_single
 
-
   !> Turn on the support for multiple fields in a single message.
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -2765,7 +2746,6 @@ subroutine codes_skip_read_only  ( iterid, status )
     call grib_skip_read_only(iterid, status)
   end subroutine codes_skip_read_only
 
-
   !> Set the definition path
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -2796,7 +2776,6 @@ subroutine codes_set_samples_path ( path,  status )
     call grib_set_samples_path(path, status)
   end subroutine codes_set_samples_path
 
-
   subroutine codes_julian_to_datetime(jd, year, month, day, hour, minute, second, status)
     real(kind=kindOfDouble), intent(in)          :: jd
     integer(kind=kindOfLong), intent(out)         :: year, month, day, hour, minute, second
@@ -2881,5 +2860,4 @@ subroutine codes_bufr_multi_element_constant_arrays_off (status )
 
   end subroutine codes_bufr_multi_element_constant_arrays_off
 
-
 end module eccodes

fortran/grib_f90_head.f90

@@ -21,7 +21,6 @@ module grib_api
   real(8), parameter, public :: GRIB_MISSING_DOUBLE = -1.D+100
   integer(4), parameter, public :: GRIB_MISSING_LONG = 2147483647
 
-
   !> Create a new message in memory from an integer or character array containting the coded message.
   !>
   !> The message can be accessed through its gribid and it will be available\n

fortran/grib_f90_int.f90

@@ -6,7 +6,6 @@
 ! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
 ! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
 
-
   !> Get the distinct values of the key in argument contained in the index. The key must belong to the index.
   !>
   !>
@@ -103,7 +102,6 @@
       grib_get_real8_array
   end interface grib_get
 
-
   !> Get the size of an array key.
   !>
   !> To get the size of a key representing an array.

fortran/grib_f90_long_int.f90

@@ -6,7 +6,6 @@
 ! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
 ! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
 
-
   !> Get the distinct values of the key in argument contained in the index. The key must belong to the index.
   !>
   !>

fortran/grib_f90_tail.f90

@@ -1338,7 +1338,6 @@
     end if
   end subroutine any_new_from_file
 
-
   !> Create a new message in memory from a character array containting the coded message.
   !>
   !> The message can be accessed through its gribid and it will be available\n
@@ -1432,7 +1431,6 @@
     end if
   end subroutine grib_new_from_samples
 
-
   !> Free the memory for the message referred as gribid.
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -1554,7 +1552,6 @@
     call grib_f_check(status, caller, string)
   end subroutine grib_check
 
-
   !> Get latitudes/longitudes/data values (real(4)).
   !>
   !> Latitudes, longitudes, data values arrays are returned.
@@ -2041,7 +2038,6 @@
     end if
   end subroutine grib_get_string
 
-
   !> Get the integer array of values for a key from a grib message.
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -3107,7 +3103,6 @@
     end if
   end subroutine grib_skip_coded
 
-
   !> Skip the duplicated keys in a keys iterator.
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will
@@ -3131,7 +3126,6 @@
     end if
   end subroutine grib_skip_duplicates
 
-
   !> Skip the read_only keys in a keys iterator.
   !>
   !> Read only keys cannot be set.