psmile.F90

Go to the documentation of this file.

! -----------------  PRISM module file psmile.F90 ---------------
!
! $Id: psmile.F90 3023 2011-03-17 10:21:20Z hanke $
! $Author: hanke $
!
!-----------------------------------------------------------------------
! Copyright 2006-2010, CERFACS, Toulouse, France.
! Copyright 2006-2010, SGI Germany, Munich, Germany.
! Copyright 2006-2010, NEC Europe Ltd., London, UK.
! All rights reserved. Use is subject to OASIS4 license terms.
!-----------------------------------------------------------------------
!BOP
!
! !MODULE: PSMILe
!
      Module PSMILe
!
! !USES:
!
!!    use MPI
      Use PSMILe_Common
      Use PSMILe_SMIOC, only : PSMILe_file_struct
      Use psmile_grid_reduced_gauss, only : reduced_gauss_grid_data
      Use PRISM_Constants, only : PRISM_Time_Struct
#ifdef __PSMILE_WITH_IO
      Use mpp_mod_oa
      Use mpp_domains_mod_oa
      Use mpp_io_mod_oa
#endif

!
! !DESCRIPTION:
!
! Derived types, global variables and interface used only by PSMILe routines
!
! !REVISION HISTORY:
!
!   Date      Programmer   Description
! ----------  ----------   -----------
! 01.12.03    H. Ritzdorf  created
! 06.02.09    J. Ghattas   extracted from previous psmile.F90
!
!EOP
! -----------------------------------------------------------------------

      Implicit None
!
! -----------------------------------------------------------------------
! Type definitions
! -----------------------------------------------------------------------

! =======================================================================
!
!
! Component definition
!
! status         : Status of the component information
!                  (see PSMILe statuses above)
!
! comp_name      : Component name
! global_comp_id : Global Id of the component
!                  Used to communicate with the coupler and
!                  used in PRISM_Enddef.
! n_grids        : Number of grids stored for the component
! comm_user      : Communicator returned for components in user applications
! comm             PSMILe internal communicator over the processes of
!                  the component.
! act_comm         PSMILe internal communicator over the processes of
!                  the active components.
! rank           : Rank of current process in communicator "comm"
! size           : Size of communicator "comm"
!
      Type Component

         Integer                 :: global_comp_id
         Integer                 :: status
         Integer                 :: n_grids
         Integer                 :: comm_user
         Integer                 :: comm
         Integer                 :: act_comm
         Integer                 :: comm_halo
         Integer                 :: rank
         Integer                 :: size

         Character(len=max_name) :: comp_name
      End Type Component

! =======================================================================
!
! Definition of Corners:
!
! nbr_corners : Number of corners needed to define a control volume
!
! shape       : Describing the shape of data arrays
!
! corners     : Coordinates of corners of control volumes
!
      Type Corner_Block

         Integer                   :: nbr_corners

         Integer                   :: corner_datatype

         Integer                   :: corner_shape (2, ndim_3d)

         Integer,          Pointer :: pole_array (:)

         Type (real_vector)        :: corners_real (ndim_3d)
         Type (dble_vector)        :: corners_dble (ndim_3d)
#if defined ( PRISM_QUAD_TYPE )
         Type (quad_vector)        :: corners_quad (ndim_3d)
#endif

      End Type Corner_Block

! =======================================================================
!
! Definition of Coordinate Points:
!
      Type Coords_Block

         Integer                   :: coords_datatype

         Integer                   :: actual_shape (2, ndim_3d)
         Integer                   :: coords_shape (2, ndim_3d)

         Type (real_vector)        :: coords_real (ndim_3d)
         Type (dble_vector)        :: coords_dble (ndim_3d)
#if defined ( PRISM_QUAD_TYPE )
         Type (quad_vector)        :: coords_quad (ndim_3d)
#endif
      End Type Coords_Block

! =======================================================================
!
!
! Derived type for Subgrids:
!
      Type Subgrid_Block

         Character (len=max_name)  :: short_name  ! from subgrid name
         Character (len=max_name)  :: long_name
!        Character (len=max_name)  :: units       ! probably not needed

         Integer                   :: nbr_subgrids

         Integer                   :: subgrid_datatype

         Integer                   :: subgrid_shape (2, max_dim)

         Real,             Pointer :: subgrid_real (:)

         Double Precision, Pointer :: subgrid_double (:)

#if defined ( PRISM_QUAD_TYPE )
         Real (kind=PRISM_QUAD_TYPE), Pointer :: subgrid_quad (:)
#endif
      End Type Subgrid_Block

! =======================================================================
!
!
! Derived type for vector grid points:
!
      Type Vector_Block

         Character (len=max_name)  :: short_name
         Character (len=max_name)  :: long_name

         Integer                   :: array_of_point_ids (3)
      End Type Vector_Block

! =======================================================================
!
!
! Derived types for halo grid points:
!
      Type Halo_Block

         Logical                   :: halo_local

         Integer                   :: halo_shape(2,ndim_3d)

         Type (real_vector)        :: halo_real (ndim_3d)
         Type (dble_vector)        :: halo_dble (ndim_3d)
#if defined ( PRISM_QUAD_TYPE )
         Type (quad_vector)        :: halo_quad (ndim_3d)
#endif
      End Type Halo_Block

      Type Halo_info

         Integer                   :: local_rank
         Integer                   :: local_block
         Integer                   :: remote_rank
         Integer                   :: remote_grid_id
         Integer                   :: remote_block
         Integer                   :: halo_size
         Integer                   :: send_range(2,ndim_3d)
         Integer                   :: global_range(2,ndim_3d)

      End Type Halo_info

! =======================================================================
!
!
! Derived type Grid:
!
! global_grid_id  : Global grid id (passed by Driver)
! status          : Status of the grid information
!                   (see PSMILe statuses above)
!
! comp_id         : Component Id
!
! grid_type       : PRISM integer named parameter describing the type of grid
! grid_name       : Grid name
!
! grid_shape      : valid range of the grid
!
! size            : Number of local points in the grid
!                   (i.e. the shape for blocks)
! global_size     : global size in each dimension
! partition       : offset of shape relative to the global index space
!                   (if it exists)
! star            : (Local) 'Connectivity' of method points of
!                   GaussReduced Grid with
!                   star (i, 1) = Index of northern neighbour of "i"-th point
!                   star (i, 2) = Index of southern neighbour of "i"-th point
!                   star (i, 3) = Index of latitude (j-row)   of "i"-th point
! g_irange        : (Local) Start/end index of latitude in
!                   GaussReduced Grid with
!                   g_irange (j, 1) = (Local) Start index of "j"-th latitude
!                   g_irange (j, 2) = (Local) End   index of "j"-th latitude
!                   Dimension: g_irange (nbr_lats, 2)
!                   with nbr_lats = size(grid_pointer%extent(:,1))
!                                 = (Local) Number of Latitudes
!
! corner_pointer  : Pointer to the specific data of the corners
! gcorner_pointer : Pointer to the auxillary gauss grid corners
! used_for_coupling : Flag indicating whether the grid is used for coupling
!
! pole_covered    : indicated through SMIOC, either true (psmile_true = 1)
!                                               or false (psmile_false = 0)
!
! smioc_index     : Link to the data structure comming form SMIOC
!
! mg_infos        : Info's to grids generated for search of
!                          neighbouring cells/points.
! nlev            : Number of MG levels generated.
! ijk0            : Index of the logical grid cell (0,0,0) of midp, ...
!
! cyclic          : Does the block have cyclic coordinates
!                        in the corresponding direction ?
! periodic        : Does the (partitioned) grid have periodic coordinates
!                        in the corresponding direction ?
! len_periodic    : (Global index) Length of periodic direction
!                   len_periodic (i) = 0 if not periodic in this direction
! nbr_halo_segments : number of differnt halo sections, size of derived type halo
!
! halo            : Derived type containing the halo info for the Grid
!
! assoc_grid_id   : grid_id of associated grid used in User-defined interpolations
!                   For geographical field, assoc_grid_id is the id of gridless grid
!                   In associated Gridless grid, assoc_grid_id is PRISM_Undefined
!
      Type Grid

         Integer                       :: global_grid_id
         Integer                       :: status
         Integer                       :: comp_id
         Integer                       :: grid_type
         Integer                       :: grid_shape (2, ndim_3d)
         Integer                       :: grid_structure
         Integer                       :: n_dim
         Integer (kind=int64)          :: size
         Integer (kind=int64)          :: global_size(ndim_3d)
         Logical                       :: used_for_coupling
         Logical                       :: used_for_io
         Logical                       :: pole_covered
         Integer                       :: smioc_index
         Character(len=max_name)       :: grid_name
         Type (Corner_Block), Pointer  :: corner_pointer

         Type (Enddef_mg), Pointer     :: mg_infos (:)
         Integer                       :: nlev
         Integer                       :: ijk0 (ndim_3d)

         Integer                       :: periodic(ndim_3d)
         Logical                       :: cyclic(ndim_3d)
         Integer                       :: len_periodic (ndim_3d)

         Integer                       :: nbr_halo_segments
         Type (Halo_info), Pointer     :: halo (:)
         !
         ! Specific for Gauss-reduced grids
         !
         type (reduced_gauss_grid_data):: reduced_gauss_data
         Integer                       :: nbr_latitudes
         Integer, Pointer              :: nbr_points_per_lat(:)
         Integer, Pointer              :: partition(:,:)
         Integer, Pointer              :: extent(:,:)
         Type (Corner_Block), Pointer  :: gcorner_pointer
         Integer, Pointer              :: star(:,:)
         Integer, Pointer              :: face(:,:)
         Integer, Pointer              :: global_beg(:)
         Integer, Pointer              :: global_end(:)
         Integer, Pointer              :: g2l(:,:)
         Integer, Pointer              :: l2g(:,:)
         Integer, Pointer              :: g_irange(:,:)

         Integer, Pointer              :: remote_index(:)
         Integer, Pointer              :: send_list(:)
         Integer, Pointer              :: recv_list(:)
         Type(integer_vector), Pointer :: get_list(:)
         Type(integer_vector), Pointer :: put_list(:)
         Type(integer_vector), Pointer :: put_loc_list(:)
         !
         ! Userdef interpolation : associated grid_id
         !
         Integer                       :: assoc_grid_id

      End Type Grid

! =======================================================================
!
!
! Derived type Method:
!
! status                  : Status of the method information
!                           (see PSMILe statuses above)
!
! grid_id                 : Grid Id
!
! used_for_coupling : Flag indicating whether the method is used for coupling
!
!
! previous_method_in_grid : points to the number of the previously
!                           defined method in this grid
!
! next_method_in_grid     : points to the number of the next
!                           defined method in this grid
!
! method_type             : PSMILe named integer to identify the method
!                           points, subgrid or vector.
!
! coords_pointer  : Pointer to the specific data of the coordinates
!
! subgrid_pointer : Pointer to the specific data of the subgrids
!
! vector_pointer  : Pointer to the specific data of the vector coordinate Ids
!
! n_send_info_direct  : Number of pieces of send information for direct
!                       sends to another component of an application process.
! n_send_info_coupler : Number of pieces of send information for transfers to
!                       a coupler process.
! n_recv_info_direct  : Number of pieces of receive information for direct
!                       receives from another component of an
!                       application process.
! n_recv_info_coupler : Number of pieces of receive information for transfers
!                       from a coupler process.
! n_send_info_appl    : Number of pieces of send information for transfers
!                       to an application process (global search)
!
! send_infos_direct  : Send    information for direct transfer to an
!                      application process
! recv_infos_direct  : Receive information for direct transfer from an
!                      application process
! send_infos_coupler : Send    information for  transfer to   a coupler process.
! recv_infos_coupler : Receive information for  transfer from a coupler process.
!
! gauss2_dble/real   : Container for remote coordinates
!
      Type Method

         Character (len=max_name)      :: point_name

         Integer                       :: status
         Integer                       :: grid_id
         Integer                       :: previous_method_in_grid
         Integer                       :: next_method_in_grid
         Integer                       :: method_type

         Integer                       :: size
         Logical                       :: used_for_coupling

         Integer                       :: n_send_info_direct
         Integer                       :: n_send_info_coupler
         Integer                       :: n_recv_info_direct
         Integer                       :: n_recv_info_coupler
         Integer                       :: n_send_info_appl

         Integer                       :: n_alloc_send_direct
         Integer                       :: n_alloc_send_coupler
         Integer                       :: n_alloc_recv_direct
         Integer                       :: n_alloc_recv_coupler
         Integer                       :: n_alloc_send_appl

         Type (Coords_Block),  Pointer :: coords_pointer
         Type (Subgrid_Block), Pointer :: subgrid_pointer
         Type (Vector_Block), Pointer  :: vector_pointer
         Type (Halo_Block), Pointer    :: halo_pointer (:)

         Type (Send_information), Pointer :: send_infos_direct  (:)
         Type (Send_information), Pointer :: send_infos_coupler (:)
         Type (Recv_information), Pointer :: recv_infos_direct  (:)
         Type (Recv_information), Pointer :: recv_infos_coupler (:)
         Type (Send_appl_information), Pointer :: send_infos_appl (:)

         Type (real_vector)            :: gauss2_real(2)
         Type (dble_vector)            :: gauss2_dble(2)
#if defined ( PRISM_QUAD_TYPE )
         Type (quad_vector)            :: gauss2_quad(2)
#endif

      End Type Method
! =======================================================================
!
! Derived type Mask:
!
! status                  : Status of the method information
!                           (see PSMILe statuses above)
!
! mask_shape              : actual range of the mask array
!
      Type Mask

         Integer          :: status
         Integer          :: grid_id
         Integer          :: mask_type
         Integer          :: mask_shape (2, ndim_3d)
         Logical, Pointer :: mask_array (:)

      End Type Mask

! =======================================================================
#ifdef __PSMILE_WITH_IO
!
! Max. no. entries of the CF name table
!
      Integer,Parameter :: PSMILE_IO_MAX_NO_NAMES=100
!
! Max. IO unit allowed by the OS.
! (We should have a psmile_os.h!)
!
      Integer,Parameter :: PSMILE_IO_MAX_UNIT=299
!
! Max. file size threshold in kB
!
      Integer,Parameter :: PSMILE_IO_MAX_FILE_SIZE=1024*1024
!
! The total number of reserved units.
!
      Integer,Parameter :: PSMILE_IO_MAX_RESERVED_UNITS=5
!
! Reserved IO units. Keeps the IO units used for read(*),write(*) or
! vital I/O units used during the course of a simulation.
!
      Integer :: 
      IO_res_units(PSMILE_IO_MAX_RESERVED_UNITS)=(/100,101,102,103,104/)
!
!  Internal stack for the MPP domains module
!
      Integer,Parameter :: PSMILE_IO_stackmaxd=512*512*64
!
!  Internal stack for MPP io module
!
      Integer,Parameter :: PSMILE_IO_stackmax=512*512*64
!
! Some named integers to trigger certain inquire or get actions on SCC/SMIOC
! informations
!
      Integer, Parameter :: PSMILe_IO_GET_FILENAME    = 1000
      Integer, Parameter :: PSMILe_IO_GET_FILEUNIT    = 1001
      Integer, Parameter :: PSMILe_IO_GET_ACTION      = 1002
      Integer, Parameter :: PSMILe_IO_GET_FORMAT      = 1003
      Integer, Parameter :: PSMILe_IO_GET_FILESET     = 1004
      Integer, Parameter :: PSMILe_IO_GET_THREADING   = 1005
      Integer, Parameter :: PSMILe_IO_GET_CFLNGNAME   = 1006
      Integer, Parameter :: PSMILe_IO_GET_CFSHRTNAME  = 1007
      Integer, Parameter :: PSMILe_IO_GET_CFUNITS     = 1008
      Integer, Parameter :: PSMILe_IO_GET_CFPOSITIVE  = 1009
      Integer, Parameter :: PSMILe_IO_GET_SENSE       = 1010
      Integer, Parameter :: PSMILe_IO_GET_PACK        = 1011
      Integer, Parameter :: PSMILe_IO_GET_TYPE_SPEC   = 1012
      Integer, Parameter :: PSMILe_IO_GET_SCALE       = 1013
      Integer, Parameter :: PSMILe_IO_GET_ADD         = 1014
      Integer, Parameter :: PSMILe_IO_GET_VALID_MIN   = 1015
      Integer, Parameter :: PSMILe_IO_GET_VALID_MAX   = 1016
      Integer, Parameter :: PSMILe_IO_GET_FILL        = 1017
      Integer, Parameter :: PSMILe_IO_GET_MISSING     = 1018
      Integer, Parameter :: PSMILe_IO_GET_NENTRIES    = 1019
      Integer, Parameter :: PSMILe_IO_GET_MENTRIES    = 1020
      Integer, Parameter :: PSMILe_IO_GET_LAGMODE     = 1021
      Integer, Parameter :: PSMILe_IO_GET_LAGWEIGHT   = 1022
      Integer, Parameter :: PSMILe_IO_GET_HEIGHTUNITS = 1023
      Integer, Parameter :: PSMILe_IO_GET_HEIGHTFORML = 1024
      Integer, Parameter :: PSMILe_IO_GET_HEIGHTSTDN  = 1025
      Integer, Parameter :: PSMILe_IO_GET_SUFFIX      = 1026
      Integer, Parameter :: PSMILe_IO_GET_CFIONAME    = 1027
      Integer, Parameter :: PSMILe_IO_GET_VCMPNAMES   = 1028
      Integer, Parameter :: PSMILe_IO_GET_BNDLNAMES   = 1029
      Integer, Parameter :: PSMILe_IO_GET_LONUNITS    = 1030
      Integer, Parameter :: PSMILe_IO_GET_LATUNITS    = 1031
!
! Derived Type IO_App_info
!
      Type IO_App_info
         Integer::comm
      End Type IO_App_info

      Type(IO_App_info)::IO_Apps_infos
!
! Derived Type IO_Comp_info
!
      Type IO_Comp_info
         Integer:: comm
         Integer,Pointer::pelist(:)
      End Type IO_Comp_info

      Type(IO_Comp_info),Allocatable::IO_Comps_infos(:)

!
! Derived Type IO_CF_maps
!
      Type IO_CF_maps
         Character(len=max_name) ::maps(PSMILE_IO_MAX_NO_NAMES)
         Integer  cf_tlb(PSMILE_IO_MAX_NO_NAMES)
      End Type IO_CF_maps
!
      Type(IO_CF_maps),Target :: cf_maps
!
! Derived Type IO_CF_names
!
      Type IO_CF_names
         Character(len=max_name) :: names(PSMILE_IO_MAX_NO_NAMES)
         Integer  cf_tlb(PSMILE_IO_MAX_NO_NAMES)
      End Type IO_CF_names
!
      Type(IO_CF_names),Target :: cf_names
!
! Derived Type IO_cache
!
      Type IO_Cache
         Double Precision,Dimension(:),Pointer::time_stamps
         Double Precision         :: ju_sec_last,ju_day_last 
                                   , time_last
         Double Precision,Dimension(:),Pointer::data_dble
         Real            ,Dimension(:),Pointer::data_real
         Integer         ,Dimension(:),Pointer::data_int
         Integer :: ilast  ! Last lower index of a matching time intervall
         Logical :: llast  ! Flag to trigger end of file processing
      End Type IO_Cache

      Type(IO_Cache), Allocatable,Target::iocache(:)
!
! Derived Type IO_mpp_io
!
      Type IO_mpp_io
!
! Global data objects to keep axis and field definitions.
! Used by MPP_IO routines.
!
         Type(domain2D),Pointer,Dimension(:)::domain
         Type(domain1D),Pointer,Dimension(:)::xdom,ydom,zdom
!
! Global data objects to keep axis and field definitions.
! Used by MPP_IO routines.
!
         Type(fieldtype),Pointer,Dimension(:) :: ig_vars,field,latij,lonij 
                                                ,vertij,maskij,crnij,subaij
         Type(axistype),Pointer,Dimension(:)::x_axis,y_axis,z_axis,t_axis 
                                             ,b_axis,blk_axis,anaxis,crnaxis
         Type(atttype),Pointer,Dimension(:)::atts
         Integer :: findex(3)

      End Type IO_mpp_io
#endif

! =======================================================================
!
! Derived type IO_Data
!
      Type IO_Data
         Character (len=max_name) :: filename
         Integer                  :: taskid
         Integer                  :: file_unit
         Integer                  :: isuffix
         Integer                  :: action
         Integer                  :: Format
         Integer                  :: threading
         Integer                  :: fileset
         Integer                  :: status
         Logical                  :: done,opened
         Integer                  :: block_id
         Integer,Pointer          :: related_ids(:)
         Integer                  :: old_filesize
         Integer                  :: current_filesize
         Double Precision         :: ju_start_day,ju_start_sec
         Double Precision,Pointer :: fp_dble(:)
         Real,Pointer             :: fp_real(:)
         Integer,Pointer          :: fp_int(:)
!
         Character (len=max_name) :: cfioname
         Character (len=max_name) :: standard_name
         Character (len=max_name) :: long_name
         Character (len=max_name), Pointer :: labels(:)      ! For bundles !
         Character (len=max_name), Pointer :: vcmp_names(:)  ! For vectors !
         Character (len=max_name) :: units
         Character (len=max_name) :: lon_unit
         Character (len=max_name) :: lat_unit
         Character (len=max_name) :: positive
         Character (len=max_name) :: height_unit ! Where is the unit for height?
         Character (len=max_name) :: height_formular
         Character (len=max_name) :: height_stdname
         Integer                  :: sense
         Integer                  :: pack_mode
         Integer                  :: type_spec
         Integer                  :: ilag_mode
         Double Precision         :: scale,add
         Double Precision         :: valid_range(2),valid_min,valid_max
         Double Precision         :: fill_value,missing_value
         Double Precision         :: time_stamp
         Double Precision         :: weight
!
         Integer                  :: cf_name_tlb_entry(8)
         Integer                  :: cf_map_tlb_entry(8)

#ifdef __PSMILE_WITH_IO
         Type(IO_CF_names),Pointer      :: p_cf_names
         Type(IO_CF_maps),Pointer       :: p_cf_maps
         Type(IO_cache),Pointer         :: p_cache
         Type(IO_mpp_io),Pointer        :: p_mpp_io
#endif
      End Type IO_Data

! =======================================================================
!
! Derived Type PSMILe_Time_Struct
!
!   Time struct used internally by PSMILe. All PRISM time structs
!    are converted to PSMILe time struct where appropriate for further
!    processing

      Type PSMILe_Time_Struct
         Double Precision          :: days
         Double Precision          :: secs
      End Type PSMILe_Time_struct

! =======================================================================
!
! Derived Types for GridFunction
!
! origin_type         Input comes from component (PSMILe_comp)
!                     or file (PSMILe_file)
! remote_transi_id    Field id at the source/destination
!                     ? Was soll das sein ?
! global_transi_id    Global field id for transient_in/transient_out
! start_day           day lower bound for summation period
! end_day             day upper bound for summation period
! start_sec           second lower bound for summation period
! end_sec             second upper bound for summation period
! nsum                number of summations done
! Time_length         Length of time axis (number of coupling steps)
!                     for a job
! buffer_*            buffers for summation and other operation
!                     on input data
! delta_time          coupling frequency from SMIOC XML
! Judate_Axis         Array of length Time_length containing the
!                     coupling time steps
! Judate_Event        Time of next event for a particular field and channel
!
! Judate_Lbnd         Storage of lower date bound to chenck consistency
!                     between prism_put and prism_get
! Judate_Ubnd         Auxillary to check for time gaps in bounds
!                     between two consecutive call to put/get
!                     Storage of lower date bound to chenck consistency
!                     between prism_put and prism_get
!
      Type Interp_type
         Integer                     :: interp_type
         Integer, Dimension(3)       :: interp_meth
         Integer, Dimension(3)       :: arg1
         Integer, Dimension(3)       :: arg2
         Integer, Dimension(3)       :: arg3
         Integer, Dimension(3)       :: arg4
         Integer, Dimension(3)       :: arg5 ! use_masked for nnghbr3D/2D/1D
         Integer, Dimension(3)       :: arg6
         Integer, Dimension(3)       :: arg7
         Double Precision            :: arg8
         Character(len=max_name)     :: arg9
         Type (PSMILe_file_struct)   :: arg10
      End Type Interp_type

      Type Combi_type
         Character(len=max_name)      :: combi_name
         Character(len=max_name)      :: ext_mask_name
!RV         Type (PSMILe_file_struct)    :: ext_mask_file do we need this?
         Double Precision             :: combi_param
         Double Precision             :: scalar
         Integer                      :: location
         Integer                      :: operand
         Integer                      :: mask_type
         Integer                      :: combi_meth
      End Type Combi_type

      Type ch_ptr
         Integer                   :: origin_type
         Integer                   :: remote_transi_id
         Integer                   :: global_transi_id
         Integer                   :: remote_comp_id
!     if User defined interpolation
         Integer                   :: assoc_var_id
         Integer                   :: userdef_id
!
         Type (Interp_type)        :: interp
         Type (Combi_type)         :: combi
      End Type ch_ptr

      Type Taskin_type
         Double Precision          :: start_day
         Double Precision          :: end_day
         Double Precision          :: start_sec
         Double Precision          :: end_sec

         Integer                   :: nbr_inchannels
         Integer                   :: nsum
         Integer                   :: Time_length
         Integer, Pointer          :: buffer_int(:)
         Real, Pointer             :: buffer_real(:)
         Double Precision, Pointer :: buffer_dble(:)
#if defined ( PRISM_QUAD_TYPE )
         Real (kind=PRISM_QUAD_TYPE), Pointer :: buffer_quad(:)
#endif
         Type (PRISM_Time_Struct)  :: delta_time
         Type (PSMILe_Time_Struct) :: Judate_Start
         Type (PSMILe_Time_Struct) :: Judate_Stop
         Type (PSMILe_Time_Struct) :: Judate_Event
         Type (PSMILe_Time_Struct) :: Judate_Lbnd
         Type (PSMILe_Time_Struct) :: Judate_Ubnd
         Type (PSMILe_Time_Struct), Pointer   :: Judate_Axis(:)
         Type (ch_ptr), Pointer    :: In_channel(:)

         Integer                   :: n_recv_direct
         Integer                   :: n_recv_coupler

         Integer                   :: n_alloc_recv_direct
         Integer                   :: n_alloc_recv_coupler

         Type (Recv_field_information), Pointer :: recv_direct  (:)
         Type (Recv_field_information), Pointer :: recv_coupler (:)

      End Type Taskin_type

!........................................................................

      Type Taskout_type
         Integer                   :: origin_type
         Integer                   :: remote_transi_id
         Integer                   :: global_transi_id
         Integer                   :: remote_comp_id
!
!    Userdef ids (if interpolation is "user3D")
         Integer                   :: assoc_var_id
         Integer                   :: userdef_id

         Double Precision          :: start_day
         Double Precision          :: end_day
         Double Precision          :: start_sec
         Double Precision          :: end_sec
         Integer                   :: nsum
         Integer                   :: Time_length
         Integer, Pointer          :: buffer_int(:)
         Real, Pointer             :: buffer_real(:)
         Double Precision, Pointer :: buffer_dble(:)
#if defined ( PRISM_QUAD_TYPE )
         Real (kind=PRISM_QUAD_TYPE), Pointer :: buffer_quad(:)
#endif
         Type (PRISM_Time_Struct)  :: delta_time
         Type (PSMILe_Time_Struct) :: Judate_Start
         Type (PSMILe_Time_Struct) :: Judate_Stop
         Type (PSMILe_Time_Struct) :: Judate_Event
         Type (PSMILe_Time_Struct) :: Judate_Lbnd
         Type (PSMILe_Time_Struct) :: Judate_Ubnd
         Type (PSMILe_Time_Struct), Pointer   :: Judate_Axis(:)
         Type (Interp_type)        :: interp
         Type (Combi_type)         :: combi

         Integer                   :: n_send_direct
         Integer                   :: n_send_coupler
         Integer                   :: n_send_appl

         Integer                   :: n_alloc_send_direct
         Integer                   :: n_alloc_send_coupler
         Integer                   :: n_alloc_send_appl

         Type (Send_field_information), Pointer :: send_direct  (:)
         Type (Send_field_information), Pointer :: send_coupler (:)
         Type (Send_field_information), Pointer :: send_appl (:)

      End Type Taskout_type

!........................................................................
!
! Types for cell-based search
!
      Type memo
         Integer :: i
         Integer :: j
         Integer :: dir
         Logical :: overlap
      End Type memo

      Type point_real
         Real :: x
         Real :: y
      End Type point_real

      Type point_dble
         Double Precision :: x
         Double Precision :: y
      End Type point_dble

      Type line_dble
         Type(point_dble) :: p1
         Type(point_dble) :: p2
      End Type line_dble

      Type line_real
         Type(point_real) :: p1
         Type(point_real) :: p2
      End Type line_real

! =======================================================================
!
! Derived Type GridFunction
!
! global_var_id     : Global id of transient variable.
! local_name        : for matching with SMIO
!
! comp_id           : Handle to the component information.
! smioc_loc         : Element number in the SMIOC list
! grid_id           : Handle to the grid information.
!                     ?? Wieso steht die drin ? Ergibt die sich nicht aus der
!                        method_id ? Das gleiche fuer comp_id ?
! method_id         : Handle to the location where the grid function is defined.
! mask_id           : Handle to the mask information of variable.
!                     May be PRISM_UNDEFINED if a mask is not defined.
!
! transi_type       : Transient type (single/bundle/vector/vectorbundle)
!
! used_for_coupling : Flag indicating whether the field is used for coupling
! used_for_io       : Flag indicating whether the field is used for file IO
!
! Exchange data with fields of another component:
!
! n_send_direct     : Number of messages to be directly sent to an
!                     application process.
! n_send_coupler    : Number of messages to be sent to a coupler process.
!
! n_recv_direct     : Number of messages to be directly received by an
!                     application process.
! n_recv_coupler    : Number of messages to be received by an coupler process.
!
      Type GridFunction

         Integer                   :: global_var_id
         Integer                   :: smioc_loc
         Integer                   :: status
         Integer                   :: comp_id
         Integer                   :: method_id
         Integer                   :: mask_id
         Integer                   :: var_shape (2, max_dim)
         Integer                   :: transi_type
         Integer                   :: size
         Integer                   :: dataType

         Logical                   :: used_for_coupling
         Logical                   :: used_for_io

         Character (len=max_name)  :: local_name

         Type (Taskout_type), Pointer :: Taskout(:)
         Type (Taskin_type)           :: Taskin

         Type (IO_Data), Pointer          :: io_infos
         Type (IO_Data), Pointer          :: io_chan_infos(:)
         Integer, Pointer                 :: io_task_lookup(:)

      End Type GridFunction

! =======================================================================
!
! Derived type TimeStep
!
      Type TimeStep

          Integer           n_send
          Integer           n_recv
          Integer           n_write
          Integer           n_read

          Integer, Dimension (:), Pointer :: ids_send
          Integer, Dimension (:), Pointer :: ids_recv
          Integer, Dimension (:), Pointer :: ids_write
          Integer, Dimension (:), Pointer :: ids_read

      End  Type TimeStep

! =======================================================================
!
! Derived type GridConnection to store info about source and target grid relations
!
      Type GridConnection

         Integer :: status

         Integer :: tgt_comp_id
         Integer :: tgt_grid_id
         Integer :: tgt_method_id
         Integer :: tgt_mask_id

         Integer :: src_comp_id
         Integer :: src_grid_id
         Integer :: src_method_id
         Integer :: src_mask_id

         Integer :: trans_out
         Integer :: trans_in

         Integer :: interpolation(ndim_3d)

         Integer :: epio_id
         Integer :: trs_rank

         Integer :: tgt_epio_pe

      End Type GridConnection


! =======================================================================
!
! Derived type Userdef to store info on user-defined links for interpolation
!
! var_id            : global index in the Fields array of the geographic variable
!
! igl_grid_id       : grid id of the gridless grid built from the user defined links
!
! status            : status of this entry
!
! ig_transi_side    : 0 for the source side (Tranient Out)
!                     1 for the target side (Transient In)
!
! ig_nb_links       : number of links defined in the weight and addresses file
!
! ig_celldim        : number of dimensions of geographical cells
!                     (can be 1, 2 or 3, and depend on side)
!
! ig_nb_ppp         : number of links relevant to the partition of this PE
!
! ig_nbr_fields     : number of "bundles" of geographic function (>= 1)
!
! lg_nolink         : .true. for a PE having no geographic point in its partition
! (obsolete...)              to match with any user-defined link
!
! iga_igl(:,:)      : list of indexes of geographical grid (local to partition)
!                     the list of indexes stored in iga_igl concerns only one side
!                     either the source side (for the prism_put)
!                     or the target side (for the prism_get)
!
! iga_links(:)      : list of links defined by the user (local to partition)
!                     the list stored in iga_links concern only one side :
!                     either the source side, or the target side
!
! trans_grless(:,:,:,:) : Local non continuous gridless function based on
!                         the geographic function and the links in w&a file
!
      Type Userdef

        Integer :: var_id
        Integer :: igl_grid_id
        Integer :: status
        Integer :: ig_transi_side
        Integer :: ig_nb_links
        Integer :: ig_celldim
        Integer :: ig_nb_ppp
        Integer :: ig_nbr_fields

!       Logical :: lg_nolink

        Integer, pointer                  :: iga_igl(:,:)
        Real (PSMILe_float_kind), pointer :: dga_wght(:)
!
        REAL, pointer   :: real_gridless(:,:,:,:)
        DOUBLE PRECISION, pointer   :: dble_gridless(:,:,:,:)

      End Type Userdef

! =======================================================================
!
! Derived type PSMILe_Link  to store info about each link defined by user
!
! cell_id(3)        : indexes of the geographical cell in the 3 dimensions
!
! weight            : weight attached to the geographical field value

      Type PSMILe_Link

        Integer :: cell_id(3)
        Real (PSMILe_float_kind) :: weight

      End Type PSMILe_Link

! ----------------------------------------------------------------------------
! Global attributes
! ----------------------------------------------------------------------------

      Save
!
! Allocatable arrays:
!
! PRISM_applProc       : Number of processes per application with
!                        PRISM_applProc (0) = Number of Coupler processes
! PRISM_applName       : Names of the applications with
!                        PRISM_applName (0) = Name of the coupler
! PRISM_compName       : Names of the components
! PRISM_noCompsPerAppl : Nuber of components per application
!
! Appl                 : Pointer to application type vector
! Comps                : Pointer to component type vector
! Grids                : Pointer to grid type type vector
! Methods              : Pointer to method type vector
! Masks                : Pointer to mask type vector
! Fields               : Pointer to grid function type vector
! Cpl_list             : Pointer to coupling grid relations
!
! all_comp_infos       : Collected info's to all components within PRISM_Enddef.
! comp_infos           : Infos on the components (located on the actual process).
!                        The entries of "comp_info" are sorted by the
!                        global comp id.
! field2grid           : Mapping of global var id into global grid id
! paction              :
!
      Integer,                 Allocatable :: PRISM_applProc(:)
      Integer,                 Allocatable :: PRISM_noCompsPerAppl(:)

      Integer,                 Allocatable :: PRISM_compRankSets(:)
      Integer,                 Allocatable :: PRISM_rankSets(:,:)

      Character(len=max_name), Allocatable :: PRISM_applName(:)
      Character(len=max_name), Allocatable :: PRISM_compName(:)
!
      Type (Enddef_comp),      Allocatable, Target :: all_comp_infos(:)
      Type (Enddef_comp),      Allocatable, Target :: comp_infos(:)
      Type (Enddef_action)                 :: paction
      Integer,                 Allocatable :: field2grid (:)
!
! Pointers to dynamically allocated arrays
!
      Type (Component),        Pointer     :: Comps(:)
      Type (Grid),             Pointer     :: Grids(:)
      Type (Method),           Pointer     :: Methods(:)
      Type (Mask),             Pointer     :: Masks(:)
      Type (GridFunction),     Pointer     :: Fields(:)
      Type (Userdef),          Pointer     :: Userdefs(:)

      Type (TimeStep),         Pointer     :: Timesteps_info(:)
      Double Precision,        Pointer     :: Timesteps(:)

      Integer,                 Pointer     :: neighcells_3d(:,:,:)
      Type (GridConnection),   Pointer     :: cpl_list(:)
!
!-----------------------------------------------------------------------
! Interfaces of internal PSMILe routines
! ----------------------------------------------------------------------------

    Interface

      subroutine psmile_def_grid(grid_id, grid_name, comp_id, &
                                 grid_valid_shape, grid_type, ierror )

         character(len=*), intent(in) :: grid_name
         integer, intent (in)         :: comp_id
         integer, intent (in)         :: grid_valid_shape (1:2,*)
         integer, intent (in)         :: grid_type
         integer, intent (out)        :: grid_id
         integer, intent (out)        :: ierror
      end subroutine psmile_def_grid

      subroutine psmile_def_partition (grid_id, nbr_blocks, &
                                       partition_array, extent_array, ierror )
         integer, intent (in)  :: grid_id
         integer, intent (in)  :: nbr_blocks
         integer, intent (in)  :: partition_array(1:nbr_blocks,*)
         integer, intent (in)  :: extent_array(1:nbr_blocks,*)
         integer, intent (out) :: ierror
      end subroutine psmile_def_partition

      subroutine psmile_reducedgrid_map (grid_id, nbr_latitudes, &
                                         nbr_points_per_lat, ierror)
         integer, intent (in)  :: grid_id
         integer, intent (in)  :: nbr_latitudes
         integer, intent (in)  :: nbr_points_per_lat(nbr_latitudes)
         integer, intent (out) :: ierror
      end subroutine psmile_reducedgrid_map

      subroutine psmile_set_corners_3d_double(grid_id, nbr_corners, corners_actual_shape, &
               corners_1st_array, corners_2nd_array, corners_3rd_array, ierror)

         integer, intent (in)          :: grid_id
         integer, intent (in)          :: nbr_corners
         double precision, intent (in) :: corners_1st_array (*)
         double precision, intent (in) :: corners_2nd_array (*)
         double precision, intent (in) :: corners_3rd_array (*)
         integer, intent (in)          :: corners_actual_shape (1:2, *)
         integer, intent(out)          :: ierror
      end subroutine psmile_set_corners_3d_double

      subroutine psmile_set_corners_3d_real(grid_id, nbr_corners, corners_actual_shape, &
               corners_1st_array, corners_2nd_array, corners_3rd_array, ierror)

         integer, intent (in) :: grid_id
         integer, intent (in) :: nbr_corners
         real, intent (in)    :: corners_1st_array (*)
         real, intent (in)    :: corners_2nd_array (*)
         real, intent (in)    :: corners_3rd_array (*)
         integer, intent (in) :: corners_actual_shape (1:2, *)
         integer, intent(out) :: ierror
      end subroutine psmile_set_corners_3d_real

      subroutine psmile_set_mask (mask_id, grid_id, mask_actual_shape, &
                                  mask_array, new_mask, ierror)
         integer, intent(inout) :: mask_id
         integer, intent(in)    :: grid_id
         integer, intent(in)    :: mask_actual_shape(2, *)
         logical, intent(in)    :: mask_array (*)
         logical, intent(in)    :: new_mask
         integer, intent(out)   :: ierror
      end subroutine psmile_set_mask

      subroutine psmile_set_points_gridless (point_id, point_name, grid_id, &
                                             new_points, ierror)
         character (len=*), intent(in)    :: point_name
         integer,           intent(in)    :: grid_id
         integer,           intent(inout) :: point_id
         logical,           intent(in)    :: new_points
         integer,           intent(out)   :: ierror
      end subroutine psmile_set_points_gridless

      subroutine psmile_set_points_3d_double (method_id, point_name, grid_id, points_actual_shape, &
                           points_1st_array, points_2nd_array, points_3rd_array, new_points, ierror)
         character (len=*), intent(in):: point_name
         integer, intent(in)          :: grid_id
         integer, intent(inout)       :: method_id
         double precision, intent(in) :: points_1st_array(*)
         double precision, intent(in) :: points_2nd_array(*)
         double precision, intent(in) :: points_3rd_array(*)
         integer, intent(in)          :: points_actual_shape (2, *)
         logical, intent(in)          :: new_points
         integer, intent(out)         :: ierror
      end subroutine psmile_set_points_3d_double

      subroutine psmile_set_points_3d_real (method_id, point_name, grid_id, points_actual_shape, &
                           points_1st_array, points_2nd_array, points_3rd_array, new_points, ierror)
         character (len=*), intent(in) :: point_name
         integer, intent(in)           :: grid_id
         integer, intent(inout)        :: method_id
         real, intent(in)              :: points_1st_array(*)
         real, intent(in)              :: points_2nd_array(*)
         real, intent(in)              :: points_3rd_array(*)
         integer, intent(in)           :: points_actual_shape (2, *)
         logical, intent(in)           :: new_points
         integer, intent(out)          :: ierror
      end subroutine psmile_set_points_3d_real

      subroutine psmile_def_var (var_id, var_name, grid_id, point_id, mask_id, &
                                 var_nodims, var_actual_shape, var_type, ierror)
         character (len=*), intent (in) :: var_name
         integer, intent (in)           :: mask_id
         integer, intent (in)           :: point_id
         integer, intent (in)           :: grid_id
         integer, intent (in)           :: var_nodims(2)
         integer, intent (in)           :: var_actual_shape(1:2,1:var_nodims(1))
         integer, intent (in)           :: var_type
         integer, intent (out)          :: var_id
         integer, intent (out)          :: ierror
      end subroutine psmile_def_var

! Flush stdout/stderr

    subroutine psmile_flushstd ()
    End Subroutine

    subroutine psmile_redirstdout (charbuf, lenstr, parallel, my_pe, npes, ierror)
#ifdef NAG_COMPILER
       Character(len=*), Intent(In)   :: charbuf
#else
       Integer, Intent (In)           :: charbuf (*)
#endif
       Integer, Intent (In)           :: lenstr, parallel, my_pe, npes
       Integer, Intent (Out)          :: ierror
    End Subroutine

! Internal control

    subroutine psmile_assert (file, line, msg)
       Character (len=*), Intent (In) :: file, msg
       Integer, Intent (In)           :: line
    End Subroutine

   function psmile_transform_index_1d_to_3d (index_1d, array_shape)
      use psmile_common, only : ndim_3d
      integer, intent(in) :: index_1d
      integer, intent(in) :: array_shape (2, ndim_3d)
      integer :: psmile_transform_index_1d_to_3d (ndim_3d)
   end function psmile_transform_index_1d_to_3d

   function psmile_transform_index_3d_to_1d (index_3d, array_shape)
      use psmile_common, only : ndim_3d
      integer, intent(in) :: index_3d(ndim_3d)
      integer, intent(in) :: array_shape (2, ndim_3d)
      integer :: psmile_transform_index_3d_to_1d
   end function psmile_transform_index_3d_to_1d

    subroutine psmile_check_action ( var_id, task_id, precise, &
                                     julian_day, julian_dayb,  &
                                     julian_sec, julian_secb,  &
                                     action )
       Integer, Intent (In)  :: var_id
       Integer, Intent (In)  :: task_id
       Double Precision, Intent (In) :: julian_day, julian_dayb(2)
       Double Precision, Intent (In) :: julian_sec, julian_secb(2)
       Logical, Intent (In)  :: precise
       Logical, Intent (Out) :: action(3)
    End Subroutine

! Internal error handling

    subroutine psmile_error (ierror, string, ierrp, nerrp, file, line)
       Character (len=*), Intent (In) :: file, string
       Integer, Intent (In)           :: line, ierror, nerrp
       Integer, Intent (In)           :: ierrp (nerrp)
    End Subroutine

    subroutine psmile_warning (ierror, string, ierrp, nerrp, file, line)
       Character (len=*), Intent (In) :: file, string
       Integer, Intent (In)           :: line, ierror, nerrp
       Integer, Intent (In)           :: ierrp (nerrp)
    End Subroutine

! Get handle
!
    subroutine psmile_deallocate (ierror)
       Integer, Intent (Out)            :: ierror
    End Subroutine

    subroutine psmile_deallocate_methods (ierror)
       Integer, Intent (Out)            :: ierror
    end subroutine

    subroutine psmile_deallocate_fields (ierror)
       Integer, Intent (Out)            :: ierror
    end subroutine

    subroutine psmile_deallocate_masks (ierror)
       Integer, Intent (Out)            :: ierror
    end subroutine
!
    subroutine psmile_find_corr_field (comp_info, search, &
                                       var_id, ierror)
       Use PSMILe_common
!
       Type (Enddef_comp), Intent (In)   :: comp_info
       Type (Enddef_search), Intent (In) :: search
       Integer, Intent (Out)             :: var_id
       Integer, Intent (Out)             :: ierror
    End Subroutine

    subroutine psmile_free_comp_handle (comp_id, ierror)
       Integer, Intent (In)            :: comp_id
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_free_field_handle (field_id, ierror)
       Integer, Intent (In)            :: field_id
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_free_grid_handle (grid_id, ierror)
       Integer, Intent (In)            :: grid_id
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_free_mask_handle (mask_id, grid_id, ierror)
       Integer, Intent (In)            :: mask_id
       Integer, Intent (Out)           :: grid_id
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_free_method_handle (method_id, ierror)
       Integer, Intent (In)            :: method_id
       Integer, Intent (Out)           :: ierror
    End Subroutine
!
    subroutine psmile_get_comp_handle (comp_id, comp_name, ierror)
       Character (len=*), Intent (In)  :: comp_name
       Integer, Intent (Out)           :: comp_id, ierror
    End Subroutine
!
    subroutine psmile_get_exch_index (var_id, task_id, request, index, ierror)
       Integer, Intent (In)            :: var_id, task_id, request
       Integer, Intent (Out)           :: ierror, index
    End Subroutine
!
    subroutine psmile_get_info_index (method_id, request, index, ierror)
       Integer, Intent (In)            :: method_id, request
       Integer, Intent (Out)           :: ierror, index
    End Subroutine
!
    subroutine psmile_get_epio_handle ( comp_id, grid_id, method_id,   &
                                        mask_id, interpolation,        &
                                        msg_intersections, trans_out,  &
                                        trans_in, tgt_epio_pe, cpl_id, &
                                        epio_id, trs_rank, ierror)
       Use PSMILe_common
       Integer, Intent (In)                         :: comp_id
       Integer, Intent (In)                         :: grid_id
       Integer, Intent (In)                         :: method_id
       Integer, Intent (In)                         :: mask_id
       Integer, Intent (In)                         :: interpolation(ndim_3d)
       Type (enddef_msg_intersections), Intent (In) :: msg_intersections
       Integer, Intent (In)                         :: trans_out
       Integer, Intent (In)                         :: trans_in
       Integer, Intent (In)                         :: tgt_epio_pe
       Integer, Intent (Out)                        :: cpl_id
       Integer, Intent (Out)                        :: epio_id
       Integer, Intent (Out)                        :: trs_rank
       Integer, Intent (Out)                        :: ierror
    End Subroutine
!
    subroutine psmile_get_field_handle (field_id, ierror)
       Integer, Intent (Out)           :: field_id, ierror
    End Subroutine
!
    subroutine psmile_get_grid_handle (grid_id, ierror)
       Integer, Intent (Out)           :: grid_id, ierror
    End Subroutine
!
    Subroutine PSMILe_Get_userdef_handle (userdef_id, ierror)
       Integer, Intent (Out)           :: userdef_id, ierror
    End Subroutine

    subroutine psmile_get_halo_indices ( comp_id, grid_id_list, ierror)
      Use PSMILe_common
      Integer, Intent (In)         :: comp_id
      Integer, Intent (In)         :: grid_id_list(Number_of_Grids_allocated)
      Integer, Intent (Out)        :: ierror
    End Subroutine
!
    subroutine psmile_get_halo_points (comp_id, ierror)
      Integer, Intent (In)         :: comp_id
      Integer, Intent (Out)        :: ierror
    End Subroutine
!
    subroutine psmile_get_mask_handle (mask_id, ierror)
       Integer, Intent (Out)           :: mask_id, ierror
    End Subroutine
!
    subroutine psmile_get_method_handle (grid_id, method_id, ierror)
       Integer, Intent (In)            :: grid_id
       Integer, Intent (Out)           :: method_id, ierror
    End Subroutine
!
    subroutine psmile_get_next_field (comp_info, search, field_list, n_vars, &
                                      n_vars_ret, var_id, ierror)
       Use PSMILe_common
!
       Type (Enddef_comp),   Intent (In)    :: comp_info
       Type (Enddef_search), Intent (InOut) :: search
       Integer, Intent (In)            :: n_vars
       Integer, Intent (In)            :: field_list (nd_field_list, n_vars)
       Integer, Intent (InOut)         :: n_vars_ret
       Integer, Intent (Out)           :: ierror, var_id
    End Subroutine
!
    subroutine psmile_print_comp_info (cinfos, n_comps, string)
       Use PSMILe_common
!
       Integer,            Intent (In) :: n_comps
       Type (enddef_comp), Intent (In) :: cinfos (n_comps)
       Character(len=*),   Intent (In) :: string
    End Subroutine
!
    subroutine psmile_print_field_info (field_id)
       Integer, Intent (In)            :: field_id
    End Subroutine

    subroutine psmile_print_grid_info (grid_id)
       Integer, Intent (In)            :: grid_id
    End Subroutine
!
    subroutine psmile_print_method_info (method_id)
       Integer, Intent (In)            :: method_id
    End Subroutine
!
    subroutine psmile_print_send_info (method_id, incloc, message)
       Integer, Intent (In)            :: method_id, incloc
       Character (len=*), Intent (In)  :: message
    End Subroutine
!
    subroutine psmile_store_send_info (var_id, id_trans_out, dir_index, cpl_index, &
                                       appl_index, ierror)
       Integer, Intent (In)            :: var_id, id_trans_out
       Integer, Intent (In)            :: dir_index, cpl_index, appl_index
       Integer, Intent (Out)           :: ierror
    End Subroutine

! Initialization

    subroutine psmile_init_datatypes (ierror)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_init_mpi2 (intercomm, ierror)
       Integer, Intent (InOut)         :: intercomm
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_init_mpi1 (ierror)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_def_datatypes (ierror)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_def_mpi_comm (ierror)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_def_mpi_compcomm (ierror)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_spawn_child_appl (intracomm, intercomm, ierror)
       Integer, Intent (In)            :: intracomm
       Integer, Intent (Out)           :: intercomm
       Integer, Intent (Out)           :: ierror
    End Subroutine

! Control data structures

    subroutine psmile_control_grids (ierror)
       Integer, Intent (Out)           :: ierror
    End Subroutine

! Utilities for mask arrays

    subroutine psmile_get_true_mask_entries (mask_array, mask_shape,       &
                                             inter, n_true, ierror)
       Use PSMILe_common
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_array (                     
                                          mask_shape(1,1):mask_shape(2,1), 
                                          mask_shape(1,2):mask_shape(2,2), 
                                          mask_shape(1,3):mask_shape(2,3))
       Integer, Intent (In)            :: inter (2, ndim_3d)
       Integer, Intent (Out)           :: n_true, ierror
    End Subroutine

    subroutine psmile_is_mask_defined (mask_array, mask_shape,       &
                                       inter, nparts, defined, ierror)
       Use PSMILe_common
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_array (                     
                                          mask_shape(1,1):mask_shape(2,1), 
                                          mask_shape(1,2):mask_shape(2,2), 
                                          mask_shape(1,3):mask_shape(2,3))
       Integer, Intent (In)            :: nparts
       Integer, Intent (In)            :: inter (2, ndim_3d, nparts)
       Integer, Intent (Out)           :: defined, ierror
    End Subroutine

    subroutine psmile_do_masks_match (mask1_array, mask1_shape,       &
                                      mask2_array, mask2_shape,       &
                                      inter, nparts, match, ierror)
       Use PSMILe_common
       Integer, Intent (In)            :: mask1_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask1_array (                     
                                          mask1_shape(1,1):mask1_shape(2,1), 
                                          mask1_shape(1,2):mask1_shape(2,2), 
                                          mask1_shape(1,3):mask1_shape(2,3))
       Integer, Intent (In)            :: mask2_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask2_array (                     
                                          mask2_shape(1,1):mask2_shape(2,1), 
                                          mask2_shape(1,2):mask2_shape(2,2), 
                                          mask2_shape(1,3):mask2_shape(2,3))
       Integer, Intent (In)            :: nparts
       Integer, Intent (In)            :: inter (2, ndim_3d, nparts)
       Logical, Intent (Out)           :: match
       Integer, Intent (Out)           :: ierror
    End Subroutine

! End of definition of a component

    subroutine psmile_add_points_found (grid_id, search, &
                      extra_search, indices_returned,    &
                      found, n_send, len_nsend,          &
                      index_found, n_found,              &
                      neighbors_3d, nloc, num_neigh,     &
                      grid_valid_shape, use_how, ierror)
       Use PSMILe_common

       Integer,                  Intent (In)    :: grid_id
       Type (Enddef_search),     Intent (InOut) :: search
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer,                  Intent (In)    :: n_found, n_send
       Integer,                  Intent (In)    :: indices_returned (n_send)
       Integer,                  Intent (In)    :: index_found (n_found)
       Integer,                  Intent (In)    :: grid_valid_shape (2, ndim_3d)
       Integer,                  Intent (In)    :: len_nsend (search%npart)
       Integer,                  Intent (In)    :: nloc, num_neigh
       Integer,                  Intent (In)    :: use_how
       Integer,                  Intent (InOut) :: found    (n_send)
       Integer,                  Intent (InOut) :: neighbors_3d (ndim_3d, nloc, 
                                                                 num_neigh)
       Integer,                  Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_enddef_action (search, index, status, ierror)
       Use PSMILe_common
       Type (Enddef_search), Intent (InOut) :: search
       Integer,              Intent (In)    :: index
       Integer,              Intent (In)    :: status (MPI_STATUS_SIZE)
       Integer,              Intent (Out)   :: ierror
    End Subroutine
!
    subroutine psmile_enddef_action_cell (msg_locations, ierror)
       Use PSMILe_common, only : enddef_msg_locations

       Type (enddef_msg_locations), Intent (In)  :: msg_locations
       Integer,                     Intent (Out) :: ierror
    End Subroutine
!
    subroutine psmile_enddef_action_extra (msg_extra, nd_msg, sender, ierror)
       Integer,              Intent (In)    :: sender, nd_msg
       Integer,              Intent (In)    :: msg_extra (nd_msg)
       Integer,              Intent (Out)   :: ierror
    End Subroutine
!
    subroutine psmile_enddef_action_loc (msg_locations, ierror)
       Use PSMILe_common, only : enddef_msg_locations

       Type (enddef_msg_locations), Intent (In)  :: msg_locations
       Integer,                     Intent (Out) :: ierror
    End Subroutine
!
    subroutine psmile_enddef_action_sel ( sender, ierror)
       Integer,              Intent (In)    :: sender
       Integer,              Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_enddef_appl (tag,   &
                                   my_icomp0_coll_comps, n_active, ierror)
       Use PSMILe_common
       Integer,            Intent (In)  :: tag
       Integer,            Intent (Out) :: my_icomp0_coll_comps, n_active
       Integer,            Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_enddef_appl_miss (global_ids, comp_min, comp_max, &
                                        b_comps, n_active, tag, ierror)
       Use PSMILe_common
       Integer,            Intent (In)  :: n_active, tag
       Integer,            Intent (In)  :: comp_min, comp_max
       Integer,            Intent (In)  :: global_ids (comp_min:comp_max)
       Type (Enddef_comp), Intent (Out) :: b_comps (n_active)
       Integer,            Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_enddef_comp (comp_id, global_comp_id, Number_of_Grids, &
                                   comp_info, ierror)
       Use PSMILe_common
       Integer, Intent (In)             :: comp_id, Number_of_Grids
       Integer, Intent (In)             :: global_comp_id
       Type (Enddef_comp), Intent (Out) :: comp_info
       Integer, Intent (Out)            :: ierror
    End Subroutine
    subroutine psmile_enddef_comp_grid (comp_id, n_grids, ierror)
       Integer, Intent (In)            :: comp_id
       Integer, Intent (Out)           :: ierror, n_grids
    End Subroutine

    subroutine psmile_enddef_comp_periodic (comp_id, grid_ids, n_total, &
                                            ierror)
       Integer, Intent (In)            :: comp_id, n_total
       Integer, Intent (In)            :: grid_ids (n_total)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_field2grid (ierror)
       Integer,            Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_find_intersect (comp_info, global_index, num_intersect_per_grid, &
                                      num_dummy_intersect_per_grid, ninter, &
                                      nmyint, nnull, tag, ierror)
       Use PSMILe_common
       Type (Enddef_comp), Intent (InOut) :: comp_info
       Integer, Intent (InOut)            :: num_intersect_per_grid(:), 
                                             num_dummy_intersect_per_grid(:)
       Integer, Intent (InOut)            :: ninter, nmyint, nnull
       Integer, Intent (In)               :: global_index, tag
       Integer, Intent (Out)              :: ierror
    End Subroutine
!
    subroutine psmile_gauss_setup (grid_id, ierror)
      Integer, Intent (In)                :: grid_id
      Integer, Intent (Out)               :: ierror
    End Subroutine PSMILe_gauss_setup
!
    subroutine psmile_gauss_get_neighbours (grid_id, ierror)
      Integer, Intent (In)                :: grid_id
      Integer, Intent (Out)               :: ierror
    End Subroutine PSMILe_gauss_get_neighbours
!
    subroutine psmile_get_face_ind_21d (search, extra_search, &
                    send_info, len_cpl,                       &
                    send_mask, nreq, srcloc_ind, n_send,      &
                    ierror)
       Use PSMILe_common

       Type (Enddef_search),     Intent (In)  :: search
       Type (Extra_search_info), Intent (In)  :: extra_search
       Type (Send_information),  Intent (In)  :: send_info
       Integer,                  Intent (In)  :: nreq, n_send
       Integer,                  Intent (In)  :: len_cpl (search%npart)
       Logical,                  Intent (In)  :: send_mask (nreq)
       Integer,                  Intent (Out) :: srcloc_ind (ndim_3d, n_send)
       Integer,                  Intent (Out) :: ierror
    End Subroutine
!
    subroutine psmile_get_face_ind_3d (search, extra_search,  &
                    send_info, len_cpl,                       &
                    send_mask, nreq, srcloc_ind, n_send,      &
                    ierror)
       Use PSMILe_common

       Type (Enddef_search),     Intent (In)  :: search
       Type (Extra_search_info), Intent (In)  :: extra_search
       Type (Send_information),  Intent (In)  :: send_info
       Integer,                  Intent (In)  :: nreq, n_send
       Integer,                  Intent (In)  :: len_cpl (search%npart)
       Logical,                  Intent (In)  :: send_mask (nreq)
       Integer,                  Intent (Out) :: srcloc_ind (ndim_3d, n_send)
       Integer,                  Intent (Out) :: ierror
    End Subroutine
!
    subroutine psmile_get_face_ind_reg (search, extra_search, &
                    send_info, len_cpl,                       &
                    send_mask, nreq, srcloc_ind, n_send,      &
                    ierror)
       Use PSMILe_common

       Type (Enddef_search),     Intent (In)  :: search
       Type (Extra_search_info), Intent (In)  :: extra_search
       Type (Send_information),  Intent (In)  :: send_info
       Integer,                  Intent (In)  :: nreq, n_send
       Integer,                  Intent (In)  :: len_cpl (search%npart)
       Logical,                  Intent (In)  :: send_mask (nreq)
!
       Integer,                  Intent (Out) :: srcloc_ind (ndim_3d, n_send)
       Integer,                  Intent (Out) :: ierror
    End Subroutine
!
    subroutine psmile_get_faces_virtual_ind (search, extra_search, &
                    send_info, len_cpl,                            &
                    send_mask, nreq, virtual_ind, n_send,          &
                    ierror)
       Use PSMILe_common

       Type (Enddef_search),     Intent (In)  :: search
       Type (Extra_search_info), Intent (In)  :: extra_search
       Type (Send_information),  Intent (In)  :: send_info
       Integer,                  Intent (In)  :: nreq, n_send
       Integer,                  Intent (In)  :: len_cpl (search%npart)
       Logical,                  Intent (In)  :: send_mask (nreq)
!
       Integer,                  Intent (Out) :: virtual_ind (n_send)
       Integer,                  Intent (Out) :: ierror
    End Subroutine

!
    subroutine psmile_get_intersect (ninter, nmyint, nnull, &
                                     num_intersect_per_grid, &
                                     num_dummy_intersect_per_grid, &
                                     tag, ierror)
       Use PSMILe_common
       Integer,            Intent (In)  :: ninter, nmyint, nnull
       Integer,            Intent (In)  :: num_intersect_per_grid(:), 
                                           num_dummy_intersect_per_grid(:)
       Integer,            Intent (In)  :: tag
       Integer,            Intent (Out) :: ierror
    End Subroutine
!
    subroutine psmile_get_locations_3d (msg_locations, ierror)
       Use PSMILe_common, only : enddef_msg_locations

       Type (enddef_msg_locations), Intent (In)  :: msg_locations
       Integer,                     Intent (Out) :: ierror
    End Subroutine
!
    subroutine psmile_hash_extra (search, locs, hash, nlocs, &
                  mask_array, mask_shape, mask_available,    &
                  grid_valid_shape, ierror)
       Use PSMILe_common

       Type (Enddef_global_search), Intent (InOut) :: search
       Integer,                     Intent (In)    :: nlocs
       Logical,                     Intent (In)    :: mask_available
       Integer,                     Intent (In)    :: locs (ndim_3d, nlocs)
       Integer,                     Intent (In)    :: grid_valid_shape (2, 
                                                             ndim_3d)
       Integer,                     Intent (In)    :: mask_shape (2, ndim_3d)
       Logical,                     Intent (In)    ::    
          mask_array (mask_shape (1,1):mask_shape (2,1), 
                      mask_shape (1,2):mask_shape (2,2), 
                      mask_shape (1,3):mask_shape (2,3))
       Integer,                     Intent (Out)   :: hash (nlocs)
       Integer,                     Intent (Out)   :: ierror
    End Subroutine
!
    subroutine psmile_locations_alloc (send_info, ierror)
       Use PSMILe_common

       Type(Send_information), Intent(Inout) :: send_info
       Integer, Intent (Out)                 :: ierror
    End Subroutine
!
    subroutine psmile_locations_dealloc (send_info, ierror)
       Use PSMILe_common

       Type(Send_information), Intent(Inout) :: send_info
       Integer, Intent (Out)                 :: ierror
    End Subroutine
!
    subroutine psmile_locations_direct (control, global, search, method_id, &
                                        dir_index, ierror)
       Use PSMILe_common

       Type (Enddef_search), Intent (InOut) :: search
       Integer,              Intent (In)    :: control (2, ndim_3d, *)
       Integer,              Intent (In)    :: global  (2, ndim_3d, *)
       Integer,              Intent (In)    :: method_id
       Integer,              Intent (Out)   :: ierror, dir_index
    End Subroutine
!
    subroutine psmile_locations_gauss2 (found, loc, range, control, &
                                   search, method_id,               &
                                   dir_index, cpl_index, len_cpl, ierror)
       Use PSMILe_common

       Type (Enddef_search), Intent (InOut) :: search
       Type (integer_vector)                :: found (search%npart, 2)
       Type (integer_vector)                :: loc   (search%npart, 2)
       Integer, Intent (In)                 :: range   (2, ndim_2d, search%npart)
       Integer, Intent (In)                 :: control (2, ndim_2d, search%npart)
       Integer, Intent (In)                 :: method_id
       Integer, Intent (Out)                :: len_cpl (search%npart)
       Integer, Intent (Out)                :: ierror, cpl_index, dir_index
    End Subroutine
!
    subroutine psmile_locations_irreg2 (found, loc, range, control, &
                    search, method_id, msk_required,       &
                    virtual_cell, virtual_cell_required,   &
                    dir_index, cpl_index, len_cpl, ierror)
       Use PSMILe_common

       Type (Enddef_search), Intent (InOut) :: search
       Type (integer_vector)                :: found (search%npart, 2)
       Type (integer_vector)                :: loc   (search%npart, 2)
       Type (integer_vector)                :: virtual_cell (search%npart)
       Integer,               Intent (In)   :: range   (2, ndim_2d, search%npart)
       Integer,               Intent (In)   :: control (2, ndim_2d, search%npart)
       Integer,               Intent (In)   :: method_id
       Logical,               Intent (In)   :: msk_required
       Logical,               Intent (In)   :: virtual_cell_required
!
       Integer,               Intent (Out)  :: len_cpl (search%npart)
       Integer,               Intent (Out)  :: ierror, cpl_index, dir_index
    End Subroutine
!
    subroutine psmile_locations_3d_mask (search, inter, shift, method_id, &
                                         dir_index, ierror)
       Use PSMILe_common

       Type (Enddef_search), Intent (InOut) :: search
       Integer, Intent (In)                 :: inter (2, ndim_3d, search%npart)
       Integer, Intent (In)                 :: shift (ndim_3d)
       Integer, Intent (In)                 :: method_id
       Integer, Intent (Out)                :: ierror, dir_index
    End Subroutine
!
    subroutine psmile_locations_3d (found, loc, range, control,          &
                                    search, method_id, msk_required,     &
                                    virtual_cell, virtual_cell_required, &
                                    dir_index, cpl_index, len_cpl, ierror)
       Use PSMILe_common

       Type (Enddef_search), Intent (InOut) :: search
       Type (integer_vector)                :: found (search%npart)
       Type (integer_vector)                :: loc   (search%npart)
       Type (integer_vector)                :: virtual_cell (search%npart)
       Integer, Intent (In)                 :: range   (2, ndim_3d, *)
       Integer, Intent (In)                 :: control (2, ndim_3d, *)
       Integer, Intent (In)                 :: method_id
       Logical, Intent (In)                 :: msk_required
       Logical, Intent (In)                 :: virtual_cell_required
       Integer, Intent (Out)                :: len_cpl (search%npart)
       Integer, Intent (Out)                :: ierror, cpl_index, dir_index
    End Subroutine
!
    subroutine psmile_locations_3d_reg (found, loc, range, control, &
                                        search, method_id,          &
                                        dir_index, cpl_index, len_cpl, ierror)
       Use PSMILe_common

       Type (Enddef_search), Intent (InOut) :: search
       Type (integer_vector)                :: found (search%npart, ndim_3d)
       Type (integer_vector)                :: loc   (search%npart, ndim_3d)
       Integer, Intent (In)                 :: range   (2, ndim_3d, search%npart)
       Integer, Intent (In)                 :: control (2, ndim_3d, search%npart)
       Integer, Intent (In)                 :: method_id
       Integer, Intent (Out)                :: len_cpl (search%npart)
       Integer, Intent (Out)                :: ierror, cpl_index, dir_index
    End Subroutine

    subroutine psmile_neigh_extra_points (search, extra_search,      &
                    mask_array, mask_shape, mask_available, use_how, &
                    grid_valid_shape,                                &
                    neighbors_3d, nloc, n_corners, len_cpl, ierror)

       Use PSMILe_common

       Type (Enddef_search),     Intent (In)    :: search
       Logical,                  Intent (In)    :: mask_array (*)
       Integer,                  Intent (In)    :: mask_shape (2, ndim_3d)
       Logical,                  Intent (In)    :: mask_available
       Integer,                  Intent (In)    :: use_how(3)
       Integer,                  Intent (In)    :: grid_valid_shape (2, ndim_3d)
       Integer,                  Intent (In)    :: nloc, n_corners
       Integer,                  Intent (In)    :: len_cpl (search%npart)
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer,                  Intent (InOut) :: neighbors_3d (ndim_3d, nloc, 
                                                                 n_corners)
       Integer,                  Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_neigh_extra_search_clean (search, extra_search, ierror)
       Use PSMILe_common

       Type (Enddef_search),     Intent (In)    :: search
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer,                  Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_neigh_extra_search_init (search, grid_id, &
                                               extra_search, ierror)
       Use PSMILe_common

       Type (Enddef_search),     Intent (In)    :: search
       Integer,                  Intent(In)     :: grid_id
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer,                  Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_neigh_global_gauss2 (grid_id,                  &
                    mask_array, mask_shape, mask_available, use_how, &
                    grid_valid_shape,                                &
                    neighbors_3d, nloc, n_corners, search_required,  &
                    ierror)
       Use PSMILe_common

       Logical,                  Intent (In)    :: mask_array (*)
       Integer,                  Intent (In)    :: mask_shape (2, ndim_3d)
       Logical,                  Intent (In)    :: mask_available
       Integer,                  Intent (In)    :: grid_id, use_how
       Integer,                  Intent (In)    :: grid_valid_shape (2, ndim_3d)
       Integer,                  Intent (In)    :: nloc, n_corners
       Integer,                  Intent (InOut) :: neighbors_3d (ndim_3d, nloc, 
                                                                 n_corners)
       Integer,                  Intent (InOut) :: search_required (nloc)
       Integer,                  Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_neigh_global_points (search, extra_search,     &
                    mask_array, mask_shape, mask_available, use_how, &
                    grid_id, grid_valid_shape,                       &
                    neighbors_3d, nloc, n_corners, len_cpl, ierror)

       Use PSMILe_common

       Type (Enddef_search),     Intent (In)    :: search
       Logical,                  Intent (In)    :: mask_array (*)
       Integer,                  Intent (In)    :: mask_shape (2, ndim_3d)
       Logical,                  Intent (In)    :: mask_available
       Integer,                  Intent (In)    :: grid_id, use_how
       Integer,                  Intent (In)    :: grid_valid_shape (2, ndim_3d)
       Integer,                  Intent (In)    :: nloc, n_corners
       Integer,                  Intent (In)    :: len_cpl (search%npart)
!
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer,                  Intent (InOut) :: 
          neighbors_3d (ndim_3d, nloc, n_corners)
       Integer,                  Intent (Out)   :: ierror
    End Subroutine
!
    subroutine psmile_recv_req_mask (sender, tag,      &
                                     search, recv_req, &
                                     recv_mask, new_search, ierror)
       Use PSMILe_common

       Integer,              Intent (In)    :: sender, tag
       Logical,              Intent (In)    :: recv_mask, new_search
       Type (Enddef_search), Intent (InOut) :: search
       Integer,              Intent (Out)   :: recv_req (ndim_3d+1, *)
       Integer,              Intent (Out)   :: ierror
    End Subroutine
!
    subroutine psmile_recv_req_subgrid (msg_intersections,   &
                                        sender, tag, search, &
                                        recv_req, new_search, ierror)
       Use PSMILe_common

       Type (enddef_msg_intersections), Intent (In) :: msg_intersections
       Type (Enddef_search), Intent (InOut)         :: search
       Integer, Intent (In)                         :: sender, tag
       Integer, Intent (InOut)                      :: recv_req (ndim_3d+2, *)
       Logical, Intent (In)                         :: new_search
       Integer, Intent (Out)                        :: ierror
    End Subroutine
!
    subroutine psmile_remove_intersect (inter, idl, idg, npart,  &
                    local_extent_info, global_extent_info, ierror)
       Use PSMILe_common
       Integer,          Intent (In)    :: 
          local_extent_info  (nd_extent_infos, *)
       Integer,          Intent (In)    :: 
          global_extent_info (nd_extent_infos, *)
       Integer,          Intent (InOut) :: npart
       Real (PSMILe_float_kind), Intent (InOut) :: inter (2, ndim_3d, npart)
       Integer,          Intent (InOut) :: idl (npart), idg (npart)
       Integer,          Intent (Out)   :: ierror
    End Subroutine
!
    subroutine psmile_remove_intersect_int (inter, id1, id2, npart, ierror)
       Use PSMILe_common
       Integer,          Intent (InOut) :: npart
       Integer,          Intent (InOut) :: inter (2, ndim_3d, npart)
       Integer,          Intent (InOut) :: id1 (npart), id2 (npart)
       Integer,          Intent (Out)   :: ierror
    End Subroutine
!
    subroutine psmile_return_locations_3d ( msg_intersections, &
                                   sender, method_id,          &
                                   dir_index, cpl_index,       &
                                   n_vars, n_vars_ret, ierror)
       Use PSMILe_common

       Integer, Intent (In)                         :: sender
       Integer, Intent (In)                         :: method_id
       Type (enddef_msg_intersections), intent (in) :: msg_intersections
       Integer, Intent (In)                         :: cpl_index, dir_index
       Integer, Intent (In)                         :: n_vars, n_vars_ret
       Integer, Intent (Out)                        :: ierror
    End Subroutine

    subroutine psmile_search_donor_cells (search, tol, ierror)
       Use PSMILe_common

       Type (Enddef_search), Intent (InOut) :: search
       Double Precision,     Intent (In)    :: tol
       Integer,              Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_search_donor_extra (search_global, tol, ierror)
       Use PSMILe_common

       Type (Enddef_global_search), Intent (InOut) :: search_global
       Double Precision,            Intent (In)    :: tol
       Integer,                     Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_search_donor_extra_off (comp_info, search, &
                      var_id, tol, ierror)
       Use PSMILe_common

       Type (Enddef_comp),          Intent (In)    :: comp_info
       Integer,                     Intent (In)    :: var_id
       Double Precision,            Intent (In)    :: tol
       Type (Enddef_global_search), Intent (InOut) :: search
       Integer,                     Intent (Out)   :: ierror
    End Subroutine


    subroutine psmile_search_donor_extra_nn (comp_info, &
                      search, var_id, tol, ierror)
       Use PSMILe_common

       Type (Enddef_comp),          Intent (In)    :: comp_info
       Integer,                     Intent (In)    :: var_id
       Double Precision,            Intent (In)    :: tol
       Type (Enddef_global_search), Intent (InOut) :: search
       Integer,                     Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_search_donor_gridless (comp_info, search,          &
                                             field_list, n_vars,         &
                                             grid_id, method_id, var_id, &
                                             ierror)
       Use PSMILe_common

       Type (Enddef_comp),   Intent (In)    :: comp_info
       Type (Enddef_search), Intent (InOut) :: search
       Integer,              Intent (In)    :: grid_id
       Integer,              Intent (InOut) :: method_id, var_id
       Integer,              Intent (In)    :: n_vars
       Integer,              Intent (In)    :: field_list (nd_field_list, n_vars)
       Integer,              Intent (Out)   :: ierror
    End Subroutine
!
    subroutine psmile_send_req_mask (msg_intersections, &
                                     dest, tag, ierror)
       use psmile_common, only : enddef_msg_intersections

       Integer, Intent (In)                         :: dest, tag
       Type (enddef_msg_intersections), Intent (In) :: msg_intersections
       Integer, Intent (Out)                        :: ierror
    End Subroutine
!
    subroutine psmile_send_req_subgrid (msg_intersections, &
                                        dest, tag, ierror)
       use psmile_common, only : enddef_msg_intersections

       Integer, Intent (In)                         :: dest, tag
       Type (enddef_msg_intersections), Intent (In) :: msg_intersections
       Integer, Intent (Out)                        :: ierror
    End Subroutine

    subroutine psmile_transform_gauss2 ( search, glen, map_shape,  &
                        map, locations, found, glocations, gfound, &
                        cell_based_switch, nlev, grid_valid_shape, &
                        ierror )
      Use PSMILe_Common

      Type (Enddef_search)                  :: search
      Integer, Intent (In)                  :: glen (search%npart, ndim_2d)
      Integer, Intent (In)                  :: map_shape(ndim_3d)
      Integer, Intent (In)                  :: map (map_shape(1), 
                                                    map_shape(2), 
                                                    map_shape(3))
      Logical, Intent (In)                  :: cell_based_switch
      Integer, Intent (In)                  :: nlev
      Integer, Intent (In)                  :: grid_valid_shape(2)
      Type (integer_vector), Intent (In)    :: locations (search%npart, ndim_3d)
      Type (integer_vector), Intent (In)    :: found (search%npart, ndim_3d)
      Type (integer_vector), Intent (InOut) :: glocations (search%npart, ndim_2d)
      Type (integer_vector), Intent (InOut) :: gfound (search%npart, ndim_2d)
      Integer,               Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_trans_loc2glob_3d (grid_id, &
                    ibuf, len_item, nloc, ierror)
      Integer,              Intent (In)    :: grid_id, len_item, nloc
!
      Integer,              Intent (InOut) :: ibuf (len_item, nloc)
      Integer,              Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_trans_loc2glob_gauss2 (grid_id, &
                    ibuf, len_item, nloc, ierror)
      Integer,              Intent (In)    :: grid_id, len_item, nloc
!
      Integer,              Intent (InOut) :: ibuf (len_item, nloc)
      Integer,              Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_tricu_3d_extra_off (comp_info, search,   &
                    mask_array, mask_shape, mask_available,    &
                    ibuf, len_item, n_send, num_neigh,         &
                    grid_valid_shape, cyclic, ierror)
       Use PSMILe_common

       Type (Enddef_comp),   Intent (In)    :: comp_info
       Integer,              Intent (In)    :: mask_shape (2, ndim_3d)
       Logical,              Intent (In)    :: mask_array (mask_shape (1,1): 
                                                           mask_shape (2,1), 
                                                           mask_shape (1,2): 
                                                           mask_shape (2,2), 
                                                           mask_shape (1,3): 
                                                           mask_shape (2,3))
       Logical,              Intent (In)    :: mask_available
       Logical,              Intent (In)    :: cyclic (ndim_3d)
       Integer,              Intent (In)    :: len_item, n_send, num_neigh
       Integer,              Intent (In)    :: grid_valid_shape (2, ndim_3d)
       Type (Enddef_global_search), Intent (InOut) :: search
       Integer,              Intent (InOut) :: ibuf (len_item, n_send)
       Integer,              Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_trili_3d_extra_off (comp_info, search, grid_id, &
                    mask_array, mask_shape, mask_available,           &
                    ibuf, len_item, n_send, num_neigh,                &
                    ierror)
       Use PSMILe_common

       Type (Enddef_comp),   Intent (In)    :: comp_info
       Integer,              Intent (In)    :: mask_shape (2, ndim_3d)
       Logical,              Intent (In)    :: mask_array (mask_shape (1,1): 
                                                           mask_shape (2,1), 
                                                           mask_shape (1,2): 
                                                           mask_shape (2,2), 
                                                           mask_shape (1,3): 
                                                           mask_shape (2,3))
       Logical,              Intent (In)    :: mask_available
       Integer,              Intent (In)    :: grid_id
       Integer,              Intent (In)    :: len_item, n_send, num_neigh
       Type (Enddef_global_search), Intent (InOut) :: search
       Integer,              Intent (InOut) :: ibuf (len_item, n_send)
       Integer,              Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_mg_found_loc_to_3d (search, nlev,  &
                    source_grid_type,                    &
                    found, locations, len,               &
                    virtual_cell, virtual_cell_required, &
                    found_3d, locations_3d, virtual_3d, ierror)
       Use PSMILe_common

       Type (Enddef_search),  Intent (In)   :: search
       Integer,               Intent (In)   :: nlev
       Integer,               Intent (In)   :: source_grid_type
       Type (integer_vector), Intent (In)   :: found (search%npart, ndim_3d)
       Type (integer_vector), Intent (In)   :: locations (search%npart, ndim_3d)
       Type (integer_vector), Intent (In)   :: virtual_cell (search%npart)
       Logical,               Intent (In)   :: virtual_cell_required
       Integer,               Intent (In)   :: len (search%npart, *)
       Type (integer_vector), Intent (Out)  :: found_3d (search%npart)
       Type (integer_vector), Intent (Out)  :: locations_3d (search%npart)
       Type (integer_vector), Intent (Out)  :: virtual_3d (search%npart)
       Integer,               Intent (Out)  :: ierror
    End Subroutine
!
    subroutine psmile_store_dest_locs_21d (found,  range,  control,     &
                                           foundz,send_info, nloc, opt, &
                                           nprev, nadd, ierror)
       Use PSMILe_common
       Integer, Intent (In)                  :: range   (2, ndim_3d)
       Integer, Intent (In)                  :: control (2, ndim_3d)
       Integer, Intent (In)                  :: found (*), foundz (*)
       Integer, Intent (In)                  :: nloc, nprev, opt
       Type(Send_information), Intent(Inout) :: send_info
       Integer, Intent (Out)                 :: ierror, nadd
    End Subroutine
!
    subroutine psmile_store_dest_locs_3d (found, loc, range, control, &
                                          send_info, nloc, opt, &
                                          nprev, nadd, ierror)
       Use PSMILe_common
       Integer, Intent (In)                  :: range   (2, ndim_3d)
       Integer, Intent (In)                  :: control (2, ndim_3d)

       Integer, Intent (In)                  :: found (*)
       Integer, Intent (In)                  :: loc (ndim_3d, *)
       Integer, Intent (In)                  :: nloc, nprev, opt
       Type(Send_information), Intent(Inout) :: send_info
       Integer, Intent (Out)                 :: ierror, nadd
    End Subroutine
!
    subroutine psmile_store_dest_locs_3d_msk (mask_array, mask_shape, &
                                          inter, send_info, nloc, &
                                          nprev, nadd, ierror)
       Use PSMILe_common
       Integer,                Intent (In)   :: mask_shape (2, ndim_3d)
       Logical,                Intent (In)   :: mask_array (                    
                                                mask_shape(1,1):mask_shape(2,1),
                                                mask_shape(1,2):mask_shape(2,2),
                                                mask_shape(1,3):mask_shape(2,3))
       Integer,                Intent (In)   :: inter (2, ndim_3d)
       Integer,                Intent (In)   :: nloc, nprev
       Type(Send_information), Intent(Inout) :: send_info
       Integer,                Intent (Out)  :: ierror, nadd
    End Subroutine
!
    subroutine psmile_store_dest_locs_3d_reg (found, loc, range, control, &
                                              send_info, nloc, opt, &
                                              nprev, nadd, ierror)
       Use PSMILe_common
       Integer, Intent (In)                  :: range   (2, ndim_3d)
       Integer, Intent (In)                  :: control (2, ndim_3d)

       Type (integer_vector), Intent (In)    :: found  (ndim_3d)
       Type (integer_vector), Intent (In)    :: loc  (ndim_3d)
       Integer, Intent (In)                  :: nloc, nprev, opt
       Type(Send_information), Intent(Inout) :: send_info
       Integer, Intent (Out)                 :: ierror, nadd
    End Subroutine
!
    subroutine psmile_store_mask_locs_3d ( ipart, range,  control,  found,  &
                                           send_info, nprev, ncpl, ierror )
       Use PSMILe_common
       Integer, Intent(In)                   :: ipart
       Integer, Intent(In)                   :: range  (2,ndim_3d)
       Integer, Intent(In)                   :: control(2,ndim_3d)
       Integer, Intent(In)                   :: found ( range(1,1):range(2,1), 
                                                        range(1,2):range(2,2), 
                                                        range(1,3):range(2,3))
       Type(Send_information), Intent(InOut) :: send_info
       Integer, Intent(In)                   :: nprev
       Integer, Intent(In)                   :: ncpl

       Integer, Intent(Out)                  :: ierror

    End Subroutine

    subroutine psmile_store_source_locs_1d (found,  loc,  ibeg, len, &
                                            send_info, nloc, opt, ialloc, ipart,&
                                            nprev, nadd, ierror)
       Use PSMILe_common
       Integer, Intent (In)                  :: ibeg, len
       Integer, Intent (In)                  :: found (*)
       Integer, Intent (In)                  :: loc (*)
       Integer, Intent (In)                  :: nloc, nprev, opt, ialloc, ipart
       Type(Send_information), Intent(Inout) :: send_info
       Integer, Intent (Out)                 :: ierror, nadd
    End Subroutine
!
    subroutine psmile_store_source_locs_2d (found,  loc,  ibeg, len, &
                                            send_info, nloc, opt, ialloc, ipart,&
                                            nprev, nadd, ierror)
       Use PSMILe_common
       Integer, Intent (In)                  :: ibeg, len
       Integer, Intent (In)                  :: found (*)
       Integer, Intent (In)                  :: loc (ndim_2d, *)
       Integer, Intent (In)                  :: nloc, nprev, opt, ialloc, ipart
       Type(Send_information), Intent(Inout) :: send_info
       Integer, Intent (Out)                 :: ierror, nadd
    End Subroutine
!
    subroutine psmile_store_source_locs_3d (found, loc, ibeg, len, &
                                            send_info, nloc, opt,  &
                                            nprev, nadd, ierror)
       Use PSMILe_common
       Integer, Intent (In)                  :: ibeg, len
       Integer, Intent (In)                  :: found (*)
       Integer, Intent (In)                  :: loc (ndim_3d, *)
       Integer, Intent (In)                  :: nloc, nprev, opt
       Type(Send_information), Intent(Inout) :: send_info
       Integer, Intent (Out)                 :: ierror, nadd
    End Subroutine
!
    subroutine psmile_store_source_locs_3d_msk (mask_array, mask_shape, &
                                                inter, send_info, nloc, &
                                                nprev, nadd, ierror)
       Use PSMILe_common
       Integer,                Intent (In)   :: mask_shape (2, ndim_3d)
       Logical,                Intent (In)   :: mask_array (                    
                                                mask_shape(1,1):mask_shape(2,1),
                                                mask_shape(1,2):mask_shape(2,2),
                                                mask_shape(1,3):mask_shape(2,3))
       Integer,                Intent (In)   :: inter (2, ndim_3d)
       Integer,                Intent (In)   :: nloc, nprev
       Type(Send_information), Intent(Inout) :: send_info
       Integer,                Intent (Out)  :: ierror, nadd
    End Subroutine
!
    subroutine psmile_store_source_locs_3d_reg (               &
                    found, loc, range, control,                &
                    send_info, nloc, opt, nprev, nadd, ierror)
       Use PSMILe_common
       Integer,                Intent (In)   :: range   (2, ndim_3d)
       Integer,                Intent (In)   :: control (2, ndim_3d)
       Type (integer_vector),  Intent (In)   :: found  (ndim_3d)
       Type (integer_vector),  Intent (In)   :: loc    (ndim_3d)
       Integer,                Intent (In)   :: nloc, nprev, opt
!
       Type(Send_information), Intent(InOut) :: send_info
       Integer,                Intent (Out)  :: ierror, nadd
    End Subroutine
!
    subroutine psmile_store_source_virt_3d (                           &
                    found, virtual_cell, ibeg, len,                    &
                    send_info, nloc, opt, ialloc, ipart, nprev, ierror)
       Use PSMILe_common
!
       Integer,                Intent (In)   :: ibeg, len
       Integer,                Intent (In)   :: found (len)
       Integer,                Intent (In)   :: virtual_cell (len)
       Integer,                Intent (In)   :: nloc, nprev, opt
       Integer,                Intent (In)   :: ialloc, ipart
!
       Type(Send_information), Intent(InOut) :: send_info
       Integer,                Intent (Out)  :: ierror
    End Subroutine
!
    subroutine psmile_send_destinations (            &
                    method_id, cpl_index, dir_index, &
                    sender, tag, ierror)
       Integer,                Intent (In)   :: method_id
       Integer,                Intent (In)   :: cpl_index, dir_index
       Integer,                Intent (In)   :: sender, tag
!
       Integer,                Intent (Out)  :: ierror
    End Subroutine
!
!   Multigrid for seach of donor cells
!
    subroutine psmile_mg_clean (ierror)
       Integer,                Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_mg_setup (grid_id, range, tol, ierror)
       Use PSMILe_common
       Integer, Intent (In)               :: grid_id
       Integer, Intent (In)               :: range (2, ndim_3d)
       Double Precision, Intent (In)      :: tol
       Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_mg_first_level (grid_id, range, &
                    mg_info, tol, simplified_grid, ierror)
       Use PSMILe_common
       Integer,          Intent (In)    :: grid_id
       Integer,          Intent (In)    :: range (2, ndim_3d)
       Type (Enddef_mg), Intent (InOut) :: mg_info
       Real (PSMILe_float_kind), Intent (In) :: tol
       Logical,          Intent (In)    :: simplified_grid
       Integer,          Intent (Out)   :: ierror
    End Subroutine

    Logical Function PSMILe_to_be_coupled (comp_id1, comp_id2)
       Integer, Intent (In)           :: comp_id1, comp_id2
    End Function

    subroutine psmile_mg_coars_level (grid_id, mg_info_fine, &
                                      mg_info_coarse, &
                                      icoarse, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Type (Enddef_mg), Intent (In)   :: mg_info_fine
       Type (Enddef_mg), Intent (InOut):: mg_info_coarse
       Integer, Intent (In)            :: icoarse (ndim_3d)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_get_cyclic (grid_id, range, &
                                     tol, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: range (2, ndim_3d)
       Double Precision, Intent (In)   :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

! Get info's on all active components in all processes

    subroutine psmile_get_act_comps (a_comps, nd_acomps, n_act, ierror)
       Integer, Intent (In)            :: nd_acomps
       Integer, Intent (Out)           :: a_comps (nd_acomps, *)
       Integer, Intent (Out)           :: ierror, n_act
    End Subroutine

! Get extension of SubGrids

    subroutine psmile_get_grid_extent (grid_id, extent, ierror)
       Use PSMILe_common
       Integer,                  Intent (In)  :: grid_id
       Real (PSMILe_float_kind), Intent (Out) :: extent (2, ndim_3d)
       Integer,                  Intent (Out) :: ierror
    End Subroutine

! Select range of a subgrid (intersection)

    subroutine psmile_sel_grid_range (grid_id, dinter, inter, ierror)
       Use PSMILe_common
       Integer,                  Intent (In)  :: grid_id
       Real (PSMILe_float_kind), Intent (In)  :: dinter (2, ndim_3d)
       Integer,                  Intent (Out) ::  inter (2, ndim_3d)
       Integer,                  Intent (Out) :: ierror
    End Subroutine

! Generate compact list of entries

    subroutine psmile_compact_locations ( grid_id, search, ndim, found, ierror )
      Use PSMILe_common
      Integer,                  Intent (In) :: grid_id
      Type (Enddef_search), Intent (In)     :: search
      Integer,                  Intent (In) :: ndim
      Type (integer_vector), Intent (InOut) :: found (search%npart, ndim)
      Integer, Intent (Out)                 :: ierror

    End Subroutine

    subroutine psmile_compact_neighbors_3d (neighbors_3d, nloc, num_neigh,  &
                                            grid_valid_shape, extra_search, &
                                            send_info, neighbors, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: nloc, num_neigh
       Integer, Intent (In)            :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Type(Extra_search_info), Intent(in)      :: extra_search
       Type (Send_information), Intent (InOut)  :: send_info
       Integer, Intent (Out)           :: neighbors (nloc, num_neigh)
       Integer, Intent (Out)           :: ierror
    End Subroutine
!
    subroutine psmile_move0_neighbors (neighbors, nloc, num_neigh, ierror)
       Integer, Intent (In)            :: nloc, num_neigh
       Integer, Intent (InOut)         :: neighbors (nloc, num_neigh)
       Integer, Intent (Out)           :: ierror
    End Subroutine

! Utilities

    subroutine psmile_quicksort ( a, n )
      Integer, Intent(In)                  :: n
      Integer, Intent(InOut)               :: a(n)
    End Subroutine PSMILe_Quicksort

    subroutine psmile_quicksort_index ( a, n, t )
      Integer, Intent(In)                  :: n
      Integer, Intent(InOut)               :: a(n)
      Integer, Intent(InOut)               :: t(n)
    End Subroutine PSMILe_Quicksort_index

    subroutine psmile_type_create_subarray (ndims, array_of_sizes,  &
                                array_of_subsizes, array_of_starts, &
                                oldtype, newtype, ierror)
       Integer,            Intent (In)  :: ndims, oldtype
       Integer,            Intent (In)  :: array_of_sizes (ndims)
       Integer,            Intent (In)  :: array_of_subsizes (ndims)
       Integer,            Intent (In)  :: array_of_starts (ndims)
       Integer,            Intent (Out) :: newtype
       Integer,            Intent (Out) :: ierror
    End Subroutine

! Blocking send

    subroutine psmile_bsend_init (ftypes, flengths, number_of_ftypes, ierror)
       Integer, Intent (In)            :: number_of_ftypes
       Integer, Intent (In)            :: ftypes (number_of_ftypes)
       Integer, Intent (In)            :: flengths (number_of_ftypes)
       Integer, Intent (Out)           :: ierror
    End Subroutine

!
!   ------ Routines for Integer variables -----------
!

! Utilities

    subroutine psmile_copy_subarray_3d_int (dest_vector, size, &
               iarray, idlow, idhigh, jdlow, jdhigh, kdlow, kdhigh, &
               sub, ierror)
       Use PSMILe_common

       Integer(kind=int64), Intent (In) :: size
       Integer, Intent (In)             :: idlow, idhigh, jdlow, jdhigh, 
                                           kdlow, kdhigh
       Integer, Intent (In)             :: sub (2, ndim_3d)
       Integer, Intent (In)             :: iarray (idlow:idhigh, jdlow:jdhigh, 
                                                   kdlow:kdhigh)
       Integer, Intent (Out)            :: dest_vector (size)
       Integer, Intent (Out)            :: ierror
    End Subroutine

! Get and Put

    subroutine psmile_ext_compact_list_log2int (send_info, extra_search,        &
                                                array, shape, grid_valid_shape, &
                                                dest_vector, dest_size, ierror)
       Use PSMILe_common
       Type(Send_information), Intent(In) :: send_info
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Logical, Intent (In)               :: array (*)
       Integer, Intent (In)               :: shape (2, ndim_3d)
       Integer, Intent (In)               :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)               :: dest_size
       Integer, Intent (Out)              :: dest_vector (dest_size)
       Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_ext_compact_list_3d_int (send_info, array, shape, &
                                               grid_valid_shape,        &
                                               dest_vector, dest_size, ierror)
       Use PSMILe_common
       Type(Send_information), Intent(In) :: send_info
       Integer, Intent (In)               :: array (*)
       Integer, Intent (In)               :: shape (2, ndim_3d)
       Integer, Intent (In)               :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)               :: dest_size
       Integer, Intent (Out)              :: dest_vector (dest_size)
       Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_extract_indices_3d_int (array, shape, &
                                              dstijk, ncpl, &
                                              dest_vector, ierror)
       Use PSMILe_common
       Integer, Intent (In)               :: array (*)
       Integer, Intent (In)               :: shape (2, ndim_3d)
       Integer, Intent (In)               :: ncpl
       Integer, Intent (In)               :: dstijk (ndim_3d, ncpl)
       Integer, Intent (Out)              :: dest_vector (ncpl)
       Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_get_field_int (field_id, data_array, len, &
                                     nbr_fields, ierror)

       Integer, Intent (In)          :: field_id
       Integer, Intent (In)          :: len, nbr_fields
       Integer, Intent (InOut)       :: data_array(*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_get_irr_field_int (data_array, data_shape, nbr_fields,  &
                                         dstijk, npoints, dstars, nars, nloc, &
                                         source, tag, comm, ierror)
       Use PSMILe_common

       Integer, Intent (In)          :: nars, nloc, npoints, nbr_fields
       Integer, Intent (In)          :: source, tag, comm
       Integer, Intent (In)          :: data_shape (2, ndim_3d)
       Integer, Intent (In)          :: dstijk (ndim_3d, npoints)
       Integer, Intent (In)          :: dstars (2, ndim_3d, nars)
       Integer, Intent (InOut)       :: data_array (*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_put_compact_list_3d_int (source_list, dstijk, nloc, &
                                               array, shape, nbr_fields,  &
                                               ierror)
       Use PSMILe_common
       Integer, Intent (InOut)            :: array (*)
       Integer, Intent (In)               :: shape (2, ndim_3d)
       Integer, Intent (In)               :: nloc, nbr_fields
       Integer, Intent (In)               :: dstijk (ndim_3d, nbr_fields)
       Integer, Intent (In)               :: source_list (nloc, nbr_fields)
       Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_put_field_int (field_id, task_id, data_array, len, &
                                     nbr_fields, ierror)

       Integer, Intent (In)          :: field_id
       Integer, Intent (In)          :: task_id
       Integer, Intent (In)          :: len, nbr_fields
       Integer, Intent (In)          :: data_array(*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_put_field_gauss2_int  (data_array, data_shape, nbr_fields, &
                                          srcloc, nparts, nloc, npoints, &
                                          dest, tag, comm, ierror)
       Use PSMILe_common

       Integer, Intent (In)          :: nloc, dest, tag, comm, nbr_fields
       Integer, Intent (In)          :: nparts
       Integer, Intent (In)          :: npoints (2, nparts)
       Integer, Intent (In)          :: data_shape (2, ndim_3d)
       Type (integer_vector), Intent (In) :: srcloc (2, nparts)
       Integer, Intent (In)          :: data_array (*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_put_field_21d_int  (data_array, data_shape, nbr_fields, &
                                          srcloc, nparts, nloc, npoints, &
                                          dest, tag, comm, ierror)
       Use PSMILe_common

       Integer, Intent (In)          :: nloc, dest, tag, comm, nbr_fields
       Integer, Intent (In)          :: nparts
       Integer, Intent (In)          :: npoints (2, nparts)
       Integer, Intent (In)          :: data_shape (2, ndim_3d)
       Type (integer_vector), Intent (In) :: srcloc (2, nparts)
       Integer, Intent (In)          :: data_array (*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_put_field_3d_int  (data_array, data_shape, nbr_fields, &
                                         srcloc, nparts, nloc, npoints, &
                                         dest, tag, comm, ierror)
       Use PSMILe_common

       Integer, Intent (In)          :: nloc, dest, tag, comm, nbr_fields
       Integer, Intent (In)          :: nparts
       Integer, Intent (In)          :: npoints (ndim_3d, nparts)
       Integer, Intent (In)          :: data_shape (2, ndim_3d)
       Type (integer_vector), Intent (In) :: srcloc (ndim_3d, nparts)
       Integer, Intent (In)          :: data_array (*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_put_irr_field_int  (data_array, data_shape, nbr_fields,  &
                                          srcloc, npoints, srcars, nars, nloc, &
                                          dest, tag, comm, ierror)
       Use PSMILe_common

       Integer, Intent (In)          :: nars, nloc, npoints, nbr_fields
       Integer, Intent (In)          :: dest, tag, comm
       Integer, Intent (In)          :: data_shape (2, ndim_3d)
       Integer, Intent (In)          :: srcloc (ndim_3d, npoints)
       Integer, Intent (In)          :: srcars (2, ndim_3d, nars)
       Integer, Intent (In)          :: data_array (*)
       Integer, Intent (Out)         :: ierror
    End Subroutine
!
!   ------ Routines for Logical variables -----------
!

! Utilities

    subroutine psmile_copy_subarray_2d_log (dest_vector, size, &
               darray, idlow, idhigh, jdlow, jdhigh, &
                       ibeg,  iend,   jbeg,  jend,   ierror)
       Use PSMILe_common
       Integer(kind=int64), Intent (In) :: size
       Integer, Intent (In)             :: idlow, idhigh, jdlow, jdhigh
       Integer, Intent (In)             :: ibeg,  iend,   jbeg,  jend
       Logical, Intent (In)             :: darray (idlow:idhigh, jdlow:jdhigh)
       Logical, Intent (Out)            :: dest_vector (size)
       Integer, Intent (Out)            :: ierror
    End Subroutine

    subroutine psmile_copy_subarray_3d_log  (dest_vector, size, &
               iarray, idlow, idhigh, jdlow, jdhigh, kdlow, kdhigh, &
               sub, ierror)
       Use PSMILe_common

       Integer(kind=int64), Intent (In)  :: size
       Integer,             Intent (In)  :: idlow, idhigh, jdlow, jdhigh, 
                                            kdlow, kdhigh
       Integer,             Intent (In)  :: sub (2, ndim_3d)
       Logical,             Intent (In)  :: iarray (idlow:idhigh, jdlow:jdhigh, 
                                                    kdlow:kdhigh)
       Logical,             Intent (Out) :: dest_vector (size)
       Integer,             Intent (Out) :: ierror
    End Subroutine

!
!   ------ Routines for Single Precision ------------
!

    subroutine psmile_add_nn_found_real (search, extra_search,  &
                      index_sent, found, n_send,                &
                      index_found, distance, n_found, nb_extra, &
                      selected, sel_info, nrecv, ierror)
       Use PSMILe_common

       Integer,           Intent (InOut) :: nrecv
       Type (Enddef_search),      Intent (In)    :: search
       Type (Extra_search_info),  Intent (InOut) :: extra_search
       Type (Select_search_info), Intent (InOut) :: sel_info (nrecv)
       Integer,           Intent (In)    :: nb_extra, n_found, n_send
       Integer,           Intent (In)    :: index_sent  (n_send)
       Integer,           Intent (In)    :: found (n_send)
       Integer,           Intent (In)    :: index_found (n_found)
       Real,              Intent (In)    :: distance (n_found)
       Integer,           Intent (InOut) :: selected (2, extra_search%n_extra)
       Integer,           Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_bbcells_1d_real (array, shape, range, &
                                       corners, corner_shape, nbr_corners, &
                                       chmin, chmax, levdim, ierror)
       Integer,           Intent (In)  :: shape (2)
       Integer,           Intent (In)  :: range (2)
       Real,              Intent (In)  :: array (shape(1):shape(2))
       Integer,           Intent (In)  :: corner_shape (2), nbr_corners
       Real,              Intent (In)  :: corners (corner_shape(1):corner_shape(2), 
                                                   nbr_corners)
       Integer,           Intent (In)  :: levdim
       Real,              Intent (Out) :: chmin (range(1)-1:range(2))
       Real,              Intent (Out) :: chmax (range(1)-1:range(2))
       Integer,           Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_bbcells_2d_real (           &
                    coords, coords_shape, sub_range, &
                    corner_shape,                    &
                    chmin, chmax, midp, levdim,      &
                    period, ierror)
       Use psmile_common
       Integer,           Intent (In)  :: coords_shape  (2, ndim_2d)
       Integer,           Intent (In)  :: sub_range  (2, ndim_2d)
       Integer,           Intent (In)  :: corner_shape (2, ndim_2d)
       Real,              Intent (In)  :: 
          coords(coords_shape(1,1):coords_shape(2,1), 
                 coords_shape(1,2):coords_shape(2,2))
       Integer,           Intent (In)  :: levdim (ndim_2d)
       Real,              Intent (In)  :: period
       Real,              Intent (Out) :: 
          chmin (sub_range(1,1)-1:sub_range(2,1), 
                 sub_range(1,2)-1:sub_range(2,2))
       Real,              Intent (Out) :: 
          chmax (sub_range(1,1)-1:sub_range(2,1), 
                 sub_range(1,2)-1:sub_range(2,2))
       Real,              Intent (Out) :: 
          midp  (sub_range(1,1)-1:sub_range(2,1), 
                 sub_range(1,2)-1:sub_range(2,2))
       Integer,           Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_bbcells_virt_2d_real (method_id,                &
                    coords1, coords2, coords_shape, coords_range,     &
                    corners1, corners2, corner_shape, nbr_corners,    &
                    chmin1_corner, chmin2_corner,                     &
                    chmax1_corner, chmax2_corner, levdim_corner,      &
                    chmin1,  chmin2, chmax1, chmax2, midp1, midp2,    &
                    levdim,  period, bmaski, bmaskj, ierror)
       Use PSMILe_common
       Integer,           Intent (In)  :: method_id, nbr_corners
       Integer,           Intent (In)  :: coords_shape (2, ndim_2d)
       Integer,           Intent (In)  :: coords_range (2, ndim_2d)
       Integer,           Intent (In)  :: corner_shape (2, ndim_2d)
       Integer,           Intent (In)  :: levdim_corner (2, ndim_2d)
       Integer,           Intent (In)  :: levdim (ndim_2d)
       Real,              Intent (In)  :: period
       Real,              Intent (InOut)  ::              
          coords1(coords_shape(1,1):coords_shape(2,1), 
                  coords_shape(1,2):coords_shape(2,2))
       Real,              Intent (InOut)  ::              
          coords2(coords_shape(1,1):coords_shape(2,1), 
                  coords_shape(1,2):coords_shape(2,2))
       Real,              Intent (In)  :: 
          corners1 (corner_shape(1,1):corner_shape(2,1), 
                    corner_shape(1,2):corner_shape(2,2), 
                    nbr_corners)
       Real,              Intent (In)  :: 
          corners2 (corner_shape(1,1):corner_shape(2,1), 
                    corner_shape(1,2):corner_shape(2,2), 
                    nbr_corners)
       Real,              Intent (In)  :: 
          chmin1_corner (levdim_corner(1,1):levdim_corner(2,1), 
                         levdim_corner(1,2):levdim_corner(2,2))
       Real,              Intent (In)  :: 
          chmin2_corner (levdim_corner(1,1):levdim_corner(2,1), 
                         levdim_corner(1,2):levdim_corner(2,2))
       Real,              Intent (In)  :: 
          chmax1_corner (levdim_corner(1,1):levdim_corner(2,1), 
                         levdim_corner(1,2):levdim_corner(2,2))
       Real,              Intent (In)  :: 
          chmax2_corner (levdim_corner(1,1):levdim_corner(2,1), 
                         levdim_corner(1,2):levdim_corner(2,2))
       Real,             Intent (InOut) :: 
          chmin1 (coords_range(1,1)-1:coords_range(2,1), 
                  coords_range(1,2)-1:coords_range(2,2))
       Real,              Intent (InOut) :: 
          chmin2 (coords_range(1,1)-1:coords_range(2,1), 
                  coords_range(1,2)-1:coords_range(2,2))
       Real,             Intent (InOut) :: 
          chmax1 (coords_range(1,1)-1:coords_range(2,1), 
                  coords_range(1,2)-1:coords_range(2,2))
       Real,             Intent (InOut) :: 
          chmax2 (coords_range(1,1)-1:coords_range(2,1), 
                  coords_range(1,2)-1:coords_range(2,2))
       Real,             Intent (InOut) :: 
          midp1  (coords_range(1,1)-1:coords_range(2,1), 
                  coords_range(1,2)-1:coords_range(2,2))
       Real,             Intent (InOut) :: 
          midp2  (coords_range(1,1)-1:coords_range(2,1), 
                  coords_range(1,2)-1:coords_range(2,2))
       Integer,           Intent (Out) :: 
          bmaski (coords_range(1,1)-1:coords_range(2,1)+1, 2)
       Integer,           Intent (Out) :: 
          bmaskj (coords_range(1,2)-1:coords_range(2,2)+1, 2)
       Integer,           Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_bbcells_3d_real (method_id, array, shape, range,     &
                                       corners, corner_shape, nbr_corners, &
                                       chmin, chmax, midp, levdim, cyclic, &
                                       period, ierror)
       Use PSMILe_common
       Integer,           Intent (In)  :: method_id
       Integer,           Intent (In)  :: shape (2, ndim_3d)
       Integer,           Intent (In)  :: range (2, ndim_3d)
       Integer,           Intent (In)  :: corner_shape (2, ndim_3d), nbr_corners
       Real,              Intent (In)  :: array(shape(1,1):shape(2,1), 
                                                shape(1,2):shape(2,2), 
                                                shape(1,3):shape(2,3))
       Integer,           Intent (In)  :: levdim (ndim_3d)
       Real,              Intent (In)  :: corners (corner_shape(1,1): 
                                                   corner_shape(2,1), 
                                                   corner_shape(1,2): 
                                                   corner_shape(2,2), 
                                                   corner_shape(1,3): 
                                                   corner_shape(2,3), 
                                                   nbr_corners)
       Logical,           Intent (In)  :: cyclic
       Real,              Intent (In)  :: period
       Real,              Intent (Out) :: chmin (range(1,1)-1:range(2,1), 
                                                 range(1,2)-1:range(2,2), 
                                                 range(1,3)-1:range(2,3))
       Real,              Intent (Out) :: chmax (range(1,1)-1:range(2,1), 
                                                 range(1,2)-1:range(2,2), 
                                                 range(1,3)-1:range(2,3))
       Real,              Intent (Out) :: midp  (range(1,1)-1:range(2,1), 
                                                 range(1,2)-1:range(2,2), 
                                                 range(1,3)-1:range(2,3))
       Integer,           Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_bbcells_gauss2_real (array_x, array_y,          &
                                           shape, range, nbr_lats,    &
                                           points_per_lat, corners_y, &
                                           corner_shape, nbr_corners, &
                                           chmin_x, chmax_x, midp_x,  &
                                           chmin_y, chmax_y, midp_y,  &
                                           nbrs, levdim, ierror )

      Integer, Intent (In)             :: shape (2)
      Real, Intent (In)                :: array_x(shape(1):shape(2))
      Real, Intent (In)                :: array_y(shape(1):shape(2))
      Integer, Intent (In)             :: range (2)
      Integer, Intent (In)             :: corner_shape (2)
      Integer, Intent (In)             :: nbr_lats
      Integer, Intent (In)             :: points_per_lat(nbr_lats,1)
      Integer, Intent (In)             :: nbr_corners
      Real, Intent (In)                :: corners_y (corner_shape(1):corner_shape(2), 
                                                     nbr_corners)
      Integer, Intent (In)             :: levdim(1)
      Real, Intent (Out)               :: chmin_x (range(1)-1:range(2))
      Real, Intent (Out)               :: chmax_x (range(1)-1:range(2))
      Real, Intent (Out)               :: midp_x  (range(1)-1:range(2))
      Real, Intent (Out)               :: chmin_y (range(1)-1:range(2))
      Real, Intent (Out)               :: chmax_y (range(1)-1:range(2))
      Real, Intent (Out)               :: midp_y  (range(1)-1:range(2))
      Integer, Intent (Out)            :: nbrs    (range(2)-range(1)+1,4)
      Integer, Intent (Out)            :: ierror
    End Subroutine

    subroutine psmile_bbcells_pole_dble (              &
                   coords_shape, coords_x, coords_y,   &
                   corner_shape, sub_range,            &
                   chmin_x, chmax_x, chmin_y, chmax_y, &
                   midp_x, midp_y, pole_array, period, &
                   ierror)
      use psmile_common, only : ndim_2d, ndim_3d
      integer,          intent (in)    :: coords_shape (2, ndim_2d)
      double precision, intent (in)    :: 
         coords_x(coords_shape(1,1):coords_shape(2,1),  
                  coords_shape(1,2):coords_shape(2,2)), 
         coords_y(coords_shape(1,1):coords_shape(2,1),  
                  coords_shape(1,2):coords_shape(2,2))
      integer,          intent (in)    :: corner_shape (2, ndim_3d)
      integer,          intent (in)    :: sub_range (2, ndim_2d)
      integer,          intent (in)    :: pole_array(:)
      double precision, intent (in)    :: period
      double precision, intent (inout) :: chmin_x (sub_range(1,1)-1:sub_range(2,1), 
                                                   sub_range(1,2)-1:sub_range(2,2))
      double precision, intent (inout) :: chmax_x (sub_range(1,1)-1:sub_range(2,1), 
                                                   sub_range(1,2)-1:sub_range(2,2))
      double precision, intent (inout) :: chmin_y (sub_range(1,1)-1:sub_range(2,1), 
                                                   sub_range(1,2)-1:sub_range(2,2))
      double precision, intent (inout) :: chmax_y (sub_range(1,1)-1:sub_range(2,1), 
                                                   sub_range(1,2)-1:sub_range(2,2))
      double precision, intent (inout) :: midp_x(sub_range(1,1)-1:sub_range(2,1), 
                                                 sub_range(1,2)-1:sub_range(2,2))
      double precision, intent (inout) :: midp_y(sub_range(1,1)-1:sub_range(2,1), 
                                                 sub_range(1,2)-1:sub_range(2,2))
      integer,          intent (out)   :: ierror
    end subroutine psmile_bbcells_pole_dble

    subroutine psmile_bbcells_pole_real (              &
                   coords_shape, coords_x, coords_y,   &
                   corner_shape, sub_range,            &
                   chmin_x, chmax_x, chmin_y, chmax_y, &
                   midp_x, midp_y, pole_array, period, &
                   ierror)
      use psmile_common, only : ndim_2d, ndim_3d
      integer,          intent (in)    :: coords_shape (2, ndim_2d)
      real,             intent (in)    :: 
         coords_x(coords_shape(1,1):coords_shape(2,1),  
                  coords_shape(1,2):coords_shape(2,2)), 
         coords_y(coords_shape(1,1):coords_shape(2,1),  
                  coords_shape(1,2):coords_shape(2,2))
      integer,          intent (in)    :: corner_shape (2, ndim_3d)
      integer,          intent (in)    :: sub_range (2, ndim_2d)
      integer,          intent (in)    :: pole_array(:)
      real,             intent (in)    :: period
      real,             intent (inout) :: chmin_x (sub_range(1,1)-1:sub_range(2,1), 
                                                   sub_range(1,2)-1:sub_range(2,2))
      real,             intent (inout) :: chmax_x (sub_range(1,1)-1:sub_range(2,1), 
                                                   sub_range(1,2)-1:sub_range(2,2))
      real,             intent (inout) :: chmin_y (sub_range(1,1)-1:sub_range(2,1), 
                                                   sub_range(1,2)-1:sub_range(2,2))
      real,             intent (inout) :: chmax_y (sub_range(1,1)-1:sub_range(2,1), 
                                                   sub_range(1,2)-1:sub_range(2,2))
      real,             intent (inout) :: midp_x(sub_range(1,1)-1:sub_range(2,1), 
                                                 sub_range(1,2)-1:sub_range(2,2))
      real,             intent (inout) :: midp_y(sub_range(1,1)-1:sub_range(2,1), 
                                                 sub_range(1,2)-1:sub_range(2,2))
      integer,          intent (out)   :: ierror
    end subroutine psmile_bbcells_pole_real

    subroutine psmile_celltest_real ( grid_id, range, sense, ierror )
      Use PSMILe_common
      Integer, Intent (In)             :: grid_id
      Integer, Intent (In)             :: range(2,ndim_2d)
      Integer, Intent (Out)            :: sense
      Integer, Intent (Out)            :: ierror
    End Subroutine

    subroutine psmile_ccompact_gauss2_real ( send_info,     &
               grid_valid_shape, shape, nb_corners,         &
               array_x, array_y, array_z,                   &
               extra_search, dest_size, nbr_cells_tot,      &
               source_cell_index,                           &
               neighcells, dest_x, dest_y, dest_z, ierror )

       USE PSMILe_Common

       Type (Send_information), Intent (InOut)  :: send_info
       Integer, Intent (In)                     :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)                     :: shape (2, ndim_3d)
       Integer, Intent (In)                     :: nb_corners
       Real, Intent (In)                        :: array_x ( shape(1,1):shape(2,1), 
                                                             nb_corners )
       Real, Intent (In)                        :: array_y ( shape(1,1):shape(2,1), 
                                                             nb_corners )
       Real, Intent (In)                        :: array_z ( shape(1,3):shape(2,3) )
       Integer, Intent (In)                     :: dest_size
       Integer, Intent (In)                     :: nbr_cells_tot
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer, Intent (InOut)                  :: source_cell_index (nbr_cells_tot)
       Integer, Intent (InOut)                  :: neighcells (nbr_cells_tot, nb_corners)
       Real, Intent (Out)                       :: dest_x (2*dest_size)
       Real, Intent (Out)                       :: dest_y (2*dest_size)
       Real, Intent (Out)                       :: dest_z (2*dest_size)
       Integer, Intent (Out)                    :: ierror
    End Subroutine

    subroutine psmile_ccompact_irreg2_real ( send_info,     &
               grid_valid_shape, shape, nb_corners,         &
               array_x, array_y, array_z,                   &
               extra_search, dest_size, nbr_cells_tot,      &
               source_cell_index,                           &
               neighcells, dest_x, dest_y, dest_z, ierror )

       USE PSMILe_Common

       Type (Send_information), Intent (InOut)  :: send_info
       Type (Extra_search_info), Intent (InOut) :: extra_search

       Integer, Intent (In)                     :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)                     :: shape (2, ndim_3d)
       Integer, Intent (In)                     :: nb_corners
       Real, Intent (In)                        :: array_x ( shape(1,1):shape(2,1), 
                                                             shape(1,2):shape(2,2), 
                                                             nb_corners )
       Real, Intent (In)                        :: array_y ( shape(1,1):shape(2,1), 
                                                             shape(1,2):shape(2,2), 
                                                             nb_corners )
       Real, Intent (In)                        :: array_z ( shape(1,3):shape(2,3) )
       Integer, Intent (In)                     :: dest_size
       Integer, Intent (In)                     :: nbr_cells_tot
       Integer, Intent (InOut)                  :: source_cell_index (nbr_cells_tot)
       Integer, Intent (InOut)                  :: neighcells(nbr_cells_tot, nb_corners)
       Real, Intent (Out)                       :: dest_x (dest_size)
       Real, Intent (Out)                       :: dest_y (dest_size)
       Real, Intent (Out)                       :: dest_z (dest_size)
       Integer, Intent (Out)                    :: ierror
    End Subroutine

    subroutine psmile_ccompact_3d_reg_real ( send_info,     &
               grid_valid_shape, shape, nb_corners,         &
               array_x, array_y, array_z,                   &
               extra_search, dest_size, nbr_cells_tot,      &
               source_cell_index,                           &
               neighcells, dest_x, dest_y, dest_z, ierror )

       USE PSMILe_Common

       Type (Send_information), Intent (InOut)  :: send_info
       Integer, Intent (In)                     :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)                     :: shape (2, ndim_3d)
       Integer, Intent (In)                     :: nb_corners
       Real, Intent (In)                        :: array_x ( shape(1,1):shape(2,1), 
                                                             nb_corners )
       Real, Intent (In)                        :: array_y ( shape(1,2):shape(2,2), 
                                                             nb_corners )
       Real, Intent (In)                        :: array_z ( shape(1,3):shape(2,3) )
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer, Intent (In)                     :: dest_size
       Integer, Intent (In)                     :: nbr_cells_tot
       Integer, Intent (InOut)                  :: source_cell_index (nbr_cells_tot)
       Real, Intent (Out)                       :: dest_x (dest_size)
       Real, Intent (Out)                       :: dest_y (dest_size)
       Real, Intent (Out)                       :: dest_z (dest_size)
       Integer, Intent (InOut)                  :: neighcells (nbr_cells_tot, nb_corners)
       Integer, Intent (Out)                    :: ierror
    End Subroutine

    subroutine psmile_control_cell_2d_real (grid_id,               &
                    ic, nc, icdim1, list, j, k,                    &
                    coords1,  coords2,  shape,                     &
                    corners1, corners2, corner_shape, nbr_corners, &
                    tol, fnd, ierror)
      Use PSMILe_common

      Integer,          Intent (In)   :: grid_id, nc, icdim1
      Integer,          Intent (In)   :: ic (icdim1, ndim_2d)
      Integer,          Intent (In)   :: list (nc), j, k
      Integer,          Intent (In)   :: shape (2, ndim_3d)
      Real,             Intent (In)   :: coords1 (shape(1,1):shape(2,1), 
                                                  shape(1,2):shape(2,2), 
                                                  shape(1,3):shape(2,3))
      Real,             Intent (In)   :: coords2 (shape(1,1):shape(2,1), 
                                                  shape(1,2):shape(2,2), 
                                                  shape(1,3):shape(2,3))
      Integer,          Intent (In)   :: corner_shape (2, ndim_2d)
      Integer,          Intent (In)   :: nbr_corners
      Real,             Intent (In)   ::                 
         corners1 ( corner_shape(1,1):corner_shape(2,1), 
                    corner_shape(1,2):corner_shape(2,2), nbr_corners)
      Real,             Intent (In)   ::                 
         corners2 ( corner_shape(1,1):corner_shape(2,1), 
                    corner_shape(1,2):corner_shape(2,2), nbr_corners)
      Real,             Intent (In)   :: tol
      Logical,          Intent (Out)  :: fnd (nc)
      Integer,          Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_control_cell_gauss2_real (grid_id,           &
                    ic, nc, list, j, k,                            &
                    coords1,  coords2,  shape,                     &
                    corners1, corners2, corner_shape, nbr_corners, &
                    tol, fnd, ierror)
      Use PSMILe_common

      Integer,          Intent (In)   :: grid_id, nc
      Integer,          Intent (In)   :: ic (nc)
      Integer,          Intent (In)   :: list (nc), j, k
      Integer,          Intent (In)   :: shape (2, ndim_3d)
      Real,             Intent (In)   :: 
         coords1 (shape(1,1):shape(2,1), shape(1,2):shape(2,2), 
                  shape(1,3):shape(2,3))
      Real,             Intent (In)   :: 
         coords2 (shape(1,1):shape(2,1), shape(1,2):shape(2,2), 
                  shape(1,3):shape(2,3))
      Integer,          Intent (In)   :: corner_shape (2, ndim_2d)
      Integer,          Intent (In)   :: nbr_corners
      Real,             Intent (In)   ::                 
         corners1 ( corner_shape(1,1):corner_shape(2,1), 
                    corner_shape(1,2):corner_shape(2,2), nbr_corners)
      Real,             Intent (In)   ::                 
         corners2 ( corner_shape(1,1):corner_shape(2,1), 
                    corner_shape(1,2):corner_shape(2,2), nbr_corners)
      Real,             Intent (In)   :: tol
      Logical,          Intent (Out)  :: fnd (nc)
      Integer,          Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_ext_compact_irreg2_real (send_info, array, shape, &
                                               grid_valid_shape,        &
                                               dest_vector, dest_size, ierror)
       Use PSMILe_common
       Type(Send_information), Intent(InOut) :: send_info
       Real, Intent (In)                     :: array (*)
       Integer, Intent (In)                  :: shape (2, ndim_2d)
       Integer, Intent (In)                  :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)                  :: dest_size
       Real, Intent (Out)                    :: dest_vector (dest_size)
       Integer, Intent (Out)                 :: ierror
    End Subroutine

    subroutine psmile_ext_compact_list_3d_real (send_info, array, shape, &
                                                grid_valid_shape,        &
                                                dest_vector, dest_size, ierror)
       Use PSMILe_common
       Type(Send_information), Intent(In)    :: send_info
       Real, Intent (In)                     :: array (*)
       Integer, Intent (In)                  :: shape (2, ndim_3d)
       Integer, Intent (In)                  :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)                  :: dest_size
       Real, Intent (Out)                    :: dest_vector (dest_size)
       Integer, Intent (Out)                 :: ierror
    End Subroutine

    subroutine psmile_put_compact_list_3d_real (source_list, dstijk, nloc, &
                                                array, shape, nbr_fields,  &
                                                ierror)
       Use PSMILe_common
       Real, Intent (InOut)               :: array (*)
       Integer, Intent (In)               :: shape (2, ndim_3d)
       Integer, Intent (In)               :: nloc, nbr_fields
       Integer, Intent (In)               :: dstijk (ndim_3d, nbr_fields)
       Real, Intent (In)                  :: source_list (nloc, nbr_fields)
       Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_extract_indices_2d_real (array, shape, &
                                               dstijk, ncpl, &
                                               dest_vector, ierror)
       Use PSMILe_common
       Real, Intent (In)                  :: array (*)
       Integer, Intent (In)               :: shape (2, ndim_2d)
       Integer, Intent (In)               :: ncpl
       Integer, Intent (In)               :: dstijk (ndim_3d, ncpl)
       Real, Intent (Out)                 :: dest_vector (ncpl)
       Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_extract_indices_3d_real (array, shape, &
                                               dstijk, ncpl, &
                                               dest_vector, ierror)
       Use PSMILe_common
       Real, Intent (In)                  :: array (*)
       Integer, Intent (In)               :: shape (2, ndim_3d)
       Integer, Intent (In)               :: ncpl
       Integer, Intent (In)               :: dstijk (ndim_3d, ncpl)
       Real, Intent (Out)                 :: dest_vector (ncpl)
       Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_extent_subgrid_1d_real (           &
                    array, idlow, idhigh, nbr_corners,   &
                           ibeg,  iend,                  &
                    extent, ierror)
       Integer, Intent (In)            :: idlow, idhigh, nbr_corners
       Integer, Intent (In)            :: ibeg, iend
       Real, Intent (In)               :: array (idlow:idhigh, nbr_corners)
       Real, Intent (Out)              :: extent (2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_extent_subgrid_2d_real (           &
                    array, idlow, idhigh, jdlow, jdhigh, nbr_corners,   &
                           ibeg,  iend,   jbeg,  jend,                  &
                    extent, ierror)
       Integer, Intent (In)            :: idlow, idhigh
       Integer, Intent (In)            :: jdlow, jdhigh, nbr_corners
       Integer, Intent (In)            :: ibeg, iend, jbeg, jend
       Real, Intent (In)               :: array (idlow:idhigh,          
                                                 jdlow:jdhigh, nbr_corners)
       Real, Intent (Out)              :: extent (2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_extent_subgrid_3d_real (           &
                    array, idlow, idhigh, jdlow, jdhigh, &
                           kdlow, kdhigh, nbr_corners,   &
                           grid_shape,                   &
                    extent, ierror)
       Use PSMILe_common
       Integer, Intent (In)            :: idlow, idhigh, jdlow, jdhigh
       Integer, Intent (In)            :: kdlow, kdhigh, nbr_corners
       Integer, Intent (In)            :: grid_shape (2, ndim_3d)
       Real, Intent (In)               :: array (idlow:idhigh, jdlow:jdhigh, 
                                                 kdlow:kdhigh, nbr_corners)
       Real, Intent (Out)              :: extent (2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_gauss_setup_real (grid_id, counts, displs, ierror)
      Integer, Intent (In)             :: grid_id
      Integer, Intent (In)             :: counts (*)
      Integer, Intent (In)             :: displs (*)
      Integer, Intent (Out)            :: ierror
    End Subroutine PSMILe_gauss_setup_real

    subroutine psmile_generate_1d_3d_real (            &
                    vector1, vector2, vector3, shape,  &
                    dest_array, dest_shape,            &
                    grid_valid_shape, ierror)
       Use PSMILe_common

       Real,             Intent (In)   :: vector1 (*)
       Real,             Intent (In)   :: vector2 (*)
       Real,             Intent (In)   :: vector3 (*)
       Integer,          Intent (In)   :: shape (2, ndim_3d)
       Integer,          Intent (In)   :: dest_shape (2, ndim_3d)
       Real,             Intent (Out)  :: dest_array ( 
                                             dest_shape(1,1):dest_shape(2,1), 
                                             dest_shape(1,2):dest_shape(2,2), 
                                             dest_shape(1,3):dest_shape(2,3))
       Integer,          Intent (In)   :: grid_valid_shape (2, ndim_3d)
       Integer,          Intent (Out)  :: ierror
    End Subroutine
!
    subroutine psmile_get_cyclic_dir_3d_real (                 &
                           chmin, chmin2, chmin3,              &
                           chmax, chmax2, chmax3, levdim,      &
                           corners, corners2, corners3,        &
                           corner_shape, nbr_corners,          &
                           grid_valid_shape,                   &
                           len_cyclic, rtol, index, cyclic, ierror)
       Use PSMILe_common

       Real, Intent (In)               :: chmin (*)
       Real, Intent (In)               :: chmax (*)
       Real, Intent (In)               :: chmin2 (*)
       Real, Intent (In)               :: chmax2 (*)
       Real, Intent (In)               :: chmin3 (*)
       Real, Intent (In)               :: chmax3 (*)
       Integer, Intent (In)            :: levdim (ndim_3d)
       Real, Intent (In)               :: corners (*)
       Real, Intent (In)               :: corners2 (*)
       Real, Intent (In)               :: corners3 (*)
       Integer, Intent (In)            :: corner_shape (2, ndim_3d)
       Integer, Intent (In)            :: nbr_corners
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Real, Intent (In)               :: len_cyclic, rtol
       Integer, Intent (In)            :: index
       Logical, Intent (Out)           :: cyclic
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_get_faces_3d_real (search, extra_search,     &
                    corners1, corners2, corners3,                  &
                    corner_shape, nbr_corners, grid_valid_shape,   &
                    neighbors_3d, nloc, num_neigh,                 &
                    faces, n_faces, nreq, ierror)
       Use PSMILe_common

       Type (Enddef_search),     Intent (In)  :: search
       Type (Extra_search_info), Intent (In)  :: extra_search
       Integer,                  Intent (In)  :: nbr_corners, nloc, num_neigh
       Integer,                  Intent (In)  :: nreq
       Integer,                  Intent (In)  :: corner_shape     (2, ndim_3d)
       Integer,                  Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Real,                     Intent (In)  :: 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), 
                     corner_shape(1,3):corner_shape(2,3), nbr_corners)
       Real,                     Intent (In)  :: 
          corners2 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), 
                     corner_shape(1,3):corner_shape(2,3), nbr_corners)
       Real,                     Intent (In)  :: 
          corners3 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), 
                     corner_shape(1,3):corner_shape(2,3), nbr_corners)
       Integer,                  Intent (In)  :: 
          neighbors_3d (ndim_3d, nloc, num_neigh)
!
       Real,                     Intent (Out) :: faces (2, ndim_3d, nreq)
       Integer,                  Intent (Out) :: n_faces (nreq)
       Integer,                  Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_get_faces_3d_reg_real (search, extra_search, &
                    corners1, corners2, corners3,                  &
                    corner_shape, nbr_corners, grid_valid_shape,   &
                    neighbors_3d, nloc, num_neigh,                 &
                    faces, n_faces, nreq, ierror)
       Use PSMILe_common

       Type (Enddef_search),     Intent (In)  :: search
       Type (Extra_search_info), Intent (In)  :: extra_search
       Integer,                  Intent (In)  :: nbr_corners, nloc, num_neigh
       Integer,                  Intent (In)  :: nreq
       Integer,                  Intent (In)  :: corner_shape     (2, ndim_3d)
       Integer,                  Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Real,                     Intent (In)  :: 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 2)
       Real,                     Intent (In)  :: 
          corners2 ( corner_shape(1,2):corner_shape(2,2), 2)
       Real,                     Intent (In)  :: 
          corners3 ( corner_shape(1,3):corner_shape(2,3), 2)
       Integer,                  Intent (In)  :: 
          neighbors_3d (ndim_3d, nloc, num_neigh)
!
       Real,                     Intent (Out) :: faces (2, ndim_3d, nreq)
       Integer,                  Intent (Out) :: n_faces (nreq)
       Integer,                  Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_get_faces_gauss2_real (search, extra_search, &
                    corners1, corners2, corners3,                  &
                    corner_shape, nbr_corners, grid_valid_shape,   &
                    neighbors_3d, nloc, num_neigh,                 &
                    faces, nreq, ierror)

       Use PSMILe_common

       Type (Enddef_search),     Intent (In)  :: search
       Type (Extra_search_info), Intent (In)  :: extra_search
       Integer,                  Intent (In)  :: nbr_corners, nloc, num_neigh
       Integer,                  Intent (In)  :: nreq
       Integer,                  Intent (In)  :: corner_shape     (2, ndim_3d)
       Integer,                  Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Real,                     Intent (In)  :: 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 2 )
       Real,                     Intent (In)  :: 
          corners2 ( corner_shape(1,1):corner_shape(2,1), 2 )
       Real,                     Intent (In)  :: 
          corners3 ( corner_shape(1,3):corner_shape(2,3), 2 )
       Integer,                  Intent (In)  :: 
          neighbors_3d (ndim_3d, nloc, num_neigh)
!
       Real,                     Intent (Out) :: faces (2, ndim_3d, nreq)
       Integer,                  Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_get_faces_irreg2_real (search, extra_search, &
                    corners1, corners2, corners3,                  &
                    corner_shape, nbr_corners, grid_valid_shape,   &
                    neighbors_3d, nloc, num_neigh,                 &
                    faces, n_faces, nreq, ierror)
       Use PSMILe_common

       Type (Enddef_search),     Intent (In)  :: search
       Type (Extra_search_info), Intent (In)  :: extra_search
       Integer,                  Intent (In)  :: nbr_corners, nloc, num_neigh
       Integer,                  Intent (In)  :: nreq
       Integer,                  Intent (In)  :: corner_shape     (2, ndim_3d)
       Integer,                  Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Real,                     Intent (In)  :: 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners/2)
       Real,                     Intent (In)  :: 
          corners2 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners/2)
       Real,                     Intent (In)  :: 
          corners3 ( corner_shape(1,3):corner_shape(2,3), 2)
       Integer,                  Intent (In)  :: 
          neighbors_3d (ndim_3d, nloc, num_neigh)
!
       Real,                     Intent (Out) :: faces (2, ndim_3d, nreq)
       Integer,                  Intent (Out) :: n_faces (nreq)
       Integer,                  Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_get_grid_extent_real (grid_id, extent, ierror)
       Use PSMILe_common
       Integer,                  Intent (In)   :: grid_id
       Real (PSMILe_float_kind), Intent (Out)  :: extent (2, ndim_3d)
       Integer,                  Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_global_search_nnx_real (comp_info,         &
                    search, var_id,                              &
                    tgt_coords_x, tgt_coords_y, tgt_coords_z,    &
                    neighbors_3d, nloc, num_neigh, nb_extra,     &
                    extra_search, send_index,                    &
                    ierror)
       Use PSMILe_common

       Type (Enddef_comp),   Intent (In)    :: comp_info
       Type (Enddef_search), Intent (InOut) :: search
       Integer,              Intent (In)    :: var_id
       Integer,              Intent (In)    :: send_index
       Integer,              Intent (In)    :: nb_extra, nloc, num_neigh
       Real,                 Intent (In)    :: tgt_coords_x (nloc)
       Real,                 Intent (In)    :: tgt_coords_y (nloc)
       Real,                 Intent (In)    :: tgt_coords_z (nloc)
       Integer,              Intent (InOut) :: 
          neighbors_3d (ndim_3d, nloc,  num_neigh)
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer,              Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_global_search_real (comp_info,             &
                    control, len_cpl, var_id, grid_valid_shape,  &
                    search, tgt_coords,                          &
                    neighbors_3d, nloc, num_neigh, extra_search, &
                    interpolation_methods, interpolation_search, n_intmethods, &
                    send_index,                                  &
                    mask_available, use_mask, use_how,           &
                    grid_type, ierror)
       Use PSMILe_common

       Type (Enddef_comp),   Intent (In)    :: comp_info
       Type (Enddef_search), Intent (InOut) :: search
       Type (real_vector),   Intent (In)    :: tgt_coords (ndim_3d)
       Integer,              Intent (In)    :: control (2, ndim_3d, 
                                               search%npart)
       Integer,              Intent (In)    :: len_cpl (search%npart)
       Integer,              Intent (In)    :: var_id
       Integer,              Intent (In)    :: grid_valid_shape (2, ndim_3d)
       Integer,              Intent (In)    :: send_index
       Integer,              Intent (In)    :: nloc, num_neigh
       Integer,              Intent (In)    :: n_intmethods
       Integer,              Intent (In)    :: interpolation_methods (n_intmethods)
       Logical,              Intent (In)    :: interpolation_search  (n_intmethods)
       Logical,              Intent (In)    :: mask_available, use_mask
       Integer,              Intent (In)    :: use_how
       Integer,              Intent (In)    :: grid_type
       Integer,              Intent (InOut) :: neighbors_3d (ndim_3d, nloc, 
                                                             num_neigh)
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer,              Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_global_search_cell_real ( grid_id, var_id,    &
                  comp_info, send_info, search, extra_search, ncpl, &
                  nbr_cells, n_intmethods, interpolation_methods,   &
                  interpolation_search, ierror )
       Use PSMILe_common

       Integer,                  Intent (In)    :: grid_id
       Integer,                  Intent (In)    :: var_id
       Type (Enddef_comp),       Intent (In)    :: comp_info
       Type (Send_information),  Intent (InOut) :: send_info
       Type (Enddef_search),     Intent (InOut) :: search
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer,                  Intent (In)    :: ncpl
       Integer,                  Intent (InOut) :: nbr_cells(ncpl)
       Integer,                  Intent (In)    :: n_intmethods
       Integer,                  Intent (In)    :: interpolation_methods (n_intmethods)
       Logical,                  Intent (In)    :: interpolation_search  (n_intmethods)
       Integer,                  Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_return_extra_off_real (comp_info, search, var_id, &
                      found, distance, nd_dist, nb_extra, ierror)
       Use PSMILe_common

       Type (Enddef_comp),          Intent (In)    :: comp_info
       Type (Enddef_global_search), Intent (InOut) :: search
       Integer,                     Intent (In)    :: var_id
       Integer,                     Intent (In)    :: nd_dist, nb_extra
       Integer,                     Intent (In)    :: found (nd_dist)
       Real,                        Intent (In)    :: distance (nd_dist, 
                                                                nb_extra)

       Integer,                     Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_sel_grid_range_real (grid_id, dinter, inter, ierror)
       Use PSMILe_common
       Integer,                  Intent (In)  :: grid_id
       Real (PSMILe_float_kind), Intent (In)  :: dinter (2, ndim_3d)
       Integer,                  Intent (Out) ::  inter (2, ndim_3d)
       Integer,                  Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_range_subgrid_1d_real (            &
                    array, idlow, idhigh, nbr_corners,   &
                           ibeg,  iend,                  &
                    extent, inter, ierror)
       Integer, Intent (In)            :: idlow, idhigh, nbr_corners
       Integer, Intent (In)            :: ibeg, iend
       Real, Intent (In)               :: array (idlow:idhigh, nbr_corners)
       Real, Intent (In)               :: extent (2)
       Integer, Intent (Out)           :: inter (2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_range_subgrid_2d_real (           &
                    array1, array2,                                     &
                          idlow, idhigh, jdlow, jdhigh, nbr_corners,    &
                           ibeg,  iend,   jbeg,  jend,                  &
                    extent, inter, ierror)
       Integer, Intent (In)            :: idlow, idhigh
       Integer, Intent (In)            :: jdlow, jdhigh, nbr_corners
       Integer, Intent (In)            :: ibeg, iend, jbeg, jend
       Real, Intent (In)               :: array1(idlow:idhigh,          
                                                 jdlow:jdhigh, nbr_corners)
       Real, Intent (In)               :: array2(idlow:idhigh,          
                                                 jdlow:jdhigh, nbr_corners)
       Real, Intent (In)               :: extent (2,2)
       Integer, Intent (Out)           :: inter (2,2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_range_subgrid_3d_real (           &
                   array1, array2, array3,               &
                           idlow, idhigh, jdlow, jdhigh, &
                           kdlow, kdhigh, nbr_corners,   &
                           grid_shape,                   &
                           rinter, inter, ierror)
       Use PSMILe_common
       Integer, Intent (In)            :: idlow, idhigh, jdlow, jdhigh
       Integer, Intent (In)            :: kdlow, kdhigh, nbr_corners
       Real, Intent (In)               :: array1(idlow:idhigh, jdlow:jdhigh, 
                                                 kdlow:kdhigh, nbr_corners)
       Real, Intent (In)               :: array2(idlow:idhigh, jdlow:jdhigh, 
                                                 kdlow:kdhigh, nbr_corners)
       Real, Intent (In)               :: array3(idlow:idhigh, jdlow:jdhigh, 
                                                 kdlow:kdhigh, nbr_corners)
       Integer, Intent (In)            :: grid_shape (2, ndim_3d)
       Real, Intent (In)               :: rinter (2, ndim_3d)
       Integer, Intent (Out)           ::  inter (2, ndim_3d)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_ctrl_subgrid_1d_real (       &
                    array, corner_shape, nbr_corners, &
                           range,                     &
                    chmin, chmax, levdim, period,     &
                    grid_id, ind, ierror)
       Integer, Intent (In)             :: nbr_corners
       Integer, Intent (In)             :: corner_shape (2)
       Integer, Intent (In)             :: range (2)
       Integer, Intent (In)             :: levdim
       Real, Intent (In)                :: period
       Real, Intent (In)                :: array(corner_shape(1):
                                                 corner_shape(2),
                                                 nbr_corners)
       Real, Intent (In)                :: chmin (0:levdim)
       Real, Intent (In)                :: chmax (0:levdim)
       Integer, Intent (In)             :: grid_id, ind
       Integer, Intent (Out)            :: ierror
    End Subroutine

    subroutine psmile_mg_ctrl_subgrid_2d_real (       &
                    array, corner_shape, nbr_corners, &
                           range,                     &
                    chmin, chmax, levdim, period,     &
                    grid_id, ind, ierror)
       Integer, Intent (In)             :: nbr_corners
       Integer, Intent (In)             :: corner_shape (2, 2)
       Integer, Intent (In)             :: range (2, 2)
       Integer, Intent (In)             :: levdim (2)
       Real, Intent (In)                :: period
       Real, Intent (In)                :: array(corner_shape(1,1):
                                                 corner_shape(2,1),
                                                 corner_shape(1,2):
                                                 corner_shape(2,2),
                                                 nbr_corners)
       Real, Intent (In)                :: chmin (0:levdim(1), 0:levdim(2))
       Real, Intent (In)                :: chmax (0:levdim(1), 0:levdim(2))
       Integer, Intent (In)             :: grid_id, ind
       Integer, Intent (Out)            :: ierror
    End Subroutine

    subroutine psmile_mg_ctrl_subgrid_3d_real (       &
                    array, corner_shape, nbr_corners, &
                           range,                     &
                    chmin, chmax, levdim, period,     &
                    grid_id, ind, ierror)
       Use PSMILe_common
       Integer, Intent (In)             :: nbr_corners
       Integer, Intent (In)             :: corner_shape (2, ndim_3d)
       Integer, Intent (In)             :: range (2, ndim_3d)
       Integer, Intent (In)             :: levdim (ndim_3d)
       Real, Intent (In)                :: period
       Real, Intent (In)                :: array(corner_shape(1,1):
                                                 corner_shape(2,1),
                                                 corner_shape(1,2):
                                                 corner_shape(2,2),
                                                 corner_shape(1,3):
                                                 corner_shape(2,3),
                                                 nbr_corners)
       Real, Intent (In)                :: chmin (0:levdim(1), 0:levdim(2), 
                                                  0:levdim(3))
       Real, Intent (In)                :: chmax (0:levdim(1), 0:levdim(2), 
                                                  0:levdim(3))
       Integer, Intent (In)             :: grid_id, ind
       Integer, Intent (Out)            :: ierror
    End Subroutine


    subroutine psmile_mg_first_level_real (grid_id, range, &
                    mg_info, tol, simplified_grid, ierror)
       Use PSMILe_common
       Integer,          Intent (In)    :: grid_id
       Integer,          Intent (In)    :: range (2, ndim_3d)
       Type (Enddef_mg), Intent (InOut) :: mg_info
       Real (PSMILe_float_kind), Intent (In) :: tol
       Logical,          Intent (In)    :: simplified_grid
       Integer,          Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_mg_first_subgrid_1d_real (         &
                    array, idlow, idhigh, nbr_corners,   &
                           range,                        &
                    chmin, chmax, midp,                  &
                    levdim, ierror)
       Integer, Intent (In)            :: idlow, idhigh, nbr_corners
       Integer, Intent (In)            :: range (2)
       Integer, Intent (In)            :: levdim
       Real, Intent (In)               :: array (idlow:idhigh, nbr_corners)
       Real, Intent (Out)              :: chmin (0:levdim)
       Real, Intent (Out)              :: chmax (0:levdim)
       Real, Intent (Out)              :: midp  (0:levdim)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_first_subgrid_2d_real (array, &
                    idlow, idhigh, jdlow, jdhigh, nbr_corners,   &
                           range,                        &
                    chmin, chmax, midp,                  &
                    levdim1, levdim2, ierror)
       Integer, Intent (In)            :: idlow, idhigh, jdlow, jdhigh
       Integer, Intent (In)            :: nbr_corners
       Integer, Intent (In)            :: range (2, 2)
       Integer, Intent (In)            :: levdim1, levdim2
       Real, Intent (In)               :: array (idlow:idhigh, jdlow:jdhigh, 
                                                 nbr_corners)
       Real, Intent (Out)              :: chmin (0:levdim1, 0:levdim2)
       Real, Intent (Out)              :: chmax (0:levdim1, 0:levdim2)
       Real, Intent (Out)              :: midp  (0:levdim1, 0:levdim2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_first_subgrid_3d_real (array, &
                    idlow, idhigh, jdlow, jdhigh, kdlow, kdhigh, &
                    nbr_corners,   &
                           range,                        &
                    chmin, chmax, midp,                  &
                    levdim1, levdim2, levdim3, ierror)
       Use PSMILe_common
       Integer, Intent (In)            :: idlow, idhigh, jdlow, jdhigh, kdlow, kdhigh
       Integer, Intent (In)            :: nbr_corners
       Real, Intent (In)               :: array (idlow:idhigh, jdlow:jdhigh, 
                                                 kdlow:kdhigh, nbr_corners)
       Integer, Intent (In)            :: range (2, ndim_3d)
       Integer, Intent (In)            :: levdim1, levdim2, levdim3
       Real, Intent (Out)              :: chmin (0:levdim1, 0:levdim2, 0:levdim3)
       Real, Intent (Out)              :: chmax (0:levdim1, 0:levdim2, 0:levdim3)
       Real, Intent (Out)              :: midp  (0:levdim1, 0:levdim2, 0:levdim3)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_coars_level_real (grid_id, mg_info_fine, &
                                     mg_info_coarse, &
                                     icoarse, ierror)
       Use PSMILe_common
       Integer, Intent (In)            :: grid_id
       Type (Enddef_mg), Intent (In)   :: mg_info_fine
       Type (Enddef_mg), Intent (InOut):: mg_info_coarse
       Integer, Intent (In)            :: icoarse (ndim_3d)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_coars_subgrid_3d_real ( chfmin, chfmax, midfp, &
                             levdim1_fine, levdim2_fine, levdim3_fine,  &
                                                chcmin, chcmax, midcp,  &
                                            levdim1, levdim2, levdim3,  &
                                                icoarse, ierror)
       Use PSMILe_common
       Integer, Intent (In)            :: levdim1_fine, levdim2_fine, 
                                          levdim3_fine
       Integer, Intent (In)            :: levdim1, levdim2, levdim3
       Real, Intent (In)               :: chfmin (0:levdim1_fine,  
                                                  0:levdim2_fine,  
                                                  0:levdim3_fine)
       Real, Intent (In)               :: chfmax (0:levdim1_fine,  
                                                  0:levdim2_fine,  
                                                  0:levdim3_fine)
       Real, Intent (In)               ::  midfp (0:levdim1_fine,  
                                                  0:levdim2_fine,  
                                                  0:levdim3_fine)
       Real, Intent (Out)              :: chcmin (0:levdim1, 0:levdim2, 
                                                  0:levdim3)
       Real, Intent (Out)              :: chcmax (0:levdim1, 0:levdim2, 
                                                  0:levdim3)
       Real, Intent (Out)              ::  midcp (0:levdim1, 0:levdim2, 
                                                  0:levdim3)
       Integer, Intent (In)            :: icoarse (ndim_3d)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_get_cyclic_real (grid_id, range, &
                                          tol, ierror)
       Use PSMILe_common

       Integer, Intent (In)               :: grid_id
       Integer, Intent (In)               :: range (2, ndim_3d)
       Real, Intent (In)                  :: tol
       Integer, Intent (Out)              :: ierror
    End Subroutine
!
    subroutine psmile_neigh_extra_search_real (search, extra_search, &
                                               nb_extra, ierror)
       Use PSMILe_common

       Type (Enddef_search),     Intent (In)    :: search
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer,                  Intent (In)    :: nb_extra
       Integer,                  Intent (Out)   :: ierror
    End Subroutine
!
    subroutine psmile_send_req_coords_real (msg_intersections, &
                                            dest, tag, ierror)
       use psmile_common, only : enddef_msg_intersections

       Integer, Intent (In)                         :: dest, tag
       Type (enddef_msg_intersections), Intent (In) :: msg_intersections
       Integer, Intent (Out)                        :: ierror
    End Subroutine
!
    subroutine psmile_send_req_corners_real (msg_intersections, &
                                             dest, tag, ierror)
       use psmile_common, only : enddef_msg_intersections

       Integer, Intent (In)                         :: dest, tag
       Type (enddef_msg_intersections), Intent (In) :: msg_intersections
       Integer, Intent (Out)                        :: ierror

    End Subroutine
!
    subroutine psmile_recv_req_coords_real (sender, tag, search, &
                                            recv_req, recv_mask, new_search, ierror)
       Use PSMILe_common
       Integer, Intent (In)                 :: sender, tag
       Logical, Intent (In)                 :: recv_mask, new_search
       Type (Enddef_search), Intent (InOut) :: search
       Integer, Intent (Out)                :: recv_req (ndim_3d+2, *)
       Integer, Intent (Out)                :: ierror
    End Subroutine
!
    subroutine psmile_recv_req_corners_real (sender, tag,      &
                                             search, recv_req, &
                                             recv_mask, new_search, &
                                             ierror)
       Use PSMILe_common
       Integer, Intent (In)                 :: sender, tag
       Logical, Intent (In)                 :: recv_mask, new_search
       Type (Enddef_search), Intent (InOut) :: search
       Integer, Intent (Out)                :: recv_req (ndim_3d+2, *)
       Integer, Intent (Out)                :: ierror
    End Subroutine
!
    subroutine psmile_search_donor_1d_real (grid_id, idim, found, &
                                            locations, coords, len, &
                                            tol, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: idim
       Integer, Intent (In)            :: len
       Integer, Intent (InOut)         :: found (len)
       Integer, Intent (InOut)         :: locations (len)
       Real, Intent (In)               :: coords (len)
       Real, Intent (In)               :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_search_donor_2d_real (found, &
                                            locations, len, &
                                            search, ipart, &
                                            grid_id, method_id, var_id, &
                                            tol, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: len
       Integer, Intent (InOut)         :: found (len)
       Integer, Intent (InOut)         :: locations (ndim_2d, len)
       Type (Enddef_search)            :: search
       Integer, Intent (In)            :: ipart
       Integer, Intent (In)            :: grid_id, method_id, var_id
       Real, Intent (In)               :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_search_donor_3d_real (comp_info, found, &
                                            locations, len, search, &
                                            field_list, n_vars, &
                                            grid_id, method_id, var_id, &
                                            tol, ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In) :: comp_info
       Type (integer_vector)           :: found (*)
       Type (integer_vector)           :: locations (*)
       Integer, Intent (In)            :: len (*)
       Type (Enddef_search)            :: search
       Integer, Intent (In)            :: grid_id
       Integer, Intent (InOut)         :: method_id, var_id
       Integer, Intent (In)            :: n_vars
       Integer, Intent (In)            :: field_list (nd_field_list, n_vars)
       Real, Intent (In)               :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_search_donor_3d_reg_real (comp_info,   &
                                            found, locations, len, &
                                            search, field_list, n_vars, &
                                            grid_id, method_id, var_id, &
                                            tol, ierror)
       Use PSMILe_common

       Type (Enddef_comp),    Intent (In)    :: comp_info
       Type (Enddef_search)                  :: search
       Type (integer_vector), Intent (InOut) :: found (ndim_3d, *)
       Type (integer_vector), Intent (InOut) :: locations (ndim_3d, *)
       Integer, Intent (In)            :: len (search%npart)
       Integer, Intent (In)            :: grid_id
       Integer, Intent (InOut)         :: method_id, var_id
       Integer, Intent (In)            :: n_vars
       Integer, Intent (In)            :: field_list (nd_field_list, n_vars)
       Real, Intent (In)               :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_search_donor_gauss2_real (comp_info, found, &
                                            locations, len, search, &
                                            field_list, n_vars, &
                                            grid_id, method_id, var_id, &
                                            tol, ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In) :: comp_info
       Type (Enddef_search)            :: search
       Type (integer_vector)           :: found (search%npart, 2)
       Type (integer_vector)           :: locations (search%npart, 2)
       Integer, Intent (In)            :: len (search%npart, 2)
       Integer, Intent (In)            :: grid_id
       Integer, Intent (InOut)         :: method_id, var_id
       Integer, Intent (In)            :: n_vars
       Integer, Intent (In)            :: field_list (nd_field_list, n_vars)
       Real, Intent (In)               :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_search_donor_irreg2_real (comp_info, found,     &
                      locations, len, search,                         &
                      field_list, n_vars, grid_id, method_id, var_id, &
                      tol, ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In) :: comp_info
       Type (Enddef_search)            :: search
       Type (integer_vector)           :: found (search%npart, 2)
       Type (integer_vector)           :: locations (search%npart, 2)
       Integer, Intent (In)            :: len (search%npart, 2)
       Integer, Intent (In)            :: grid_id
       Integer, Intent (InOut)         :: method_id, var_id
       Integer, Intent (In)            :: n_vars
       Integer, Intent (In)            :: field_list (nd_field_list, n_vars)
       Real,               Intent (In) :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_search_donor_nnx_real (comp_info, search, var_id, &
                      coords1, coords2, coords3, distance,              &
                      nfound, locations, n_send, nb_extra,              &
                      tol, ierror)
       Use PSMILe_common

       Type (Enddef_comp),          Intent (In)    :: comp_info
       Integer,                     Intent (In)    :: var_id
       Integer,                     Intent (In)    :: n_send
       Integer,                     Intent (In)    :: nb_extra
       Real,                        Intent (In)    :: coords1 (n_send)
       Real,                        Intent (In)    :: coords2 (n_send)
       Real,                        Intent (In)    :: coords3 (n_send)
       Real,                        Intent (InOut) :: distance (n_send)
       Real,                        Intent (In)    :: tol
       Type (Enddef_global_search), Intent (InOut) :: search
       Integer,                     Intent (InOut) :: nfound (n_send)
       Integer,                     Intent (Out)   :: locations (ndim_3d, n_send)
       Integer,                     Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_search_nn_3d_real (                         &
                      sin_search, cos_search, z_search, distance, &
                      nfound, locations, n_send,                  &
                      x_coords, y_coords, z_coords, coords_shape, &
                      sin_values, cos_values, grid_valid_shape,   &
                      mask_array, mask_shape, mask_available,     &
                      tol, ierror)
       Use PSMILe_common

       Integer,                     Intent (In)    :: n_send
       Real,                        Intent (In)    :: sin_search (n_send, 2)
       Real,                        Intent (In)    :: cos_search (n_send, 2)
       Real,                        Intent (In)    :: z_search (n_send)
       Integer,                     Intent (In)    :: coords_shape (2, ndim_3d)
       Real,                        Intent (In)    ::    
          x_coords (coords_shape(1,1):coords_shape(2,1), 
                    coords_shape(1,2):coords_shape(2,2), 
                    coords_shape(1,3):coords_shape(2,3))
       Real,                        Intent (In)    ::    
          y_coords (coords_shape(1,1):coords_shape(2,1), 
                    coords_shape(1,2):coords_shape(2,2), 
                    coords_shape(1,3):coords_shape(2,3))
       Real,                        Intent (In)    ::    
          z_coords (coords_shape(1,1):coords_shape(2,1), 
                    coords_shape(1,2):coords_shape(2,2), 
                    coords_shape(1,3):coords_shape(2,3))

       Integer,                     Intent (In)    :: mask_shape (2, ndim_3d)
       Logical,                     Intent (In)    ::    
          mask_array (mask_shape (1,1):mask_shape (2,1), 
                      mask_shape (1,2):mask_shape (2,2), 
                      mask_shape (1,3):mask_shape (2,3))
       Logical,                     Intent (In)    :: mask_available
       Integer,                     Intent (In)    :: 
          grid_valid_shape (2, ndim_3d)

       Real,                        Intent (In)   ::               
          sin_values (grid_valid_shape(1,1):grid_valid_shape(2,1), 
                      grid_valid_shape(1,2):grid_valid_shape(2,2), 2)
       Real,                        Intent (In)   ::               
          cos_values (grid_valid_shape(1,1):grid_valid_shape(2,1), 
                      grid_valid_shape(1,2):grid_valid_shape(2,2), 2)
       Real,                        Intent (In)    :: tol
       Real,                        Intent (InOut) :: distance (n_send)
       Integer,                     Intent (InOut) :: nfound (n_send)
       Integer,                     Intent (Out)   :: locations (ndim_3d, n_send)
       Integer,                     Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_search_nn_3d_reg_real (                     &
                      sin_search, cos_search, z_search, distance, &
                      nfound, locations, n_send,                  &
                      x_coords, y_coords, z_coords, coords_shape, &
                      sin_values_lon, cos_values_lon,             &
                      sin_values_lat, cos_values_lat,             &
                      grid_valid_shape,                           &
                      mask_array, mask_shape, mask_available,     &
                      tol, ierror)
       Use PSMILe_common

       Integer,                     Intent (In)    :: n_send
       Real,                        Intent (In)    :: sin_search (n_send, 2)
       Real,                        Intent (In)    :: cos_search (n_send, 2)
       Real,                        Intent (In)    :: z_search (n_send)
       Integer,                     Intent (In)    :: coords_shape (2, ndim_3d)
       Real,                        Intent (In)    ::    
          x_coords (coords_shape(1,1):coords_shape(2,1))
       Real,                        Intent (In)    ::    
          y_coords (coords_shape(1,1):coords_shape(2,1))
       Real,                        Intent (In)    ::    
          z_coords (coords_shape(1,3):coords_shape(2,3))

       Integer,                     Intent (In)    :: mask_shape (2, ndim_3d)
       Logical,                     Intent (In)    ::    
          mask_array (mask_shape (1,1):mask_shape (2,1), 
                      mask_shape (1,2):mask_shape (2,2), 
                      mask_shape (1,3):mask_shape (2,3))
       Logical,                     Intent (In)    :: mask_available
       Integer,                     Intent (In)    :: 
          grid_valid_shape (2, ndim_3d)

       Real,                        Intent (In)    ::                  
          sin_values_lon (grid_valid_shape(1,1):grid_valid_shape(2,1))
       Real,                        Intent (In)    ::                  
          cos_values_lon (grid_valid_shape(1,1):grid_valid_shape(2,1))
       Real,                        Intent (In)   ::                   
          sin_values_lat (grid_valid_shape(1,2):grid_valid_shape(2,2))
       Real,                        Intent (In)   ::                   
          cos_values_lat (grid_valid_shape(1,2):grid_valid_shape(2,2))
       Real,                        Intent (In)    :: tol
       Real,                        Intent (InOut) :: distance (n_send)
       Integer,                     Intent (InOut) :: nfound (n_send)
       Integer,                     Intent (Out)   :: locations (ndim_3d, n_send)
       Integer,                     Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_search_nn_irreg2_real (                     &
                      sin_search, cos_search, z_search, distance, &
                      nfound, locations, n_send,                  &
                      x_coords, y_coords, z_coords, coords_shape, &
                      sin_values, cos_values, grid_valid_shape,   &
                      mask_array, mask_shape, mask_available,     &
                      tol, ierror)
       Use PSMILe_common

       Integer,                     Intent (In)    :: n_send
       Real,                        Intent (In)    :: sin_search (n_send, 2)
       Real,                        Intent (In)    :: cos_search (n_send, 2)
       Real,                        Intent (In)    :: z_search (n_send)
       Integer,                     Intent (In)    :: coords_shape (2, ndim_3d)
       Real,                        Intent (In)    :: x_coords(  
                                                        coords_shape(1,1):coords_shape(2,1), 
                                                        coords_shape(1,2):coords_shape(2,2))
       Real,                        Intent (In)    :: y_coords(  
                                                        coords_shape(1,1):coords_shape(2,1), 
                                                        coords_shape(1,2):coords_shape(2,2))
       Real,                        Intent (In)    :: z_coords(  
                                                        coords_shape(1,3):coords_shape(2,3))

       Integer,                     Intent (In)    :: mask_shape (2, ndim_3d)
       Logical,                     Intent (In)    :: mask_array ( 
                                                        mask_shape (1,1):mask_shape (2,1), 
                                                        mask_shape (1,2):mask_shape (2,2), 
                                                        mask_shape (1,3):mask_shape (2,3))
       Logical,                     Intent (In)    :: mask_available
       Integer,                     Intent (In)    :: grid_valid_shape (2, ndim_3d)

       Real,                        Intent (In)   :: sin_values ( 
                                                        grid_valid_shape(1,1):grid_valid_shape(2,1), 
                                                        grid_valid_shape(1,2):grid_valid_shape(2,2), 
                                                        2)
       Real,                        Intent (In)   :: cos_values ( 
                                                       grid_valid_shape(1,1):grid_valid_shape(2,1), 
                                                       grid_valid_shape(1,2):grid_valid_shape(2,2), 
                                                       2)
       Real,                        Intent (In)    :: tol
       Real,                        Intent (InOut) :: distance (n_send)
       Integer,                     Intent (InOut) :: nfound (n_send)
       Integer,                     Intent (Out)   :: locations (ndim_3d, n_send)
       Integer,                     Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_select_nn_found (search, extra_search,      &
                        send_info,                                &
                        selected, sel_info, nrecv, nb_extra,      &
                        neighbors_3d, nloc, num_neigh,            &
                        grid_valid_shape, ierror)
       Use PSMILe_common

       Type (Enddef_search),      Intent (In)    :: search
       Integer,                   Intent (In)    :: nb_extra
       Integer,                   Intent (In)    :: nloc
       Integer,                   Intent (In)    :: num_neigh
       Integer,                   Intent (In)    :: grid_valid_shape (2, ndim_3d)
       Integer,                   Intent (InOut) :: nrecv
       Type (Extra_search_info),  Intent (InOut) :: extra_search
       Type (Send_information),   Intent (InOut) :: send_info
       Integer,                   Intent (InOut) :: selected (2, extra_search%n_extra)
       Type (Select_search_info), Intent (InOut) :: sel_info (nrecv)
       Integer,                   Intent (InOut) :: neighbors_3d (ndim_3d, nloc, 
                                                          num_neigh)
       Integer,                   Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_store_faces_3d_real (indices_req, required,     &
                    nreq,                                             &
                    tgt_coords1, tgt_coords2, tgt_coords3, ncpl,      &
                    corners1, corners2, corners3,                     &
                    corner_shape, nbr_corners, grid_valid_shape,      &
                    send_mask, srcloc_ind,                            &
                    ibuf, len_item, ndibuf, ipia,                     &
                     buf, len_rtem, ndrbuf, ipa, ierror)
       Use PSMILe_common

       Integer,                  Intent (In)  :: nreq, ncpl
       Integer,                  Intent (In)  :: indices_req (nreq)
       Integer,                  Intent (In)  :: required    (nreq)
       Integer,                  Intent (In)  :: nbr_corners
       Integer,                  Intent (In)  :: corner_shape (2, ndim_3d)
       Integer,                  Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Real,                     Intent (In)  :: tgt_coords1 (ncpl)
       Real,                     Intent (In)  :: tgt_coords2 (ncpl)
       Real,                     Intent (In)  :: tgt_coords3 (ncpl)
       Real,                     Intent (In)  :: corners1 (                          
                                                 corner_shape(1,1):corner_shape(2,1),
                                                 corner_shape(1,2):corner_shape(2,2),
                                                 corner_shape(1,3):corner_shape(2,3),
                                                 nbr_corners)
       Real,                     Intent (In)  :: corners2 (                          
                                                 corner_shape(1,1):corner_shape(2,1),
                                                 corner_shape(1,2):corner_shape(2,2),
                                                 corner_shape(1,3):corner_shape(2,3),
                                                 nbr_corners)
       Real,                     Intent (In)  :: corners3 (                          
                                                 corner_shape(1,1):corner_shape(2,1),
                                                 corner_shape(1,2):corner_shape(2,2),
                                                 corner_shape(1,3):corner_shape(2,3),
                                                 nbr_corners)
       Logical,                  Intent (In)  :: send_mask (nreq)
       Integer,                  Intent (In)  :: len_item, len_rtem, ndibuf, ndrbuf
       Integer,                  Intent (In)  :: srcloc_ind (ndim_3d, ndibuf)
       Real,                     Intent (InOut) ::  buf (len_rtem, ndrbuf)
       Integer,                  Intent (InOut) :: ibuf (len_item, ndibuf)
       Integer,                  Intent (InOut) :: ipa, ipia
       Integer,                  Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_store_faces_3d_reg_real (indices_req, required, &
                    nreq,                                             &
                    tgt_coords1, tgt_coords2, tgt_coords3, ncpl,      &
                    corners1, corners2, corners3,                     &
                    corner_shape, nbr_corners, grid_valid_shape,      &
                    send_mask, srcloc_ind,                            &
                    ibuf, len_item, ndibuf, ipia,                     &
                     buf, len_rtem, ndrbuf, ipa, ierror)
       Use PSMILe_common

       Integer,                  Intent (In)  :: nreq, ncpl
       Integer,                  Intent (In)  :: indices_req (nreq)
       Integer,                  Intent (In)  :: required    (nreq)
       Integer,                  Intent (In)  :: nbr_corners
       Integer,                  Intent (In)  :: corner_shape (2, ndim_3d)
       Integer,                  Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Real,                     Intent (In)  :: tgt_coords1 (ncpl)
       Real,                     Intent (In)  :: tgt_coords2 (ncpl)
       Real,                     Intent (In)  :: tgt_coords3 (ncpl)
       Real,                     Intent (In)  :: corners1 (                             
                                                    corner_shape(1,1):corner_shape(2,1),
                                                    2)
       Real,                     Intent (In)  :: corners2 (                             
                                                    corner_shape(1,2):corner_shape(2,2),
                                                    2)
       Real,                     Intent (In)  :: corners3 (                             
                                                    corner_shape(1,3):corner_shape(2,3),
                                                    2)
       Logical,                  Intent (In)  :: send_mask (nreq)
       Integer,                  Intent (In)  :: len_item, len_rtem, ndibuf, ndrbuf
       Integer,                  Intent (In)  :: srcloc_ind (ndim_3d, ndibuf)
       Real,                     Intent (InOut) ::  buf (len_rtem, ndrbuf)
       Integer,                  Intent (InOut) :: ibuf (len_item, ndibuf)
       Integer,                  Intent (InOut) :: ipa, ipia
       Integer,                  Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_store_faces_gauss2_real (indices_req,      &
                      required, nreq,                              &
                      tgt_coords1, tgt_coords2, tgt_coords3, ncpl, &
                      corners1, corners2, corners3, corner_shape,  &
                      nbr_corners, grid_id, grid_valid_shape,      &
                      send_mask, srcloc_ind,                       &
                      virtual_ind, virtual_cell_available,         &
                      ibuf, len_item, ndibuf, ipia,                &
                      buf,  len_rtem, ndrbuf, ipa, ierror)
      Use PSMILe_common

      Integer,           Intent (In)    :: nreq
      Integer,           Intent (In)    :: indices_req (nreq)
      Integer,           Intent (In)    :: required    (nreq)
      Integer,           Intent (In)    :: corner_shape (2, ndim_3d)
      Integer,           Intent (In)    :: nbr_corners
      Integer,           Intent (In)    :: grid_id
      Integer,           Intent (In)    :: grid_valid_shape (2, ndim_3d)
      Integer,           Intent (In)    :: ncpl
      Real,              Intent (In)    :: tgt_coords1 (ncpl)
      Real,              Intent (In)    :: tgt_coords2 (ncpl)
      Real,              Intent (In)    :: tgt_coords3 (ncpl)
      Real,              Intent (In)    :: corners1 ( corner_shape(1,1):corner_shape(2,1), 2)
      Real,              Intent (In)    :: corners2 ( corner_shape(1,1):corner_shape(2,1), 2)
      Real,              Intent (In)    :: corners3 ( corner_shape(1,3):corner_shape(2,3), 2)
      Logical,           Intent (In)    :: send_mask (nreq)
      Integer,           Intent (In)    :: ndibuf
      Integer,           Intent (In)    :: srcloc_ind (ndim_3d, ndibuf)
      Integer,           Intent (In)    :: virtual_ind (ndibuf)
      Logical,           Intent (In)    :: virtual_cell_available
      Integer,           Intent (In)    :: len_item
      Integer,           Intent (In)    :: ndrbuf
      Integer,           Intent (In)    :: len_rtem
      Real,              Intent (InOut) :: buf (len_rtem, ndrbuf)
      Integer,           Intent (InOut) :: ipa
      Integer,           Intent (InOut) :: ibuf (len_item, ndibuf)
      Integer,           Intent (InOut) :: ipia
      Integer,           Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_store_faces_irreg2_real (indices_req, required, &
                    nreq,                                             &
                    tgt_coords1, tgt_coords2, tgt_coords3, ncpl,      &
                    corners1, corners2, corners3,                     &
                    corner_shape, nbr_corners, grid_valid_shape,      &
                    send_mask, srcloc_ind,                            &
                    ibuf, len_item, ndibuf, ipia,                     &
                     buf, len_rtem, ndrbuf, ipa, ierror)
       Use PSMILe_common

       Integer,                  Intent (In)  :: nreq, ncpl
       Integer,                  Intent (In)  :: indices_req (nreq)
       Integer,                  Intent (In)  :: required    (nreq)
       Integer,                  Intent (In)  :: nbr_corners
       Integer,                  Intent (In)  :: corner_shape     (2, ndim_3d)
       Integer,                  Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Real,                     Intent (In)  :: tgt_coords1 (ncpl)
       Real,                     Intent (In)  :: tgt_coords2 (ncpl)
       Real,                     Intent (In)  :: tgt_coords3 (ncpl)
       Real,                     Intent (In)  :: 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners/2)
       Real,                     Intent (In)  :: 
          corners2 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners/2)
       Real,                     Intent (In)  :: 
          corners3 ( corner_shape(1,3):corner_shape(2,3), 2)
       Logical,                  Intent (In)  :: send_mask (nreq)
       Integer,                  Intent (In)  :: len_item, len_rtem
       Integer,                  Intent (In)  :: ndibuf, ndrbuf
       Integer,                  Intent (In)  :: srcloc_ind (ndim_3d, ndibuf)
!
       Real,                     Intent (InOut) ::  buf (len_rtem, ndrbuf)
       Integer,                  Intent (InOut) :: ibuf (len_item, ndibuf)
       Integer,                  Intent (InOut) :: ipa, ipia
       Integer,                  Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_trf_lonlat_1d_real (x_coords, y_coords,        &
                                          coords_shape, grid_valid_shape, &
                                          sin_values_lon, cos_values_lon, &
                                          sin_values_lat, cos_values_lat, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: coords_shape (2, ndim_2d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_2d)

       Real, Intent (In)               :: x_coords(coords_shape(1,1): 
                                                   coords_shape(2,1))
       Real, Intent (In)               :: y_coords(coords_shape(1,2): 
                                                   coords_shape(2,2))
       Real, Intent (Out)              :: sin_values_lon (grid_valid_shape(1,1):
                                                          grid_valid_shape(2,1))
       Real, Intent (Out)              :: sin_values_lat (grid_valid_shape(1,2):
                                                          grid_valid_shape(2,2))
       Real, Intent (Out)              :: cos_values_lon (grid_valid_shape(1,1):
                                                          grid_valid_shape(2,1))
       Real, Intent (Out)              :: cos_values_lat (grid_valid_shape(1,2):
                                                          grid_valid_shape(2,2))
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_trf_lonlat_2d_real (x_coords, y_coords,             &
                                          coords_shape, grid_valid_shape, &
                                          sin_values, cos_values, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: coords_shape (2, ndim_2d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_2d)

       Real, Intent (In)               :: x_coords(coords_shape(1,1): 
                                                   coords_shape(2,1), 
                                                   coords_shape(1,2): 
                                                   coords_shape(2,2))
       Real, Intent (In)               :: y_coords(coords_shape(1,1): 
                                                   coords_shape(2,1), 
                                                   coords_shape(1,2): 
                                                   coords_shape(2,2))
       Real, Intent (Out)              :: sin_values (grid_valid_shape(1,1): 
                                                      grid_valid_shape(2,1), 
                                                      grid_valid_shape(1,2): 
                                                      grid_valid_shape(2,2), 
                                                      2)
       Real, Intent (Out)              :: cos_values (grid_valid_shape(1,1): 
                                                      grid_valid_shape(2,1), 
                                                      grid_valid_shape(1,2): 
                                                      grid_valid_shape(2,2), 
                                                      2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_trf_lonlat_3d_real (x_coords, y_coords,             &
                                          coords_shape, grid_valid_shape, &
                                          sin_values, cos_values, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)

       Real, Intent (In)               :: x_coords(coords_shape(1,1): 
                                                   coords_shape(2,1), 
                                                   coords_shape(1,2): 
                                                   coords_shape(2,2), 
                                                   coords_shape(1,3): 
                                                   coords_shape(2,3))
       Real, Intent (In)               :: y_coords(coords_shape(1,1): 
                                                   coords_shape(2,1), 
                                                   coords_shape(1,2): 
                                                   coords_shape(2,2), 
                                                   coords_shape(1,3): 
                                                   coords_shape(2,3))
       Real, Intent (Out)              :: sin_values (grid_valid_shape(1,1): 
                                                      grid_valid_shape(2,1), 
                                                      grid_valid_shape(1,2): 
                                                      grid_valid_shape(2,2), 
                                                      grid_valid_shape(1,3): 
                                                      grid_valid_shape(2,3), 
                                                      2)
       Real, Intent (Out)              :: cos_values (grid_valid_shape(1,1): 
                                                      grid_valid_shape(2,1), 
                                                      grid_valid_shape(1,2): 
                                                      grid_valid_shape(2,2), 
                                                      grid_valid_shape(1,3): 
                                                      grid_valid_shape(2,3), 
                                                      2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_info_coords_3d_reg_real (              &
                             x_coords, y_coords, z_coords,   &
                             coords_shape, grid_valid_shape, &
                             sinvec, cosvec, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)

       Real, Intent (In)               :: x_coords(*)
       Real, Intent (In)               :: y_coords(*)
       Real, Intent (In)               :: z_coords(*)

       Type (real_vector)              :: sinvec (ndim_2d)
       Type (real_vector)              :: cosvec (ndim_2d)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_info_coords_irreg2_real (              &
                             x_coords, y_coords, z_coords,   &
                             coords_shape, grid_valid_shape, &
                             sinvec, cosvec, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)

       Real, Intent (In)               :: x_coords(*)
       Real, Intent (In)               :: y_coords(*)
       Real, Intent (In)               :: z_coords(*)

       Type (real_vector)              :: sinvec
       Type (real_vector)              :: cosvec
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_info_trf_coords_3d_real (              &
                             x_coords, y_coords, z_coords,   &
                             coords_shape, grid_valid_shape, &
                             sinvec, cosvec, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)

       Real, Intent (In)               :: x_coords(*)
       Real, Intent (In)               :: y_coords(*)
       Real, Intent (In)               :: z_coords(*)

       Type (real_vector)              :: sinvec
       Type (real_vector)              :: cosvec
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_info_trs_locs_3d_real (comp_info,                 &
                                             coords, shape, control,    &
                                             len_cpl,                   &
                                             var_id, grid_valid_shape,  &
                                             search,                    &
                                             method_id, send_index,     &
                                             ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In)      :: comp_info
       Type (Enddef_search), Intent (InOut) :: search
       Type (real_vector), Intent (In)      :: coords (ndim_3d, search%npart)
       Integer, Intent (In)                 :: shape (2, ndim_3d, search%npart)
       Integer, Intent (In)                 :: control (2, ndim_3d, search%npart)
       Integer, Intent (In)                 :: len_cpl (search%npart)
       Integer, Intent (In)                 :: var_id, method_id
       Integer, Intent (In)                 :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (InOut)              :: send_index
       Integer, Intent (Out)                :: ierror
    End Subroutine

    subroutine psmile_info_trs_loc_3d_reg_real (comp_info,              &
                                             coords, shape, control,    &
                                             len_cpl,                   &
                                             var_id, grid_valid_shape,  &
                                             search,                    &
                                             method_id, send_index,     &
                                             ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In)      :: comp_info
       Type (Enddef_search), Intent (InOut) :: search
       Type (real_vector), Intent (In)      :: coords (ndim_3d, search%npart)
       Integer, Intent (In)                 :: shape (2, ndim_3d, search%npart)
       Integer, Intent (In)                 :: control (2, ndim_3d, search%npart)
       Integer, Intent (InOut)              :: len_cpl (search%npart)
       Integer, Intent (In)                 :: var_id, method_id
       Integer, Intent (In)                 :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (InOut)              :: send_index
       Integer, Intent (Out)                :: ierror
    End Subroutine

    subroutine psmile_info_trs_loc_irreg2_real (comp_info,              &
                                             coords, shape, control,    &
                                             len_cpl,                   &
                                             var_id, grid_valid_shape,  &
                                             search,                    &
                                             method_id, send_index,     &
                                             ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In)      :: comp_info
       Type (Enddef_search), Intent (InOut) :: search
       Type (real_vector), Intent (In)      :: coords (ndim_3d, search%npart)
       Integer, Intent (In)                 :: shape (2, ndim_3d, search%npart)
       Integer, Intent (In)                 :: control (2, ndim_3d, search%npart)
       Integer, Intent (InOut)              :: len_cpl (search%npart)
       Integer, Intent (In)                 :: var_id, method_id
       Integer, Intent (In)                 :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (InOut)              :: send_index
       Integer, Intent (Out)                :: ierror
    End Subroutine

    subroutine psmile_info_trs_loc_gauss2_real (comp_info,                      &
                                             coords, shape, control, len_cpl,   &
                                             var_id, grid_valid_shape,          &
                                             search, method_id,                 &
                                             send_index, ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In)      :: comp_info
       Type (Enddef_search), Intent (InOut) :: search
       Type (real_vector), Intent (In)      :: coords (ndim_3d, search%npart)
       Integer, Intent (In)                 :: shape (2, ndim_3d, search%npart)
       Integer, Intent (In)                 :: control (2, ndim_3d, search%npart)
       Integer, Intent (InOut)              :: len_cpl (search%npart)
       Integer, Intent (In)                 :: var_id, method_id
       Integer, Intent (In)                 :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (InOut)              :: send_index
       Integer, Intent (Out)                :: ierror
    End Subroutine

    subroutine psmile_neigh_cells_3d_real ( use_how,        &
               grid_shape, interpolation_mode, cyclic,      &
               corner_shape_3d, nbr_corners,                &
               corner_x, corner_y, corner_z,                &
               search,  control, tgt_cell, tgt_corners,     &
               npoints, srclocs, msklocs, ncpl,             &
               num_neigh, nbr_cells, ierror )

      USE PSMILe_Common

      Integer, Intent (In)            :: use_how(3)
      Integer, Intent (In)            :: grid_shape (2, ndim_3d)
      Integer, Intent (In)            :: interpolation_mode
      Logical, Intent (In)            :: cyclic (ndim_3d)
      Integer, Intent (In)            :: corner_shape_3d (2,ndim_3d,ndim_3d)
      Integer, Intent (In)            :: nbr_corners(ndim_3d)
      Type (Enddef_search), Intent (InOut) :: search
      Integer, Intent (In)            :: control (2, ndim_3d, search%npart)
      Type (real_vector), Intent (InOut) :: tgt_cell(ndim_3d)
      Integer, Intent (In)            :: tgt_corners(ndim_3d)
      Integer, Intent (In)            :: npoints
      Integer, Intent (In)            :: ncpl
      Integer, Intent (In)            :: srclocs (ndim_3d, npoints)
      Logical, Intent (In)            :: msklocs (npoints)
      Integer, Intent (In)            :: num_neigh
      Real, Intent (In)               :: corner_x (corner_shape_3d (1,1,1):corner_shape_3d(2,1,1), 
                                                   corner_shape_3d (1,2,1):corner_shape_3d(2,2,1), 
                                                   corner_shape_3d (1,3,1):corner_shape_3d(2,3,1), 
                                                   nbr_corners(1))

      Real, Intent (In)               :: corner_y (corner_shape_3d (1,1,2):corner_shape_3d(2,1,2), 
                                                   corner_shape_3d (1,2,2):corner_shape_3d(2,2,2), 
                                                   corner_shape_3d (1,3,2):corner_shape_3d(2,3,2), 
                                                   nbr_corners(2))

      Real, Intent (In)               :: corner_z (corner_shape_3d (1,1,3):corner_shape_3d(2,1,3), 
                                                   corner_shape_3d (1,2,3):corner_shape_3d(2,2,3), 
                                                   corner_shape_3d (1,3,3):corner_shape_3d(2,3,3), 
                                                   nbr_corners(3))
      Integer, Intent (Out)           :: nbr_cells(ncpl)
      Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_cells_3d_reg_real (      &
               grid_valid_shape, interpolation_mode, &
               cyclic, grid_id, search, corners,     &
               npoints, srclocs, ncpl, nbr_cells,    &
               ierror )

      USE PSMILe_Common

      Integer, Intent (In)               :: grid_valid_shape (2, ndim_3d)
      Integer,            Intent (In)    :: interpolation_mode
      Logical,            Intent (In)    :: cyclic (ndim_3d)
      Integer,            Intent (In)    :: grid_id
      Type (Enddef_search), Intent (In)  :: search
      Type (real_vector), Intent (In)    :: corners (ndim_3d, search%npart)
      Integer, Intent (In)               :: npoints (ndim_3d, search%npart)
      Type (integer_vector), Intent (In) :: srclocs (ndim_3d, search%npart)
      Integer, Intent (In)               :: ncpl
      Integer, Intent (Out)              :: nbr_cells(ncpl)
      Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_neigh_cells_irreg2_real ( use_how,        &
               grid_shape, interpolation_mode, cyclic,          &
               corner_shape_3d, nbr_corners,                    &
               corner_x, corner_y,                              &
               search,  control, tgt_cell, tgt_corners,         &
               npoints, srclocs, msklocs, ncpl,                 &
               num_neigh, nbr_cells, ierror )

      USE PSMILe_Common

      Integer, Intent (In)            :: use_how(3)
      Integer, Intent (In)            :: grid_shape (2, ndim_3d)
      Integer, Intent (In)            :: interpolation_mode
      Logical, Intent (In)            :: cyclic (ndim_3d)
      Integer, Intent (In)            :: corner_shape_3d(2,ndim_3d,ndim_3d)
      Integer, Intent (In)            :: nbr_corners(ndim_3d)
      Type (Enddef_search), Intent (InOut) :: search
      Integer, Intent (In)            :: control (2, ndim_3d, search%npart)
      Type (real_vector), Intent (InOut) :: tgt_cell(ndim_3d)
      Integer, Intent (In)            :: tgt_corners
      Integer, Intent (In)            :: npoints (ndim_2d, search%npart)
      Integer, Intent (In)            :: ncpl
      Type (integer_vector), Intent (In) :: srclocs (2,search%npart)
      Type (logical_vector), Intent (In) :: msklocs (2,search%npart)
      Integer, Intent (In)            :: num_neigh
      Real, Intent (In)               :: corner_x (corner_shape_3d (1,1,1):corner_shape_3d(2,1,1), 
                                                   corner_shape_3d (1,2,1):corner_shape_3d(2,2,1), 
                                                   nbr_corners(1))
      Real, Intent (In)               :: corner_y (corner_shape_3d (1,1,2):corner_shape_3d(2,1,2), 
                                                   corner_shape_3d (1,2,2):corner_shape_3d(2,2,2), 
                                                   nbr_corners(2))
      Integer, Intent (Out)           :: nbr_cells(ncpl)
      Integer, Intent (Out)           :: ierror
    End Subroutine
!
    subroutine psmile_neigh_near_irr2_3d_real (grid_id,    &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values, cos_values, grid_valid_shape,   &
               search_mode,                                &
               srcloc, nloc, nprev, nsearch,               &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, nsearch, search_mode
       Real, Intent (In)               :: coords1 (nloc)
       Real, Intent (In)               :: coords2 (nloc)
       Real, Intent (In)               :: coords3 (nloc)
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Real, Intent (In)               :: x_coords (*)
       Real, Intent (In)               :: y_coords (*)
       Real, Intent (In)               :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_available
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Real, Intent (In)               :: sin_values (*)
       Real, Intent (In)               :: cos_values (*)
       Integer, Intent (In)            :: srcloc (ndim_3d, nloc)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_near_3d_irr2_real (grid_id,    &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values_lon, cos_values_lon,             &
               sin_values_lat, cos_values_lat,             &
               grid_valid_shape, search_mode,              &
               srcloc, srclocz, nlocs, nloc, nprev,        &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, search_mode
       Integer, Intent (In)            :: nlocs (ndim_2d)
       Real, Intent (In)               :: coords1 (*)
       Real, Intent (In)               :: coords2 (*)
       Real, Intent (In)               :: coords3 (*)
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Real, Intent (In)               :: x_coords (*)
       Real, Intent (In)               :: y_coords (*)
       Real, Intent (In)               :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_available
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Real, Intent (In)               :: sin_values_lon (*)
       Real, Intent (In)               :: cos_values_lon (*)
       Real, Intent (In)               :: sin_values_lat (*)
       Real, Intent (In)               :: cos_values_lat (*)
       Integer, Intent (In)            :: srcloc (ndim_2d, nlocs(1))
       Integer, Intent (In)            :: srclocz (nlocs(2))
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_near_3d_irr3_real (grid_id,    &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values_lon, cos_values_lon,             &
               sin_values_lat, cos_values_lat,             &
               grid_valid_shape, search_mode,              &
               srcloc, nsearch, nloc, nprev,               &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer,            Intent (In)  :: grid_id
       Integer,            Intent (In)  :: nloc, nprev, search_mode
       Integer,            Intent (In)  :: nsearch
       Real,               Intent (In)  :: coords1 (*)
       Real,               Intent (In)  :: coords2 (*)
       Real,               Intent (In)  :: coords3 (*)
       Integer,            Intent (In)  :: coords_shape (2, ndim_3d)
       Real,               Intent (In)  :: x_coords (*)
       Real,               Intent (In)  :: y_coords (*)
       Real,               Intent (In)  :: z_coords (*)
       Logical,            Intent (In)  :: mask_array (*)
       Integer,            Intent (In)  :: mask_shape (2, ndim_3d)
       Logical,            Intent (In)  :: mask_available
       Integer,            Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Real,               Intent (In)  :: sin_values_lon (*)
       Real,               Intent (In)  :: cos_values_lon (*)
       Real,               Intent (In)  :: sin_values_lat (*)
       Real,               Intent (In)  :: cos_values_lat (*)
       Integer,            Intent (In)  :: srcloc (ndim_3d, nloc)
       Integer,            Intent (In)  :: num_neigh
       Integer,            Intent (Out) :: neighbors_3d (ndim_3d, nloc, 
                                                          num_neigh)
       Type (Extra_search_info)         :: extra_search
       Integer,            Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_neigh_nearx_irr2_3d_real (grid_id,   &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values, cos_values, grid_valid_shape,   &
               search_mode,                                &
               srcloc, nloc, nprev, nsearch,               &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer,            Intent (In)  :: grid_id
       Integer,            Intent (In)  :: nloc, nprev, nsearch, search_mode
       Real,               Intent (In)  :: coords1 (nloc)
       Real,               Intent (In)  :: coords2 (nloc)
       Real,               Intent (In)  :: coords3 (nloc)
       Integer,            Intent (In)  :: coords_shape (2, ndim_3d)
       Real,               Intent (In)  :: x_coords (*)
       Real,               Intent (In)  :: y_coords (*)
       Real,               Intent (In)  :: z_coords (*)
       Logical,            Intent (In)  :: mask_array (*)
       Integer,            Intent (In)  :: mask_shape (2, ndim_3d)
       Logical,            Intent (In)  :: mask_available
       Integer,            Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Real,               Intent (In)  :: sin_values (*)
       Real,               Intent (In)  :: cos_values (*)
       Integer,            Intent (In)  :: srcloc (ndim_3d, nloc)
       Integer,            Intent (In)  :: num_neigh
       Integer,            Intent (Out) :: neighbors_3d (ndim_3d, nloc, 
                                                         num_neigh)
       Type (Extra_search_info)         :: extra_search
       Integer,            Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_neigh_near_3d_reg_real (grid_id,     &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values_lon, cos_values_lon,             &
               sin_values_lat, cos_values_lat,             &
               grid_valid_shape, search_mode,              &
               srclocs, nlocs, nloc, nprev,                &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, search_mode
       Integer, Intent (In)            :: nlocs (ndim_3d)
       Real, Intent (In)               :: coords1 (*)
       Real, Intent (In)               :: coords2 (*)
       Real, Intent (In)               :: coords3 (*)
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Real, Intent (In)               :: x_coords (*)
       Real, Intent (In)               :: y_coords (*)
       Real, Intent (In)               :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_available
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Real, Intent (In)               :: sin_values_lon (*)
       Real, Intent (In)               :: cos_values_lon (*)
       Real, Intent (In)               :: sin_values_lat (*)
       Real, Intent (In)               :: cos_values_lat (*)
       Type (integer_vector), Intent (In) :: srclocs (ndim_3d)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_nearx_3d_irr2_real (grid_id,   &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values_lon, cos_values_lon,             &
               sin_values_lat, cos_values_lat,             &
               grid_valid_shape, search_mode,              &
               srcloc, srclocz, nlocs, nloc, nprev,        &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, search_mode
       Integer, Intent (In)            :: nlocs (ndim_2d)
       Real, Intent (In)               :: coords1 (*)
       Real, Intent (In)               :: coords2 (*)
       Real, Intent (In)               :: coords3 (*)
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Real, Intent (In)               :: x_coords (*)
       Real, Intent (In)               :: y_coords (*)
       Real, Intent (In)               :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_available
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Real, Intent (In)               :: sin_values_lon (*)
       Real, Intent (In)               :: cos_values_lon (*)
       Real, Intent (In)               :: sin_values_lat (*)
       Real, Intent (In)               :: cos_values_lat (*)
       Integer, Intent (In)            :: srcloc (ndim_2d, nlocs(1))
       Integer, Intent (In)            :: srclocz (nlocs(2))
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_nearx_3d_irr3_real (grid_id,   &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values_lon, cos_values_lon,             &
               sin_values_lat, cos_values_lat,             &
               grid_valid_shape, search_mode,              &
               srcloc, nsearch, nloc, nprev,               &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, search_mode
       Integer, Intent (In)            :: nsearch
       Real, Intent (In)               :: coords1 (*)
       Real, Intent (In)               :: coords2 (*)
       Real, Intent (In)               :: coords3 (*)
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Real, Intent (In)               :: x_coords (*)
       Real, Intent (In)               :: y_coords (*)
       Real, Intent (In)               :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_available
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Real, Intent (In)               :: sin_values_lon (*)
       Real, Intent (In)               :: cos_values_lon (*)
       Real, Intent (In)               :: sin_values_lat (*)
       Real, Intent (In)               :: cos_values_lat (*)
       Integer, Intent (In)            :: srcloc (ndim_3d, nloc)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_nearx_3d_reg_real (grid_id,    &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values_lon, cos_values_lon,             &
               sin_values_lat, cos_values_lat,             &
               grid_valid_shape, search_mode,              &
               srclocs, nlocs, nloc, nprev,                &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, search_mode
       Integer, Intent (In)            :: nlocs (ndim_3d)
       Real, Intent (In)               :: coords1 (*)
       Real, Intent (In)               :: coords2 (*)
       Real, Intent (In)               :: coords3 (*)
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Real, Intent (In)               :: x_coords (*)
       Real, Intent (In)               :: y_coords (*)
       Real, Intent (In)               :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_available
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Real, Intent (In)               :: sin_values_lon (*)
       Real, Intent (In)               :: cos_values_lon (*)
       Real, Intent (In)               :: sin_values_lat (*)
       Real, Intent (In)               :: cos_values_lat (*)
       Type (integer_vector), Intent (In) :: srclocs (ndim_3d)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_near_irreg2_real (grid_id,     &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values, cos_values, grid_valid_shape,   &
               search_mode,                                &
               srcloc, srclocz, nlocs,                     &
               nloc, nprev,                                &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, search_mode
       Integer, Intent (In)            :: nlocs (ndim_2d)
       Real, Intent (In)               :: coords1 (nlocs(1)*nlocs(2))
       Real, Intent (In)               :: coords2 (nlocs(1)*nlocs(2))
       Real, Intent (In)               :: coords3 (nlocs(1)*nlocs(2))
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Real, Intent (In)               :: x_coords (*)
       Real, Intent (In)               :: y_coords (*)
       Real, Intent (In)               :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_available
       Real, Intent (In)               :: sin_values (*)
       Real, Intent (In)               :: cos_values (*)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)            :: srcloc (ndim_2d, nlocs(1))
       Integer, Intent (In)            :: srclocz (nlocs(2))
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_nearx_irreg2_real (grid_id,    &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values, cos_values, grid_valid_shape,   &
               search_mode,                                &
               srcloc, srclocz, nlocs,                     &
               nloc, nprev,                                &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, search_mode
       Integer, Intent (In)            :: nlocs (ndim_2d)
       Real, Intent (In)               :: coords1 (nlocs(1)*nlocs(2))
       Real, Intent (In)               :: coords2 (nlocs(1)*nlocs(2))
       Real, Intent (In)               :: coords3 (nlocs(1)*nlocs(2))
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Real, Intent (In)               :: x_coords (*)
       Real, Intent (In)               :: y_coords (*)
       Real, Intent (In)               :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_available
       Real, Intent (In)               :: sin_values (*)
       Real, Intent (In)               :: cos_values (*)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)            :: srcloc (ndim_2d, nlocs(1))
       Integer, Intent (In)            :: srclocz (nlocs(2))
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_nearx_sub_irr_real (           &
                           grid_id,                        &
                           x_coords, y_coords, z_coords,   &
                           coords_shape,                   &
                           mask_array, mask_shape,  mask_available,    &
                           sin_values, cos_values,         &
                           grid_valid_shape, search_mode,  &
                           neighbors_3d, num_neigh, nloc,  &
                           extra_search,                   &
                           ijk, sin_search, cos_search,    &
                           z_search, jbeg, jend, width, ierror)

       Use PSMILe_common

       Integer,            Intent (In)   :: grid_id
       Integer,            Intent (In)   :: search_mode
       Integer,            Intent (In)   :: coords_shape (2, ndim_3d)
       Real,               Intent (In)   :: x_coords (*)
       Real,               Intent (In)   :: y_coords (*)
       Real,               Intent (In)   :: z_coords (*)
       Logical,            Intent (In)   :: mask_array (*)
       Integer,            Intent (In)   :: mask_shape (2, ndim_3d)
       Logical,            Intent (In)   :: mask_available
       Integer,            Intent (In)   :: grid_valid_shape (2, ndim_3d)
       Real,               Intent (In)   :: sin_values (*)
       Real,               Intent (In)   :: cos_values (*)
       Integer,            Intent (In)   :: nloc, num_neigh
       Type (Extra_search_info), Intent(InOut) :: extra_search
       Integer,            Intent (In)   :: jbeg, jend
       Integer,            Intent (In)   :: ijk (ndim_3d, jbeg:jend)
       Integer,            Intent (In)   :: width (ndim_3d)
       Real,               Intent (In)   :: sin_search (jbeg:jend, 2)
       Real,               Intent (In)   :: cos_search (jbeg:jend, 2)
       Real,               Intent (In)   :: z_search   (jbeg:jend)
       Integer,            Intent (Out)  :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer,            Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_neigh_nearx_sub_reg_real (           &
                           grid_id,                        &
                           x_coords, y_coords, z_coords,   &
                           coords_shape,                   &
                           mask_array, mask_shape,  mask_available,    &
                           sin_values_lon, cos_values_lon, &
                           sin_values_lat, cos_values_lat, &
                           grid_valid_shape, search_mode,  &
                           neighbors_3d, num_neigh, nloc,  &
                           extra_search,                   &
                           ijk, sin_search, cos_search,    &
                           z_search, jbeg, jend, width, ierror)

       Use PSMILe_common

       Integer,            Intent (In)   :: grid_id
       Integer,            Intent (In)   :: search_mode
       Integer,            Intent (In)   :: coords_shape (2, ndim_3d)
       Real,               Intent (In)   :: x_coords (*)
       Real,               Intent (In)   :: y_coords (*)
       Real,               Intent (In)   :: z_coords (*)
       Logical,            Intent (In)   :: mask_array (*)
       Integer,            Intent (In)   :: mask_shape (2, ndim_3d)
       Logical,            Intent (In)   :: mask_available
       Integer,            Intent (In)   :: grid_valid_shape (2, ndim_3d)
       Real,               Intent (In)   :: sin_values_lon (*)
       Real,               Intent (In)   :: cos_values_lon (*)
       Real,               Intent (In)   :: sin_values_lat (*)
       Real,               Intent (In)   :: cos_values_lat (*)
       Integer,            Intent (In)   :: nloc, num_neigh
       Type (Extra_search_info), Intent(In) :: extra_search
       Integer,            Intent (In)   :: jbeg, jend
       Integer,            Intent (In)   :: ijk (ndim_3d, jbeg:jend)
       Integer,            Intent (In)   :: width (ndim_3d)
       Real,               Intent (In)   :: sin_search (jbeg:jend, 2)
       Real,               Intent (In)   :: cos_search (jbeg:jend, 2)
       Real,               Intent (In)   :: z_search   (jbeg:jend)
       Integer,            Intent (Out)  :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer,            Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_neigh_nearest_3d_real (grid_id,         &
                    coords1, coords2, coords3,                &
                    x_coords, y_coords, z_coords,             &
                    coords_shape,                             &
                    mask_array, mask_shape,  mask_available,  &
                    sin_values, cos_values, grid_valid_shape, &
                    srcloc, nloc, nprev, nsearch,             &
                    neighbors_3d, num_neigh,                  &
                    extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Integer, Intent (In)            ::   mask_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Real, Intent (In)               :: x_coords (*)
       Real, Intent (In)               :: y_coords (*)
       Real, Intent (In)               :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Logical, Intent (In)            :: mask_available
       Real, Intent (In)               :: sin_values (*)
       Real, Intent (In)               :: cos_values (*)
       Integer, Intent (In)            :: nloc, nprev, nsearch
       Integer, Intent (In)            :: srcloc (ndim_3d, nloc)
       Real, Intent (In)               :: coords1 (nloc)
       Real, Intent (In)               :: coords2 (nloc)
       Real, Intent (In)               :: coords3 (nloc)
       Integer, Intent (In)            :: num_neigh
!
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_nearestx_3d_real (grid_id,     &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values, cos_values, grid_valid_shape,   &
               srcloc, nloc, nprev, nsearch,               &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, nsearch
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Integer, Intent (In)            :: mask_shape   (2, ndim_3d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Real, Intent (In)               :: coords1 (nloc)
       Real, Intent (In)               :: coords2 (nloc)
       Real, Intent (In)               :: coords3 (nloc)
       Real, Intent (In)               :: x_coords (*)
       Real, Intent (In)               :: y_coords (*)
       Real, Intent (In)               :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Logical, Intent (In)            :: mask_available
       Real, Intent (In)               :: sin_values (*)
       Real, Intent (In)               :: cos_values (*)
       Integer, Intent (In)            :: srcloc (ndim_3d, nloc)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
!
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_tricu_3d (                       &
                    grid_valid_shape, interp_mode, cyclic,   &
                    srcloc, nloc,neighbors_3d, num_neigh, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)            :: interp_mode
       Logical, Intent (In)            :: cyclic (ndim_3d)
       Integer, Intent (In)            :: nloc
       Integer, Intent (In)            :: srcloc (ndim_3d, nloc)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_tricu_3d_reg (                            &
                    grid_valid_shape, interp_mode, cyclic,            &
                    srclocs, nlocs, nloc, nprev, neighbors_3d,        &
                    num_neigh, ierror)

       Use PSMILe_common

       Integer, Intent (In)               :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)               :: interp_mode
       Logical, Intent (In)               :: cyclic (ndim_3d)
       Type (integer_vector), Intent (In) :: srclocs (ndim_3d)
       Integer, Intent (In)               :: nlocs (ndim_3d)
       Integer, Intent (In)               :: nloc, nprev
       Integer, Intent (In)               :: num_neigh
       Integer, Intent (Out)              :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_neigh_tricu_gauss2 (                            &
                    grid_id, grid_valid_shape, interp_mode,           &
                    srcloc, virtual_cell, nloc,virtual_cell_available,&
                    neighbors_3d, num_neigh, neigh_bascule, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_id, interp_mode
       Logical, Intent (In)            :: virtual_cell_available
       Integer, Intent (In)            :: nloc
       Integer, Intent (In)            :: srcloc (ndim_3d, nloc)
       Integer, Intent (In)            :: virtual_cell (nloc)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer, Intent (Out)           :: neigh_bascule(nloc)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_tricu_gauss2_irreg (                      &
                    grid_id, grid_valid_shape, interp_mode,           &
                    srcloc, srclocz, virtual_cell, nlocs, nloc, nprev,&
                    virtual_cell_available, neighbors_3d, num_neigh,  &
                    neigh_bascule, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_id, interp_mode
       Integer, Intent (In)            :: nlocs (ndim_2d)
       Integer, Intent (In)            :: srcloc (ndim_2d, nlocs(1))
       Integer, Intent (In)            :: srclocz (nlocs(2))
       Integer, Intent (In)            :: virtual_cell (nlocs(1))
       Integer, Intent (In)            :: nloc, nprev
       Integer, Intent (In)            :: num_neigh
       Logical, Intent (In)            :: virtual_cell_available
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer, Intent (Out)           :: neigh_bascule(nloc)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_tricu_irreg2 (                            &
                    grid_valid_shape, interp_mode, cyclic,            &
                    srcloc, srclocz, nlocs, nloc, nprev,neighbors_3d, &
                    num_neigh, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)            :: interp_mode
       Logical, Intent (In)            :: cyclic (ndim_3d)
       Integer, Intent (In)            :: nlocs (ndim_2d)
       Integer, Intent (In)            :: srcloc (ndim_2d, nlocs(1))
       Integer, Intent (In)            :: srclocz (nlocs(2))
       Integer, Intent (In)            :: nloc, nprev
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_trili_3d (                       &
                    grid_valid_shape, interp_mode, cyclic,   &
                    srcloc, nloc, neighbors_3d, num_neigh,   &
                    ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)            :: interp_mode
       Logical, Intent (In)            :: cyclic (ndim_3d)
       Integer, Intent (In)            :: nloc
       Integer, Intent (In)            :: srcloc (ndim_3d, nloc)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_trili_3d_reg (                            &
                    grid_valid_shape, interp_mode, cyclic,            &
                    srclocs, nlocs, nloc, nprev,neighbors_3d,         &
                    num_neigh, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)            :: interp_mode
       Logical, Intent (In)            :: cyclic (ndim_3d)
       Type (integer_vector), Intent (In) :: srclocs (ndim_3d)
       Integer, Intent (In)            :: nlocs (ndim_3d)
       Integer, Intent (In)            :: nloc, nprev
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_trili_gauss2 (                          &
                    grid_id, grid_valid_shape, interp_mode, srcloc, &
                    virtual_cell, nloc, virtual_cell_available,     &
                    neighbors_3d, num_neigh, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_id, interp_mode
       Logical, Intent (In)            :: virtual_cell_available
       Integer, Intent (In)            :: nloc
       Integer, Intent (In)            :: srcloc (ndim_3d, nloc)
       Integer, Intent (In)            :: virtual_cell (nloc)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_trili_gauss2_irreg (                      &
                    grid_id, grid_valid_shape, interp_mode,           &
                    srcloc, srclocz, virtual_cell, nlocs,             &
                    nloc, nprev, virtual_cell_available,neighbors_3d, &
                    num_neigh, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_id, interp_mode
       Integer, Intent (In)            :: nlocs (ndim_2d)
       Integer, Intent (In)            :: srcloc (ndim_2d, nlocs(1))
       Integer, Intent (In)            :: srclocz (nlocs(2))
       Integer, Intent (In)            :: virtual_cell (nlocs(1))
       Integer, Intent (In)            :: nloc, nprev
       Integer, Intent (In)            :: num_neigh
       Logical, Intent (In)            :: virtual_cell_available
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_trili_irreg2 (                            &
                    grid_valid_shape, interp_mode, cyclic,            &
                    srcloc, srclocz, nlocs, nloc, nprev, neighbors_3d,&
                    num_neigh, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)            :: interp_mode
       Logical, Intent (In)            :: cyclic (ndim_3d)
       Integer, Intent (In)            :: nlocs (ndim_2d)
       Integer, Intent (In)            :: srcloc (ndim_2d, nlocs(1))
       Integer, Intent (In)            :: srclocz (nlocs(2))
       Integer, Intent (In)            :: nloc, nprev
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_coarse_1d_real (lev, chmin, chmax,        &
                                         found, locations, coords, &
                                         ibeg, iend)
       Integer, Intent (In)            :: lev
       Integer, Intent (InOut)         :: ibeg, iend
       Real, Intent (In)               :: chmin (0:0), chmax (0:0)
       Integer, Intent (InOut)         :: found (iend)
       Integer, Intent (InOut)         :: locations (iend)
       Real, Intent (In)               :: coords (iend)
    End Subroutine

    subroutine psmile_mg_coarse_2d_real (lev, chmin, chmax,         &
                                         found, locations, coords1, &
                                         coords2, ibeg, iend)
       Use PSMILe_common

       Integer, Intent (In)            :: lev
       Integer, Intent (InOut)         :: ibeg, iend
       Type (real_vector), Intent (In) :: chmin (ndim_2d), chmax (ndim_2d)
       Integer, Intent (InOut)         :: found (iend)
       Integer, Intent (InOut)         :: locations (iend)
       Real, Intent (In)               :: coords1 (iend)
       Real, Intent (In)               :: coords2 (iend)
    End Subroutine

    subroutine psmile_mg_coarse_3d_real (lev, chmin, chmax,         &
                                         found, locations, coords1, &
                                         coords2, coords3, ibeg, iend)
       Use PSMILe_common

       Integer, Intent (In)            :: lev
       Integer, Intent (InOut)         :: ibeg, iend
       Type (real_vector), Intent (In) :: chmin (ndim_3d), chmax (ndim_3d)
       Integer, Intent (InOut)         :: found (iend)
       Integer, Intent (InOut)         :: locations (iend)
       Real, Intent (In)               :: coords1 (iend)
       Real, Intent (In)               :: coords2 (iend)
       Real, Intent (In)               :: coords3 (iend)
    End Subroutine

    subroutine psmile_mg_next_level_1d_real (grid_id, idim,          &
                                     lev, nlev,                      &
                                     chmin, chmax, midp, levdim,     &
                                     found, loc, coords, ibeg, iend, &
                                     ijkinc, ijkcoa, ierror)

       Use PSMILe_common
       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: idim, levdim
       Integer, Intent (InOut)         :: ibeg, iend
       Integer, Intent (In)            :: lev, nlev, ijkinc, ijkcoa
       Real, Intent (In)               :: chmin (0:levdim)
       Real, Intent (In)               :: chmax (0:levdim)
       Real, Intent (In)               :: midp  (0:levdim)
       Integer, Intent (InOut)         :: found (iend)
       Integer, Intent (InOut)         :: loc   (iend)
       Real, Intent (In)               :: coords (iend)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_next_level_2d_real (grid_id, lev, nlev,     &
                                     chmin1, chmin2,                 &
                                     chmax1, chmax2,                 &
                                     midp1,  midp2,                  &
                                     levdim,                         &
                                     found, loc, range,              &
                                     coords1, coords2,               &
                                     shape, control,                 &
                                     ijkinc, ijkcoa, ierror)

       Use PSMILe_common
       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: levdim (ndim_2d)
       Integer, Intent (In)            :: lev, nlev
       Integer, Intent (In)            :: ijkinc(ndim_3d), ijkcoa(ndim_2d)
       Real, Intent (In)               :: chmin1 (*), chmin2 (*)
       Real, Intent (In)               :: chmax1 (*), chmax2 (*)
       Real, Intent (In)               :: midp1  (*), midp2  (*)
       Integer, Intent (InOut)         :: found (*)
       Integer, Intent (InOut)         :: loc   (2, *)
       Integer, Intent (In)            :: range (2, ndim_3d)
       Real, Intent (In)               :: coords1 (*)
       Real, Intent (In)               :: coords2 (*)
       Integer, Intent (In)            :: shape (2, ndim_3d)
       Integer, Intent (InOut)         :: control (2, ndim_3d)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_next_level_3d_real (grid_id, lev, nlev,     &
                                     chmin1, chmin2, chmin3,         &
                                     chmax1, chmax2, chmax3,         &
                                     midp1,  midp2,  midp3,          &
                                     levdim,                         &
                                     found, loc, range,              &
                                     coords1, coords2, coords3,      &
                                     shape, control,                 &
                                     ijkinc, ijkcoa, ierror)

       Use PSMILe_common
       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: levdim (ndim_3d)
       Integer, Intent (In)            :: lev, nlev
       Integer, Intent (In)            :: ijkinc(ndim_3d), ijkcoa(ndim_3d)
       Real, Intent (In)               :: chmin1 (*), chmin2 (*), chmin3 (*)
       Real, Intent (In)               :: chmax1 (*), chmax2 (*), chmax3 (*)
       Real, Intent (In)               :: midp1  (*), midp2  (*), midp3  (*)
       Integer, Intent (InOut)         :: found (*)
       Integer, Intent (InOut)         :: loc   (ndim_3d, *)
       Integer, Intent (In)            :: range (2, ndim_3d)
       Real, Intent (In)               :: coords1 (*)
       Real, Intent (In)               :: coords2 (*)
       Real, Intent (In)               :: coords3 (*)
       Integer, Intent (In)            :: shape (2, ndim_3d)
       Integer, Intent (InOut)         :: control (2, ndim_3d)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_prev_levels_1d_real (grid_id, idim,   &
                           lev, nlev,                          &
                           lstijk, xyz, found, newijk)
       Use PSMILe_common
       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: idim
       Integer, Intent (In)            :: lev, nlev
       Integer, Intent (In)            :: lstijk
       Real, Intent (In)               :: xyz
       Integer, Intent (Out)           :: found, newijk
    End Subroutine

    subroutine psmile_mg_prev_levels_2d_real (grid_id, &
                           lev, nlev,                  &
                           lstijk, xyz, found, newijk, nc)
       Use PSMILe_Common
       Integer,          Intent (In)   :: grid_id
       Integer,          Intent (In)   :: lev, nlev, nc
       Integer,          Intent (In)   :: lstijk (ndim_2d, nc)
       Real,             Intent (In)   :: xyz (ndim_2d, nc)
       Integer,          Intent (Out)  :: found (nc), newijk (ndim_2d, nc)
    End Subroutine

    subroutine psmile_mg_prev_levels_3d_real (grid_id, &
                           lev, nlev,                  &
                           lstijk, xyz, found, newijk)
       Use PSMILe_common
       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: lev, nlev
       Integer, Intent (In)            :: lstijk (ndim_3d)
       Real, Intent (In)               :: xyz (ndim_3d)
       Integer, Intent (Out)           :: found, newijk (ndim_3d)
    End Subroutine

    subroutine psmile_mg_cells_1d_real ( nlev, found, loc, range,    &
                                         search_grid_type,           &
                                         corners1, search_dim,       &
                                         shape, control,             &
                                         grid_valid_shape, cyclic,   &
                                         chmin, chmax, tol, ierror )
      Use PSMILe_common
      Integer, Intent (In)            :: nlev
      Integer, Intent (In)            :: search_grid_type
      Integer, Intent (In)            :: range (2, ndim_3d)
      Integer, Intent (In)            :: shape (2, ndim_3d)
      Integer, Intent (InOut)         :: found (range(1,1):range(2,1), 
                                                range(1,2):range(2,2), 
                                                range(1,3):range(2,3))
      Integer, Intent (InOut)         :: loc   (range(1,1):range(2,1), 
                                                range(1,2):range(2,2), 
                                                range(1,3):range(2,3))
      Real, Intent (In)               :: corners1 (shape(1,1):shape(2,1), 
                                                   shape(1,2):shape(2,2), 
                                                   shape(1,3):shape(2,3))
      Integer, Intent (In)            :: control (2, ndim_3d)
      Integer,          Intent (In)   :: search_dim
      Integer,          Intent (In)   :: grid_valid_shape (2)
      Logical,          Intent (In)   :: cyclic
      Real, Intent (In)               :: chmin (grid_valid_shape(1): 
                                                grid_valid_shape(2)+2)
      Real, Intent (In)               :: chmax (grid_valid_shape(1): 
                                                grid_valid_shape(2)+2)
      Real, Intent (In)               :: tol
      Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_cells_2d_real ( grid_id, search_grid_type,            &
                                         found, loc, loc_fnd_shape,            &
                                         tgt_corners_x, tgt_corners_y,         &
                                         tgt_corner_shape, control,            &
                                         grid_valid_shape,                     &
                                         ipart, src_corner_shape, nbr_corners, &
                                         src_corners_x, src_corners_y,         &
                                         chmin1, chmax1, chmin2, chmax2,       &
                                         tol, ierror )
      Use PSMILe_common
      Integer, Intent (In)            :: grid_id
      Integer, Intent (In)            :: search_grid_type
      Integer, Intent (In)            :: loc_fnd_shape (2, ndim_3d)
      Integer, Intent (In)            :: tgt_corner_shape (2, ndim_3d)
      Integer, Intent (InOut)         :: found (loc_fnd_shape(1,1):loc_fnd_shape(2,1), 
                                                loc_fnd_shape(1,2):loc_fnd_shape(2,2), 
                                                loc_fnd_shape(1,3):loc_fnd_shape(2,3))
      Integer, Intent (InOut)         :: loc   (ndim_2d,                               
                                                loc_fnd_shape(1,1):loc_fnd_shape(2,1), 
                                                loc_fnd_shape(1,2):loc_fnd_shape(2,2), 
                                                loc_fnd_shape(1,3):loc_fnd_shape(2,3))
      Real, Intent (In)               :: tgt_corners_x (                               
                                          tgt_corner_shape(1,1):tgt_corner_shape(2,1), 
                                          tgt_corner_shape(1,2):tgt_corner_shape(2,2), 
                                          tgt_corner_shape(1,3):tgt_corner_shape(2,3))
      Real, Intent (In)               :: tgt_corners_y (                               
                                          tgt_corner_shape(1,1):tgt_corner_shape(2,1), 
                                          tgt_corner_shape(1,2):tgt_corner_shape(2,2), 
                                          tgt_corner_shape(1,3):tgt_corner_shape(2,3))
      Integer, Intent (In)            :: control (2,  ndim_3d)
      Integer,          Intent (In)   :: grid_valid_shape(2,ndim_2d)
      Integer,          Intent (In)   :: ipart
      Integer,          Intent (In)   :: src_corner_shape (2,2)
      Integer,          Intent (In)   :: nbr_corners
      Real, Intent (In)               :: src_corners_x (                                
                                          src_corner_shape (1,1):src_corner_shape(2,1), 
                                          src_corner_shape (1,2):src_corner_shape(2,2), 
                                          nbr_corners)
      Real, Intent (In)               :: src_corners_y (                                
                                          src_corner_shape (1,1):src_corner_shape(2,1), 
                                          src_corner_shape (1,2):src_corner_shape(2,2), 
                                          nbr_corners)
      Real, Intent (InOut)            :: chmin1 (grid_valid_shape(1,1):    
                                                 grid_valid_shape(2,1)+1 , 
                                                 grid_valid_shape(1,2):    
                                                 grid_valid_shape(2,2)+1)
      Real, Intent (InOut)            :: chmin2 (grid_valid_shape(1,1):    
                                                 grid_valid_shape(2,1)+1,  
                                                 grid_valid_shape(1,2):    
                                                 grid_valid_shape(2,2)+1)
      Real, Intent (InOut)            :: chmax1 (grid_valid_shape(1,1):    
                                                 grid_valid_shape(2,1)+1 , 
                                                 grid_valid_shape(1,2):    
                                                 grid_valid_shape(2,2)+1)
      Real, Intent (InOut)            :: chmax2 (grid_valid_shape(1,1):    
                                                 grid_valid_shape(2,1)+1,  
                                                 grid_valid_shape(1,2):    
                                                 grid_valid_shape(2,2)+1)
      Real, Intent (In)               :: tol
      Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_control_cell_1d_real (            &
                           chmin, chmax, midp, levdim,     &
                           ijk, xyz, nold, all, wide, found, newijk)
       Use PSMILe_common

       Integer, Intent (In)            :: levdim
       Real, Intent (In)               :: chmin (0:levdim)
       Real, Intent (In)               :: chmax (0:levdim)
       Real, Intent (In)               :: midp  (0:levdim)
       Integer, Intent (In)            :: ijk, nold
       Logical, Intent (In)            :: all, wide
       Real, Intent (In)               :: xyz
       Integer, Intent (Out)           :: found, newijk
    End Subroutine

    subroutine psmile_mg_control_cell_2d_real (     &
                    chmin1, chmin2,                 &
                    chmax1, chmax2,                 &
                    midp1,  midp2,                  &
                    levdim,                         &
                    ijk, xyz, nold, ignore, wide, found, newijk)
       Use PSMILe_common

       Real, Intent (In)               :: chmin1 (*), chmin2 (*)
       Real, Intent (In)               :: chmax1 (*), chmax2 (*)
       Real, Intent (In)               :: midp1  (*), midp2  (*)
       Integer, Intent (In)            :: levdim (ndim_2d)
       Integer, Intent (In)            :: ijk(ndim_2d), nold
       Integer, Intent (In)            :: ignore(ndim_2d)
       Logical, Intent (In)            :: wide
       Real, Intent (In)               :: xyz(ndim_2d)
       Integer, Intent (Out)           :: found, newijk(ndim_2d)
    End Subroutine

    subroutine psmile_mg_control_cell_3d_real (            &
                           chmin1, chmin2, chmin3,         &
                           chmax1, chmax2, chmax3,         &
                           midp1,  midp2,  midp3,          &
                           levdim,                         &
                           ijk, xyz, nold, all, wide, found, newijk)
       Use PSMILe_common

       Real, Intent (In)               :: chmin1 (*), chmin2 (*), chmin3 (*)
       Real, Intent (In)               :: chmax1 (*), chmax2 (*), chmax3 (*)
       Real, Intent (In)               :: midp1  (*), midp2  (*), midp3  (*)
       Integer, Intent (In)            :: levdim (ndim_3d)
       Integer, Intent (In)            :: ijk(ndim_3d), nold
       Logical, Intent (In)            :: all, wide
       Real, Intent (In)               :: xyz(ndim_3d)
       Integer, Intent (Out)           :: found, newijk(ndim_3d)
    End Subroutine

    subroutine psmile_mg_final_2d_real (grid_id, nlev,             &
                    chmin1, chmin2, chmax1, chmax2,                &
                    midp1,  midp2,  levdim,                        &
                    found, loc, range,                             &
                    coords1, coords2, shape, control,              &
                    corners1, corners2, corner_shape, nbr_corners, &
                    tol, ierror)
       Use PSMILe_common

       Integer,          Intent (In)    :: grid_id, nlev
       Integer,          Intent (In)    :: levdim (ndim_2d)
       Real,             Intent (In)    :: chmin1 (0:levdim(1), 
                                                   0:levdim(2))
       Real,             Intent (In)    :: chmin2 (0:levdim(1), 
                                                   0:levdim(2))
       Real,             Intent (In)    :: chmax1 (0:levdim(1), 
                                                   0:levdim(2))
       Real,             Intent (In)    :: chmax2 (0:levdim(1), 
                                                   0:levdim(2))
       Real,             Intent (In)    :: midp1  (0:levdim(1), 
                                                   0:levdim(2))
       Real,             Intent (In)    :: midp2  (0:levdim(1), 
                                                   0:levdim(2))
       Integer,          Intent (In)    :: range (2, ndim_3d)
       Integer,          Intent (In)    :: shape (2, ndim_3d)
       Integer,          Intent (InOut) :: found (range(1,1):range(2,1), 
                                                  range(1,2):range(2,2), 
                                                  range(1,3):range(2,3))
       Integer,          Intent (InOut) :: loc   (ndim_2d,               
                                                  range(1,1):range(2,1), 
                                                  range(1,2):range(2,2), 
                                                  range(1,3):range(2,3))
       Real,             Intent (In)    :: coords1 (shape(1,1):shape(2,1), 
                                                    shape(1,2):shape(2,2), 
                                                    shape(1,3):shape(2,3))
       Real,             Intent (In)    :: coords2 (shape(1,1):shape(2,1), 
                                                    shape(1,2):shape(2,2), 
                                                    shape(1,3):shape(2,3))
       Integer,          Intent (In)    :: control (2, ndim_3d)
       Integer,          Intent (In)    :: corner_shape (2, ndim_2d)
       Integer,          Intent (In)    :: nbr_corners
       Real,             Intent (In)    ::                 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners)
       Real,             Intent (In)    ::                 
          corners2 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners)
       Real,             Intent (In)    :: tol
       Integer,          Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_mg_final_3d_real (comp_info, nlev,             &
                                     found, loc, range,              &
                                     coords1, coords2, coords3,      &
                                     shape, control,                 &
                                     grid_id,                        &
                                     x_coords, y_coords, z_coords,   &
                                     coords_shape,                   &
                                     nbr_corners,                    &
                                     ijk0, tol, ierror)

       Use PSMILe_common
       Type (Enddef_comp), Intent (In) :: comp_info
       Integer, Intent (In)            :: nlev
       Integer, Intent (InOut)         :: found (*)
       Integer, Intent (InOut)         :: loc   (ndim_3d, *)
       Integer, Intent (In)            :: range (2, ndim_3d)
       Real, Intent (In)               :: coords1 (*)
       Real, Intent (In)               :: coords2 (*)
       Real, Intent (In)               :: coords3 (*)
       Integer, Intent (In)            :: shape (2, ndim_3d)
       Integer, Intent (InOut)         :: control (2, ndim_3d)
       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Real, Intent (In)               :: x_coords (*)
       Real, Intent (In)               :: y_coords (*)
       Real, Intent (In)               :: z_coords (*)
       Integer, Intent (In)            :: nbr_corners
       Integer, Intent (In)            :: ijk0 (ndim_3d)
       Real, Intent (In)               :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

   subroutine psmile_mg_final_gauss2_real (                                       &
                     grid_id, found, locations, fnd_loc_range,                    &
                     tgt_coords_x, tgt_coords_y, tgt_coords_shape, search_range,  &
                     src_corners_x, src_corners_y, src_corner_shape, nbr_corners, &
                     ierror)

      use psmile_common

      integer, intent (in)            :: grid_id
      integer, intent (in)            :: fnd_loc_range (2, ndim_3d)
      integer, intent (in)            :: tgt_coords_shape (2, ndim_3d)
      real, intent (in)   ::                                        
         tgt_coords_x (tgt_coords_shape(1,1):tgt_coords_shape(2,1), 
                       tgt_coords_shape(1,2):tgt_coords_shape(2,2), 
                       tgt_coords_shape(1,3):tgt_coords_shape(2,3))
      real, intent (in)   ::                                        
         tgt_coords_y (tgt_coords_shape(1,1):tgt_coords_shape(2,1), 
                       tgt_coords_shape(1,2):tgt_coords_shape(2,2), 
                       tgt_coords_shape(1,3):tgt_coords_shape(2,3))
      integer, intent (in)            :: search_range (2, ndim_3d)
      integer, intent (in)            :: src_corner_shape (2, ndim_2d)
      integer, intent (in)            :: nbr_corners
      real,   intent (in) ::                                        
         src_corners_x ( src_corner_shape(1,1):src_corner_shape(2,1), nbr_corners)
      real,   intent (in) ::                                        
         src_corners_y ( src_corner_shape(1,1):src_corner_shape(2,1), nbr_corners)
      integer, intent (inout)         :: found (fnd_loc_range(1,1):fnd_loc_range(2,1), 
                                                fnd_loc_range(1,2):fnd_loc_range(2,2), 
                                                fnd_loc_range(1,3):fnd_loc_range(2,3))
      integer, intent (inout)         :: locations (fnd_loc_range(1,1):fnd_loc_range(2,1), 
                                                    fnd_loc_range(1,2):fnd_loc_range(2,2), 
                                                    fnd_loc_range(1,3):fnd_loc_range(2,3))
      integer, intent (out)           :: ierror
   end subroutine

    subroutine psmile_mg_final_prev_2d_real (grid_id, nlev,        &
                    lstijk, xyz, found, newijk, nc,                &
                    corners1, corners2, corner_shape, nbr_corners, &
                    tol, ierror)
       Use PSMILe_common

       Integer,          Intent (In)   :: grid_id, nlev
       Integer,          Intent (In)   :: nc
       Integer,          Intent (In)   :: lstijk (ndim_2d, nc)
       Real,             Intent (In)   :: xyz (ndim_2d, nc)
       Integer,          Intent (In)   :: corner_shape (2, ndim_2d)
       Integer,          Intent (In)   :: nbr_corners
       Real,             Intent (In)   ::                 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners)
       Real,             Intent (In)   ::                 
          corners2 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners)
       Real,             Intent (In)   :: tol

       Integer,          Intent (Out)  :: found (nc)
       Integer,          Intent (Out)  :: newijk (ndim_2d, nc)
       Integer,          Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_mg_method_1d_real (comp_info, nlev,            &
                                     found, loc, range,              &
                                     coords1,                        &
                                     shape, control,                 &
                                     method_id,                      &
                                     x_coords,                       &
                                     coords_shape,                   &
                                     grid_valid_shape, cyclic,       &
                                     chmin, chmax,                   &
                                     tol, ierror)

       Use PSMILe_common

       Type (Enddef_comp), Intent (In) :: comp_info
       Integer, Intent (In)            :: nlev
       Integer, Intent (InOut)         :: found (*)
       Integer, Intent (InOut)         :: loc   (*)
       Integer, Intent (In)            :: range (2, ndim_3d)
       Real, Intent (In)               :: coords1 (*)
       Integer, Intent (In)            :: shape (2, ndim_3d)
       Integer, Intent (In)            :: control (2, ndim_3d)
       Integer, Intent (In)            :: method_id
       Integer, Intent (In)            :: coords_shape (2)
       Integer, Intent (In)            :: grid_valid_shape (2)
       Logical, Intent (In)            :: cyclic
       Real, Intent (In)               :: x_coords (*)
       Real, Intent (In)               :: chmin (*), chmax (*)
       Real, Intent (In)               :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_method_2d_real (comp_info,   &
                    nlev, found, loc, range,          &
                    coords1, coords2, search_shape, control, &
                    x_coords, y_coords, coords_shape, &
                    grid_valid_shape, cyclic, period, &
                    chmin1, chmin2, chmax1, chmax2,   &
                    tol, ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In) :: comp_info
       Integer, Intent (In)            :: nlev
       Integer, Intent (InOut)         :: found (*)
       Integer, Intent (InOut)         :: loc   (ndim_2d, *)
       Integer, Intent (In)            :: range (2, ndim_3d)
       Real,    Intent (In)            :: coords1 (*)
       Real,    Intent (In)            :: coords2 (*)
       Integer, Intent (In)            :: search_shape (2, ndim_3d)
       Integer, Intent (In)            :: control (2, ndim_3d)
       Integer, Intent (In)            :: coords_shape (2, ndim_2d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_2d)
       Logical, Intent (In)            :: cyclic (ndim_2d)
       Real,    Intent (In)            :: period (ndim_2d)
       Real,    Intent (In)            :: x_coords (*)
       Real,    Intent (In)            :: y_coords (*)
       Real,    Intent (In)            :: chmin1 (*), chmin2 (*)
       Real,    Intent (In)            :: chmax1 (*), chmax2 (*)
       Real,    Intent (In)            :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_method_3d_real (comp_info, nlev,            &
                                     found, loc, range,              &
                                     coords1, coords2, coords3,      &
                                     shape, control,                 &
                                     method_id,                      &
                                     x_coords, y_coords, z_coords,   &
                                     coords_shape,                   &
                                     grid_valid_shape, cyclic,       &
                                     chmin1, chmin2, chmin3,         &
                                     chmax1, chmax2, chmax3,         &
                                     midp1,  midp2,  midp3,          &
                                     tol, ierror)

       Use PSMILe_common

       Type (Enddef_comp), Intent (In)    :: comp_info
       Integer,            Intent (In)    :: nlev
       Integer,            Intent (InOut) :: found (*)
       Integer,            Intent (InOut) :: loc   (ndim_3d, *)
       Integer,            Intent (In)    :: range (2, ndim_3d)
       Real,               Intent (In)    :: coords1 (*)
       Real,               Intent (In)    :: coords2 (*)
       Real,               Intent (In)    :: coords3 (*)
       Integer,            Intent (In)    :: shape (2, ndim_3d)
       Integer,            Intent (In)    :: control (2, ndim_3d)
       Integer,            Intent (In)    :: method_id
       Integer,            Intent (In)    :: coords_shape (2, ndim_3d)
       Integer,            Intent (In)    :: grid_valid_shape (2, ndim_3d)
       Logical,            Intent (In)    :: cyclic (ndim_3d)
       Real,               Intent (In)    :: x_coords (*)
       Real,               Intent (In)    :: y_coords (*)
       Real,               Intent (In)    :: z_coords (*)
       Real,               Intent (In)    :: tol
       Real,               Intent (In)    :: chmin1 (*), chmin2 (*), chmin3 (*)
       Real,               Intent (In)    :: chmax1 (*), chmax2 (*), chmax3 (*)
       Real,               Intent (In)    :: midp1  (*), midp2  (*), midp3  (*)
       Integer,            Intent (Out)   :: ierror
    End Subroutine

   subroutine psmile_mg_method_gauss2_real (method_id, search_range,     &
                                            tgt_shape, tgt_coords_x,     &
                                            tgt_coords_y, loc_fnd_shape, &
                                            found, loc, virtual_cell,    &
                                            ierror)

      use psmile_common

      Integer, Intent (In)    :: method_id
      Integer, Intent (In)    :: search_range (2, ndim_3d)
      Integer, Intent (In)    :: loc_fnd_shape (2, ndim_3d)
      Integer, Intent (In)    :: tgt_shape (2, ndim_3d)
      Real, Intent (In)       :: tgt_coords_x (tgt_shape(1,1):tgt_shape(2,1),  
                                               tgt_shape(1,2):tgt_shape(2,2),  
                                               tgt_shape(1,3):tgt_shape(2,3)), 
                                 tgt_coords_y (tgt_shape(1,1):tgt_shape(2,1),  
                                               tgt_shape(1,2):tgt_shape(2,2),  
                                               tgt_shape(1,3):tgt_shape(2,3))
      Integer, Intent (InOut) :: found (loc_fnd_shape(1,1):loc_fnd_shape(2,1), 
                                        loc_fnd_shape(1,2):loc_fnd_shape(2,2), 
                                        loc_fnd_shape(1,3):loc_fnd_shape(2,3))
      Integer, Intent (InOut) :: loc   (loc_fnd_shape(1,1):loc_fnd_shape(2,1), 
                                        loc_fnd_shape(1,2):loc_fnd_shape(2,2), 
                                        loc_fnd_shape(1,3):loc_fnd_shape(2,3))
      Integer, Intent (Out)   :: virtual_cell (loc_fnd_shape(1,1):loc_fnd_shape(2,1), 
                                               loc_fnd_shape(1,2):loc_fnd_shape(2,2), 
                                               loc_fnd_shape(1,3):loc_fnd_shape(2,3))
      Integer, Intent (Out)   :: ierror
   end subroutine

    subroutine psmile_mg_method_irreg2_real (comp_info,    &
                    found, locations, search,              &
                    array, shape_2d, range_2d, control_2d, &
                           shape_1d, range_1d, control_1d, &
                    m_arrays, m_levdim,                    &
                    grid_id, method_id, tol, ierror)

       Use PSMILe_common

       Type (Enddef_comp), Intent (In)  :: comp_info
       Type (Enddef_search)             :: search
       Integer,            Intent (In)  :: grid_id, method_id
       Real,               Intent (In)  :: tol
       Type (real_vector), Intent (In)  :: array (        ndim_3d, search%npart)
       Integer,            Intent (In)  :: shape_2d   (2, ndim_3d, search%npart)
       Integer,            Intent (In)  :: range_2d   (2, ndim_3d, search%npart)
       Integer,            Intent (In)  :: control_2d (2, ndim_3d, search%npart)
       Integer,            Intent (In)  :: shape_1d   (2, ndim_3d, search%npart)
       Integer,            Intent (In)  :: range_1d   (2, ndim_3d, search%npart)
       Integer,            Intent (In)  :: control_1d (2, ndim_3d, search%npart)
       Type (Enddef_mg_real)            :: m_arrays
       Integer,            Intent (In)  :: m_levdim (ndim_3d)
       Type (integer_vector)            :: found     (search%npart, 2)
       Type (integer_vector)            :: locations (search%npart, 2)
       Integer,            Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_mg_srch_nneigh_reg_real (grid_id, nn_srch,     &
                    arrays, search_mode, nref_3d, grid_valid_shape,  &
                    neighbors_3d, nloc, num_neigh,                   &
                    sin_search, cos_search, z_search,                &
                    dist_real, dim1, indices, jbeg, jend,            &
                    mask_array, mask_shape, mask_available,          &
                    tol, ierror)

       Use PSMILe_common

       Integer,          Intent (In)   :: grid_id
       Type (Extra_search_nn), Intent (In) :: nn_srch
       Type (Extra_search_real)        :: arrays
       Integer,          Intent (In)   :: search_mode, nref_3d
       Integer,          Intent (In)   :: jbeg, jend, nloc
       Integer,          Intent (In)   :: grid_valid_shape (2, ndim_3d)
       Integer,          Intent (In)   ::       mask_shape (2, ndim_3d)
       Integer,          Intent (In)   :: num_neigh
       Integer,          Intent (In)   :: indices (:), dim1 (2)
       Real,             Intent (In)   :: sin_search (jbeg:jend, 2)
       Real,             Intent (In)   :: cos_search (jbeg:jend, 2)
       Real,             Intent (In)   ::   z_search (jbeg:jend)
       Logical,          Intent (In)   :: 
          mask_array (mask_shape (1,1):mask_shape (2,1), 
                      mask_shape (1,2):mask_shape (2,2), 
                      mask_shape (1,3): mask_shape (2,3))
       Logical,          Intent (In)   :: mask_available
       Real,             Intent (In)   :: tol
!
       Real,             Intent (InOut) :: 
          dist_real (dim1(1):dim1(2), num_neigh)
!
       Integer,          Intent (Out)   :: 
          neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer,          Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_mg_srch_nneigh_irr_real (grid_id,     &
                arrays, search_mode, nref_3d,               &
                sin_values, cos_values, grid_valid_shape,   &
                z_coords, coords_shape,                     &
                neighbors_3d, nloc, num_neigh,              &
                sin_search, cos_search, z_search,           &
                dist_dble, dim1, indices, jbeg, jend,       &
                mask_ind,                                   &
                mask_array, mask_shape, mask_available,     &
                tol, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Type (Extra_search_real)        :: arrays
       Integer, Intent (In)            :: nref_3d
       Integer, Intent (In)            :: nloc
       Integer, Intent (In)            :: search_mode
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Real,             Intent (In)   :: sin_values (grid_valid_shape(1,1): 
                                                      grid_valid_shape(2,1), 
                                                      grid_valid_shape(1,2): 
                                                      grid_valid_shape(2,2), 
                                                      2)
       Real,             Intent (In)   :: cos_values (grid_valid_shape(1,1): 
                                                      grid_valid_shape(2,1), 
                                                      grid_valid_shape(1,2): 
                                                      grid_valid_shape(2,2), 
                                                      2)
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Real,             Intent (In)   :: z_coords(coords_shape(1,3): 
                                                   coords_shape(2,3))
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (In)            :: jbeg, jend
       Integer, Intent (In)            :: indices (:), dim1 (2)
       Real,             Intent (InOut) :: dist_dble (dim1(1):dim1(2), num_neigh)
       Real,             Intent (In)   :: sin_search (jbeg:jend, 2)
       Real,             Intent (In)   :: cos_search (jbeg:jend, 2)
       Real,             Intent (In)   :: z_search   (jbeg:jend)
       Logical, Intent (In)            :: mask_ind   (jbeg:jend)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_array (mask_shape (1,1): 
                                                      mask_shape (2,1), 
                                                      mask_shape (1,2): 
                                                      mask_shape (2,2), 
                                                      mask_shape (1,3): 
                                                      mask_shape (2,3))
       Logical,           Intent (In)  :: mask_available
       Real,              Intent (In)  :: tol
       Integer,           Intent (Out) :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer,           Intent (Out) :: ierror
    End Subroutine
!
    subroutine psmile_print_3d_coord_real (x, y, z, shape,     &
                                           ind, nloc, message)
       Use PSMILe_common

       Integer, Intent (In)            :: shape (2, ndim_3d)
       Real, Intent (In)               :: x (*), y (*), z (*)
       Integer, Intent(In)             :: nloc
       Integer, Intent(In)             :: ind (ndim_3d, nloc)
       Character (len=*), Intent(In)   :: message
    End Subroutine
!
    subroutine psmile_print_3d_reg_coord_real (x, y, z, shape,     &
                                               ind, nloc, message)
       Use PSMILe_common

       Integer, Intent (In)            :: shape (2, ndim_3d)
       Real, Intent (In)               :: x (*), y (*), z (*)
       Integer, Intent(In)             :: nloc
       Integer, Intent(In)             :: ind (ndim_3d, nloc)
       Character (len=*), Intent(In)   :: message
    End Subroutine
!
    subroutine psmile_print_irreg2_coord_real (x, y, z, shape,     &
                                               ind, nloc, message)
       Use PSMILe_common

       Integer, Intent (In)            :: shape (2, ndim_3d)
       Real, Intent (In)               :: x (*), y (*), z (*)
       Integer, Intent(In)             :: nloc
       Integer, Intent(In)             :: ind (ndim_3d, nloc)
       Character (len=*), Intent(In)   :: message
    End Subroutine

!   Put / Get

!!$    We cannot include an interface description here since this
!!$      is overloaded wrt. data_array by the calling routine prism_put.
!!$
!!$    Subroutine PSMILe_Put_real ( field_id, julian_day, julian_sec, &
!!$              julian_dayb, julian_secb, data_array, info, ierror )

!!$       use PRISM, only : PSMILe_Time_Struct
!!$
!!$       Integer, Intent (In)                 :: field_id
!!$
!!$       Double Precision, Intent (In)        :: julian_day, julian_dayb(2)
!!$       Double Precision, Intent (In)        :: julian_sec, julian_secb(2)
!!$
!!$       Real,    Intent (In)                 :: data_array(*)
!!$       Integer, Intent (Out)                :: info, ierror
!!$    End Subroutine

    subroutine psmile_put_field_real (field_id, task_id, data_array, len, &
                                      nbr_fields, ierror)

       Integer, Intent (In)          :: field_id
       Integer, Intent (In)          :: task_id
       Integer, Intent (In)          :: len, nbr_fields
       Real,    Intent (In)          :: data_array(*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_put_field_gauss2_real (data_array, data_shape, nbr_fields, &
                                          srcloc, nparts, nloc, npoints, &
                                          dest, tag, comm, ierror)
       Use PSMILe_common

       Integer, Intent (In)          :: nloc, dest, tag, comm, nbr_fields
       Integer, Intent (In)          :: nparts
       Integer, Intent (In)          :: npoints (2, nparts)
       Integer, Intent (In)          :: data_shape (2, ndim_3d)
       Type (integer_vector), Intent (In) :: srcloc (2, nparts)
       Real,    Intent (In)          :: data_array (*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_put_field_21d_real (data_array, data_shape, nbr_fields, &
                                         srcloc, nparts, nloc, npoints, &
                                         dest, tag, comm, ierror)
       Use PSMILe_common

       Integer, Intent (In)          :: nloc, dest, tag, comm, nbr_fields
       Integer, Intent (In)          :: nparts
       Integer, Intent (In)          :: npoints (ndim_3d, nparts)
       Integer, Intent (In)          :: data_shape (2, ndim_3d)
       Type (integer_vector), Intent (In) :: srcloc (ndim_3d, nparts)
       Real,    Intent (In)          :: data_array (*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_put_field_3d_real (data_array, data_shape, nbr_fields, &
                                         srcloc, nparts, nloc, npoints, &
                                         dest, tag, comm, ierror)
       Use PSMILe_common

       Integer, Intent (In)          :: nloc, dest, tag, comm, nbr_fields
       Integer, Intent (In)          :: nparts
       Integer, Intent (In)          :: npoints (ndim_3d, nparts)
       Integer, Intent (In)          :: data_shape (2, ndim_3d)
       Type (integer_vector), Intent (In) :: srcloc (ndim_3d, nparts)
       Real,    Intent (In)          :: data_array (*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_put_irr_field_real (data_array, data_shape, nbr_fields,  &
                                          srcloc, npoints, srcars, nars, nloc, &
                                          dest, tag, comm, ierror)
       Use PSMILe_common

       Integer, Intent (In)          :: nars, nloc, npoints, nbr_fields
       Integer, Intent (In)          :: dest, tag, comm
       Integer, Intent (In)          :: data_shape (2, ndim_3d)
       Integer, Intent (In)          :: srcloc (ndim_3d, npoints)
       Integer, Intent (In)          :: srcars (2, ndim_3d, nars)
       Real,    Intent (In)          :: data_array (*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_get_field_real (field_id, data_array, len, &
                                      nbr_fields, ierror)

       Integer, Intent (In)          :: field_id
       Integer, Intent (In)          :: len, nbr_fields
       Real,    Intent (InOut)       :: data_array(*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_get_irr_field_real (data_array, data_shape, nbr_fields,  &
                                          dstijk, npoints, dstars, nars, nloc, &
                                          source, tag, comm, ierror)
       Use PSMILe_common

       Integer, Intent (In)          :: nars, nloc, npoints, nbr_fields
       Integer, Intent (In)          :: source, tag, comm
       Integer, Intent (In)          :: data_shape (2, ndim_3d)
       Integer, Intent (In)          :: dstijk (ndim_3d, npoints)
       Integer, Intent (In)          :: dstars (2, ndim_3d, nars)
       Real,    Intent (InOut)       :: data_array (*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

!   Utilities

    subroutine psmile_copy_subarray_2d_real (dest_vector, size, &
               darray, idlow, idhigh, jdlow, jdhigh, &
                       ibeg,  iend,   jbeg,  jend,   ierror)
       Use PSMILe_common
       Integer(kind=int64), Intent (In) :: size
       Integer, Intent (In)             :: idlow, idhigh, jdlow, jdhigh
       Integer, Intent (In)             :: ibeg,  iend,   jbeg,  jend
       Real, Intent (In)                :: darray (idlow:idhigh, jdlow:jdhigh)
       Real, Intent (Out)               :: dest_vector (size)
       Integer, Intent (Out)            :: ierror
    End Subroutine

    subroutine psmile_copy_subarray_3d_real (dest_vector, size, &
               darray, idlow, idhigh, jdlow, jdhigh, kdlow, kdhigh, &
               sub, ierror)
       Use PSMILe_common

       Integer(kind=int64), Intent (In)  :: size
       Integer,             Intent (In)  :: idlow, idhigh, jdlow, jdhigh, 
                                            kdlow, kdhigh
       Integer,             Intent (In)  :: sub (2, ndim_3d)
       Real,                Intent (In)  :: darray (idlow:idhigh, jdlow:jdhigh, 
                                                    kdlow:kdhigh)
       Real,                Intent (Out) :: dest_vector (size)
       Integer,             Intent (Out) :: ierror
    End Subroutine

!
!   ------ Routines for Double Precision ------------
!

    subroutine psmile_add_nn_found_dble (search, extra_search,  &
                      index_sent, found, n_send,                &
                      index_found, distance, n_found, nb_extra, &
                      selected, sel_info, nrecv, ierror)
       Use PSMILe_common

       Integer,           Intent (InOut) :: nrecv
       Type (Enddef_search),      Intent (In)    :: search
       Type (Extra_search_info),  Intent (InOut) :: extra_search
       Type (Select_search_info), Intent (InOut) :: sel_info (nrecv)
       Integer,           Intent (In)    :: nb_extra, n_found, n_send
       Integer,           Intent (In)    :: index_sent  (n_send)
       Integer,           Intent (In)    :: found (n_send)
       Integer,           Intent (In)    :: index_found (n_found)
       Double Precision,  Intent (In)    :: distance (n_found)
       Integer,           Intent (InOut) :: selected (2, extra_search%n_extra)
       Integer,           Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_bbcells_1d_dble (array, shape, range, &
                                       corners, corner_shape, nbr_corners, &
                                       chmin, chmax, levdim, ierror)
       Integer,           Intent (In)  :: shape (2)
       Integer,           Intent (In)  :: range (2)
       Double Precision,  Intent (In)  :: array (shape(1):shape(2))
       Integer,           Intent (In)  :: corner_shape (2), nbr_corners
       Double Precision,  Intent (In)  :: corners (corner_shape(1):corner_shape(2), 
                                                   nbr_corners)
       Integer,           Intent (In)  :: levdim
       Double Precision,  Intent (Out) :: chmin (range(1)-1:range(2))
       Double Precision,  Intent (Out) :: chmax (range(1)-1:range(2))
       Integer,           Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_bbcells_2d_dble (           &
                    coords, coords_shape, sub_range, &
                    corner_shape,                    &
                    chmin, chmax, midp, levdim,      &
                    period, ierror)
       Use psmile_common
       Integer,           Intent (In)  :: coords_shape  (2, ndim_2d)
       Integer,           Intent (In)  :: sub_range  (2, ndim_2d)
       Integer,           Intent (In)  :: corner_shape (2, ndim_2d)
       Double Precision,  Intent (In)  :: 
          coords(coords_shape(1,1):coords_shape(2,1), 
                 coords_shape(1,2):coords_shape(2,2))
       Integer,           Intent (In)  :: levdim (ndim_2d)
       Double Precision,  Intent (In)  :: period
       Double Precision,  Intent (Out) :: 
          chmin (sub_range(1,1)-1:sub_range(2,1), 
                 sub_range(1,2)-1:sub_range(2,2))
       Double Precision,  Intent (Out) :: 
          chmax (sub_range(1,1)-1:sub_range(2,1), 
                 sub_range(1,2)-1:sub_range(2,2))
       Double Precision,  Intent (Out) :: 
          midp  (sub_range(1,1)-1:sub_range(2,1), 
                 sub_range(1,2)-1:sub_range(2,2))
       Integer,           Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_bbcells_virt_2d_dble (method_id,                &
                    coords1, coords2, coords_shape, coords_range,     &
                    corners1, corners2, corner_shape, nbr_corners,    &
                    chmin1_corner, chmin2_corner,                     &
                    chmax1_corner, chmax2_corner, levdim_corner,      &
                    chmin1,  chmin2, chmax1, chmax2, midp1, midp2,    &
                    levdim,  period, bmaski, bmaskj, ierror)
       Use PSMILe_common
       Integer,           Intent (In)  :: method_id, nbr_corners
       Integer,           Intent (In)  :: coords_shape (2, ndim_2d)
       Integer,           Intent (In)  :: coords_range (2, ndim_2d)
       Integer,           Intent (In)  :: corner_shape (2, ndim_2d)
       Integer,           Intent (In)  :: levdim_corner (2, ndim_2d)
       Integer,           Intent (In)  :: levdim (ndim_2d)
       Double Precision,  Intent (In)  :: period
       Double Precision,  Intent (InOut)  ::              
          coords1(coords_shape(1,1):coords_shape(2,1), 
                  coords_shape(1,2):coords_shape(2,2))
       Double Precision,  Intent (InOut)  ::              
          coords2(coords_shape(1,1):coords_shape(2,1), 
                  coords_shape(1,2):coords_shape(2,2))
       Double Precision,  Intent (In)  :: 
          corners1 (corner_shape(1,1):corner_shape(2,1), 
                    corner_shape(1,2):corner_shape(2,2), 
                    nbr_corners)
       Double Precision,  Intent (In)  :: 
          corners2 (corner_shape(1,1):corner_shape(2,1), 
                    corner_shape(1,2):corner_shape(2,2), 
                    nbr_corners)
       Double Precision,  Intent (In)  :: 
          chmin1_corner (levdim_corner(1,1):levdim_corner(2,1), 
                         levdim_corner(1,2):levdim_corner(2,2))
       Double Precision,  Intent (In)  :: 
          chmin2_corner (levdim_corner(1,1):levdim_corner(2,1), 
                         levdim_corner(1,2):levdim_corner(2,2))
       Double Precision,  Intent (In)  :: 
          chmax1_corner (levdim_corner(1,1):levdim_corner(2,1), 
                         levdim_corner(1,2):levdim_corner(2,2))
       Double Precision,  Intent (In)  :: 
          chmax2_corner (levdim_corner(1,1):levdim_corner(2,1), 
                         levdim_corner(1,2):levdim_corner(2,2))
       Double Precision, Intent (InOut) :: 
          chmin1 (coords_range(1,1)-1:coords_range(2,1), 
                  coords_range(1,2)-1:coords_range(2,2))
       Double Precision,  Intent (InOut) :: 
          chmin2 (coords_range(1,1)-1:coords_range(2,1), 
                  coords_range(1,2)-1:coords_range(2,2))
       Double Precision, Intent (InOut) :: 
          chmax1 (coords_range(1,1)-1:coords_range(2,1), 
                  coords_range(1,2)-1:coords_range(2,2))
       Double Precision, Intent (InOut) :: 
          chmax2 (coords_range(1,1)-1:coords_range(2,1), 
                  coords_range(1,2)-1:coords_range(2,2))
       Double Precision, Intent (InOut) :: 
          midp1  (coords_range(1,1)-1:coords_range(2,1), 
                  coords_range(1,2)-1:coords_range(2,2))
       Double Precision, Intent (InOut) :: 
          midp2  (coords_range(1,1)-1:coords_range(2,1), 
                  coords_range(1,2)-1:coords_range(2,2))
       Integer,           Intent (Out) :: 
          bmaski (coords_range(1,1)-1:coords_range(2,1)+1, 2)
       Integer,           Intent (Out) :: 
          bmaskj (coords_range(1,2)-1:coords_range(2,2)+1, 2)
       Integer,           Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_bbcells_3d_dble (method_id, array, shape, range,     &
                                       corners, corner_shape, nbr_corners, &
                                       chmin, chmax, midp,                 &
                                       levdim, cyclic, period, ierror)
       Use PSMILe_common
       Integer,           Intent (In)  :: method_id
       Integer,           Intent (In)  :: shape (2, ndim_3d)
       Integer,           Intent (In)  :: range (2, ndim_3d)
       Integer,           Intent (In)  :: corner_shape (2, ndim_3d), nbr_corners
       Double Precision,  Intent (In)  :: array(shape(1,1):shape(2,1), 
                                                shape(1,2):shape(2,2), 
                                                shape(1,3):shape(2,3))
       Double Precision,  Intent (In)  :: corners (corner_shape(1,1): 
                                                   corner_shape(2,1), 
                                                   corner_shape(1,2): 
                                                   corner_shape(2,2), 
                                                   corner_shape(1,3): 
                                                   corner_shape(2,3), 
                                                   nbr_corners)
       Integer,           Intent (In)  :: levdim (ndim_3d)
       Logical,           Intent (In)  :: cyclic
       Double Precision,  Intent (In)  :: period
       Double Precision,  Intent (Out) :: chmin (range(1,1)-1:range(2,1), 
                                                 range(1,2)-1:range(2,2), 
                                                 range(1,3)-1:range(2,3))
       Double Precision,  Intent (Out) :: chmax (range(1,1)-1:range(2,1), 
                                                 range(1,2)-1:range(2,2), 
                                                 range(1,3)-1:range(2,3))
       Double Precision,  Intent (Out) :: midp  (range(1,1)-1:range(2,1), 
                                                 range(1,2)-1:range(2,2), 
                                                 range(1,3)-1:range(2,3))
       Integer,           Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_bbcells_gauss2_dble (array_x, array_y,          &
                                           shape, range, nbr_lats,    &
                                           points_per_lat, corners_y, &
                                           corner_shape, nbr_corners, &
                                           chmin_x, chmax_x, midp_x,  &
                                           chmin_y, chmax_y, midp_y,  &
                                           nbrs, levdim, ierror )

      Integer, Intent (In)             :: shape (2)
      Double Precision, Intent (In)    :: array_x(shape(1):shape(2))
      Double Precision, Intent (In)    :: array_y(shape(1):shape(2))
      Integer, Intent (In)             :: range (2)
      Integer, Intent (In)             :: corner_shape (2)
      Integer, Intent (In)             :: nbr_lats
      Integer, Intent (In)             :: points_per_lat(nbr_lats,1)
      Integer, Intent (In)             :: nbr_corners
      Double Precision, Intent (In)    :: corners_y (corner_shape(1):corner_shape(2), 
                                                     nbr_corners)
      Integer, Intent (In)             :: levdim(1)
      Double Precision, Intent (Out)   :: chmin_x (range(1)-1:range(2))
      Double Precision, Intent (Out)   :: chmax_x (range(1)-1:range(2))
      Double Precision, Intent (Out)   :: midp_x  (range(1)-1:range(2))
      Double Precision, Intent (Out)   :: chmin_y (range(1)-1:range(2))
      Double Precision, Intent (Out)   :: chmax_y (range(1)-1:range(2))
      Double Precision, Intent (Out)   :: midp_y  (range(1)-1:range(2))
      Integer, Intent (Out)            :: nbrs    (range(2)-range(1)+1,4)
      Integer, Intent (Out)            :: ierror
    End Subroutine

    subroutine psmile_celltest_dble ( grid_id, range, sense, ierror )
      Use PSMILe_common
      Integer, Intent (In)             :: grid_id
      Integer, Intent (In)             :: range(2,ndim_2d)
      Integer, Intent (Out)            :: sense
      Integer, Intent (Out)            :: ierror
    End Subroutine

    subroutine psmile_ccompact_gauss2_dble ( send_info,     &
               grid_valid_shape, shape, nb_corners,         &
               array_x, array_y, array_z,                   &
               extra_search, dest_size, nbr_cells_tot,      &
               source_cell_index,                           &
               neighcells, dest_x, dest_y, dest_z, ierror )

       USE PSMILe_Common

       Type (Send_information), Intent (InOut)  :: send_info
       Integer, Intent (In)                     :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)                     :: shape (2, ndim_3d)
       Integer, Intent (In)                     :: nb_corners
       Double Precision, Intent (In)            :: array_x ( shape(1,1):shape(2,1), 
                                                             nb_corners )
       Double Precision, Intent (In)            :: array_y ( shape(1,1):shape(2,1), 
                                                             nb_corners )
       Double Precision, Intent (In)            :: array_z ( shape(1,3):shape(2,3) )
       Integer, Intent (In)                     :: dest_size
       Integer, Intent (In)                     :: nbr_cells_tot
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer, Intent (InOut)                  :: source_cell_index (nbr_cells_tot)
       Integer, Intent (InOut)                  :: neighcells (nbr_cells_tot, nb_corners)
       Double Precision, Intent (Out)           :: dest_x (2*dest_size)
       Double Precision, Intent (Out)           :: dest_y (2*dest_size)
       Double Precision, Intent (Out)           :: dest_z (2*dest_size)
       Integer, Intent (Out)                    :: ierror
    End Subroutine

    subroutine psmile_ccompact_irreg2_dble ( send_info,     &
               grid_valid_shape, shape, nb_corners,         &
               array_x, array_y, array_z,                   &
               extra_search, dest_size, nbr_cells_tot,      &
               source_cell_index,                           &
               neighcells, dest_x, dest_y, dest_z, ierror )

       USE PSMILe_Common

       Type (Send_information), Intent (InOut)  :: send_info
       Type (Extra_search_info), Intent (InOut) :: extra_search

       Integer, Intent (In)                     :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)                     :: shape (2, ndim_3d)
       Integer, Intent (In)                     :: nb_corners
       Double Precision, Intent (In)            :: array_x ( shape(1,1):shape(2,1), 
                                                             shape(1,2):shape(2,2), 
                                                             nb_corners )
       Double Precision, Intent (In)            :: array_y ( shape(1,1):shape(2,1), 
                                                             shape(1,2):shape(2,2), 
                                                             nb_corners )
       Double Precision, Intent (In)            :: array_z ( shape(1,3):shape(2,3) )
       Integer, Intent (In)                     :: dest_size
       Integer, Intent (In)                     :: nbr_cells_tot
       Integer, Intent (InOut)                  :: source_cell_index (nbr_cells_tot)
       Integer, Intent (InOut)                  :: neighcells(nbr_cells_tot, nb_corners)
       Double Precision, Intent (Out)           :: dest_x (dest_size)
       Double Precision, Intent (Out)           :: dest_y (dest_size)
       Double Precision, Intent (Out)           :: dest_z (dest_size)
       Integer, Intent (Out)                    :: ierror
    End Subroutine

    subroutine psmile_ccompact_3d_reg_dble ( send_info,     &
               grid_valid_shape, shape, nb_corners,         &
               array_x, array_y, array_z,                   &
               extra_search, dest_size, nbr_cells_tot,      &
               source_cell_index,                           &
               neighcells, dest_x, dest_y, dest_z, ierror )

       USE PSMILe_Common

       Type (Send_information), Intent (InOut)  :: send_info
       Integer, Intent (In)                     :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)                     :: shape (2, ndim_3d)
       Integer, Intent (In)                     :: nb_corners
       Double Precision, Intent (In)            :: array_x ( shape(1,1):shape(2,1), 
                                                             nb_corners )
       Double Precision, Intent (In)            :: array_y ( shape(1,2):shape(2,2), 
                                                             nb_corners )
       Double Precision, Intent (In)            :: array_z ( shape(1,3):shape(2,3) )
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer, Intent (In)                     :: dest_size
       Integer, Intent (In)                     :: nbr_cells_tot
       Integer, Intent (InOut)                  :: source_cell_index (nbr_cells_tot)
       Double Precision, Intent (Out)           :: dest_x (dest_size)
       Double Precision, Intent (Out)           :: dest_y (dest_size)
       Double Precision, Intent (Out)           :: dest_z (dest_size)
       Integer, Intent (InOut)                  :: neighcells (nbr_cells_tot, nb_corners)
       Integer, Intent (Out)                    :: ierror
    End Subroutine

    subroutine psmile_control_cell_2d_dble (grid_id,               &
                    ic, nc, icdim1, list, j, k,                    &
                    coords1,  coords2,  shape,                     &
                    corners1, corners2, corner_shape, nbr_corners, &
                    tol, fnd, ierror)
      Use PSMILe_common

      Integer,          Intent (In)   :: grid_id, nc, icdim1
      Integer,          Intent (In)   :: ic (icdim1, ndim_2d)
      Integer,          Intent (In)   :: list (nc), j, k
      Integer,          Intent (In)   :: shape (2, ndim_3d)
      Double Precision, Intent (In)   :: coords1 (shape(1,1):shape(2,1), 
                                                  shape(1,2):shape(2,2), 
                                                  shape(1,3):shape(2,3))
      Double Precision, Intent (In)   :: coords2 (shape(1,1):shape(2,1), 
                                                  shape(1,2):shape(2,2), 
                                                  shape(1,3):shape(2,3))
      Integer,          Intent (In)   :: corner_shape (2, ndim_2d)
      Integer,          Intent (In)   :: nbr_corners
      Double Precision, Intent (In)   ::                 
         corners1 ( corner_shape(1,1):corner_shape(2,1), 
                    corner_shape(1,2):corner_shape(2,2), nbr_corners)
      Double Precision, Intent (In)   ::                 
         corners2 ( corner_shape(1,1):corner_shape(2,1), 
                    corner_shape(1,2):corner_shape(2,2), nbr_corners)
      Double Precision, Intent (In)   :: tol
      Logical,          Intent (Out)  :: fnd (nc)
      Integer,          Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_control_cell_gauss2_dble (grid_id,           &
                    ic, nc, list, j, k,                            &
                    coords1,  coords2,  shape,                     &
                    corners1, corners2, corner_shape, nbr_corners, &
                    tol, fnd, ierror)
      Use PSMILe_common

      Integer,          Intent (In)   :: grid_id, nc
      Integer,          Intent (In)   :: ic (nc)
      Integer,          Intent (In)   :: list (nc), j, k
      Integer,          Intent (In)   :: shape (2, ndim_3d)
      Double Precision, Intent (In)   :: 
         coords1 (shape(1,1):shape(2,1), shape(1,2):shape(2,2), 
                  shape(1,3):shape(2,3))
      Double Precision, Intent (In)   :: 
         coords2 (shape(1,1):shape(2,1), shape(1,2):shape(2,2), 
                  shape(1,3):shape(2,3))
      Integer,          Intent (In)   :: corner_shape (2, ndim_2d)
      Integer,          Intent (In)   :: nbr_corners
      Double Precision, Intent (In)   ::                 
         corners1 ( corner_shape(1,1):corner_shape(2,1), 
                    corner_shape(1,2):corner_shape(2,2), nbr_corners)
      Double Precision, Intent (In)   ::                 
         corners2 ( corner_shape(1,1):corner_shape(2,1), 
                    corner_shape(1,2):corner_shape(2,2), nbr_corners)
      Double Precision, Intent (In)   :: tol
      Logical,          Intent (Out)  :: fnd (nc)
      Integer,          Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_ext_compact_irreg2_dble (send_info, array, shape, &
                                               grid_valid_shape,        &
                                               dest_vector, dest_size, ierror)
       Use PSMILe_common
       Type(Send_information), Intent(InOut) :: send_info
       Double Precision, Intent (In)         :: array (*)
       Integer, Intent (In)                  :: shape (2, ndim_2d)
       Integer, Intent (In)                  :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)                  :: dest_size
       Double Precision, Intent (Out)        :: dest_vector (dest_size)
       Integer, Intent (Out)                 :: ierror
    End Subroutine

    subroutine psmile_ext_compact_list_3d_dble (send_info, array, shape, &
                                                grid_valid_shape,        &
                                                dest_vector, dest_size, ierror)
       Use PSMILe_common
       Type(Send_information), Intent(In) :: send_info
       Double Precision, Intent (In)      :: array (*)
       Integer, Intent (In)               :: shape (2, ndim_3d)
       Integer, Intent (In)               :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (In)               :: dest_size
       Double Precision, Intent (Out)     :: dest_vector (dest_size)
       Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_put_compact_list_3d_dble (source_list, dstijk, nloc, &
                                                array, shape, nbr_fields,  &
                                                ierror)
       Use PSMILe_common
       Double Precision, Intent (InOut)   :: array (*)
       Integer, Intent (In)               :: shape (2, ndim_3d)
       Integer, Intent (In)               :: nloc, nbr_fields
       Integer, Intent (In)               :: dstijk (ndim_3d, nbr_fields)
       Double Precision, Intent (In)      :: source_list (nloc, nbr_fields)
       Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_extract_indices_2d_dble (array, shape, &
                                               dstijk, ncpl, &
                                               dest_vector, ierror)
       Use PSMILe_common
       Double Precision, Intent (In)      :: array (*)
       Integer, Intent (In)               :: shape (2, ndim_2d)
       Integer, Intent (In)               :: ncpl
       Integer, Intent (In)               :: dstijk (ndim_3d, ncpl)
       Double Precision, Intent (Out)     :: dest_vector (ncpl)
       Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_extract_indices_3d_dble (array, shape, &
                                               dstijk, ncpl, &
                                               dest_vector, ierror)
       Use PSMILe_common
       Double Precision, Intent (In)      :: array (*)
       Integer, Intent (In)               :: shape (2, ndim_3d)
       Integer, Intent (In)               :: ncpl
       Integer, Intent (In)               :: dstijk (ndim_3d, ncpl)
       Double Precision, Intent (Out)     :: dest_vector (ncpl)
       Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_gauss_setup_dble (grid_id, counts, displs, ierror)
      Integer, Intent (In)                :: grid_id
      Integer, Intent (In)                :: counts (*)
      Integer, Intent (In)                :: displs (*)
!
      Integer, Intent (Out)               :: ierror
    End Subroutine PSMILe_gauss_setup_dble

    subroutine psmile_extent_subgrid_1d_dble (           &
                    array, idlow, idhigh, nbr_corners,   &
                           ibeg,  iend,                  &
                    extent, ierror)
       Integer, Intent (In)            :: idlow, idhigh, nbr_corners
       Integer, Intent (In)            :: ibeg, iend
       Double Precision, Intent (In)   :: array (idlow:idhigh, nbr_corners)
       Double Precision, Intent (Out)  :: extent (2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_extent_subgrid_2d_dble (           &
                    array, idlow, idhigh, jdlow, jdhigh, nbr_corners,   &
                           ibeg,  iend,   jbeg,  jend,                  &
                    extent, ierror)
       Integer, Intent (In)            :: idlow, idhigh
       Integer, Intent (In)            :: jdlow, jdhigh, nbr_corners
       Integer, Intent (In)            :: ibeg, iend, jbeg, jend
       Double Precision, Intent (In)   :: array (idlow:idhigh,          
                                                 jdlow:jdhigh, nbr_corners)
       Double Precision, Intent (Out)  :: extent (2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_extent_subgrid_3d_dble (           &
                    array, idlow, idhigh, jdlow, jdhigh, &
                           kdlow, kdhigh, nbr_corners,   &
                           grid_shape,                   &
                    extent, ierror)
       Use PSMILe_common
       Integer, Intent (In)            :: idlow, idhigh
       Integer, Intent (In)            :: jdlow, jdhigh
       Integer, Intent (In)            :: kdlow, kdhigh, nbr_corners
       Double Precision, Intent (In)   :: array (idlow:idhigh, jdlow:jdhigh, 
                                                 kdlow:kdhigh, nbr_corners)
       Integer, Intent (In)            :: grid_shape (2, ndim_3d)
       Double Precision, Intent (Out)  :: extent (2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_generate_1d_3d_dble (            &
                    vector1, vector2, vector3, shape,  &
                    dest_array, dest_shape,            &
                    grid_valid_shape, ierror)
       Use PSMILe_common

       Double Precision, Intent (In)   :: vector1 (*)
       Double Precision, Intent (In)   :: vector2 (*)
       Double Precision, Intent (In)   :: vector3 (*)
       Integer,          Intent (In)   :: shape (2, ndim_3d)
       Integer,          Intent (In)   :: dest_shape (2, ndim_3d)
       Double Precision, Intent (Out)  :: dest_array ( 
                                             dest_shape(1,1):dest_shape(2,1), 
                                             dest_shape(1,2):dest_shape(2,2), 
                                             dest_shape(1,3):dest_shape(2,3))
       Integer,          Intent (In)   :: grid_valid_shape (2, ndim_3d)
       Integer,          Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_get_cyclic_dir_3d_dble (                 &
                           chmin, chmin2, chmin3,              &
                           chmax, chmax2, chmax3, levdim,      &
                           corners, corners2, corners3,        &
                           corner_shape, nbr_corners,          &
                           grid_valid_shape,                   &
                           len_cyclic, rtol, index, cyclic, ierror)
       Use PSMILe_common

       Double Precision, Intent (In)   :: chmin (*)
       Double Precision, Intent (In)   :: chmax (*)
       Double Precision, Intent (In)   :: chmin2 (*)
       Double Precision, Intent (In)   :: chmax2 (*)
       Double Precision, Intent (In)   :: chmin3 (*)
       Double Precision, Intent (In)   :: chmax3 (*)
       Integer, Intent (In)            :: levdim (ndim_3d)
       Double Precision, Intent (In)   :: corners (*)
       Double Precision, Intent (In)   :: corners2 (*)
       Double Precision, Intent (In)   :: corners3 (*)
       Integer, Intent (In)            :: corner_shape (2, ndim_3d)
       Integer, Intent (In)            :: nbr_corners
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: len_cyclic, rtol
       Integer, Intent (In)            :: index
       Logical, Intent (Out)           :: cyclic
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_get_faces_3d_dble (search, extra_search,     &
                    corners1, corners2, corners3,                  &
                    corner_shape, nbr_corners, grid_valid_shape,   &
                    neighbors_3d, nloc, num_neigh,                 &
                    faces, n_faces, nreq, ierror)
       Use PSMILe_common

       Type (Enddef_search),     Intent (In)  :: search
       Type (Extra_search_info), Intent (In)  :: extra_search
       Integer,                  Intent (In)  :: nbr_corners, nloc, num_neigh
       Integer,                  Intent (In)  :: nreq
       Integer,                  Intent (In)  :: corner_shape     (2, ndim_3d)
       Integer,                  Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Double Precision,         Intent (In)  :: 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), 
                     corner_shape(1,3):corner_shape(2,3), nbr_corners)
       Double Precision,         Intent (In)  :: 
          corners2 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), 
                     corner_shape(1,3):corner_shape(2,3), nbr_corners)
       Double Precision,         Intent (In)  :: 
          corners3 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), 
                     corner_shape(1,3):corner_shape(2,3), nbr_corners)
       Integer,                  Intent (In)  :: 
          neighbors_3d (ndim_3d, nloc, num_neigh)
!
       Double Precision,         Intent (Out) :: faces (2, ndim_3d, nreq)
       Integer,                  Intent (Out) :: n_faces (nreq)
       Integer,                  Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_get_faces_3d_reg_dble (search, extra_search, &
                    corners1, corners2, corners3,                  &
                    corner_shape, nbr_corners, grid_valid_shape,   &
                    neighbors_3d, nloc, num_neigh,                 &
                    faces, n_faces, nreq, ierror)
       Use PSMILe_common

       Type (Enddef_search),     Intent (In)  :: search
       Type (Extra_search_info), Intent (In)  :: extra_search
       Integer,                  Intent (In)  :: nbr_corners, nloc, num_neigh
       Integer,                  Intent (In)  :: nreq
       Integer,                  Intent (In)  :: corner_shape (2, ndim_3d)
       Integer,                  Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Double Precision,         Intent (In)  :: 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 2)
       Double Precision,         Intent (In)  :: 
          corners2 ( corner_shape(1,2):corner_shape(2,2), 2)
       Double Precision,         Intent (In)  :: 
          corners3 ( corner_shape(1,3):corner_shape(2,3), 2)
       Integer,                  Intent (In)  :: 
          neighbors_3d (ndim_3d, nloc, num_neigh)
!
       Double Precision,         Intent (Out) :: faces (2, ndim_3d, nreq)
       Integer,                  Intent (Out) :: n_faces (nreq)
       Integer,                  Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_get_faces_gauss2_dble (search, extra_search, &
                    corners1, corners2, corners3,                  &
                    corner_shape, nbr_corners, grid_valid_shape,   &
                    neighbors_3d, nloc, num_neigh,                 &
                    faces, nreq, ierror)

       Use PSMILe_common

       Type (Enddef_search),     Intent (In)  :: search
       Type (Extra_search_info), Intent (In)  :: extra_search
       Integer,                  Intent (In)  :: nbr_corners, nloc, num_neigh
       Integer,                  Intent (In)  :: nreq
       Integer,                  Intent (In)  :: corner_shape     (2, ndim_3d)
       Integer,                  Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Double Precision,         Intent (In)  :: 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 2 )
       Double Precision,         Intent (In)  :: 
          corners2 ( corner_shape(1,1):corner_shape(2,1), 2 )
       Double Precision,         Intent (In)  :: 
          corners3 ( corner_shape(1,3):corner_shape(2,3), 2 )
       Integer,                  Intent (In)  :: 
          neighbors_3d (ndim_3d, nloc, num_neigh)
!
       Double Precision,         Intent (Out) :: faces (2, ndim_3d, nreq)
       Integer,                  Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_get_faces_irreg2_dble (search, extra_search, &
                    corners1, corners2, corners3,                  &
                    corner_shape, nbr_corners, grid_valid_shape,   &
                    neighbors_3d, nloc, num_neigh,                 &
                    faces, n_faces, nreq, ierror)
       Use PSMILe_common

       Type (Enddef_search),     Intent (In)  :: search
       Type (Extra_search_info), Intent (In)  :: extra_search
       Integer,                  Intent (In)  :: nbr_corners, nloc, num_neigh
       Integer,                  Intent (In)  :: nreq
       Integer,                  Intent (In)  :: corner_shape     (2, ndim_3d)
       Integer,                  Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Double Precision,         Intent (In)  :: 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners/2)
       Double Precision,         Intent (In)  :: 
          corners2 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners/2)
       Double Precision,         Intent (In)  :: 
          corners3 ( corner_shape(1,3):corner_shape(2,3), 2)
       Integer,                  Intent (In)  :: 
          neighbors_3d (ndim_3d, nloc, num_neigh)
!
       Double Precision,         Intent (Out) :: faces (2, ndim_3d, nreq)
       Integer,                  Intent (Out) :: n_faces (nreq)
       Integer,                  Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_get_grid_extent_dble (grid_id, extent, ierror)
       Use PSMILe_common
       Integer,                  Intent (In)   :: grid_id
       Real (PSMILe_float_kind), Intent (Out)  :: extent (2, ndim_3d)
       Integer,                  Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_global_search_dble (comp_info,             &
                    control, len_cpl, var_id, grid_valid_shape,  &
                    search, tgt_coords,                          &
                    neighbors_3d, nloc, num_neigh, extra_search, &
                    interpolation_methods, interpolation_search, n_intmethods, &
                    send_index,                                  &
                    mask_available, use_mask, use_how,           &
                    grid_type, ierror)
       Use PSMILe_common

       Type (Enddef_comp),   Intent (In)    :: comp_info
       Type (Enddef_search), Intent (InOut) :: search
       Type (dble_vector),   Intent (In)    :: tgt_coords (ndim_3d)
       Integer,              Intent (In)    :: control (2, ndim_3d, 
                                               search%npart)
       Integer,              Intent (In)    :: len_cpl (search%npart)
       Integer,              Intent (In)    :: var_id
       Integer,              Intent (In)    :: grid_valid_shape (2, ndim_3d)
       Integer,              Intent (In)    :: send_index
       Integer,              Intent (In)    :: nloc, num_neigh
       Integer,              Intent (In)    :: n_intmethods
       Integer,              Intent (In)    :: interpolation_methods (n_intmethods)
       Logical,              Intent (In)    :: interpolation_search  (n_intmethods)
       Logical,              Intent (In)    :: mask_available, use_mask
       Integer,              Intent (In)    :: use_how
       Integer,              Intent (In)    :: grid_type
       Integer,              Intent (InOut) :: neighbors_3d (ndim_3d, nloc, 
                                                             num_neigh)
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer,              Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_global_search_cell_dble ( grid_id, var_id,    &
                  comp_info, send_info, search, extra_search, ncpl, &
                  nbr_cells, n_intmethods, interpolation_methods,   &
                  interpolation_search, ierror )
       Use PSMILe_common

       Integer,                  Intent (In)    :: grid_id
       Integer,                  Intent (In)    :: var_id
       Type (Enddef_comp),       Intent (In)    :: comp_info
       Type (Send_information),  Intent (InOut) :: send_info
       Type (Enddef_search),     Intent (InOut) :: search
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer,                  Intent (In)    :: ncpl
       Integer,                  Intent (InOut) :: nbr_cells(ncpl)
       Integer,                  Intent (In)    :: n_intmethods
       Integer,                  Intent (In)    :: interpolation_methods (n_intmethods)
       Logical,                  Intent (In)    :: interpolation_search  (n_intmethods)
       Integer,                  Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_global_search_nnx_dble (comp_info,         &
                    search, var_id,                              &
                    tgt_coords_x, tgt_coords_y, tgt_coords_z,    &
                    neighbors_3d, nloc, num_neigh, nb_extra,     &
                    extra_search, send_index,                    &
                    ierror)
       Use PSMILe_common

       Type (Enddef_comp),   Intent (In)    :: comp_info
       Type (Enddef_search), Intent (InOut) :: search
       Integer,              Intent (In)    :: var_id
       Integer,              Intent (In)    :: send_index
       Integer,              Intent (In)    :: nb_extra, nloc, num_neigh
       Double Precision,     Intent (In)    :: tgt_coords_x (nloc)
       Double Precision,     Intent (In)    :: tgt_coords_y (nloc)
       Double Precision,     Intent (In)    :: tgt_coords_z (nloc)
       Integer,              Intent (InOut) :: neighbors_3d (ndim_3d, nloc, 
                                                             num_neigh)
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer,              Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_return_extra_off_dble (comp_info, search, var_id, &
                      found, distance, nd_dist, nb_extra, ierror)
       Use PSMILe_common

       Type (Enddef_comp),          Intent (In)    :: comp_info
       Type (Enddef_global_search), Intent (InOut) :: search
       Integer,                     Intent (In)    :: var_id
       Integer,                     Intent (In)    :: nd_dist, nb_extra
       Integer,                     Intent (In)    :: found (nd_dist)
       Double Precision,            Intent (In)    :: distance (nd_dist, 
                                                                nb_extra)
       Integer,                     Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_sel_grid_range_dble (grid_id, dinter, inter, ierror)
       Use PSMILe_common
       Integer,                  Intent (In)  :: grid_id
       Real (PSMILe_float_kind), Intent (In)  :: dinter (2, ndim_3d)
       Integer,                  Intent (Out) ::  inter (2, ndim_3d)
       Integer,                  Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_range_subgrid_1d_dble (            &
                    array, idlow, idhigh, nbr_corners,   &
                           ibeg,  iend,                  &
                    extent, inter, ierror)
       Integer, Intent (In)            :: idlow, idhigh, nbr_corners
       Integer, Intent (In)            :: ibeg, iend
       Double Precision, Intent (In)   :: array (idlow:idhigh, nbr_corners)
       Double Precision, Intent (In)   :: extent (2)
       Integer, Intent (Out)           :: inter (2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_range_subgrid_2d_dble (                  &
                    array1, array2,                            &
                    idlow, idhigh, jdlow, jdhigh, nbr_corners, &
                    ibeg,  iend,   jbeg,  jend,                &
                    extent, inter, ierror)
       Integer,          Intent (In)   :: idlow, idhigh
       Integer,          Intent (In)   :: jdlow, jdhigh, nbr_corners
       Integer,          Intent (In)   :: ibeg, iend, jbeg, jend
       Double Precision, Intent (In)   :: 
          array1 (idlow:idhigh, jdlow:jdhigh, nbr_corners)
       Double Precision, Intent (In)   :: 
          array2 (idlow:idhigh, jdlow:jdhigh, nbr_corners)
       Double Precision, Intent (In)   :: extent (2,2)
!
       Integer,          Intent (Out)  :: inter  (2,2)
       Integer,          Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_range_subgrid_3d_dble (                    &
                    array1, array2, array3,                      &
                    idlow, idhigh, jdlow, jdhigh, kdlow, kdhigh, &
                    nbr_corners, grid_shape, rinter, inter, ierror)
       Use PSMILe_common
       Integer,          Intent (In)   :: idlow, idhigh, jdlow, jdhigh
       Integer,          Intent (In)   :: kdlow, kdhigh, nbr_corners
       Integer,          Intent (In)   :: grid_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: 
          array1 (idlow:idhigh, jdlow:jdhigh, kdlow:kdhigh, nbr_corners)
       Double Precision, Intent (In)   :: 
          array2 (idlow:idhigh, jdlow:jdhigh, kdlow:kdhigh, nbr_corners)
       Double Precision, Intent (In)   :: 
          array3 (idlow:idhigh, jdlow:jdhigh, kdlow:kdhigh, nbr_corners)
       Double Precision, Intent (In)   :: rinter (2, ndim_3d)
!
       Integer,          Intent (Out)  :: inter  (2, ndim_3d)
       Integer,          Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_mg_ctrl_subgrid_1d_dble (              &
                    array, corner_shape, nbr_corners, range, &
                    chmin, chmax, levdim, period, grid_id, ind, ierror)
       Integer,          Intent (In)    :: nbr_corners
       Integer,          Intent (In)    :: corner_shape (2)
       Integer,          Intent (In)    :: range (2)
       Integer,          Intent (In)    :: levdim
       Double Precision, Intent (In)    :: period
       Double Precision, Intent (In)    :: 
          array ( corner_shape(1):corner_shape(2), nbr_corners)
       Double Precision, Intent (In)    :: chmin (0:levdim)
       Double Precision, Intent (In)    :: chmax (0:levdim)
       Integer,          Intent (In)    :: grid_id, ind
!
       Integer,          Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_mg_ctrl_subgrid_2d_dble (       &
                    array, corner_shape, nbr_corners, &
                           range,                     &
                    chmin, chmax, levdim, period,     &
                    grid_id, ind, ierror)
       Integer, Intent (In)             :: nbr_corners
       Integer, Intent (In)             :: corner_shape (2, 2)
       Integer, Intent (In)             :: range (2, 2)
       Integer, Intent (In)             :: levdim (2)
       Double Precision, Intent (In)    :: period
       Double Precision, Intent (In)    :: array(corner_shape(1,1):
                                                 corner_shape(2,1),
                                                 corner_shape(1,2):
                                                 corner_shape(2,2),
                                                 nbr_corners)
       Double Precision, Intent (In)    :: chmin (0:levdim(1), 0:levdim(2))
       Double Precision, Intent (In)    :: chmax (0:levdim(1), 0:levdim(2))
       Integer, Intent (In)             :: grid_id, ind
       Integer, Intent (Out)            :: ierror
    End Subroutine

    subroutine psmile_mg_ctrl_subgrid_3d_dble (       &
                    array, corner_shape, nbr_corners, &
                           range,                     &
                    chmin, chmax, levdim, period,     &
                    grid_id, ind, ierror)
       Use PSMILe_common
       Integer, Intent (In)             :: nbr_corners
       Integer, Intent (In)             :: corner_shape (2, ndim_3d)
       Integer, Intent (In)             :: range (2, ndim_3d)
       Integer, Intent (In)             :: levdim (ndim_3d)
       Double Precision, Intent (In)    :: period
       Double Precision, Intent (In)    :: array(corner_shape(1,1):
                                                 corner_shape(2,1),
                                                 corner_shape(1,2):
                                                 corner_shape(2,2),
                                                 corner_shape(1,3):
                                                 corner_shape(2,3),
                                                 nbr_corners)
       Double Precision, Intent (In)    :: chmin (0:levdim(1), 0:levdim(2), 
                                                  0:levdim(3))
       Double Precision, Intent (In)    :: chmax (0:levdim(1), 0:levdim(2), 
                                                  0:levdim(3))
       Integer, Intent (In)             :: grid_id, ind
       Integer, Intent (Out)            :: ierror
    End Subroutine

    subroutine psmile_mg_first_level_dble (grid_id, range, &
                    mg_info, tol, simplified_grid, ierror)
       Use PSMILe_common
       Integer,          Intent (In)    :: grid_id
       Integer,          Intent (In)    :: range (2, ndim_3d)
       Type (Enddef_mg), Intent (InOut) :: mg_info
       Real (PSMILe_float_kind), Intent (In)   :: tol
       Logical,          Intent (In)    :: simplified_grid
       Integer,          Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_mg_first_subgrid_1d_dble (         &
                    array, idlow, idhigh, nbr_corners,   &
                           range,                        &
                    chmin, chmax, midp,                  &
                    levdim, ierror)
       Integer, Intent (In)            :: idlow, idhigh, nbr_corners
       Integer, Intent (In)            :: range (2)
       Integer, Intent (In)            :: levdim
       Double Precision, Intent (In)   :: array (idlow:idhigh, nbr_corners)
       Double Precision, Intent (Out)  :: chmin (0:levdim)
       Double Precision, Intent (Out)  :: chmax (0:levdim)
       Double Precision, Intent (Out)  :: midp  (0:levdim)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_first_subgrid_2d_dble (array, &
                    idlow, idhigh, jdlow, jdhigh, nbr_corners,   &
                           range,                        &
                    chmin, chmax, midp,                  &
                    levdim1, levdim2, ierror)
       Integer, Intent (In)            :: idlow, idhigh, jdlow, jdhigh
       Integer, Intent (In)            :: nbr_corners
       Integer, Intent (In)            :: range (2, 2)
       Integer, Intent (In)            :: levdim1, levdim2
       Double Precision, Intent (In)   :: array (idlow:idhigh, jdlow:jdhigh, 
                                                 nbr_corners)
       Double Precision, Intent (Out)  :: chmin (0:levdim1, 0:levdim2)
       Double Precision, Intent (Out)  :: chmax (0:levdim1, 0:levdim2)
       Double Precision, Intent (Out)  :: midp  (0:levdim1, 0:levdim2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_first_subgrid_3d_dble (array, &
                    idlow, idhigh, jdlow, jdhigh, kdlow, kdhigh, &
                    nbr_corners,   &
                           range,                        &
                    chmin, chmax, midp,                  &
                    levdim1, levdim2, levdim3, ierror)
       Use PSMILe_common
       Integer, Intent (In)            :: idlow, idhigh, jdlow, jdhigh
       Integer, Intent (In)            :: kdlow, kdhigh
       Integer, Intent (In)            :: nbr_corners
       Double Precision, Intent (In)   :: array (idlow:idhigh, jdlow:jdhigh, 
                                                 kdlow:kdhigh, nbr_corners)
       Integer, Intent (In)            :: range (2, ndim_3d)
       Integer, Intent (In)            :: levdim1, levdim2, levdim3
       Double Precision, Intent (Out)  :: chmin (0:levdim1, 0:levdim2, 0:levdim3)
       Double Precision, Intent (Out)  :: chmax (0:levdim1, 0:levdim2, 0:levdim3)
       Double Precision, Intent (Out)  :: midp  (0:levdim1, 0:levdim2, 0:levdim3)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_coars_level_dble (grid_id, mg_info_fine, &
                                     mg_info_coarse, &
                                     icoarse, ierror)
       Use PSMILe_common
       Integer, Intent (In)            :: grid_id
       Type (Enddef_mg), Intent (In)   :: mg_info_fine
       Type (Enddef_mg), Intent (InOut):: mg_info_coarse
       Integer, Intent (In)            :: icoarse (ndim_3d)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_coars_subgrid_3d_dble ( chfmin, chfmax, midfp, &
                             levdim1_fine, levdim2_fine, levdim3_fine, &
                                                chcmin, chcmax, midcp, &
                                            levdim1, levdim2, levdim3, &
                                                icoarse, ierror)
       Use PSMILe_common
       Integer, Intent (In)            :: levdim1_fine, levdim2_fine, 
                                          levdim3_fine
       Integer, Intent (In)            :: levdim1, levdim2, levdim3
       Double Precision, Intent (In)   :: chfmin (0:levdim1_fine,  
                                                  0:levdim2_fine,  
                                                  0:levdim3_fine)
       Double Precision, Intent (In)   :: chfmax (0:levdim1_fine,  
                                                  0:levdim2_fine,  
                                                  0:levdim3_fine)
       Double Precision, Intent (In)   ::  midfp (0:levdim1_fine,  
                                                  0:levdim2_fine,  
                                                  0:levdim3_fine)
       Double Precision, Intent (Out)  :: chcmin (0:levdim1, 0:levdim2, 
                                                  0:levdim3)
       Double Precision, Intent (Out)  :: chcmax (0:levdim1, 0:levdim2, 
                                                  0:levdim3)
       Double Precision, Intent (Out)  ::  midcp (0:levdim1, 0:levdim2, 
                                                  0:levdim3)
       Integer, Intent (In)            :: icoarse (ndim_3d)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_get_cyclic_dble (grid_id, range, &
                                          tol, ierror)
       Use PSMILe_common

       Integer, Intent (In)               :: grid_id
       Integer, Intent (In)               :: range (2, ndim_3d)
       Double Precision, Intent (In)      :: tol
       Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_neigh_extra_search_dble (search, extra_search, &
                                               nb_extra, ierror)
       Use PSMILe_common

       Type (Enddef_search),     Intent (In)    :: search
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer,                  Intent (In)    :: nb_extra
       Integer,                  Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_send_req_coords_dble (msg_intersections, &
                                            dest, tag, ierror)
       use psmile_common, only : enddef_msg_intersections

       Integer, Intent (In)                         :: dest, tag
       Type (enddef_msg_intersections), Intent (In) :: msg_intersections
       Integer, Intent (Out)                        :: ierror
    End Subroutine

    subroutine psmile_send_req_corners_dble (msg_intersections, &
                                             dest, tag, ierror)
       use psmile_common, only : enddef_msg_intersections

       Integer, Intent (In)                         :: dest, tag
       Type (enddef_msg_intersections), Intent (In) :: msg_intersections
       Integer, Intent (Out)                        :: ierror
    End Subroutine

    subroutine psmile_recv_req_coords_dble (sender, tag, search, &
                                            recv_req, recv_mask, new_search, &
                                            ierror)
       Use PSMILe_common
       Integer, Intent (In)                 :: sender, tag
       Logical, Intent (In)                 :: recv_mask, new_search
       Type (Enddef_search), Intent (InOut) :: search
       Integer, Intent (Out)                :: recv_req (ndim_3d+2, *)
       Integer, Intent (Out)                :: ierror
    End Subroutine

    subroutine psmile_recv_req_corners_dble (sender, tag,      &
                                             search, recv_req, &
                                             recv_mask, new_search, &
                                             ierror)
       Use PSMILe_common
       Integer, Intent (In)                 :: sender, tag
       Logical, Intent (In)                 :: recv_mask, new_search
       Type (Enddef_search), Intent (InOut) :: search
       Integer, Intent (Out)                :: recv_req (ndim_3d+2, *)
       Integer, Intent (Out)                :: ierror
    End Subroutine

    subroutine psmile_search_donor_1d_dble (grid_id, idim, found, &
                                            locations, coords, len, &
                                            tol, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: idim
       Integer, Intent (In)            :: len
       Integer, Intent (InOut)         :: found (len)
       Integer, Intent (InOut)         :: locations (len)
       Double Precision, Intent (In)   :: coords (len)
       Double Precision, Intent (In)   :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_search_donor_2d_dble (found, &
                                            locations, len, &
                                            search, ipart, &
                                            grid_id, method_id, var_id, &
                                            tol, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: len
       Integer, Intent (InOut)         :: found (len)
       Integer, Intent (InOut)         :: locations (ndim_2d, len)
       Type (Enddef_search)            :: search
       Integer, Intent (In)            :: ipart
       Integer, Intent (In)            :: grid_id, method_id, var_id
       Double Precision, Intent (In)   :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_search_donor_3d_dble (comp_info, found, &
                                            locations, len, search, &
                                            field_list, n_vars, &
                                            grid_id, method_id, var_id, &
                                            tol, ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In) :: comp_info
       Type (integer_vector)           :: found (*)
       Type (integer_vector)           :: locations (*)
       Integer, Intent (In)            :: len (*)
       Type (Enddef_search)            :: search
       Integer, Intent (In)            :: grid_id
       Integer, Intent (InOut)         :: method_id, var_id
       Integer, Intent (In)            :: n_vars
       Integer, Intent (In)            :: field_list (nd_field_list, n_vars)
       Double Precision, Intent (In)   :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_search_donor_3d_reg_dble (comp_info,   &
                                            found, locations, len, &
                                            search, field_list, n_vars, &
                                            grid_id, method_id, var_id, &
                                            tol, ierror)
       Use PSMILe_common

       Type (Enddef_comp),    Intent (In)    :: comp_info
       Type (Enddef_search)                  :: search
       Type (integer_vector), Intent (InOut) :: found (ndim_3d, *)
       Type (integer_vector), Intent (InOut) :: locations (ndim_3d, *)
       Integer, Intent (In)            :: len (search%npart)
       Integer, Intent (In)            :: grid_id
       Integer, Intent (InOut)         :: method_id, var_id
       Integer, Intent (In)            :: n_vars
       Integer, Intent (In)            :: field_list (nd_field_list, n_vars)
       Double Precision, Intent (In)   :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_search_donor_gauss2_dble (comp_info, found, &
                                            locations, len, search, &
                                            field_list, n_vars, &
                                            grid_id, method_id, var_id, &
                                            tol, ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In) :: comp_info
       Type (Enddef_search)            :: search
       Type (integer_vector)           :: found (search%npart, 2)
       Type (integer_vector)           :: locations (search%npart, 2)
       Integer, Intent (In)            :: len (search%npart, 2)
       Integer, Intent (In)            :: grid_id
       Integer, Intent (InOut)         :: method_id, var_id
       Integer, Intent (In)            :: n_vars
       Integer, Intent (In)            :: field_list (nd_field_list, n_vars)
       Double Precision, Intent (In)   :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_search_donor_irreg2_dble (comp_info, found,     &
                      locations, len, search,                         &
                      field_list, n_vars, grid_id, method_id, var_id, &
                      tol, ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In) :: comp_info
       Type (Enddef_search)            :: search
       Type (integer_vector)           :: found (search%npart, 2)
       Type (integer_vector)           :: locations (search%npart, 2)
       Integer, Intent (In)            :: len (search%npart, 2)
       Integer, Intent (In)            :: grid_id
       Integer, Intent (InOut)         :: method_id, var_id
       Integer, Intent (In)            :: n_vars
       Integer, Intent (In)            :: field_list (nd_field_list, n_vars)
       Double Precision,   Intent (In) :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_search_donor_nnx_dble (comp_info, search, var_id, &
                      coords1, coords2, coords3, distance,              &
                      nfound, locations, n_send, nb_extra,              &
                      tol, ierror)
       Use PSMILe_common

       Type (Enddef_comp),          Intent (In)    :: comp_info
       Integer,                     Intent (In)    :: var_id
       Integer,                     Intent (In)    :: n_send
       Integer,                     Intent (In)    :: nb_extra
       Double Precision,            Intent (In)    :: coords1 (n_send)
       Double Precision,            Intent (In)    :: coords2 (n_send)
       Double Precision,            Intent (In)    :: coords3 (n_send)
       Double Precision,            Intent (InOut) :: distance (n_send)
       Double Precision,            Intent (In)    :: tol
       Type (Enddef_global_search), Intent (InOut) :: search
       Integer,                     Intent (InOut) :: nfound (n_send)
       Integer,                     Intent (Out)   :: locations (ndim_3d, n_send)
       Integer,                     Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_search_nn_3d_dble (                         &
                      sin_search, cos_search, z_search, distance, &
                      nfound, locations, n_send,                  &
                      x_coords, y_coords, z_coords, coords_shape, &
                      sin_values, cos_values, grid_valid_shape,   &
                      mask_array, mask_shape, mask_available,     &
                      tol, ierror)
       Use PSMILe_common

       Integer,                     Intent (In)    :: n_send
       Double Precision,            Intent (In)    :: sin_search (n_send, 2)
       Double Precision,            Intent (In)    :: cos_search (n_send, 2)
       Double Precision,            Intent (In)    :: z_search (n_send)
       Integer,                     Intent (In)    :: coords_shape (2, ndim_3d)
       Double Precision,            Intent (In)    ::    
          x_coords (coords_shape(1,1):coords_shape(2,1), 
                    coords_shape(1,2):coords_shape(2,2), 
                    coords_shape(1,3):coords_shape(2,3))
       Double Precision,            Intent (In)    ::    
          y_coords (coords_shape(1,1):coords_shape(2,1), 
                    coords_shape(1,2):coords_shape(2,2), 
                    coords_shape(1,3):coords_shape(2,3))
       Double Precision,            Intent (In)    ::    
          z_coords (coords_shape(1,1):coords_shape(2,1), 
                    coords_shape(1,2):coords_shape(2,2), 
                    coords_shape(1,3):coords_shape(2,3))

       Integer,                     Intent (In)    :: mask_shape (2, ndim_3d)
       Logical,                     Intent (In)    ::    
          mask_array (mask_shape (1,1):mask_shape (2,1), 
                      mask_shape (1,2):mask_shape (2,2), 
                      mask_shape (1,3):mask_shape (2,3))
       Logical,                     Intent (In)    :: mask_available
       Integer,                     Intent (In)    :: 
          grid_valid_shape (2, ndim_3d)

       Double Precision,            Intent (In)   ::               
          sin_values (grid_valid_shape(1,1):grid_valid_shape(2,1), 
                      grid_valid_shape(1,2):grid_valid_shape(2,2), 2)
       Double Precision,            Intent (In)   ::               
          cos_values (grid_valid_shape(1,1):grid_valid_shape(2,1), 
                      grid_valid_shape(1,2):grid_valid_shape(2,2), 2)
       Double Precision,            Intent (In)    :: tol
       Double Precision,            Intent (InOut) :: distance (n_send)
       Integer,                     Intent (InOut) :: nfound (n_send)
       Integer,                     Intent (Out)   :: locations (ndim_3d, n_send)
       Integer,                     Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_search_nn_3d_reg_dble (                     &
                      sin_search, cos_search, z_search, distance, &
                      nfound, locations, n_send,                  &
                      x_coords, y_coords, z_coords, coords_shape, &
                      sin_values_lon, cos_values_lon,             &
                      sin_values_lat, cos_values_lat,             &
                      grid_valid_shape,                           &
                      mask_array, mask_shape, mask_available,     &
                      tol, ierror)
       Use PSMILe_common

       Integer,                     Intent (In)    :: n_send
       Double Precision,            Intent (In)    :: sin_search (n_send, 2)
       Double Precision,            Intent (In)    :: cos_search (n_send, 2)
       Double Precision,            Intent (In)    :: z_search (n_send)
       Integer,                     Intent (In)    :: coords_shape (2, ndim_3d)
       Double Precision,            Intent (In)    ::    
          x_coords (coords_shape(1,1):coords_shape(2,1))
       Double Precision,            Intent (In)    ::    
          y_coords (coords_shape(1,1):coords_shape(2,1))
       Double Precision,            Intent (In)    ::    
          z_coords (coords_shape(1,3):coords_shape(2,3))

       Integer,                     Intent (In)    :: mask_shape (2, ndim_3d)
       Logical,                     Intent (In)    ::    
          mask_array (mask_shape (1,1):mask_shape (2,1), 
                      mask_shape (1,2):mask_shape (2,2), 
                      mask_shape (1,3):mask_shape (2,3))
       Logical,                     Intent (In)    :: mask_available
       Integer,                     Intent (In)    :: 
          grid_valid_shape (2, ndim_3d)

       Double Precision,            Intent (In)    ::                  
          sin_values_lon (grid_valid_shape(1,1):grid_valid_shape(2,1))
       Double Precision,            Intent (In)    ::                  
          cos_values_lon (grid_valid_shape(1,1):grid_valid_shape(2,1))
       Double Precision,            Intent (In)   ::                   
          sin_values_lat (grid_valid_shape(1,2):grid_valid_shape(2,2))
       Double Precision,            Intent (In)   ::                   
          cos_values_lat (grid_valid_shape(1,2):grid_valid_shape(2,2))
       Double Precision,            Intent (In)    :: tol
       Double Precision,            Intent (InOut) :: distance (n_send)
       Integer,                     Intent (InOut) :: nfound (n_send)
       Integer,                     Intent (Out)   :: locations (ndim_3d, n_send)
       Integer,                     Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_search_nn_irreg2_dble (                     &
                      sin_search, cos_search, z_search, distance, &
                      nfound, locations, n_send,                  &
                      x_coords, y_coords, z_coords, coords_shape, &
                      sin_values, cos_values, grid_valid_shape,   &
                      mask_array, mask_shape, mask_available,     &
                      tol, ierror)
       Use PSMILe_common

       Integer,                     Intent (In)    :: n_send
       Double Precision,            Intent (In)    :: sin_search (n_send, 2)
       Double Precision,            Intent (In)    :: cos_search (n_send, 2)
       Double Precision,            Intent (In)    :: z_search (n_send)
       Integer,                     Intent (In)    :: coords_shape (2, ndim_3d)
       Double Precision,            Intent (In)    :: x_coords(  
                                                        coords_shape(1,1):coords_shape(2,1), 
                                                        coords_shape(1,2):coords_shape(2,2))
       Double Precision,            Intent (In)    :: y_coords(  
                                                        coords_shape(1,1):coords_shape(2,1), 
                                                        coords_shape(1,2):coords_shape(2,2))
       Double Precision,            Intent (In)    :: z_coords(  
                                                        coords_shape(1,3):coords_shape(2,3))

       Integer,                     Intent (In)    :: mask_shape (2, ndim_3d)
       Logical,                     Intent (In)    :: mask_array ( 
                                                        mask_shape (1,1):mask_shape (2,1), 
                                                        mask_shape (1,2):mask_shape (2,2), 
                                                        mask_shape (1,3):mask_shape (2,3))
       Logical,                     Intent (In)    :: mask_available
       Integer,                     Intent (In)    :: grid_valid_shape (2, ndim_3d)

       Double Precision,            Intent (In)   ::               
          sin_values (grid_valid_shape(1,1):grid_valid_shape(2,1), 
                      grid_valid_shape(1,2):grid_valid_shape(2,2), 2)
       Double Precision,            Intent (In)   ::               
          cos_values (grid_valid_shape(1,1):grid_valid_shape(2,1), 
                      grid_valid_shape(1,2):grid_valid_shape(2,2), 2)
       Double Precision,            Intent (In)    :: tol
       Double Precision,            Intent (InOut) :: distance (n_send)
       Integer,                     Intent (InOut) :: nfound (n_send)
       Integer,                     Intent (Out)   :: locations (ndim_3d, n_send)
       Integer,                     Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_store_faces_3d_dble (indices_req, required,     &
                    nreq,                                             &
                    tgt_coords1, tgt_coords2, tgt_coords3, ncpl,      &
                    corners1, corners2, corners3,                     &
                    corner_shape, nbr_corners, grid_valid_shape,      &
                    send_mask, srcloc_ind,                            &
                    ibuf, len_item, ndibuf, ipia,                     &
                     buf, len_rtem, ndrbuf, ipa, ierror)
       Use PSMILe_common

       Integer,                  Intent (In)  :: nreq, ncpl
       Integer,                  Intent (In)  :: indices_req (nreq)
       Integer,                  Intent (In)  :: required    (nreq)
       Integer,                  Intent (In)  :: nbr_corners
       Integer,                  Intent (In)  :: corner_shape (2, ndim_3d)
       Integer,                  Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Double Precision,         Intent (In)  :: tgt_coords1 (ncpl)
       Double Precision,         Intent (In)  :: tgt_coords2 (ncpl)
       Double Precision,         Intent (In)  :: tgt_coords3 (ncpl)
       Double Precision,         Intent (In)  :: 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), 
                     corner_shape(1,3):corner_shape(2,3), nbr_corners)
       Double Precision,         Intent (In)  :: 
          corners2 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), 
                     corner_shape(1,3):corner_shape(2,3), nbr_corners)
       Double Precision,         Intent (In)  :: 
          corners3 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), 
                     corner_shape(1,3):corner_shape(2,3), nbr_corners)
       Logical,                  Intent (In)  :: send_mask (nreq)
       Integer,                  Intent (In)  :: len_item, len_rtem, ndibuf, ndrbuf
       Integer,                  Intent (In)  :: srcloc_ind (ndim_3d, ndibuf)
       Double Precision,         Intent (InOut) ::  buf (len_rtem, ndrbuf)
       Integer,                  Intent (InOut) :: ibuf (len_item, ndibuf)
       Integer,                  Intent (InOut) :: ipa, ipia
       Integer,                  Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_store_faces_3d_reg_dble (indices_req, required, &
                    nreq,                                             &
                    tgt_coords1, tgt_coords2, tgt_coords3, ncpl,      &
                    corners1, corners2, corners3,                     &
                    corner_shape, nbr_corners, grid_valid_shape,      &
                    send_mask, srcloc_ind,                            &
                    ibuf, len_item, ndibuf, ipia,                     &
                     buf, len_rtem, ndrbuf, ipa, ierror)
       Use PSMILe_common

       Integer,                  Intent (In)  :: nreq, ncpl
       Integer,                  Intent (In)  :: indices_req (nreq)
       Integer,                  Intent (In)  :: required    (nreq)
       Integer,                  Intent (In)  :: nbr_corners
       Integer,                  Intent (In)  :: corner_shape (2, ndim_3d)
       Integer,                  Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Double Precision,         Intent (In)  :: tgt_coords1 (ncpl)
       Double Precision,         Intent (In)  :: tgt_coords2 (ncpl)
       Double Precision,         Intent (In)  :: tgt_coords3 (ncpl)
       Double Precision,         Intent (In)  :: 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 2)
       Double Precision,         Intent (In)  :: 
          corners2 ( corner_shape(1,2):corner_shape(2,2), 2)
       Double Precision,         Intent (In)  :: 
          corners3 ( corner_shape(1,3):corner_shape(2,3), 2)
       Logical,                  Intent (In)  :: send_mask (nreq)
       Integer,                  Intent (In)  :: len_item, len_rtem, ndibuf, ndrbuf
       Integer,                  Intent (In)  :: srcloc_ind (ndim_3d, ndibuf)
       Double Precision,         Intent (InOut) ::  buf (len_rtem, ndrbuf)
       Integer,                  Intent (InOut) :: ibuf (len_item, ndibuf)
       Integer,                  Intent (InOut) :: ipa, ipia
       Integer,                  Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_store_faces_gauss2_dble (indices_req,      &
                      required, nreq,                              &
                      tgt_coords1, tgt_coords2, tgt_coords3, ncpl, &
                      corners1, corners2, corners3, corner_shape,  &
                      nbr_corners, grid_id, grid_valid_shape,      &
                      send_mask, srcloc_ind,                       &
                      virtual_ind, virtual_cell_available,         &
                      ibuf, len_item, ndibuf, ipia,                &
                      buf,  len_rtem, ndrbuf, ipa, ierror)
      Use PSMILe_common

      Integer,           Intent (In)    :: nreq
      Integer,           Intent (In)    :: indices_req (nreq)
      Integer,           Intent (In)    :: required    (nreq)
      Integer,           Intent (In)    :: corner_shape (2, ndim_3d)
      Integer,           Intent (In)    :: nbr_corners
      Integer,           Intent (In)    :: grid_id
      Integer,           Intent (In)    :: grid_valid_shape (2, ndim_3d)
      Integer,           Intent (In)    :: ncpl
      Double Precision,  Intent (In)    :: tgt_coords1 (ncpl)
      Double Precision,  Intent (In)    :: tgt_coords2 (ncpl)
      Double Precision,  Intent (In)    :: tgt_coords3 (ncpl)
      Double Precision,  Intent (In)    :: corners1 ( corner_shape(1,1):corner_shape(2,1), 2)
      Double Precision,  Intent (In)    :: corners2 ( corner_shape(1,1):corner_shape(2,1), 2)
      Double Precision,  Intent (In)    :: corners3 ( corner_shape(1,3):corner_shape(2,3), 2)
      Logical,           Intent (In)    :: send_mask (nreq)
      Integer,           Intent (In)    :: ndibuf
      Integer,           Intent (In)    :: srcloc_ind (ndim_3d, ndibuf)
      Integer,           Intent (In)    :: virtual_ind (ndibuf)
      Logical,           Intent (In)    :: virtual_cell_available
      Integer,           Intent (In)    :: len_item
      Integer,           Intent (In)    :: ndrbuf
      Integer,           Intent (In)    :: len_rtem
      Double Precision,  Intent (InOut) :: buf (len_rtem, ndrbuf)
      Integer,           Intent (InOut) :: ipa
      Integer,           Intent (InOut) :: ibuf (len_item, ndibuf)
      Integer,           Intent (InOut) :: ipia
      Integer,           Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_store_faces_irreg2_dble (indices_req, required, &
                    nreq,                                             &
                    tgt_coords1, tgt_coords2, tgt_coords3, ncpl,      &
                    corners1, corners2, corners3,                     &
                    corner_shape, nbr_corners, grid_valid_shape,      &
                    send_mask, srcloc_ind,                            &
                    ibuf, len_item, ndibuf, ipia,                     &
                     buf, len_rtem, ndrbuf, ipa, ierror)
       Use PSMILe_common

       Integer,                  Intent (In)  :: nreq, ncpl
       Integer,                  Intent (In)  :: indices_req (nreq)
       Integer,                  Intent (In)  :: required    (nreq)
       Integer,                  Intent (In)  :: nbr_corners
       Integer,                  Intent (In)  :: corner_shape     (2, ndim_3d)
       Integer,                  Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Double Precision,         Intent (In)  :: tgt_coords1 (ncpl)
       Double Precision,         Intent (In)  :: tgt_coords2 (ncpl)
       Double Precision,         Intent (In)  :: tgt_coords3 (ncpl)
       Double Precision,         Intent (In)  :: 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners/2)
       Double Precision,         Intent (In)  :: 
          corners2 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners/2)
       Double Precision,         Intent (In)  :: 
          corners3 ( corner_shape(1,3):corner_shape(2,3), 2)
       Logical,                  Intent (In)  :: send_mask (nreq)
       Integer,                  Intent (In)  :: len_item, len_rtem
       Integer,                  Intent (In)  :: ndibuf, ndrbuf
       Integer,                  Intent (In)  :: srcloc_ind (ndim_3d, ndibuf)
!
       Double Precision,         Intent (InOut) ::  buf (len_rtem, ndrbuf)
       Integer,                  Intent (InOut) :: ibuf (len_item, ndibuf)
       Integer,                  Intent (InOut) :: ipa, ipia
       Integer,                  Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_trf_lonlat_1d_dble (x_coords, y_coords,        &
                                          coords_shape, grid_valid_shape, &
                                          sin_values_lon, cos_values_lon, &
                                          sin_values_lat, cos_values_lat, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: coords_shape (2, ndim_2d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_2d)

       Double Precision, Intent (In)   :: x_coords(coords_shape(1,1): 
                                                   coords_shape(2,1))
       Double Precision, Intent (In)   :: y_coords(coords_shape(1,2): 
                                                   coords_shape(2,2))
       Double Precision, Intent (Out)  :: sin_values_lon (grid_valid_shape(1,1):
                                                          grid_valid_shape(2,1))
       Double Precision, Intent (Out)  :: sin_values_lat (grid_valid_shape(1,2):
                                                          grid_valid_shape(2,2))
       Double Precision, Intent (Out)  :: cos_values_lon (grid_valid_shape(1,1):
                                                          grid_valid_shape(2,1))
       Double Precision, Intent (Out)  :: cos_values_lat (grid_valid_shape(1,2):
                                                          grid_valid_shape(2,2))
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_trf_lonlat_2d_dble (x_coords, y_coords,        &
                                          coords_shape, grid_valid_shape, &
                                          sin_values, cos_values, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: coords_shape (2, ndim_2d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_2d)

       Double Precision, Intent (In)   :: x_coords(coords_shape(1,1): 
                                                   coords_shape(2,1), 
                                                   coords_shape(1,2): 
                                                   coords_shape(2,2))
       Double Precision, Intent (In)   :: y_coords(coords_shape(1,1): 
                                                   coords_shape(2,1), 
                                                   coords_shape(1,2): 
                                                   coords_shape(2,2))
       Double Precision, Intent (Out)  :: sin_values (grid_valid_shape(1,1): 
                                                      grid_valid_shape(2,1), 
                                                      grid_valid_shape(1,2): 
                                                      grid_valid_shape(2,2), 
                                                      2)
       Double Precision, Intent (Out)  :: cos_values (grid_valid_shape(1,1): 
                                                      grid_valid_shape(2,1), 
                                                      grid_valid_shape(1,2): 
                                                      grid_valid_shape(2,2), 
                                                      2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_trf_lonlat_3d_dble (x_coords, y_coords,             &
                                          coords_shape, grid_valid_shape, &
                                          sin_values, cos_values, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)

       Double Precision, Intent (In)   :: x_coords(coords_shape(1,1): 
                                                   coords_shape(2,1), 
                                                   coords_shape(1,2): 
                                                   coords_shape(2,2), 
                                                   coords_shape(1,3): 
                                                   coords_shape(2,3))
       Double Precision, Intent (In)   :: y_coords(coords_shape(1,1): 
                                                   coords_shape(2,1), 
                                                   coords_shape(1,2): 
                                                   coords_shape(2,2), 
                                                   coords_shape(1,3): 
                                                   coords_shape(2,3))
       Double Precision, Intent (Out)  :: sin_values (grid_valid_shape(1,1): 
                                                      grid_valid_shape(2,1), 
                                                      grid_valid_shape(1,2): 
                                                      grid_valid_shape(2,2), 
                                                      grid_valid_shape(1,3): 
                                                      grid_valid_shape(2,3), 
                                                      2)
       Double Precision, Intent (Out)  :: cos_values (grid_valid_shape(1,1): 
                                                      grid_valid_shape(2,1), 
                                                      grid_valid_shape(1,2): 
                                                      grid_valid_shape(2,2), 
                                                      grid_valid_shape(1,3): 
                                                      grid_valid_shape(2,3), 
                                                      2)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_info_coords_irreg2_dble (              &
                             x_coords, y_coords, z_coords,   &
                             coords_shape, grid_valid_shape, &
                             sinvec, cosvec, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)

       Double Precision, Intent (In)   :: x_coords(*)
       Double Precision, Intent (In)   :: y_coords(*)
       Double Precision, Intent (In)   :: z_coords(*)

       Type (dble_vector)              :: sinvec
       Type (dble_vector)              :: cosvec
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_info_coords_3d_reg_dble (              &
                             x_coords, y_coords, z_coords,   &
                             coords_shape, grid_valid_shape, &
                             sinvec, cosvec, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)

       Double Precision, Intent (In)   :: x_coords(*)
       Double Precision, Intent (In)   :: y_coords(*)
       Double Precision, Intent (In)   :: z_coords(*)

       Type (dble_vector)              :: sinvec (ndim_2d)
       Type (dble_vector)              :: cosvec (ndim_2d)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_info_trf_coords_3d_dble (              &
                             x_coords, y_coords, z_coords,   &
                             coords_shape, grid_valid_shape, &
                             sinvec, cosvec, ierror)
       Use PSMILe_common

       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)

       Double Precision, Intent (In)   :: x_coords(*)
       Double Precision, Intent (In)   :: y_coords(*)
       Double Precision, Intent (In)   :: z_coords(*)

       Type (dble_vector)              :: sinvec
       Type (dble_vector)              :: cosvec
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_info_trs_locs_3d_dble (comp_info,                 &
                                             coords, shape, control,    &
                                             len_cpl,                   &
                                             var_id, grid_valid_shape,  &
                                             search,                    &
                                             method_id, send_index,     &
                                             ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In)      :: comp_info
       Type (Enddef_search), Intent (InOut) :: search
       Type (dble_vector), Intent (In)      :: coords (ndim_3d, search%npart)
       Integer, Intent (In)                 :: shape (2, ndim_3d, search%npart)
       Integer, Intent (In)                 :: control (2, ndim_3d, search%npart)
       Integer, Intent (In)                 :: len_cpl (search%npart)
       Integer, Intent (In)                 :: var_id, method_id
       Integer, Intent (In)                 :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (InOut)              :: send_index
       Integer, Intent (Out)                :: ierror
    End Subroutine

    subroutine psmile_info_trs_loc_3d_reg_dble (comp_info,              &
                                             coords, shape, control,    &
                                             len_cpl,                   &
                                             var_id, grid_valid_shape,  &
                                             search,                    &
                                             method_id, send_index,     &
                                             ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In)      :: comp_info
       Type (Enddef_search), Intent (InOut) :: search
       Type (dble_vector), Intent (In)      :: coords (ndim_3d, search%npart)
       Integer, Intent (In)                 :: shape (2, ndim_3d, search%npart)
       Integer, Intent (In)                 :: control (2, ndim_3d, search%npart)
       Integer, Intent (InOut)              :: len_cpl (search%npart)
       Integer, Intent (In)                 :: var_id, method_id
       Integer, Intent (In)                 :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (InOut)              :: send_index
       Integer, Intent (Out)                :: ierror
    End Subroutine

    subroutine psmile_info_trs_loc_irreg2_dble (comp_info,              &
                                             coords, shape, control,    &
                                             len_cpl,                   &
                                             var_id, grid_valid_shape,  &
                                             search,                    &
                                             method_id, send_index,     &
                                             ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In)      :: comp_info
       Type (Enddef_search), Intent (InOut) :: search
       Type (dble_vector), Intent (In)      :: coords (ndim_3d, search%npart)
       Integer, Intent (In)                 :: shape (2, ndim_3d, search%npart)
       Integer, Intent (In)                 :: control (2, ndim_3d, search%npart)
       Integer, Intent (InOut)              :: len_cpl (search%npart)
       Integer, Intent (In)                 :: var_id, method_id
       Integer, Intent (In)                 :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (InOut)              :: send_index
       Integer, Intent (Out)                :: ierror
    End Subroutine

    subroutine psmile_info_trs_loc_gauss2_dble (comp_info,                      &
                                             coords, shape, control, len_cpl,   &
                                             var_id, grid_valid_shape,          &
                                             search, method_id,                 &
                                             send_index, ierror)
       Use PSMILe_common

       Type (Enddef_comp), Intent (In)      :: comp_info
       Type (Enddef_search), Intent (InOut) :: search
       Type (dble_vector), Intent (In)      :: coords (ndim_3d, search%npart)
       Integer, Intent (In)                 :: shape (2, ndim_3d, search%npart)
       Integer, Intent (In)                 :: control (2, ndim_3d, search%npart)
       Integer, Intent (InOut)              :: len_cpl (search%npart)
       Integer, Intent (In)                 :: var_id, method_id
       Integer, Intent (In)                 :: grid_valid_shape (2, ndim_3d)
       Integer, Intent (InOut)              :: send_index
       Integer, Intent (Out)                :: ierror
    End Subroutine

    subroutine psmile_neigh_near_irreg2_dble (grid_id,     &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values, cos_values, grid_valid_shape,   &
               search_mode,                                &
               srcloc, srclocz, nlocs,                     &
               nloc, nprev,                                &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, search_mode
       Integer, Intent (In)            :: nlocs (ndim_2d)
       Double Precision, Intent (In)   :: coords1 (nloc)
       Double Precision, Intent (In)   :: coords2 (nloc)
       Double Precision, Intent (In)   :: coords3 (nloc)
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: x_coords (*)
       Double Precision, Intent (In)   :: y_coords (*)
       Double Precision, Intent (In)   :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_available
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: sin_values (*)
       Double Precision, Intent (In)   :: cos_values (*)
       Integer, Intent (In)            :: srcloc (ndim_2d, nloc)
       Integer, Intent (In)            :: srclocz (nloc)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_nearx_irreg2_dble (grid_id,    &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values, cos_values, grid_valid_shape,   &
               search_mode,                                &
               srcloc, srclocz, nlocs,                     &
               nloc, nprev,                                &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, search_mode
       Integer, Intent (In)            :: nlocs (ndim_2d)
       Double Precision, Intent (In)   :: coords1 (nlocs(1)*nlocs(2))
       Double Precision, Intent (In)   :: coords2 (nlocs(1)*nlocs(2))
       Double Precision, Intent (In)   :: coords3 (nlocs(1)*nlocs(2))
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: x_coords (*)
       Double Precision, Intent (In)   :: y_coords (*)
       Double Precision, Intent (In)   :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_available
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: sin_values (*)
       Double Precision, Intent (In)   :: cos_values (*)
       Integer, Intent (In)            :: srcloc (ndim_2d, nlocs(1))
       Integer, Intent (In)            :: srclocz (nlocs(2))
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_cells_3d_dble ( use_how,        &
               grid_shape, interpolation_mode, cyclic,      &
               corner_shape_3d, nbr_corners,                &
               corner_x, corner_y, corner_z,                &
               search,  control, tgt_cell, tgt_corners,     &
               npoints, srclocs, msklocs, ncpl,             &
               num_neigh, nbr_cells, ierror )

      USE PSMILe_Common

      Integer, Intent (In)            :: use_how(3)
      Integer, Intent (In)            :: grid_shape (2, ndim_3d)
      Integer, Intent (In)            :: interpolation_mode
      Logical, Intent (In)            :: cyclic (ndim_3d)
      Integer, Intent (In)            :: corner_shape_3d (2,ndim_3d,ndim_3d)
      Integer, Intent (In)            :: nbr_corners(ndim_3d)
      Type (Enddef_search), Intent (InOut) :: search
      Integer, Intent (In)            :: control (2, ndim_3d, search%npart)
      Type (dble_vector), Intent (InOut) :: tgt_cell(ndim_3d)
      Integer, Intent (In)            :: tgt_corners(ndim_3d)
      Integer, Intent (In)            :: npoints
      Integer, Intent (In)            :: ncpl
      Integer, Intent (In)            :: srclocs (ndim_3d, npoints)
      Logical, Intent (In)            :: msklocs (npoints)
      Integer, Intent (In)            :: num_neigh
      Double Precision, Intent (In)   :: corner_x (corner_shape_3d (1,1,1):corner_shape_3d(2,1,1), 
                                                   corner_shape_3d (1,2,1):corner_shape_3d(2,2,1), 
                                                   corner_shape_3d (1,3,1):corner_shape_3d(2,3,1), 
                                                   nbr_corners(1))

      Double Precision, Intent (In)   :: corner_y (corner_shape_3d (1,1,2):corner_shape_3d(2,1,2), 
                                                   corner_shape_3d (1,2,2):corner_shape_3d(2,2,2), 
                                                   corner_shape_3d (1,3,2):corner_shape_3d(2,3,2), 
                                                   nbr_corners(2))

      Double Precision, Intent (In)   :: corner_z (corner_shape_3d (1,1,3):corner_shape_3d(2,1,3), 
                                                   corner_shape_3d (1,2,3):corner_shape_3d(2,2,3), 
                                                   corner_shape_3d (1,3,3):corner_shape_3d(2,3,3), 
                                                   nbr_corners(3))
      Integer, Intent (Out)           :: nbr_cells(ncpl)
      Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_cells_3d_reg_dble (      &
               grid_valid_shape, interpolation_mode, &
               cyclic, grid_id, search, corners,     &
               npoints, srclocs, ncpl, nbr_cells,    &
               ierror )

      USE PSMILe_Common

      Integer, Intent (In)               :: grid_valid_shape (2, ndim_3d)
      Integer,            Intent (In)    :: interpolation_mode
      Logical,            Intent (In)    :: cyclic (ndim_3d)
      Integer,            Intent (In)    :: grid_id
      Type (Enddef_search), Intent (In)  :: search
      Type (dble_vector), Intent (In)    :: corners (ndim_3d, search%npart)
      Integer, Intent (In)               :: npoints (ndim_3d, search%npart)
      Type (integer_vector), Intent (In) :: srclocs (ndim_3d, search%npart)
      Integer, Intent (In)               :: ncpl
      Integer, Intent (Out)              :: nbr_cells(ncpl)
      Integer, Intent (Out)              :: ierror
    End Subroutine

    subroutine psmile_neigh_cells_irreg2_dble ( use_how,        &
               grid_shape, interpolation_mode, cyclic,          &
               corner_shape_3d, nbr_corners,                    &
               corner_x, corner_y,                              &
               search,  control, tgt_cell, tgt_corners,         &
               npoints, srclocs, msklocs, ncpl,                 &
               num_neigh, nbr_cells, ierror )

      USE PSMILe_Common

      Integer, Intent (In)            :: use_how(3)
      Integer, Intent (In)            :: grid_shape (2, ndim_3d)
      Integer, Intent (In)            :: interpolation_mode
      Logical, Intent (In)            :: cyclic (ndim_3d)
      Integer, Intent (In)            :: corner_shape_3d(2,ndim_3d,ndim_3d)
      Integer, Intent (In)            :: nbr_corners(ndim_3d)
      Type (Enddef_search), Intent (InOut) :: search
      Integer, Intent (In)            :: control (2, ndim_3d, search%npart)
      Type (dble_vector), Intent (InOut) :: tgt_cell(ndim_3d)
      Integer, Intent (In)            :: tgt_corners
      Integer, Intent (In)            :: npoints (ndim_2d, search%npart)
      Integer, Intent (In)            :: ncpl
      Type (integer_vector), Intent (In) :: srclocs (2,search%npart)
      Type (logical_vector), Intent (In) :: msklocs (2,search%npart)
      Integer, Intent (In)            :: num_neigh
      Double Precision, Intent (In)   :: corner_x (corner_shape_3d (1,1,1):corner_shape_3d(2,1,1), 
                                                   corner_shape_3d (1,2,1):corner_shape_3d(2,2,1), 
                                                   nbr_corners(1))
      Double Precision, Intent (In)   :: corner_y (corner_shape_3d (1,1,2):corner_shape_3d(2,1,2), 
                                                   corner_shape_3d (1,2,2):corner_shape_3d(2,2,2), 
                                                   nbr_corners(2))
      Integer, Intent (Out)           :: nbr_cells(ncpl)
      Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_near_irr2_3d_dble (grid_id,  &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values, cos_values, grid_valid_shape,   &
               search_mode,                                &
               srcloc, nloc, nprev, nsearch,               &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, nsearch, search_mode
       Double Precision, Intent (In)   :: coords1 (nloc)
       Double Precision, Intent (In)   :: coords2 (nloc)
       Double Precision, Intent (In)   :: coords3 (nloc)
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: x_coords (*)
       Double Precision, Intent (In)   :: y_coords (*)
       Double Precision, Intent (In)   :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_available
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: sin_values (*)
       Double Precision, Intent (In)   :: cos_values (*)
       Integer, Intent (In)            :: srcloc (ndim_3d, nloc)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_nearx_irr2_3d_dble (grid_id,   &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values, cos_values, grid_valid_shape,   &
               search_mode,                                &
               srcloc, nloc, nprev, nsearch,               &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, nsearch, search_mode
       Double Precision, Intent (In)   :: coords1 (nloc)
       Double Precision, Intent (In)   :: coords2 (nloc)
       Double Precision, Intent (In)   :: coords3 (nloc)
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: x_coords (*)
       Double Precision, Intent (In)   :: y_coords (*)
       Double Precision, Intent (In)   :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_available
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: sin_values (*)
       Double Precision, Intent (In)   :: cos_values (*)
       Integer, Intent (In)            :: srcloc (ndim_3d, nloc)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_near_3d_irr2_dble (grid_id,    &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values_lon, cos_values_lon,             &
               sin_values_lat, cos_values_lat,             &
               grid_valid_shape, search_mode,              &
               srcloc, srclocz, nlocs, nloc, nprev,        &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer,             Intent (In)  :: grid_id
       Integer,             Intent (In)  :: nloc, nprev, search_mode
       Integer,             Intent (In)  :: nlocs (ndim_2d)
       Double Precision,    Intent (In)  :: coords1 (*)
       Double Precision,    Intent (In)  :: coords2 (*)
       Double Precision,    Intent (In)  :: coords3 (*)
       Integer,             Intent (In)  :: coords_shape (2, ndim_3d)
       Double Precision,    Intent (In)  :: x_coords (*)
       Double Precision,    Intent (In)  :: y_coords (*)
       Double Precision,    Intent (In)  :: z_coords (*)
       Logical,             Intent (In)  :: mask_array (*)
       Integer,             Intent (In)  :: mask_shape (2, ndim_3d)
       Logical,             Intent (In)  :: mask_available
       Integer,             Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Double Precision,    Intent (In)  :: sin_values_lon (*)
       Double Precision,    Intent (In)  :: cos_values_lon (*)
       Double Precision,    Intent (In)  :: sin_values_lat (*)
       Double Precision,    Intent (In)  :: cos_values_lat (*)
       Integer,             Intent (In)  :: srcloc (ndim_2d, nlocs(1))
       Integer,             Intent (In)  :: srclocz (nlocs(2))
       Integer,             Intent (In)  :: num_neigh
       Integer,             Intent (Out) :: neighbors_3d (ndim_3d, nloc, 
                                                          num_neigh)
       Type (Extra_search_info)          :: extra_search
       Integer,             Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_neigh_near_3d_irr3_dble (grid_id,    &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values_lon, cos_values_lon,             &
               sin_values_lat, cos_values_lat,             &
               grid_valid_shape, search_mode,              &
               srcloc, nsearch, nloc, nprev,               &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer,            Intent (In)  :: grid_id
       Integer,            Intent (In)  :: nloc, nprev, search_mode
       Integer,            Intent (In)  :: nsearch
       Double Precision,   Intent (In)  :: coords1 (*)
       Double Precision,   Intent (In)  :: coords2 (*)
       Double Precision,   Intent (In)  :: coords3 (*)
       Integer,            Intent (In)  :: coords_shape (2, ndim_3d)
       Double Precision,   Intent (In)  :: x_coords (*)
       Double Precision,   Intent (In)  :: y_coords (*)
       Double Precision,   Intent (In)  :: z_coords (*)
       Logical,            Intent (In)  :: mask_array (*)
       Integer,            Intent (In)  :: mask_shape (2, ndim_3d)
       Logical,            Intent (In)  :: mask_available
       Integer,            Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Double Precision,   Intent (In)  :: sin_values_lon (*)
       Double Precision,   Intent (In)  :: cos_values_lon (*)
       Double Precision,   Intent (In)  :: sin_values_lat (*)
       Double Precision,   Intent (In)  :: cos_values_lat (*)
       Integer,            Intent (In)  :: srcloc (ndim_3d, nloc)
       Integer,            Intent (In)  :: num_neigh
       Integer,            Intent (Out) :: neighbors_3d (ndim_3d, nloc, 
                                                          num_neigh)
       Type (Extra_search_info)         :: extra_search
       Integer,            Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_neigh_near_3d_reg_dble (grid_id,     &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values_lon, cos_values_lon,             &
               sin_values_lat, cos_values_lat,             &
               grid_valid_shape, search_mode,              &
               srclocs, nlocs, nloc, nprev,                &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, search_mode
       Integer, Intent (In)            :: nlocs (ndim_3d)
       Double Precision, Intent (In)   :: coords1 (*)
       Double Precision, Intent (In)   :: coords2 (*)
       Double Precision, Intent (In)   :: coords3 (*)
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: x_coords (*)
       Double Precision, Intent (In)   :: y_coords (*)
       Double Precision, Intent (In)   :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_available
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: sin_values_lon (*)
       Double Precision, Intent (In)   :: cos_values_lon (*)
       Double Precision, Intent (In)   :: sin_values_lat (*)
       Double Precision, Intent (In)   :: cos_values_lat (*)
       Type (integer_vector), Intent (In) :: srclocs (ndim_3d)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_nearx_3d_irr2_dble (grid_id,   &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values_lon, cos_values_lon,             &
               sin_values_lat, cos_values_lat,             &
               grid_valid_shape, search_mode,              &
               srcloc, srclocz, nlocs, nloc, nprev,        &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)             :: grid_id
       Integer,            Intent (In)  :: nloc, nprev, search_mode
       Integer,            Intent (In)  :: nlocs (ndim_2d)
       Double Precision,   Intent (In)  :: coords1 (*)
       Double Precision,   Intent (In)  :: coords2 (*)
       Double Precision,   Intent (In)  :: coords3 (*)
       Integer,            Intent (In)  :: coords_shape (2, ndim_3d)
       Double Precision,   Intent (In)  :: x_coords (*)
       Double Precision,   Intent (In)  :: y_coords (*)
       Double Precision,   Intent (In)  :: z_coords (*)
       Logical,            Intent (In)  :: mask_array (*)
       Integer,            Intent (In)  :: mask_shape (2, ndim_3d)
       Logical,            Intent (In)  :: mask_available
       Integer,            Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Double Precision,   Intent (In)  :: sin_values_lon (*)
       Double Precision,   Intent (In)  :: cos_values_lon (*)
       Double Precision,   Intent (In)  :: sin_values_lat (*)
       Double Precision,   Intent (In)  :: cos_values_lat (*)
       Integer,            Intent (In)  :: srcloc (ndim_2d, nlocs(1))
       Integer,            Intent (In)  :: srclocz (nlocs(2))
       Integer,            Intent (In)  :: num_neigh
       Integer,            Intent (Out) :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)         :: extra_search
       Integer,            Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_neigh_nearx_3d_irr3_dble (grid_id,   &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values_lon, cos_values_lon,             &
               sin_values_lat, cos_values_lat,             &
               grid_valid_shape, search_mode,              &
               srcloc, nsearch, nloc, nprev,               &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)             :: grid_id
       Integer,            Intent (In)  :: nloc, nprev, search_mode
       Integer,            Intent (In)  :: nsearch
       Double Precision,   Intent (In)  :: coords1 (*)
       Double Precision,   Intent (In)  :: coords2 (*)
       Double Precision,   Intent (In)  :: coords3 (*)
       Integer,            Intent (In)  :: coords_shape (2, ndim_3d)
       Double Precision,   Intent (In)  :: x_coords (*)
       Double Precision,   Intent (In)  :: y_coords (*)
       Double Precision,   Intent (In)  :: z_coords (*)
       Logical,            Intent (In)  :: mask_array (*)
       Integer,            Intent (In)  :: mask_shape (2, ndim_3d)
       Logical,            Intent (In)  :: mask_available
       Integer,            Intent (In)  :: grid_valid_shape (2, ndim_3d)
       Double Precision,   Intent (In)  :: sin_values_lon (*)
       Double Precision,   Intent (In)  :: cos_values_lon (*)
       Double Precision,   Intent (In)  :: sin_values_lat (*)
       Double Precision,   Intent (In)  :: cos_values_lat (*)
       Integer,            Intent (In)  :: srcloc (ndim_3d, nloc)
       Integer,            Intent (In)  :: num_neigh
       Integer,            Intent (Out) :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)         :: extra_search
       Integer,            Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_neigh_nearx_3d_reg_dble (grid_id,    &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values_lon, cos_values_lon,             &
               sin_values_lat, cos_values_lat,             &
               grid_valid_shape, search_mode,              &
               srclocs, nlocs, nloc, nprev,                &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, search_mode
       Integer, Intent (In)            :: nlocs (ndim_3d)
       Double Precision, Intent (In)   :: coords1 (*)
       Double Precision, Intent (In)   :: coords2 (*)
       Double Precision, Intent (In)   :: coords3 (*)
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: x_coords (*)
       Double Precision, Intent (In)   :: y_coords (*)
       Double Precision, Intent (In)   :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Logical, Intent (In)            :: mask_available
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: sin_values_lon (*)
       Double Precision, Intent (In)   :: cos_values_lon (*)
       Double Precision, Intent (In)   :: sin_values_lat (*)
       Double Precision, Intent (In)   :: cos_values_lat (*)
       Type (integer_vector), Intent (In) :: srclocs (ndim_3d)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_nearx_sub_irr_dble (           &
                           grid_id,                        &
                           x_coords, y_coords, z_coords,   &
                           coords_shape,                   &
                           mask_array, mask_shape,  mask_available,    &
                           sin_values, cos_values,         &
                           grid_valid_shape, search_mode,  &
                           neighbors_3d, num_neigh, nloc,  &
                           extra_search,                   &
                           ijk, sin_search, cos_search,    &
                           z_search, jbeg, jend, width, ierror)

       Use PSMILe_common

       Integer,            Intent (In)   :: grid_id
       Integer,            Intent (In)   :: search_mode
       Integer,            Intent (In)   :: coords_shape (2, ndim_3d)
       Double Precision,   Intent (In)   :: x_coords (*)
       Double Precision,   Intent (In)   :: y_coords (*)
       Double Precision,   Intent (In)   :: z_coords (*)
       Logical,            Intent (In)   :: mask_array (*)
       Integer,            Intent (In)   :: mask_shape (2, ndim_3d)
       Logical,            Intent (In)   :: mask_available
       Integer,            Intent (In)   :: grid_valid_shape (2, ndim_3d)
       Double Precision,   Intent (In)   :: sin_values (*)
       Double Precision,   Intent (In)   :: cos_values (*)
       Integer,            Intent (In)   :: nloc, num_neigh
       Type (Extra_search_info), Intent (InOut) :: extra_search
       Integer,            Intent (In)   :: jbeg, jend
       Integer,            Intent (In)   :: ijk (ndim_3d, jbeg:jend)
       Integer,            Intent (In)   :: width (ndim_3d)
       Double Precision,   Intent (In)   :: sin_search (jbeg:jend, 2)
       Double Precision,   Intent (In)   :: cos_search (jbeg:jend, 2)
       Double Precision,   Intent (In)   :: z_search   (jbeg:jend)
       Integer,            Intent (Out)  :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer,            Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_neigh_nearx_sub_reg_dble (           &
                           grid_id,                        &
                           x_coords, y_coords, z_coords,   &
                           coords_shape,                   &
                           mask_array, mask_shape,  mask_available,    &
                           sin_values_lon, cos_values_lon, &
                           sin_values_lat, cos_values_lat, &
                           grid_valid_shape, search_mode,  &
                           neighbors_3d, num_neigh, nloc,  &
                           extra_search,                   &
                           ijk, sin_search, cos_search,    &
                           z_search, jbeg, jend, width, ierror)

       Use PSMILe_common

       Integer, Intent (In)              :: grid_id
       Integer,            Intent (In)   :: search_mode
       Integer,            Intent (In)   :: coords_shape (2, ndim_3d)
       Double Precision,   Intent (In)   :: x_coords (*)
       Double Precision,   Intent (In)   :: y_coords (*)
       Double Precision,   Intent (In)   :: z_coords (*)
       Logical,            Intent (In)   :: mask_array (*)
       Integer,            Intent (In)   :: mask_shape (2, ndim_3d)
       Logical,            Intent (In)   :: mask_available
       Integer,            Intent (In)   :: grid_valid_shape (2, ndim_3d)
       Double Precision,   Intent (In)   :: sin_values_lon (*)
       Double Precision,   Intent (In)   :: cos_values_lon (*)
       Double Precision,   Intent (In)   :: sin_values_lat (*)
       Double Precision,   Intent (In)   :: cos_values_lat (*)
       Integer,            Intent (In)   :: nloc, num_neigh
       Type (Extra_search_info), Intent(In) :: extra_search
       Integer,            Intent (In)   :: jbeg, jend
       Integer,            Intent (In)   :: ijk (ndim_3d, jbeg:jend)
       Integer,            Intent (In)   :: width (ndim_3d)
       Double Precision,   Intent (In)   :: sin_search (jbeg:jend, 2)
       Double Precision,   Intent (In)   :: cos_search (jbeg:jend, 2)
       Double Precision,   Intent (In)   :: z_search   (jbeg:jend)
       Integer,            Intent (Out)  :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer,            Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_neigh_nearest_3d_dble (grid_id,         &
                    coords1, coords2, coords3,                &
                    x_coords, y_coords, z_coords,             &
                    coords_shape,                             &
                    mask_array, mask_shape,  mask_available,  &
                    sin_values, cos_values, grid_valid_shape, &
                    srcloc, nloc, nprev, nsearch,             &
                    neighbors_3d, num_neigh,                  &
                    extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Integer, Intent (In)            ::   mask_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: x_coords (*)
       Double Precision, Intent (In)   :: y_coords (*)
       Double Precision, Intent (In)   :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Logical, Intent (In)            :: mask_available
       Double Precision, Intent (In)   :: sin_values (*)
       Double Precision, Intent (In)   :: cos_values (*)
       Integer, Intent (In)            :: nloc, nprev, nsearch
       Integer, Intent (In)            :: srcloc (ndim_3d, nloc)
       Double Precision, Intent (In)   :: coords1 (nloc)
       Double Precision, Intent (In)   :: coords2 (nloc)
       Double Precision, Intent (In)   :: coords3 (nloc)
       Integer, Intent (In)            :: num_neigh
!
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_neigh_nearestx_3d_dble (grid_id,     &
               coords1, coords2, coords3,                  &
               x_coords, y_coords, z_coords,               &
               coords_shape,                               &
               mask_array, mask_shape,  mask_available,    &
               sin_values, cos_values, grid_valid_shape,   &
               srcloc, nloc, nprev, nsearch,               &
               neighbors_3d, num_neigh,                    &
               extra_search, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: nloc, nprev, nsearch
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Integer, Intent (In)            :: mask_shape (2, ndim_3d)
       Integer, Intent (In)            :: grid_valid_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: coords1 (nloc)
       Double Precision, Intent (In)   :: coords2 (nloc)
       Double Precision, Intent (In)   :: coords3 (nloc)
       Double Precision, Intent (In)   :: x_coords (*)
       Double Precision, Intent (In)   :: y_coords (*)
       Double Precision, Intent (In)   :: z_coords (*)
       Logical, Intent (In)            :: mask_array (*)
       Logical, Intent (In)            :: mask_available
       Double Precision, Intent (In)   :: sin_values (*)
       Double Precision, Intent (In)   :: cos_values (*)
       Integer, Intent (In)            :: srcloc (ndim_3d, nloc)
       Integer, Intent (In)            :: num_neigh
       Integer, Intent (Out)           :: neighbors_3d (ndim_3d, nloc, num_neigh)
!
       Type (Extra_search_info)        :: extra_search
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_coarse_1d_dble (lev, chmin, chmax,        &
                                         found, locations, coords, &
                                         ibeg, iend)
       Integer, Intent (In)            :: lev
       Double Precision, Intent (In)   :: chmin (0:0), chmax (0:0)
       Integer, Intent (InOut)         :: ibeg, iend
       Integer, Intent (InOut)         :: found (iend)
       Integer, Intent (InOut)         :: locations (iend)
       Double Precision, Intent (In)   :: coords (iend)
    End Subroutine

    subroutine psmile_mg_coarse_2d_dble (lev, chmin, chmax,         &
                                         found, locations, coords1, &
                                         coords2, ibeg, iend)
       Use PSMILe_common

       Integer, Intent (In)            :: lev
       Type (dble_vector), Intent (In) :: chmin (ndim_2d), chmax (ndim_2d)
       Integer, Intent (InOut)         :: ibeg, iend
       Integer, Intent (InOut)         :: found (iend)
       Integer, Intent (InOut)         :: locations (iend)
       Double Precision, Intent (In)   :: coords1 (iend)
       Double Precision, Intent (In)   :: coords2 (iend)
    End Subroutine

    subroutine psmile_mg_coarse_3d_dble (lev, chmin, chmax,         &
                                         found, locations, coords1, &
                                         coords2, coords3, ibeg, iend)
       Use PSMILe_common

       Integer, Intent (In)            :: lev
       Type (dble_vector), Intent (In) :: chmin (ndim_3d), chmax (ndim_3d)
       Integer, Intent (InOut)         :: ibeg, iend
       Integer, Intent (InOut)         :: found (iend)
       Integer, Intent (InOut)         :: locations (iend)
       Double Precision, Intent (In)   :: coords1 (iend)
       Double Precision, Intent (In)   :: coords2 (iend)
       Double Precision, Intent (In)   :: coords3 (iend)
    End Subroutine

    subroutine psmile_mg_next_level_1d_dble (grid_id, idim,        &
                                     lev, nlev,                      &
                                     chmin, chmax, midp, levdim,     &
                                     found, loc, coords, ibeg, iend, &
                                     ijkinc, ijkcoa, ierror)

       Use PSMILe_common
       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: idim, levdim
       Integer, Intent (In)            :: lev, nlev, ijkinc, ijkcoa
       Double Precision, Intent (In)   :: chmin (0:levdim)
       Double Precision, Intent (In)   :: chmax (0:levdim)
       Double Precision, Intent (In)   :: midp  (0:levdim)
       Integer, Intent (InOut)         :: ibeg, iend
       Integer, Intent (InOut)         :: found (iend)
       Integer, Intent (InOut)         :: loc   (iend)
       Double Precision, Intent (In)   :: coords (iend)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_next_level_2d_dble (grid_id, lev, nlev,   &
                                     chmin1, chmin2,                 &
                                     chmax1, chmax2,                 &
                                     midp1,  midp2,                  &
                                     levdim,                         &
                                     found, loc, range,              &
                                     coords1, coords2,               &
                                     shape, control,                 &
                                     ijkinc, ijkcoa, ierror)

       Use PSMILe_common
       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: levdim (ndim_2d)
       Integer, Intent (In)            :: lev, nlev
       Integer, Intent (In)            :: ijkinc(ndim_3d), ijkcoa(ndim_2d)
       Double Precision, Intent (In)   :: chmin1 (*), chmin2 (*)
       Double Precision, Intent (In)   :: chmax1 (*), chmax2 (*)
       Double Precision, Intent (In)   :: midp1  (*), midp2  (*)
       Integer, Intent (InOut)         :: found (*)
       Integer, Intent (InOut)         :: loc   (2, *)
       Integer, Intent (In)            :: range (2, ndim_3d)
       Double Precision, Intent (In)   :: coords1 (*)
       Double Precision, Intent (In)   :: coords2 (*)
       Integer, Intent (In)            :: shape (2, ndim_3d)
       Integer, Intent (InOut)         :: control (2, ndim_3d)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_next_level_3d_dble (grid_id, lev, nlev,     &
                                     chmin1, chmin2, chmin3,         &
                                     chmax1, chmax2, chmax3,         &
                                     midp1,  midp2,  midp3,          &
                                     levdim,                         &
                                     found, loc, range,              &
                                     coords1, coords2, coords3,      &
                                     shape, control,                 &
                                     ijkinc, ijkcoa, ierror)

       Use PSMILe_common
       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: levdim (ndim_3d)
       Integer, Intent (In)            :: lev, nlev
       Integer, Intent (In)            :: ijkinc(ndim_3d), ijkcoa(ndim_3d)
       Double Precision, Intent (In)   :: chmin1 (*), chmin2 (*), chmin3 (*)
       Double Precision, Intent (In)   :: chmax1 (*), chmax2 (*), chmax3 (*)
       Double Precision, Intent (In)   :: midp1  (*), midp2  (*), midp3  (*)
       Integer, Intent (InOut)         :: found (*)
       Integer, Intent (InOut)         :: loc   (ndim_3d, *)
       Integer, Intent (In)            :: range (2, ndim_3d)
       Double Precision, Intent (In)   :: coords1 (*)
       Double Precision, Intent (In)   :: coords2 (*)
       Double Precision, Intent (In)   :: coords3 (*)
       Integer, Intent (In)            :: shape (2, ndim_3d)
       Integer, Intent (InOut)         :: control (2, ndim_3d)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_prev_levels_1d_dble (grid_id, idim, &
                           lev, nlev,                        &
                           lstijk, xyz, found, newijk)
       Use PSMILe_common
       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: idim
       Integer, Intent (In)            :: lev, nlev
       Integer, Intent (In)            :: lstijk
       Double Precision, Intent (In)   :: xyz
       Integer, Intent (Out)           :: found, newijk
    End Subroutine

    subroutine psmile_mg_prev_levels_2d_dble (grid_id, &
                           lev, nlev,                  &
                           lstijk, xyz, found, newijk, nc)
       Use PSMILe_Common
       Integer,          Intent (In)   :: grid_id
       Integer,          Intent (In)   :: lev, nlev, nc
       Integer,          Intent (In)   :: lstijk (ndim_2d, nc)
       Double Precision, Intent (In)   :: xyz (ndim_2d, nc)
       Integer,          Intent (Out)  :: found (nc), newijk (ndim_2d, nc)
    End Subroutine

    subroutine psmile_mg_prev_levels_3d_dble (grid_id, &
                           lev, nlev,                  &
                           lstijk, xyz, found, newijk)
       Use PSMILe_common
       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: lev, nlev
       Integer, Intent (In)            :: lstijk (ndim_3d)
       Double Precision, Intent (In)   :: xyz (ndim_3d)
       Integer, Intent (Out)           :: found, newijk (ndim_3d)
    End Subroutine

    subroutine psmile_mg_cells_1d_dble ( nlev, found, loc, range,    &
                                         search_grid_type,           &
                                         corners1, search_dim,       &
                                         shape, control,             &
                                         grid_valid_shape, cyclic,   &
                                         chmin, chmax, tol, ierror )
      Use PSMILe_common
      Integer, Intent (In)            :: nlev
      Integer, Intent (In)            :: search_grid_type
      Integer, Intent (In)            :: range (2, ndim_3d)
      Integer, Intent (In)            :: shape (2, ndim_3d)
      Integer, Intent (InOut)         :: found (range(1,1):range(2,1), 
                                                range(1,2):range(2,2), 
                                                range(1,3):range(2,3))
      Integer, Intent (InOut)         :: loc   (range(1,1):range(2,1), 
                                                range(1,2):range(2,2), 
                                                range(1,3):range(2,3))
      Double Precision, Intent (In)   :: corners1 (shape(1,1):shape(2,1), 
                                                   shape(1,2):shape(2,2), 
                                                   shape(1,3):shape(2,3))
      Integer, Intent (In)            :: control (2, ndim_3d)
      Integer,          Intent (In)   :: search_dim
      Integer,          Intent (In)   :: grid_valid_shape (2)
      Logical,          Intent (In)   :: cyclic
      Double Precision, Intent (In)   :: chmin (grid_valid_shape(1): 
                                                grid_valid_shape(2)+2)
      Double Precision, Intent (In)   :: chmax (grid_valid_shape(1): 
                                                grid_valid_shape(2)+2)
      Double Precision, Intent (In)   :: tol
      Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_cells_2d_dble ( grid_id, search_grid_type,                &
                                         found, loc, loc_fnd_shape,                &
                                         tgt_src_corners_x, tgt_src_corners_y,     &
                                         src_corner_shape, control,                &
                                         grid_valid_shape,                         &
                                         ipart, corner_shape, nbr_corners,         &
                                         src_corners_x, src_corners_y,             &
                                         chmin1, chmax1, chmin2, chmax2,           &
                                         tol, ierror )
      Use PSMILe_common
      Integer, Intent (In)            :: grid_id
      Integer, Intent (In)            :: search_grid_type
      Integer, Intent (In)            :: loc_fnd_shape (2, ndim_3d)
      Integer, Intent (In)            :: src_corner_shape (2, ndim_3d)
      Integer, Intent (In)            :: grid_valid_shape(2,ndim_2d)
      Integer, Intent (InOut)         :: found (loc_fnd_shape(1,1):loc_fnd_shape(2,1), 
                                                loc_fnd_shape(1,2):loc_fnd_shape(2,2), 
                                                loc_fnd_shape(1,3):loc_fnd_shape(2,3))
      Integer, Intent (InOut)         :: loc   (ndim_2d,                               
                                                loc_fnd_shape(1,1):loc_fnd_shape(2,1), 
                                                loc_fnd_shape(1,2):loc_fnd_shape(2,2), 
                                                loc_fnd_shape(1,3):loc_fnd_shape(2,3))
      Double Precision, Intent (In)   :: tgt_src_corners_x (                           
                                          src_corner_shape(1,1):src_corner_shape(2,1), 
                                          src_corner_shape(1,2):src_corner_shape(2,2), 
                                          src_corner_shape(1,3):src_corner_shape(2,3))
      Double Precision, Intent (In)   :: tgt_src_corners_y (                           
                                          src_corner_shape(1,1):src_corner_shape(2,1), 
                                          src_corner_shape(1,2):src_corner_shape(2,2), 
                                          src_corner_shape(1,3):src_corner_shape(2,3))
      Integer, Intent (In)            :: control (2, ndim_3d)
      Integer,          Intent (In)   :: ipart
      Integer,          Intent (In)   :: corner_shape (2,2)
      Integer,          Intent (In)   :: nbr_corners
      Double Precision, Intent (In)   :: src_corners_x (                        
                                          corner_shape (1,1):corner_shape(2,1), 
                                          corner_shape (1,2):corner_shape(2,2), 
                                          nbr_corners)
      Double Precision, Intent (In)   :: src_corners_y (                        
                                          corner_shape (1,1):corner_shape(2,1), 
                                          corner_shape (1,2):corner_shape(2,2), 
                                          nbr_corners)
      Double Precision, Intent (InOut):: chmin1 (grid_valid_shape(1,1):    
                                                 grid_valid_shape(2,1)+1 , 
                                                 grid_valid_shape(1,2):    
                                                 grid_valid_shape(2,2)+1)
      Double Precision, Intent (InOut):: chmin2 (grid_valid_shape(1,1):    
                                                 grid_valid_shape(2,1)+1,  
                                                 grid_valid_shape(1,2):    
                                                 grid_valid_shape(2,2)+1)
      Double Precision, Intent (InOut):: chmax1 (grid_valid_shape(1,1):    
                                                 grid_valid_shape(2,1)+1 , 
                                                 grid_valid_shape(1,2):    
                                                 grid_valid_shape(2,2)+1)
      Double Precision, Intent (InOut):: chmax2 (grid_valid_shape(1,1):    
                                                 grid_valid_shape(2,1)+1,  
                                                 grid_valid_shape(1,2):    
                                                 grid_valid_shape(2,2)+1)
      Double Precision, Intent (In)   :: tol
      Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_mg_cells_gauss2 ( grid_id, search_grid_type, &
                           found, loc, loc_fnd_shape, control, ierror )

      Use PSMILe_common
      Integer, Intent (In)          :: grid_id
      Integer, Intent (In)          :: search_grid_type
      Integer, Intent (In)          :: loc_fnd_shape (2, ndim_3d)
      Integer, Intent (In)          :: control (2, ndim_3d)
      Integer, Intent (InOut)       :: found ( loc_fnd_shape(1,1):loc_fnd_shape(2,1), 
                                               loc_fnd_shape(1,2):loc_fnd_shape(2,2), 
                                               loc_fnd_shape(1,3):loc_fnd_shape(2,3) )
      Integer, Intent (InOut)       :: loc ( loc_fnd_shape(1,1):loc_fnd_shape(2,1), 
                                             loc_fnd_shape(1,2):loc_fnd_shape(2,2), 
                                             loc_fnd_shape(1,3):loc_fnd_shape(2,3) )
      Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_mg_control_cell_1d_dble (            &
                           chmin, chmax, midp, levdim,     &
                           ijk, xyz, nold, all, wide, found, newijk)
       Use PSMILe_common

       Integer, Intent (In)            :: levdim
       Double Precision, Intent (In)   :: chmin (0:levdim)
       Double Precision, Intent (In)   :: chmax (0:levdim)
       Double Precision, Intent (In)   :: midp  (0:levdim)
       Integer, Intent (In)            :: ijk, nold
       Logical, Intent (In)            :: all, wide
       Double Precision, Intent (In)   :: xyz
       Integer, Intent (Out)           :: found, newijk
    End Subroutine

    subroutine psmile_mg_control_cell_2d_dble (     &
                    chmin1, chmin2,                 &
                    chmax1, chmax2,                 &
                    midp1,  midp2,                  &
                    levdim,                         &
                    ijk, xyz, nold, ignore, wide, found, newijk)
       Use PSMILe_common

       Double Precision, Intent (In)   :: chmin1 (*), chmin2 (*)
       Double Precision, Intent (In)   :: chmax1 (*), chmax2 (*)
       Double Precision, Intent (In)   :: midp1  (*), midp2  (*)
       Integer, Intent (In)            :: levdim (ndim_2d)
       Integer, Intent (In)            :: ijk(ndim_2d), nold
       Integer, Intent (In)            :: ignore(ndim_2d)
       Logical, Intent (In)            :: wide
       Double Precision, Intent (In)   :: xyz(ndim_2d)
       Integer, Intent (Out)           :: found, newijk(ndim_2d)
    End Subroutine

    subroutine psmile_mg_control_cell_3d_dble (            &
                           chmin1, chmin2, chmin3,         &
                           chmax1, chmax2, chmax3,         &
                           midp1,  midp2,  midp3,          &
                           levdim,                         &
                           ijk, xyz, nold, all, wide, found, newijk)
       Use PSMILe_common

       Double Precision, Intent (In)   :: chmin1 (*), chmin2 (*), chmin3 (*)
       Double Precision, Intent (In)   :: chmax1 (*), chmax2 (*), chmax3 (*)
       Double Precision, Intent (In)   :: midp1  (*), midp2  (*), midp3  (*)
       Integer, Intent (In)            :: levdim (ndim_3d)
       Integer, Intent (In)            :: ijk(ndim_3d), nold
       Logical, Intent (In)            :: all, wide
       Double Precision, Intent (In)   :: xyz(ndim_3d)
       Integer, Intent (Out)           :: found, newijk(ndim_3d)
    End Subroutine

    subroutine psmile_mg_final_2d_dble (grid_id, nlev,             &
                    chmin1, chmin2, chmax1, chmax2,                &
                    midp1,  midp2,  levdim,                        &
                    found, loc, range,                             &
                    coords1, coords2, shape, control,              &
                    corners1, corners2, corner_shape, nbr_corners, &
                    tol, ierror)
       Use PSMILe_common

       Integer,          Intent (In)    :: grid_id, nlev
       Integer,          Intent (In)    :: levdim (ndim_2d)
       Double Precision, Intent (In)    :: chmin1 (0:levdim(1), 
                                                   0:levdim(2))
       Double Precision, Intent (In)    :: chmin2 (0:levdim(1), 
                                                   0:levdim(2))
       Double Precision, Intent (In)    :: chmax1 (0:levdim(1), 
                                                   0:levdim(2))
       Double Precision, Intent (In)    :: chmax2 (0:levdim(1), 
                                                   0:levdim(2))
       Double Precision, Intent (In)    :: midp1  (0:levdim(1), 
                                                   0:levdim(2))
       Double Precision, Intent (In)    :: midp2  (0:levdim(1), 
                                                   0:levdim(2))
       Integer,          Intent (In)    :: range (2, ndim_3d)
       Integer,          Intent (In)    :: shape (2, ndim_3d)
       Integer,          Intent (InOut) :: found (range(1,1):range(2,1), 
                                                  range(1,2):range(2,2), 
                                                  range(1,3):range(2,3))
       Integer,          Intent (InOut) :: loc   (ndim_2d,               
                                                  range(1,1):range(2,1), 
                                                  range(1,2):range(2,2), 
                                                  range(1,3):range(2,3))
       Double Precision, Intent (In)    :: coords1 (shape(1,1):shape(2,1), 
                                                    shape(1,2):shape(2,2), 
                                                    shape(1,3):shape(2,3))
       Double Precision, Intent (In)    :: coords2 (shape(1,1):shape(2,1), 
                                                    shape(1,2):shape(2,2), 
                                                    shape(1,3):shape(2,3))
       Integer,          Intent (In)    :: control (2, ndim_3d)
       Integer,          Intent (In)    :: corner_shape (2, ndim_2d)
       Integer,          Intent (In)    :: nbr_corners
       Double Precision, Intent (In)    ::                 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners)
       Double Precision, Intent (In)    ::                 
          corners2 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners)
       Double Precision, Intent (In)    :: tol
       Integer,          Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_mg_final_3d_dble (comp_info, nlev,             &
                                     found, loc, range,              &
                                     coords1, coords2, coords3,      &
                                     shape, control,                 &
                                     grid_id,                        &
                                     x_coords, y_coords, z_coords,   &
                                     coords_shape,                   &
                                     nbr_corners,                    &
                                     ijk0, tol, ierror)

       Use PSMILe_common

       Type (Enddef_comp), Intent (In) :: comp_info
       Integer, Intent (In)            :: nlev
       Integer, Intent (InOut)         :: found (*)
       Integer, Intent (InOut)         :: loc   (ndim_3d, *)
       Integer, Intent (In)            :: range (2, ndim_3d)
       Double Precision, Intent (In)   :: coords1 (*)
       Double Precision, Intent (In)   :: coords2 (*)
       Double Precision, Intent (In)   :: coords3 (*)
       Integer, Intent (In)            :: shape (2, ndim_3d)
       Integer, Intent (InOut)         :: control (2, ndim_3d)
       Integer, Intent (In)            :: grid_id
       Integer, Intent (In)            :: coords_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: x_coords (*)
       Double Precision, Intent (In)   :: y_coords (*)
       Double Precision, Intent (In)   :: z_coords (*)
       Integer, Intent (In)            :: nbr_corners
       Integer, Intent (In)            :: ijk0 (ndim_3d)
       Double Precision, Intent (In)   :: tol
       Integer, Intent (Out)           :: ierror
    End Subroutine

   subroutine psmile_mg_final_gauss2_dble (                                       &
                     grid_id, found, locations, fnd_loc_range,                    &
                     tgt_coords_x, tgt_coords_y, tgt_coords_shape, search_range,  &
                     src_corners_x, src_corners_y, src_corner_shape, nbr_corners, &
                     ierror)

      use psmile_common

      integer, intent (in)            :: grid_id
      integer, intent (in)            :: fnd_loc_range (2, ndim_3d)
      integer, intent (in)            :: tgt_coords_shape (2, ndim_3d)
      double precision, intent (in)   ::                            
         tgt_coords_x (tgt_coords_shape(1,1):tgt_coords_shape(2,1), 
                       tgt_coords_shape(1,2):tgt_coords_shape(2,2), 
                       tgt_coords_shape(1,3):tgt_coords_shape(2,3))
      double precision, intent (in)   ::                            
         tgt_coords_y (tgt_coords_shape(1,1):tgt_coords_shape(2,1), 
                       tgt_coords_shape(1,2):tgt_coords_shape(2,2), 
                       tgt_coords_shape(1,3):tgt_coords_shape(2,3))
      integer, intent (in)            :: search_range (2, ndim_3d)
      integer, intent (in)            :: src_corner_shape (2, ndim_2d)
      integer, intent (in)            :: nbr_corners
      double precision,   intent (in) ::                 
         src_corners_x ( src_corner_shape(1,1):src_corner_shape(2,1), nbr_corners)
      double precision,   intent (in) ::                 
         src_corners_y ( src_corner_shape(1,1):src_corner_shape(2,1), nbr_corners)
      integer, intent (inout)         :: found (fnd_loc_range(1,1):fnd_loc_range(2,1), 
                                                fnd_loc_range(1,2):fnd_loc_range(2,2), 
                                                fnd_loc_range(1,3):fnd_loc_range(2,3))
      integer, intent (inout)         :: locations (fnd_loc_range(1,1):fnd_loc_range(2,1), 
                                                    fnd_loc_range(1,2):fnd_loc_range(2,2), 
                                                    fnd_loc_range(1,3):fnd_loc_range(2,3))
      integer, intent (out)           :: ierror
   end subroutine

    subroutine psmile_mg_final_prev_2d_dble (grid_id, nlev,        &
                    lstijk, xyz, found, newijk, nc,                &
                    corners1, corners2, corner_shape, nbr_corners, &
                    tol, ierror)
       Use PSMILe_common

       Integer,          Intent (In)   :: grid_id, nlev
       Integer,          Intent (In)   :: nc
       Integer,          Intent (In)   :: lstijk (ndim_2d, nc)
       Double Precision, Intent (In)   :: xyz (ndim_2d, nc)
       Integer,          Intent (In)   :: corner_shape (2, ndim_2d)
       Integer,          Intent (In)   :: nbr_corners
       Double Precision, Intent (In)   ::                 
          corners1 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners)
       Double Precision, Intent (In)   ::                 
          corners2 ( corner_shape(1,1):corner_shape(2,1), 
                     corner_shape(1,2):corner_shape(2,2), nbr_corners)
       Double Precision, Intent (In)   :: tol

       Integer,          Intent (Out)  :: found (nc)
       Integer,          Intent (Out)  :: newijk (ndim_2d, nc)
       Integer,          Intent (Out)  :: ierror
    End Subroutine

    subroutine psmile_mg_method_1d_dble (comp_info, nlev,            &
                                     found, loc, range,              &
                                     coords1,                        &
                                     shape, control,                 &
                                     method_id,                      &
                                     x_coords,                       &
                                     coords_shape,                   &
                                     grid_valid_shape, cyclic,       &
                                     chmin, chmax,                   &
                                     tol, ierror)

       Use PSMILe_common

       Type (Enddef_comp), Intent (In)  :: comp_info
       Integer,          Intent (In)    :: nlev
       Integer,          Intent (InOut) :: found (*)
       Integer,          Intent (InOut) :: loc   (*)
       Integer,          Intent (In)    :: range (2, ndim_3d)
       Double Precision, Intent (In)    :: coords1 (*)
       Integer,          Intent (In)    :: shape (2, ndim_3d)
       Integer,          Intent (In)    :: control (2, ndim_3d)
       Integer,          Intent (In)    :: method_id
       Integer,          Intent (In)    :: coords_shape (2)
       Integer,          Intent (In)    :: grid_valid_shape (2)
       Logical,          Intent (In)    :: cyclic
       Double Precision, Intent (In)    :: x_coords (*)
       Double Precision, Intent (In)    :: chmin (*), chmax (*)
       Double Precision, Intent (In)    :: tol
       Integer,          Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_mg_method_2d_dble (comp_info,   &
                    nlev, found, loc, range,          &
                    coords1, coords2, search_shape, control, &
                    x_coords, y_coords, coords_shape, &
                    grid_valid_shape, cyclic, period, &
                    chmin1, chmin2, chmax1, chmax2,   &
                    tol, ierror)

       Use PSMILe_common

       Type (Enddef_comp), Intent (In)   :: comp_info
       Integer,            Intent (In)   :: nlev
       Integer,            Intent (InOut):: found (*)
       Integer,            Intent (InOut):: loc   (ndim_2d, *)
       Integer,            Intent (In)   :: range (2, ndim_3d)
       Double Precision,   Intent (In)   :: coords1 (*)
       Double Precision,   Intent (In)   :: coords2 (*)
       Integer,            Intent (In)   :: search_shape (2, ndim_3d)
       Integer,            Intent (In)   :: control (2, ndim_3d)
       Integer,            Intent (In)   :: coords_shape (2, ndim_2d)
       Integer,            Intent (In)   :: grid_valid_shape (2, ndim_2d)
       Logical,            Intent (In)   :: cyclic (ndim_2d)
       Double Precision,   Intent (In)   :: period (ndim_2d)
       Double Precision,   Intent (In)   :: x_coords (*)
       Double Precision,   Intent (In)   :: y_coords (*)
       Double Precision,   Intent (In)   :: chmin1 (*), chmin2 (*)
       Double Precision,   Intent (In)   :: chmax1 (*), chmax2 (*)
       Double Precision,   Intent (In)   :: tol
       Integer,           Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_mg_method_3d_dble (comp_info, nlev,            &
                                     found, loc, range,              &
                                     coords1, coords2, coords3,      &
                                     shape, control,                 &
                                     method_id,                      &
                                     x_coords, y_coords, z_coords,   &
                                     coords_shape,                   &
                                     grid_valid_shape, cyclic,       &
                                     chmin1, chmin2, chmin3,         &
                                     chmax1, chmax2, chmax3,         &
                                     midp1,  midp2,  midp3,          &
                                     tol, ierror)

       Use PSMILe_common

       Type (Enddef_comp), Intent (In)  :: comp_info
       Integer,          Intent (In)    :: nlev
       Integer,          Intent (InOut) :: found (*)
       Integer,          Intent (InOut) :: loc   (ndim_3d, *)
       Integer,          Intent (In)    :: range (2, ndim_3d)
       Double Precision, Intent (In)    :: coords1 (*)
       Double Precision, Intent (In)    :: coords2 (*)
       Double Precision, Intent (In)    :: coords3 (*)
       Integer,          Intent (In)    :: shape (2, ndim_3d)
       Integer,          Intent (In)    :: control (2, ndim_3d)
       Integer,          Intent (In)    :: method_id
       Integer,          Intent (In)    :: coords_shape (2, ndim_3d)
       Integer,          Intent (In)    :: grid_valid_shape (2, ndim_3d)
       Logical,          Intent (In)    :: cyclic (ndim_3d)
       Double Precision, Intent (In)    :: x_coords (*)
       Double Precision, Intent (In)    :: y_coords (*)
       Double Precision, Intent (In)    :: z_coords (*)
       Double Precision, Intent (In)    :: chmin1 (*), chmin2 (*), chmin3 (*)
       Double Precision, Intent (In)    :: chmax1 (*), chmax2 (*), chmax3 (*)
       Double Precision, Intent (In)    :: midp1  (*), midp2  (*), midp3  (*)
       Double Precision, Intent (In)    :: tol
       Integer,          Intent (Out)   :: ierror
    End Subroutine

   subroutine psmile_mg_method_gauss2_dble (method_id, search_range,     &
                                            tgt_shape, tgt_coords_x,     &
                                            tgt_coords_y, loc_fnd_shape, &
                                            found, loc, virtual_cell,    &
                                            ierror)

      use psmile_common

      Integer, Intent (In)            :: method_id
      Integer, Intent (In)            :: search_range (2, ndim_3d)
      Integer, Intent (In)            :: loc_fnd_shape (2, ndim_3d)
      Integer, Intent (In)            :: tgt_shape (2, ndim_3d)
      Double Precision, Intent (In)   :: tgt_coords_x (tgt_shape(1,1):tgt_shape(2,1),  
                                                       tgt_shape(1,2):tgt_shape(2,2),  
                                                       tgt_shape(1,3):tgt_shape(2,3)), 
                                         tgt_coords_y (tgt_shape(1,1):tgt_shape(2,1),  
                                                       tgt_shape(1,2):tgt_shape(2,2),  
                                                       tgt_shape(1,3):tgt_shape(2,3))
      Integer, Intent (InOut)         :: found (loc_fnd_shape(1,1):loc_fnd_shape(2,1), 
                                                loc_fnd_shape(1,2):loc_fnd_shape(2,2), 
                                                loc_fnd_shape(1,3):loc_fnd_shape(2,3))
      Integer, Intent (InOut)         :: loc   (loc_fnd_shape(1,1):loc_fnd_shape(2,1), 
                                                loc_fnd_shape(1,2):loc_fnd_shape(2,2), 
                                                loc_fnd_shape(1,3):loc_fnd_shape(2,3))
      Integer, Intent (Out)           :: virtual_cell (loc_fnd_shape(1,1):loc_fnd_shape(2,1), 
                                                       loc_fnd_shape(1,2):loc_fnd_shape(2,2), 
                                                       loc_fnd_shape(1,3):loc_fnd_shape(2,3))
      Integer, Intent (Out)           :: ierror
   end subroutine

    subroutine psmile_mg_method_irreg2_dble (comp_info,    &
                    found, locations, search,              &
                    array, shape_2d, range_2d, control_2d, &
                           shape_1d, range_1d, control_1d, &
                    m_arrays, m_levdim,                    &
                    grid_id, method_id, tol, ierror)

       Use PSMILe_common

       Type (Enddef_comp), Intent (In)  :: comp_info
       Type (Enddef_search)             :: search
       Integer,            Intent (In)  :: grid_id, method_id
       Double Precision,   Intent (In)  :: tol
       Type (dble_vector), Intent (In)  :: array (        ndim_3d, search%npart)
       Integer,            Intent (In)  :: shape_2d   (2, ndim_3d, search%npart)
       Integer,            Intent (In)  :: range_2d   (2, ndim_3d, search%npart)
       Integer,            Intent (In)  :: control_2d (2, ndim_3d, search%npart)
       Integer,            Intent (In)  :: shape_1d   (2, ndim_3d, search%npart)
       Integer,            Intent (In)  :: range_1d   (2, ndim_3d, search%npart)
       Integer,            Intent (In)  :: control_1d (2, ndim_3d, search%npart)
       Type (Enddef_mg_double)          :: m_arrays
       Integer,            Intent (In)  :: m_levdim (ndim_3d)
       Type (integer_vector)            :: found     (search%npart, 2)
       Type (integer_vector)            :: locations (search%npart, 2)
       Integer,            Intent (Out) :: ierror
    End Subroutine

    subroutine psmile_mg_srch_nneigh_reg_dble (grid_id, nn_srch,     &
                    arrays, search_mode, nref_3d, grid_valid_shape,  &
                    neighbors_3d, nloc, num_neigh,                   &
                    sin_search, cos_search, z_search,                &
                    dist_dble, dim1, indices, jbeg, jend,            &
                    mask_array, mask_shape, mask_available,          &
                    tol, ierror)

       Use PSMILe_common

       Integer,          Intent (In)   :: grid_id
       Type (Extra_search_nn), Intent (In) :: nn_srch
       Type (Extra_search_dble)        :: arrays
       Integer,          Intent (In)   :: search_mode, nref_3d
       Integer,          Intent (In)   :: jbeg, jend, nloc
       Integer,          Intent (In)   :: grid_valid_shape (2, ndim_3d)
       Integer,          Intent (In)   ::       mask_shape (2, ndim_3d)
       Integer,          Intent (In)   :: num_neigh
       Integer,          Intent (In)   :: indices (:), dim1 (2)
       Double Precision, Intent (In)   :: sin_search (jbeg:jend, 2)
       Double Precision, Intent (In)   :: cos_search (jbeg:jend, 2)
       Double Precision, Intent (In)   ::   z_search (jbeg:jend)
       Logical,          Intent (In)   :: 
          mask_array (mask_shape (1,1):mask_shape (2,1), 
                      mask_shape (1,2):mask_shape (2,2), 
                      mask_shape (1,3): mask_shape (2,3))
       Logical,          Intent (In)   :: mask_available
       Double Precision, Intent (In)   :: tol
!
       Double Precision, Intent (InOut) :: 
          dist_dble (dim1(1):dim1(2), num_neigh)
!
       Integer,          Intent (Out)   :: 
          neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer,          Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_mg_srch_nneigh_irr_dble (grid_id,        &
                    arrays, search_mode, nref_3d,              &
                    sin_values, cos_values, grid_valid_shape,  &
                    z_coords, coords_shape,                    &
                    neighbors_3d, nloc, num_neigh,             &
                    sin_search, cos_search, z_search,          &
                    dist_dble, dim1, indices, jbeg, jend,      &
                    mask_ind,                                  &
                    mask_array, mask_shape, mask_available,    &
                    tol, ierror)

       Use PSMILe_common

       Integer,          Intent (In)   :: grid_id
       Type (Extra_search_dble)        :: arrays
       Integer,          Intent (In)   :: search_mode, nref_3d
       Integer,          Intent (In)   :: jbeg, jend, nloc
       Integer,          Intent (In)   :: grid_valid_shape (2, ndim_3d)
       Integer,          Intent (In)   ::     coords_shape (2, ndim_3d)
       Integer,          Intent (In)   ::       mask_shape (2, ndim_3d)
       Double Precision, Intent (In)   :: 
          sin_values (grid_valid_shape(1,1):grid_valid_shape(2,1), 
                      grid_valid_shape(1,2):grid_valid_shape(2,2), 2)
       Double Precision, Intent (In)   :: 
          cos_values (grid_valid_shape(1,1):grid_valid_shape(2,1), 
                      grid_valid_shape(1,2):grid_valid_shape(2,2), 2)
       Double Precision, Intent (In)   :: 
          z_coords (coords_shape(1,3):coords_shape(2,3))
       Integer,          Intent (In)   :: num_neigh
       Integer,          Intent (In)   :: indices (:), dim1 (2)
       Double Precision, Intent (In)   :: sin_search (jbeg:jend, 2)
       Double Precision, Intent (In)   :: cos_search (jbeg:jend, 2)
       Double Precision, Intent (In)   ::   z_search (jbeg:jend)
       Logical,          Intent (In)   :: mask_ind   (jbeg:jend)
       Logical,          Intent (In)   :: 
          mask_array (mask_shape (1,1):mask_shape (2,1), 
                      mask_shape (1,2):mask_shape (2,2), 
                      mask_shape (1,3): mask_shape (2,3))
       Logical,          Intent (In)   :: mask_available
       Double Precision, Intent (In)   :: tol
!
       Double Precision, Intent (InOut) :: 
          dist_dble (dim1(1):dim1(2), num_neigh)
!
       Integer,          Intent (Out)   :: 
          neighbors_3d (ndim_3d, nloc, num_neigh)
       Integer,          Intent (Out)   :: ierror
    End Subroutine
!
    subroutine psmile_print_3d_coord_dble (x, y, z, shape,     &
                                           ind, nloc, message)
       Use PSMILe_common

       Integer, Intent (In)            :: shape (2, ndim_3d)
       Double Precision, Intent (In)   :: x (*), y (*), z (*)
       Integer, Intent(In)             :: nloc
       Integer, Intent(In)             :: ind (ndim_3d, nloc)
       Character (len=*), Intent(In)   :: message
    End Subroutine
!
    subroutine psmile_print_3d_reg_coord_dble (x, y, z, shape,     &
                                               ind, nloc, message)
       Use PSMILe_common

       Integer, Intent (In)            :: shape (2, ndim_3d)
       Double Precision, Intent (In)   :: x (*), y (*), z (*)
       Integer, Intent(In)             :: nloc
       Integer, Intent(In)             :: ind (ndim_3d, nloc)
       Character (len=*), Intent(In)   :: message
    End Subroutine
!
    subroutine psmile_print_irreg2_coord_dble (x, y, z, shape,     &
                                               ind, nloc, message)
       Use PSMILe_common

       Integer, Intent (In)            :: shape (2, ndim_3d)
       Double Precision, Intent (In)   :: x (*), y (*), z (*)
       Integer, Intent(In)             :: nloc
       Integer, Intent(In)             :: ind (ndim_3d, nloc)
       Character (len=*), Intent(In)   :: message
    End Subroutine

!   Put / Get

!!$    We cannot include an interface description here since this
!!$      is overloaded wrt. data_array by the calling routine prism_put.
!!$
!!$    Subroutine PSMILe_Put_dble ( field_id, julian_day, julian_sec, &
!!$              julian_dayb, julian_secb, data_array, info, ierror )
!!$
!!$       use PRISM, only: PSMILe_Time_Struct
!!$
!!$       Integer, Intent (In)                 :: field_id
!!$
!!$       Double Precision, Intent (In)        :: julian_day, julian_dayb(2)
!!$       Double Precision, Intent (In)        :: julian_sec, julian_secb(2)
!!$
!!$       Double Precision, Intent (In)        :: data_array(*)
!!$       Integer, Intent (Out)                :: info, ierror
!!$    End Subroutine

    subroutine psmile_put_field_dble (field_id, task_id, data_array, len, &
                                      nbr_fields, ierror)

       Integer, Intent (In)                 :: field_id
       Integer, Intent (In)                 :: task_id
       Integer, Intent (In)                 :: len, nbr_fields
       Double Precision, Intent (In)        :: data_array(*)
       Integer, Intent (Out)                :: ierror
    End Subroutine

    subroutine psmile_put_field_gauss2_dble (data_array, data_shape, nbr_fields, &
                                          srcloc, nparts, nloc, npoints, &
                                          dest, tag, comm, ierror)
       Use PSMILe_common

       Integer, Intent (In)          :: nloc, dest, tag, comm, nbr_fields
       Integer, Intent (In)          :: nparts
       Integer, Intent (In)          :: npoints (2, nparts)
       Integer, Intent (In)          :: data_shape (2, ndim_3d)
       Type (integer_vector), Intent (In) :: srcloc (2, nparts)
       Double Precision, Intent (In) :: data_array (*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_put_field_21d_dble (data_array, data_shape, nbr_fields, &
                                          srcloc, nparts, nloc, npoints, &
                                          dest, tag, comm, ierror)
       Use PSMILe_common

       Integer, Intent (In)          :: nloc, dest, tag, comm, nbr_fields
       Integer, Intent (In)          :: nparts
       Integer, Intent (In)          :: npoints (2, nparts)
       Integer, Intent (In)          :: data_shape (2, ndim_3d)
       Type (integer_vector), Intent (In) :: srcloc (2, nparts)
       Double Precision, Intent (In) :: data_array (*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_put_field_3d_dble (data_array, data_shape, nbr_fields, &
                                         srcloc, nparts, nloc, npoints, &
                                         dest, tag, comm, ierror)
       Use PSMILe_common

       Integer, Intent (In)          :: nloc, dest, tag, comm, nbr_fields
       Integer, Intent (In)          :: nparts
       Integer, Intent (In)          :: npoints (ndim_3d, nparts)
       Integer, Intent (In)          :: data_shape (2, ndim_3d)
       Type (integer_vector), Intent (In) :: srcloc (ndim_3d, nparts)
       Double Precision, Intent (In) :: data_array (*)
       Integer, Intent (Out)         :: ierror
    End Subroutine

    subroutine psmile_put_irr_field_dble (data_array, data_shape, nbr_fields,  &
                                          srcloc, npoints, srcars, nars, nloc, &
                                          dest, tag, comm, ierror)
       Use PSMILe_common

       Integer,          Intent (In)    :: nars, nloc, npoints, nbr_fields
       Integer,          Intent (In)    :: dest, tag, comm
       Integer,          Intent (In)    :: data_shape (2, ndim_3d)
       Integer,          Intent (In)    :: srcloc (ndim_3d, npoints)
       Integer,          Intent (In)    :: srcars (2, ndim_3d, nars)
       Double Precision, Intent (In)    :: data_array (*)
       Integer,          Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_get_field_dble (field_id, data_array, len, &
                                      nbr_fields, ierror)

       Integer,          Intent (In)    :: field_id
       Integer,          Intent (In)    :: len, nbr_fields
       Double Precision, Intent (InOut) :: data_array(*)
       Integer,          Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_get_irr_field_dble (data_array, data_shape, nbr_fields,  &
                                          dstijk, npoints, dstars, nars, nloc, &
                                          source, tag, comm, ierror)
       Use PSMILe_common

       Integer,          Intent (In)    :: nars, nloc, npoints, nbr_fields
       Integer,          Intent (In)    :: source, tag, comm
       Integer,          Intent (In)    :: data_shape (2, ndim_3d)
       Integer,          Intent (In)    :: dstijk (ndim_3d, npoints)
       Integer,          Intent (In)    :: dstars (2, ndim_3d, nars)
       Double Precision, Intent (InOut) :: data_array (*)
       Integer,          Intent (Out)   :: ierror
    End Subroutine

!   Utilities

    subroutine psmile_copy_subarray_3d_double (dest_vector, size, &
               darray, idlow, idhigh, jdlow, jdhigh, kdlow, kdhigh, &
               sub, ierror)
       Use PSMILe_common

       Integer(kind=int64), Intent (In) :: size
       Integer, Intent (In)             :: idlow, idhigh, jdlow, jdhigh, 
                                           kdlow, kdhigh
       Integer, Intent (In)             :: sub (2, ndim_3d)
       Double Precision, Intent (In)    :: darray (idlow:idhigh, jdlow:jdhigh, 
                                                   kdlow:kdhigh)
       Double Precision, Intent (Out)   :: dest_vector (size)
       Integer, Intent (Out)            :: ierror
    End Subroutine

    subroutine psmile_copy_subarray_2d_double (dest_vector, size, &
               darray, idlow, idhigh, jdlow, jdhigh, &
                       ibeg,  iend,   jbeg,  jend,   ierror)
       Use PSMILe_common
       Integer(kind=int64), Intent (In) :: size
       Integer, Intent (In)             :: idlow, idhigh, jdlow, jdhigh
       Integer, Intent (In)             :: ibeg,  iend,   jbeg,  jend
       Double Precision, Intent (In)    :: darray (idlow:idhigh, jdlow:jdhigh)
       Double Precision, Intent (Out)   :: dest_vector (size)
       Integer, Intent (Out)            :: ierror
    End Subroutine

    subroutine psmile_tricu_gauss2_extra (search, grid_id, mask_array, &
                     mask_shape, mask_available, ibuf, len_item,       &
                     n_send, num_neigh, ierror)
       Use PSMILe_common

       Integer,              Intent (In)    :: mask_shape   (2, ndim_3d)
       Logical,              Intent (In)    ::         
          mask_array (mask_shape(1,1):mask_shape(2,1), 
                      mask_shape(1,2):mask_shape(2,2), 
                      mask_shape(1,3):mask_shape(2,3))
       Logical,              Intent (In)    :: mask_available
       Integer,              Intent (In)    :: grid_id
       Integer,              Intent (In)    :: len_item, n_send, num_neigh
       Type (Enddef_global_search), Intent (InOut) :: search
       Integer,              Intent (InOut) :: ibuf (len_item, n_send)
       Integer,              Intent (Out)   :: ierror
    End Subroutine

    subroutine psmile_trili_gauss2_extra (search, grid_id, mask_array, &
                     mask_shape, mask_available, ibuf, len_item,       &
                     n_send, num_neigh, ierror)
       Use PSMILe_common

       Integer,              Intent (In)    :: mask_shape   (2, ndim_3d)
       Logical,              Intent (In)    ::         
          mask_array (mask_shape(1,1):mask_shape(2,1), 
                      mask_shape(1,2):mask_shape(2,2), 
                      mask_shape(1,3):mask_shape(2,3))
       Logical,              Intent (In)    :: mask_available
       Integer,              Intent (In)    :: grid_id
       Integer,              Intent (In)    :: len_item, n_send, num_neigh
       Type (Enddef_global_search), Intent (InOut) :: search
       Integer,              Intent (InOut) :: ibuf (len_item, n_send)
       Integer,              Intent (Out)   :: ierror
    End Subroutine

subroutine psmile_global_sum_compute_dble(data, data_size, &
                        nbr_fields, comm, global_sum, ierror)
   Use PSMILe_common
   implicit none

   integer, intent (in)          :: data_size
   integer, intent (in)          :: nbr_fields
   double complex, intent (in)   :: data(data_size, nbr_fields)
   integer, intent (in)          :: comm
   double complex, intent(out)   :: global_sum(nbr_fields)
   integer, intent(out)          :: ierror
end subroutine

subroutine psmile_global_sum_compute_int(data, data_size, &
                        nbr_fields, comm, global_sum, ierror)
   integer, intent (in) :: data_size
   integer, intent (in) :: nbr_fields
   integer, intent (in) :: data(data_size, nbr_fields)
   integer, intent (in) :: comm
   integer, intent(out) :: global_sum(nbr_fields)
   integer, intent(out) :: ierror
end subroutine

subroutine psmile_global_sum_send_dble(data, nbr_fields, &
                                       rank, ierror)
   integer, intent(in)          :: nbr_fields
   double complex, intent(in)   :: data(nbr_fields)
   integer, intent(in)          :: rank
   integer, intent(out)         :: ierror
end subroutine

subroutine psmile_global_sum_send_int(data, nbr_fields, &
                                      rank, ierror)
   integer, intent(in)  :: nbr_fields
   integer, intent(in)  :: data(nbr_fields)
   integer, intent(in)  :: rank

   integer, intent(out) :: ierror
end subroutine

subroutine psmile_global_sum_recv_dble(data, nbr_fields, &
                                       rank, ierror)
   integer, intent(in)          :: nbr_fields
   double complex, intent(out)  :: data(nbr_fields)
   integer, intent(in)          :: rank
   integer, intent(out)         :: ierror
end subroutine

subroutine psmile_global_sum_recv_int(data, nbr_fields, &
                                      rank, ierror)
   integer, intent(in)  :: nbr_fields
   integer, intent(out) :: data(nbr_fields)
   integer, intent(in)  :: rank

   integer, intent(out) :: ierror
end subroutine

subroutine psmile_ddadd_mpi_callback (dda, ddb, len, itype)
   integer, intent(in)           :: len, itype
   double complex, intent(in)    :: dda(len)
   double complex, intent(inout) :: ddb(len)
end subroutine

! ----------------------------------------------------------------------------
! Interfaces of PSMILe transformer routines
! ----------------------------------------------------------------------------

    subroutine psmile_trs_inform(ida_args, id_trs_rank, id_err)
       Use PSMILe_Common, only : PSMILe_Trans_header_length
       Integer, Dimension(PSMILe_Trans_header_length), Intent (In)             :: ida_args
       Integer, Intent (In)                            :: id_trs_rank
       Integer, Intent (Out)                           :: id_err
    End Subroutine

    subroutine psmile_trs_set_src_epio3d_dble(id_epio_id,            &
                                              id_trans_rank,         &
                                              id_src_epio_size,      &
                                              id_nbr_corner,         &
                                              dda_src_epio_lat,      &
                                              dda_src_epio_lon,      &
                                              dda_src_epio_z,        &
                                              id_src_mask,           &
                                              ida_src_epio_mask,     &
                                              id_err                 )
      Integer, Intent (Out)                             :: id_epio_id
      Integer, Intent (Out)                             :: id_trans_rank
      Integer, Intent (In)                              :: id_src_epio_size
      Integer, Intent (In)                              :: id_nbr_corner
      Double Precision,Dimension(id_src_epio_size),Intent(In)::dda_src_epio_lat
      Double Precision,Dimension(id_src_epio_size),Intent(In)::dda_src_epio_lon
      Double Precision,Dimension(id_src_epio_size),Intent(In)::dda_src_epio_z
      Integer, Intent (In)                              :: id_src_mask
      Integer, Dimension(id_src_epio_size), Intent (In) :: ida_src_epio_mask
      Integer, Intent (Out)                             :: id_err
    End Subroutine

    subroutine psmile_trs_set_src_epio3d_real(id_epio_id,            &
                                              id_trans_rank,         &
                                              id_src_epio_size,      &
                                              id_nbr_corner,         &
                                              rda_src_epio_lat,      &
                                              rda_src_epio_lon,      &
                                              rda_src_epio_z,        &
                                              id_src_mask,           &
                                              ida_src_epio_mask,     &
                                              id_err                 )
      Integer, Intent (Out)                             :: id_epio_id
      Integer, Intent (Out)                             :: id_trans_rank
      Integer, Intent (In)                              :: id_src_epio_size
      Integer, Intent (In)                              :: id_nbr_corner
      Real,Dimension(id_src_epio_size),Intent(In)       :: rda_src_epio_lat
      Real,Dimension(id_src_epio_size),Intent(In)       :: rda_src_epio_lon
      Real,Dimension(id_src_epio_size),Intent(In)       :: rda_src_epio_z
      Integer, Intent (In)                              :: id_src_mask
      Integer, Dimension(id_src_epio_size), Intent (In) :: ida_src_epio_mask
      Integer, Intent (Out)                             :: id_err
    End Subroutine

    subroutine psmile_trs_set_tgt_epio3d_dble(id_epio_id,            &
                                              id_trans_rank,         &
                                              id_tgt_epio_size,      &
                                              id_nbr_corner,         &
                                              dda_tgt_epio_lat,      &
                                              dda_tgt_epio_lon,      &
                                              dda_tgt_epio_z,        &
                                              id_tgt_mask,           &
                                              ida_tgt_epio_mask,     &
                                              id_err                 )
      Integer, Intent (In)                              :: id_epio_id
      Integer, Intent (In)                              :: id_trans_rank
      Integer, Intent (In)                              :: id_tgt_epio_size
      Integer, Intent (In)                              :: id_nbr_corner
      Double Precision,Dimension(id_tgt_epio_size),Intent(In)::dda_tgt_epio_lat
      Double Precision,Dimension(id_tgt_epio_size),Intent(In)::dda_tgt_epio_lon
      Double Precision,Dimension(id_tgt_epio_size),Intent(In)::dda_tgt_epio_z
      Integer, Intent (In)                              :: id_tgt_mask
      Integer, Dimension(id_tgt_epio_size), Intent (In) :: ida_tgt_epio_mask
      Integer, Intent (Out)                             :: id_err
    End Subroutine

    subroutine psmile_trs_set_tgt_epio3d_real(id_epio_id,            &
                                              id_trans_rank,         &
                                              id_tgt_epio_size,      &
                                              id_nbr_corner,         &
                                              rda_tgt_epio_lat,      &
                                              rda_tgt_epio_lon,      &
                                              rda_tgt_epio_z,        &
                                              id_tgt_mask,           &
                                              ida_tgt_epio_mask,     &
                                              id_err                 )
      Integer, Intent (In)                              :: id_epio_id
      Integer, Intent (In)                              :: id_trans_rank
      Integer, Intent (In)                              :: id_tgt_epio_size
      Integer, Intent (In)                              :: id_nbr_corner
      Real,Dimension(id_tgt_epio_size),Intent(In)       :: rda_tgt_epio_lat
      Real,Dimension(id_tgt_epio_size),Intent(In)       :: rda_tgt_epio_lon
      Real,Dimension(id_tgt_epio_size),Intent(In)       :: rda_tgt_epio_z
      Integer, Intent (In)                              :: id_tgt_mask
      Integer, Dimension(id_tgt_epio_size), Intent (In) :: ida_tgt_epio_mask
      Integer, Intent (Out)                             :: id_err
    End Subroutine

    subroutine psmile_trs_set_triple_links(id_trans_out_id,     &
                                           id_trans_in_id,      &
                                           id_epio_id,          &
                                           id_trans_rank,       &
                                           id_err               )
      Integer, Intent (In)              :: id_trans_out_id
      Integer, Intent (In)              :: id_trans_in_id
      Integer, Intent (In)              :: id_epio_id
      Integer, Intent (In)              :: id_trans_rank
      Integer, Intent (Out)             :: id_err
    End Subroutine

    subroutine psmile_trs_put_int(id_transient_out_id, &
                                  id_epio_id,          &
                                  id_trans_rank,       &
                                  id_epio_field_size,  &
                                  ida_field,           &
                                  id_nbr_fields,       &
                                  id_err)
      Integer, Intent (In)                     :: id_transient_out_id
      Integer, Intent (In)                     :: id_epio_id
      Integer, Intent (In)                     :: id_trans_rank
      Integer, Intent (In)                     :: id_epio_field_size
      Integer, Dimension(id_epio_field_size), Intent (In) :: ida_field
      Integer, Intent (In)                     :: id_nbr_fields
      Integer, Intent (Out)                    :: id_err
    End Subroutine

    subroutine psmile_trs_put_real(id_transient_out_id, &
                                   id_epio_id,          &
                                   id_trans_rank,       &
                                   id_epio_field_size,  &
                                   rda_field,           &
                                   id_nbr_fields,       &
                                   id_err)
      Integer, Intent (In)                     :: id_transient_out_id
      Integer, Intent (In)                     :: id_epio_id
      Integer, Intent (In)                     :: id_trans_rank
      Integer, Intent (In)                     :: id_epio_field_size
      Real, Dimension(id_epio_field_size), Intent (In) :: rda_field
      Integer, Intent (In)                     :: id_nbr_fields
      Integer, Intent (Out)                    :: id_err
    End Subroutine

    subroutine psmile_trs_put_dble(id_transient_out_id, &
                                   id_epio_id,          &
                                   id_trans_rank,       &
                                   id_epio_field_size,  &
                                   dda_field,           &
                                   id_nbr_fields,       &
                                   id_err)
      Integer, Intent (In)                     :: id_transient_out_id
      Integer, Intent (In)                     :: id_epio_id
      Integer, Intent (In)                     :: id_trans_rank
      Integer, Intent (In)                     :: id_epio_field_size
      Double Precision, Dimension(id_epio_field_size), Intent (In) :: dda_field
      Integer, Intent (In)                     :: id_nbr_fields
      Integer, Intent (Out)                    :: id_err
    End Subroutine

    subroutine psmile_trs_get_int(id_transient_in_id, &
                                  id_epio_id,         &
                                  id_trans_rank,      &
                                  id_epio_field_size, &
                                  ida_field,          &
                      id_nbr_fields,      &
                                  id_err)
      Integer, Intent (In)                     :: id_transient_in_id
      Integer, Intent (In)                     :: id_epio_id
      Integer, Intent (In)                     :: id_trans_rank
      Integer, Intent (In)                     :: id_epio_field_size
      Integer, Dimension(id_epio_field_size), Intent (Out) :: ida_field
      Integer, Intent (In)                     :: id_nbr_fields
      Integer, Intent (Out)                    :: id_err
    End Subroutine

    subroutine psmile_trs_get_real(id_transient_in_id, &
                                   id_epio_id,         &
                                   id_trans_rank,      &
                                   id_epio_field_size, &
                                   rda_field,          &
                   id_nbr_fields,      &
                                   id_err)
      Integer, Intent (In)                     :: id_transient_in_id
      Integer, Intent (In)                     :: id_epio_id
      Integer, Intent (In)                     :: id_trans_rank
      Integer, Intent (In)                     :: id_epio_field_size
      Real, Dimension(id_epio_field_size), Intent (Out) :: rda_field
      Integer, Intent (In)                     :: id_nbr_fields
      Integer, Intent (Out)                    :: id_err
    End Subroutine

    subroutine psmile_trs_get_dble(id_transient_in_id, &
                                   id_epio_id,         &
                                   id_trans_rank,      &
                                   id_epio_field_size, &
                                   dda_field,          &
                   id_nbr_fields,      &
                                   id_err)
      Integer, Intent (In)                     :: id_transient_in_id
      Integer, Intent (In)                     :: id_epio_id
      Integer, Intent (In)                     :: id_trans_rank
      Integer, Intent (In)                     :: id_epio_field_size
      Double Precision, Dimension(id_epio_field_size), Intent (Out) :: dda_field
      Integer, Intent (In)                     :: id_nbr_fields
      Integer, Intent (Out)                    :: id_err
    End Subroutine

    subroutine psmile_trs_give_neighbors3d (id_epio_id,           &
                                            id_trans_rank,        &
                                            id_epio_tgt_size,     &
                                            id_nb_neighbors,      &
                                            ida_neighbor_indices, &
                                            id_err)

      Integer, Intent (In)                     :: id_epio_id
      Integer, Intent (In)                     :: id_trans_rank
      Integer, Intent (In)                     :: id_epio_tgt_size
      Integer, Intent (In)                     :: id_nb_neighbors
      Integer, Dimension(id_nb_neighbors*id_epio_tgt_size), Intent (In) :: 
                                              ida_neighbor_indices
      Integer, Intent (Out)                    :: id_err

    End Subroutine

    subroutine psmile_trs_give_neighbors_gauss (id_epio_id,           &
                                                id_trans_rank,        &
                                                id_epio_tgt_size,     &
                                                id_nb_neighbors,      &
                                                ida_neighbor_indices, &
                                                ida_neighbor_bascule, &
                                                id_err)

      Integer, Intent (In)                     :: id_epio_id
      Integer, Intent (In)                     :: id_trans_rank
      Integer, Intent (In)                     :: id_epio_tgt_size
      Integer, Intent (In)                     :: id_nb_neighbors
      Integer, Dimension(id_nb_neighbors*id_epio_tgt_size), Intent (In) :: 
                                              ida_neighbor_indices
      Integer, Dimension(id_epio_tgt_size), Intent (In) :: 
                                              ida_neighbor_bascule
      Integer, Intent (Out)                    :: id_err

    End Subroutine

    subroutine psmile_trs_give_neighcells3d(id_epio_id,        &
                                            id_trans_rank,     &
                                            id_epio_tgt_size,  &
                                            ida_nbsrccells_pertgtpt,     &
                                            id_source_size,    &
                                            id_nb_corners,     &
                                            ida_source_cell_index, &
                                            ida_corner_index,  &
                                            id_grid_type,      &
                                            id_err)

      Integer, Intent (In)                     :: id_epio_id
      Integer, Intent (In)                     :: id_trans_rank
      Integer, Intent (In)                     :: id_epio_tgt_size
      Integer, Intent (In)                     :: id_source_size
      Integer, Intent (In)                     :: id_nb_corners
      Integer, Intent (In)                     :: id_grid_type
      Integer, Dimension(id_epio_tgt_size), Intent (In) :: 
                                               ida_nbsrccells_pertgtpt
      Integer, Dimension(id_source_size), INTENT (In)   :: 
                                              ida_source_cell_index
      Integer, Dimension(id_nb_corners*id_source_size), Intent (In) :: 
                                               ida_corner_index
      Integer, Intent (Out)                    :: id_err
    End Subroutine

    subroutine psmile_trs_trili_srch_neigh3d (                            &
         ila_grid1_dims, il_grid1_size, ila_grid1_mask,                   &
         ila_grid1_center_lon, ila_grid1_center_lat,ila_grid1_center_z,   &
         ila_grid2_dims, il_grid2_size, ila_grid2_mask,                   &
         ila_grid2_center_lon, ila_grid2_center_lat,ila_grid2_center_z,   &
         il_num_srch_bin, il_restrict_type, ila_neighbors, il_err)
      Integer, Dimension(3), Intent (In) :: ila_grid1_dims
      Integer, Dimension(3), Intent (In) :: ila_grid2_dims
      Integer, Intent (In) :: il_grid1_size
      Integer, Intent (In) :: il_grid2_size
      Integer, Dimension(il_grid1_size), Intent (In) :: ila_grid1_mask
      Integer, Dimension(il_grid2_size), Intent (In) :: ila_grid2_mask
      Real, Dimension(il_grid1_size), Intent (Inout) :: ila_grid1_center_lon
      Real, Dimension(il_grid1_size), Intent (Inout) :: ila_grid1_center_lat
      Real, Dimension(il_grid1_size), Intent (Inout) :: ila_grid1_center_z
      Real, Dimension(il_grid2_size), Intent (Inout) :: ila_grid2_center_lon
      Real, Dimension(il_grid2_size), Intent (Inout) :: ila_grid2_center_lat
      Real, Dimension(il_grid2_size), Intent (Inout) :: ila_grid2_center_z
      Integer, Intent (In) :: il_num_srch_bin
      Integer, Intent (In) :: il_restrict_type
      Integer, Dimension(il_grid2_size,8), Intent (Out) :: ila_neighbors
      Integer, Intent (Out)               :: il_err
    End Subroutine

     subroutine psmile_trs_finalize(id_trans_rank, id_err)
       Integer, Intent (In)                       :: id_trans_rank
       Integer, Intent (Out)                      :: id_err
     End Subroutine

! ----------------------------------------------------------------------------
! Interfaces of internal PSMILe I/O routines
! ----------------------------------------------------------------------------

    subroutine psmile_io_derive_pelist(id_comm_appl,id_comp_id, &
                                       comp_info,pelist,ierror)
      Use PSMILe_common
      Integer,Intent(In) :: id_comm_appl
      Integer,Intent(In) :: id_comp_id
      Type (Enddef_comp), Intent (In) :: comp_info
      Integer,Intent(Out):: pelist(*)
      Integer,Intent(Out):: ierror

    End Subroutine

    subroutine psmile_io_init ( ierror )
      Integer, Intent (Out)               :: ierror
    End Subroutine

    subroutine psmile_io_init_comp (id_comp_id, ierror)
       Integer, Intent (In)            :: id_comp_id
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_io_init_pelist (id_comp_id, comp_info, ierror)

       Use PSMILe_common

       Integer, Intent (In)            :: id_comp_id
       Type (Enddef_comp), Intent (In) :: comp_info
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_io_init_cf (ierror)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_io_finalize (ierror)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_io_close (ierror)
       Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_def_domains(ierror)
      Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_def_metadata (id_varid,ierror)
      Integer, Intent (In)            :: id_varid
      Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_enddef_metadata (ierror)
      Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_open_files ( ierror )
      Integer, Intent (Out)           :: ierror
    End Subroutine

    subroutine psmile_open_file_byid (varid, taskid, date, ierror)
      Use PRISM_Constants
      Integer, Intent (In)                 :: varid,taskid
      Type(PRISM_Time_Struct), Intent (In) :: date
      Integer, Intent (Out)                :: ierror
    End Subroutine

    subroutine  psmile_check_restart(id_varid,id_taskid,id_info,ierror)
      Integer, Intent (In)                 :: id_varid
      Integer, Intent (In)                 :: id_taskid
      Integer, Intent (Out)                :: id_info
      Integer, Intent (Out)                :: ierror
    End Subroutine

    subroutine psmile_close_files (ierror)
       Integer, Intent (Out)          :: ierror
    End Subroutine

    subroutine psmile_io_cleanup (ierror)
       Integer, Intent (Out)          :: ierror
    End Subroutine

    subroutine psmile_close_file_byid (varid, taskid, ierror)
       Integer, Intent (In)           :: varid, taskid
       Integer, Intent (Out)          :: ierror
    End Subroutine

    subroutine psmile_check_file_size (varids, size, flag, ierror)
      Integer, Intent (In)           :: varids(:)
      Integer, Intent (In)           :: size
      Logical, Intent (Out)          :: flag
      Integer, Intent (Out)          :: ierror
    End Subroutine

    subroutine psmile_io_scandir(basename,file_list,len_of_list,no_of_files,ierror)
      Character(len=*),Intent(in)    ::basename
      Character(len=*),Intent(out)   ::file_list(*)
      Integer,Intent(in)             ::len_of_list
      Integer,Intent(out)            ::no_of_files
      Integer,Intent(out)            ::ierror
    End Subroutine

    subroutine psmile_io_scandir_no_of_files(basename,no_of_files,ierror)
      Character(len=*),Intent(in)    ::basename
      Integer,Intent(out)            ::no_of_files
      Integer,Intent(out)            ::ierror
    End Subroutine

    subroutine psmile_write_meta_byid(id_varid,id_taskid,ierror)
      Integer,Intent(In) :: id_varid,id_taskid
      Integer,Intent(Out) :: ierror
    End Subroutine

    subroutine psmile_write_meta(ierror)
      Integer,Intent(Out) :: ierror
    End Subroutine

!!$    We cannot include an interface description here since this
!!$      is overloaded wrt. data_array by the calling routine prism_put.

!!$    Subroutine psmile_write_byid_dble(id_varid,id_taskid &
!!$                                     ,dd_a,ju_day,ju_sec,ierror)
!!$      integer,intent(in)::id_varid,id_taskid
!!$      integer,intent(out):: ierror
!!$      double precision, Intent (In) :: dd_a(*)
!!$      double precision, Intent (In) :: ju_day, ju_sec
!!$    End Subroutine
!!$
!!$    Subroutine psmile_write_byid_real(id_varid,id_taskid &
!!$                                     ,rd_a,ju_day,ju_sec,ierror)
!!$      integer,intent(in)::id_varid,id_taskid
!!$      integer,intent(out):: ierror
!!$      real             , Intent (In) :: rd_a(*)
!!$      double precision, Intent (In) :: ju_day, ju_sec
!!$    End Subroutine
!!$
!!$    Subroutine psmile_write_byid_int(id_varid,id_taskid &
!!$                                    ,id_a,ju_day,ju_sec,ierror)
!!$      integer,intent(in)::id_varid,id_taskid
!!$      integer,intent(out):: ierror
!!$      integer          , Intent (In) :: id_a(*)
!!$      double precision, Intent (In) :: ju_day, ju_sec
!!$    End Subroutine

    subroutine psmile_read_byid_dble(id_varid,id_taskid,rd_a,ju_day,ju_sec &
                                    ,ju_dayb,ju_secb,timeop,ierror)
      Integer,Intent(in)::id_varid,id_taskid
      Logical,Intent(out):: timeop
      Integer,Intent(out):: ierror
      Double Precision             , Intent (InOut) :: rd_a(*)
      Double Precision, Intent (In) :: ju_day, ju_sec
      Double Precision, Intent (In) :: ju_dayb(2), ju_secb(2)
    End Subroutine

    subroutine psmile_read_byid_real(id_varid,id_taskid,rd_a,ju_day,ju_sec &
                                    ,ju_dayb,ju_secb,timeop,ierror)
      Integer,Intent(in)::id_varid,id_taskid
      Logical,Intent(out):: timeop
      Integer,Intent(out):: ierror
      Real             , Intent (InOut) :: rd_a(*)
      Double Precision, Intent (In) :: ju_day, ju_sec
      Double Precision, Intent (In) :: ju_dayb(2), ju_secb(2)
    End Subroutine

    subroutine psmile_read_byid_int(id_varid,id_taskid,rd_a,ju_day,ju_sec &
                                   ,ju_dayb,ju_secb,timeop,ierror)
      Integer,Intent(in)::id_varid,id_taskid
      Logical,Intent(out):: timeop
      Integer,Intent(out):: ierror
      Integer             , Intent (InOut) :: rd_a(*)
      Double Precision, Intent (In) :: ju_day, ju_sec
      Double Precision, Intent (In) :: ju_dayb(2), ju_secb(2)
    End Subroutine

! ----------------------------------------------------------------------------
! Interfaces of internal PSMILe reduction routines
! ----------------------------------------------------------------------------

    subroutine psmile_multi_reduce_int ( task, shape_in, data_in, &
                                        shape_out, data_out, mask, ierror )
      Integer, Intent (In)  :: task
      Integer, Intent (In)  :: shape_in(2,6)
      Integer, Intent (In)  :: shape_out(2,6)
      Integer, Intent (In)  :: data_in  ( shape_in(1,1) : shape_in (2,1), 
                                          shape_in(1,2) : shape_in (2,2), 
                                          shape_in(1,3) : shape_in (2,3), 
                                          shape_in(1,4) : shape_in (2,4), 
                                          shape_in(1,5) : shape_in (2,5), 
                                          shape_in(1,6) : shape_in (2,6) )
      Logical, Intent (In)  :: mask     ( shape_in(1,1) : shape_in (2,1), 
                                          shape_in(1,2) : shape_in (2,2), 
                                          shape_in(1,3) : shape_in (2,3), 
                                          shape_in(1,4) : shape_in (2,4), 
                                          shape_in(1,5) : shape_in (2,5) )
      Integer, Intent (Out) :: data_out ( shape_out(1,1) : shape_out (2,1), 
                                          shape_out(1,2) : shape_out (2,2), 
                                          shape_out(1,3) : shape_out (2,3), 
                                          shape_out(1,4) : shape_out (2,4), 
                                          shape_out(1,5) : shape_out (2,5), 
                                          shape_out(1,6) : shape_out (2,6) )
      Integer, Intent (Out) :: ierror

    End Subroutine

    subroutine psmile_multi_reduce_real ( task, shape_in, data_in, &
                                        shape_out, data_out, mask, ierror )
      Integer, Intent (In)  :: task
      Integer, Intent (In)  :: shape_in(2,6)
      Integer, Intent (In)  :: shape_out(2,6)
      Real, Intent (In)     :: data_in  ( shape_in(1,1) : shape_in (2,1), 
                                          shape_in(1,2) : shape_in (2,2), 
                                          shape_in(1,3) : shape_in (2,3), 
                                          shape_in(1,4) : shape_in (2,4), 
                                          shape_in(1,5) : shape_in (2,5), 
                                          shape_in(1,6) : shape_in (2,6) )
      Logical, Intent (In)  :: mask     ( shape_in(1,1) : shape_in (2,1), 
                                          shape_in(1,2) : shape_in (2,2), 
                                          shape_in(1,3) : shape_in (2,3), 
                                          shape_in(1,4) : shape_in (2,4), 
                                          shape_in(1,5) : shape_in (2,5) )
      Real, Intent (Out)    :: data_out ( shape_out(1,1) : shape_out (2,1), 
                                          shape_out(1,2) : shape_out (2,2), 
                                          shape_out(1,3) : shape_out (2,3), 
                                          shape_out(1,4) : shape_out (2,4), 
                                          shape_out(1,5) : shape_out (2,5), 
                                          shape_out(1,6) : shape_out (2,6) )
      Integer, Intent (Out) :: ierror

    End Subroutine

    subroutine psmile_multi_reduce_dble ( task, shape_in, data_in, &
                                        shape_out, data_out, mask, ierror )
      Integer, Intent (In)           :: task
      Integer, Intent (In)           :: shape_in(2,6)
      Integer, Intent (In)           :: shape_out(2,6)
      Double Precision, Intent (In)  :: data_in  ( shape_in(1,1) : shape_in (2,1), 
                                                   shape_in(1,2) : shape_in (2,2), 
                                                   shape_in(1,3) : shape_in (2,3), 
                                                   shape_in(1,4) : shape_in (2,4), 
                                                   shape_in(1,5) : shape_in (2,5), 
                                                   shape_in(1,6) : shape_in (2,6) )
      Logical, Intent (In)           :: mask     ( shape_in(1,1) : shape_in (2,1), 
                                                   shape_in(1,2) : shape_in (2,2), 
                                                   shape_in(1,3) : shape_in (2,3), 
                                                   shape_in(1,4) : shape_in (2,4), 
                                                   shape_in(1,5) : shape_in (2,5) )
      Double Precision, Intent (Out) :: data_out ( shape_out(1,1) : shape_out (2,1), 
                                                   shape_out(1,2) : shape_out (2,2), 
                                                   shape_out(1,3) : shape_out (2,3), 
                                                   shape_out(1,4) : shape_out (2,4), 
                                                   shape_out(1,5) : shape_out (2,5), 
                                                   shape_out(1,6) : shape_out (2,6) )
      Integer, Intent (Out)          :: ierror

    End Subroutine

    subroutine psmile_loc_trans_int ( task, nbr_fields, &
                                      len_in,  data_in,  &
                                      len_out, data_out, field_id )
      Integer, Intent (In)                :: task
      Integer, Intent (In)                :: nbr_fields
      Integer, Intent (In)                :: len_in
      Integer, Intent (In)                :: data_in(len_in,nbr_fields)
      Integer, Intent (In)                :: len_out
      Integer, Intent (InOut)             :: data_out(len_out,nbr_fields)
      Integer, Optional, Intent (In)      :: field_id

    End Subroutine

    subroutine psmile_loc_trans_real ( task, nbr_fields, &
                                       len_in,  data_in,  &
                                       len_out, data_out, field_id )
      Integer, Intent (In)                :: task
      Integer, Intent (In)                :: nbr_fields
      Integer, Intent (In)                :: len_in
      Real, Intent (In)                   :: data_in(len_in,nbr_fields)
      Integer, Intent (In)                :: len_out
      Real, Intent (InOut)                :: data_out(len_out,nbr_fields)
      Integer, Optional, Intent (In)      :: field_id

    End Subroutine

    subroutine psmile_loc_trans_dble ( task, nbr_fields, &
                                       len_in,  data_in,  &
                                       len_out, data_out, field_id )
      Integer, Intent (In)                :: task
      Integer, Intent (In)                :: nbr_fields
      Integer, Intent (In)                :: len_in
      Double Precision, Intent (In)       :: data_in(len_in,nbr_fields)
      Integer, Intent (In)                :: len_out
      Double Precision, Intent (InOut)    :: data_out(len_out,nbr_fields)
      Integer, Optional, Intent (In)      :: field_id

    End Subroutine

    subroutine psmile_get_initial_date ( initial_date, ierror )
      Use PRISM_Constants
      Type(PRISM_Time_struct), Intent(Out) :: initial_date
      Integer, Intent(Out)                  :: ierror
    End Subroutine

    Subroutine psmile_set_userdef (var_id, side, chan_id, ierror)
      Integer, intent (In)                :: var_id
      Integer, intent (In)                :: side
      Integer, intent (In)                :: chan_id
      Integer, Intent (Out)               :: ierror
    End Subroutine psmile_set_userdef
!
!==================================================================
!
   ! The following four interfaces are here instead of psmile_common.F90
   ! (where they belong), because someone forgot to add the import
   ! statement to Fortran 90...
   subroutine psmile_init_enddef_msg_inters (msg_intersections)
      use psmile_common, only : enddef_msg_intersections

      type (enddef_msg_intersections), intent (out) :: msg_intersections
   end subroutine psmile_init_enddef_msg_inters

   subroutine psmile_pack_msg_intersections (msg_intersections, buffer)
      use psmile_common, only : enddef_msg_intersections, nd_msgint

      type (enddef_msg_intersections), intent (in) :: msg_intersections
      integer, intent (inout)                      :: buffer(nd_msgint)
   end subroutine psmile_pack_msg_intersections

   subroutine psmile_unpack_msg_intersections (msg_intersections, buffer)
      use psmile_common, only : enddef_msg_intersections, nd_msgint

      type (enddef_msg_intersections), intent (out) :: msg_intersections
      integer, intent (inout)                       :: buffer(nd_msgint)
   end subroutine psmile_unpack_msg_intersections

   subroutine psmile_copy_msg_intersections (msg_intersections_to, &
                                             msg_intersections_from)
      use psmile_common, only : enddef_msg_intersections

      type (enddef_msg_intersections), intent (in)  :: msg_intersections_from
      type (enddef_msg_intersections), intent (out) :: msg_intersections_to
   end subroutine psmile_copy_msg_intersections

   subroutine psmile_init_enddef_msg_locs (msg_locations)
      use psmile_common, only : enddef_msg_locations, &
                              psmile_undef

      type (enddef_msg_locations), intent (out) :: msg_locations
   end subroutine psmile_init_enddef_msg_locs

   subroutine psmile_pack_msg_locations (msg_locations, buffer)
      use psmile_common, only : enddef_msg_locations, msgloc_size

      type (enddef_msg_locations), intent (in) :: msg_locations
      integer, intent (out)                    :: buffer(msgloc_size)
   end subroutine psmile_pack_msg_locations

   subroutine psmile_unpack_msg_locations (msg_locations, buffer)
      use psmile_common, only : enddef_msg_locations, msgloc_size

      type (enddef_msg_locations), intent (out) :: msg_locations
      integer, intent (in)                      :: buffer(msgloc_size)
   end subroutine psmile_unpack_msg_locations

End Interface

End Module PSMILe