paramesh_interfaces.f90

做网格的好程序

      interface
      subroutine amr_refine_blocks (nprocs,mype)
      integer, intent(in)    :: nprocs,mype
      end subroutine amr_refine_blocks
      end interface


      interface
      subroutine amr_refine_derefine
      end subroutine amr_refine_derefine
      end interface


      interface
      subroutine amr_restrict(mype,iopt,iempty,filling_guardcells)
      integer, intent(in)    :: mype,iopt,iempty
      logical, optional, intent(in) :: filling_guardcells
      end subroutine amr_restrict
      end interface

      interface
      subroutine amr_restrict_bnd_data(mype,flux_dir)
      integer, intent(in)    :: flux_dir
      integer, intent(in)    :: mype
      end subroutine amr_restrict_bnd_data
      end interface

      interface
      subroutine amr_restrict_bnd_data_vdt(mype)
      integer, intent(in)    :: mype
      end subroutine amr_restrict_bnd_data_vdt
      end interface

      interface
      subroutine amr_restrict_edge(icoord)
      integer, intent(in)    :: icoord
      end subroutine amr_restrict_edge
      end interface

      interface
      subroutine amr_restrict_edge_data(mype)
      integer, intent(in)    :: mype
      end subroutine amr_restrict_edge_data
      end interface

      interface
      subroutine amr_restrict_edge_data_vdt(mype)
      integer, intent(in)    :: mype
      end subroutine amr_restrict_edge_data_vdt
      end interface

      interface
      subroutine amr_restrict_ec_fun(recv,temp,icoord)
      integer, intent(in)    :: icoord
      real,    intent(in)    :: recv(:,:,:,:)
      real,    intent(inout) :: temp(:,:,:,:)
      end subroutine amr_restrict_ec_fun
      end interface

      interface
      subroutine amr_restrict_ec_genorder(recv,temp,icoord,order,ivar)
      integer, intent(in)    :: icoord, order, ivar
      real,    intent(in)    :: recv(:,:,:,:)
      real,    intent(inout) :: temp(:,:,:,:)
      end subroutine amr_restrict_ec_genorder
      end interface

      interface
      subroutine amr_restrict_ec_user()
      end subroutine amr_restrict_ec_user
      end interface

      interface
      subroutine amr_restrict_fc_fun(recv,temp,icoord)
      integer, intent(in)    :: icoord
      real,    intent(in)    :: recv(:,:,:,:)
      real,    intent(inout) :: temp(:,:,:,:)
      end subroutine amr_restrict_fc_fun
      end interface

      interface
      subroutine amr_restrict_fc_genorder(recv,temp,icoord,order,ivar)
      integer, intent(in)    :: icoord, order, ivar
      real,    intent(in)    :: recv(:,:,:,:)
      real,    intent(inout) :: temp(:,:,:,:)
      end subroutine amr_restrict_fc_genorder
      end interface

      interface
      subroutine amr_restrict_fc_user()
      end subroutine amr_restrict_fc_user
      end interface

      interface
      subroutine amr_restrict_red(icoord)
      integer, intent(in)    :: icoord
      end subroutine amr_restrict_red
      end interface

      interface
      subroutine amr_restrict_unk_fun(datain,dataout,lb)
      real, intent(in)    :: datain(:,:,:,:)
      real, intent(inout) :: dataout(:,:,:,:)
      integer, intent(in) :: lb
      end subroutine amr_restrict_unk_fun
      end interface

      interface
      subroutine amr_restrict_unk_genorder(datain,dataout,order,ivar)
      real, intent(in)    :: datain(:,:,:,:)
      real, intent(inout) :: dataout(:,:,:,:)
      integer, intent(in) :: order, ivar
      end subroutine amr_restrict_unk_genorder
      end interface

      interface
      subroutine amr_restrict_unk_user()
      end subroutine amr_restrict_unk_user
      end interface

      interface
      subroutine amr_restrict_nc_fun(datain,dataout)
      real, intent(in)    :: datain(:,:,:,:)
      real, intent(inout) :: dataout(:,:,:,:)
      end subroutine amr_restrict_nc_fun
      end interface

      interface
      subroutine amr_restrict_nc_genorder(datain,dataout,ivar)
      real, intent(in)    :: datain(:,:,:,:)
      real, intent(inout) :: dataout(:,:,:,:)
      integer, intent(in) :: ivar
      end subroutine amr_restrict_nc_genorder
      end interface

      interface
      subroutine amr_restrict_nc_user()
      end subroutine amr_restrict_nc_user
      end interface

      interface
      subroutine amr_restrict_work_fun(datain,dataout,iopt)
      real, intent(in)    :: datain(:,:,:)
      real, intent(inout) :: dataout(:,:,:)
      integer, intent(in) :: iopt
      end subroutine amr_restrict_work_fun
      end interface

      interface
      subroutine amr_restrict_work_genorder(datain,dataout,iopt,order)
      real, intent(in)    :: datain(:,:,:)
      real, intent(inout) :: dataout(:,:,:)
      integer, intent(in) :: iopt, order
      end subroutine amr_restrict_work_genorder
      end interface

      interface
      subroutine amr_restrict_work_user()
      end subroutine amr_restrict_work_user
      end interface

      interface
      subroutine amr_restrict_work_fun_recip(datain,dataout)
      real, intent(in)    :: datain(:,:,:)
      real, intent(inout) :: dataout(:,:,:)
      end subroutine amr_restrict_work_fun_recip
      end interface


      interface
      subroutine amr_ser_distribute (nprocs,mype,lnblocks_old)
      integer, intent(in)  ::  nprocs,mype,lnblocks_old
      end subroutine amr_ser_distribute
      end interface


      interface
      subroutine amr_sort_by_work (new_loc,nprocs,mype)
      integer, intent(in)    :: mype
      integer, intent(inout) ::  new_loc(:,:)
      integer, intent(in)    ::  nprocs
      end subroutine amr_sort_by_work
      end interface

      interface
      subroutine morton_sort(mort_no,ix,iend)
      integer, intent(in) :: iend
      integer, intent(inout) :: mort_no(6,iend), ix(iend)
      end subroutine morton_sort
      end interface

      interface
      subroutine amr_sort_morton (mort_no,new_loc,nprocs)
      integer, intent(inout) ::  mort_no(:,:)
      integer, intent(inout) ::  new_loc(:,:)
      integer, intent(in)    ::  nprocs
      end subroutine amr_sort_morton
      end interface

      interface
      subroutine amr_surrounding_blks(mype,pe,lb,surrblks,ldiag)
      integer, intent(in)    ::  mype,pe,lb
      integer, intent(inout) ::  surrblks(2,3,3,3)
      logical, intent(in)    ::  ldiag
      end subroutine amr_surrounding_blks
      end interface

      interface
      subroutine amr_test_refinement(mype,lrefine_min,lrefine_max)
      integer, intent(in)    ::  mype,lrefine_min,lrefine_max
      end subroutine amr_test_refinement
      end interface

      interface
      subroutine comm_finish
      end subroutine comm_finish
      end interface

      interface
      subroutine comm_start(MaxProcs,nprocs,mype)
      integer, intent(out) :: nprocs,mype
      integer, intent(in)  :: MaxProcs
      end subroutine comm_start
      end interface

      interface
      subroutine comm_int_sum_to_all(target,source)
      integer, intent(in) :: source
      integer, intent(out)  :: target
      end subroutine comm_int_sum_to_all
      end interface

      interface
      subroutine comm_int_min_to_all(target,source)
      integer, intent(in) :: source
      integer, intent(out)  :: target
      end subroutine comm_int_min_to_all
      end interface

      interface
      subroutine comm_int_max_to_all(target,source)
      integer, intent(in) :: source
      integer, intent(out)  :: target
      end subroutine comm_int_max_to_all
      end interface


      interface
      subroutine comm_real_sum_to_all(target,source)
      real, intent(in) :: source
      real, intent(out)  :: target
      end subroutine comm_real_sum_to_all
      end interface

      interface
      subroutine comm_real_min_to_all(target,source)
      real, intent(in) :: source
      real, intent(out)  :: target
      end subroutine comm_real_min_to_all
      end interface

      interface
      subroutine comm_real_max_to_all(target,source)
      real, intent(in) :: source
      real, intent(out)  :: target
      end subroutine comm_real_max_to_all
      end interface

      interface
      subroutine test_neigh_data(mype,istep)
      integer, intent(in)    ::  mype,istep
      end subroutine test_neigh_data
      end interface

      interface
      subroutine fill_old_loc(new_loc,old_loc,nprocs,mype)
      integer, intent(in)    :: mype,nprocs
      integer, intent(inout) :: new_loc(:,:)
      integer, intent(out)   :: old_loc(:,:)
      end subroutine fill_old_loc
      end interface

      interface
      subroutine gtest_neigh_data(mype,istep,test_a)
      integer, intent(in)    ::  mype,istep
      real,    intent(in)    ::  test_a
      end subroutine gtest_neigh_data
      end interface

      interface
      subroutine mesh_test(mype)
      integer, intent(in)    ::  mype
      end subroutine mesh_test
      end interface

      interface
      subroutine guardcell_test(mype)
      integer, intent(in)    ::  mype
      end subroutine guardcell_test
      end interface

      interface 
      subroutine init_sparse_solver
      end subroutine init_sparse_solver
      end interface

      interface
      subroutine amr_1blk_fc_clean_divb(                                 & 
     &        nfacevar_in,                                               & 
     &        ia,ib,ja,jb,ka,kb,                                         & 
     &        ionea,ioneb,                                               & 
     &        jonea,joneb,                                               & 
     &        konea,koneb,                                               & 
     &        idest,ioff,joff,koff,                                      & 
     &        mype,lb,parent_pe,parent_blk )
      integer, intent(in) :: nfacevar_in
      integer, intent(in) :: ia,ib,ja,jb,ka,kb
      integer, intent(in) :: ionea,ioneb
      integer, intent(in) :: jonea,joneb
      integer, intent(in) :: konea,koneb
      integer, intent(in) :: idest, ioff, joff, koff
      integer, intent(in) :: mype, lb, parent_pe, parent_blk
      end subroutine amr_1blk_fc_clean_divb 
      end interface

      interface
      subroutine prol_fc_clean_divb_test(flag)
      logical, intent(in) :: flag
      end subroutine prol_fc_clean_divb_test 
      end interface

      interface
      subroutine prol_fc_clean_divb_test_report(nerrors)
      integer, intent(inout) :: nerrors
      end subroutine prol_fc_clean_divb_test_report
      end interface

      interface 
      subroutine amr_q_sort (ix,n,ia,ib)
      integer, intent(in) :: n
      integer, dimension(n),  intent(inout) :: ix
      integer, optional, dimension(n), intent(inout) :: ia, ib
      end subroutine amr_q_sort
      end interface

      end module paramesh_interfaces