2013-03-25 12:04:10 +00:00
|
|
|
#!/bin/sh
|
2020-01-28 14:32:34 +00:00
|
|
|
# (C) Copyright 2005- ECMWF.
|
2013-03-25 12:04:10 +00:00
|
|
|
#
|
|
|
|
|
# This software is licensed under the terms of the Apache Licence Version 2.0
|
|
|
|
|
# which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
|
2013-03-25 14:23:07 +00:00
|
|
|
#
|
2013-03-25 12:04:10 +00:00
|
|
|
# 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.
|
2013-03-25 14:23:07 +00:00
|
|
|
#
|
2017-07-31 15:27:01 +00:00
|
|
|
set -e
|
2013-03-25 12:04:10 +00:00
|
|
|
same=`./same_int_long`
|
|
|
|
|
|
|
|
|
|
if [ $same -eq 1 ]
|
|
|
|
|
then
|
2013-06-28 17:52:17 +00:00
|
|
|
long=grib_f90_int.f90
|
2015-01-28 22:54:42 +00:00
|
|
|
ec_long=eccodes_f90_int.f90
|
2013-03-25 12:04:10 +00:00
|
|
|
else
|
2013-06-28 17:52:17 +00:00
|
|
|
long=grib_f90_long_int.f90
|
2015-01-28 22:54:42 +00:00
|
|
|
ec_long=eccodes_f90_long_int.f90
|
2013-03-25 12:04:10 +00:00
|
|
|
fi
|
2013-06-28 17:52:17 +00:00
|
|
|
|
|
|
|
|
same=`./same_int_size_t`
|
|
|
|
|
|
|
|
|
|
if [ $same -eq 1 ]
|
|
|
|
|
then
|
|
|
|
|
sizet=grib_f90_int_size_t.f90
|
2015-01-28 22:54:42 +00:00
|
|
|
ec_sizet=eccodes_f90_int_size_t.f90
|
2013-06-28 17:52:17 +00:00
|
|
|
else
|
|
|
|
|
sizet=grib_f90_long_size_t.f90
|
2015-01-28 22:54:42 +00:00
|
|
|
ec_sizet=eccodes_f90_long_size_t.f90
|
2013-06-28 17:52:17 +00:00
|
|
|
fi
|
|
|
|
|
|
2015-01-28 22:54:42 +00:00
|
|
|
cat grib_f90_head.f90 $long $sizet grib_f90_tail.f90 > grib_f90.f90
|
|
|
|
|
cat eccodes_f90_head.f90 $ec_long $ec_sizet eccodes_f90_tail.f90 > eccodes_f90.f90
|
