00001 module interface_modules_cartesian
00002 use phys_constant, only : long
00003 implicit none
00004 interface
00005
00006 subroutine interpo_fl2cgr_4th(fnc,cfn,xc,yc,zc)
00007 real(8), pointer :: fnc(:,:,:)
00008 real(8), intent(out) :: cfn
00009 real(8) :: xc, yc, zc
00010 end subroutine interpo_fl2cgr_4th
00011 subroutine interpo_gr2cgr_4th(fnc,cfn,xc,yc,zc)
00012 real(8), pointer :: fnc(:,:,:)
00013 real(8), intent(out) :: cfn
00014 real(8) :: xc, yc, zc
00015 end subroutine interpo_gr2cgr_4th
00016 subroutine interpolation_matter(fnc,fncca)
00017 real(8), pointer :: fnc(:,:,:)
00018 real(8), pointer :: fncca(:,:,:)
00019 end subroutine interpolation_matter
00020 subroutine interpolation_metric(fnc,fncca)
00021 real(8), pointer :: fnc(:,:,:)
00022 real(8), pointer :: fncca(:,:,:)
00023 end subroutine interpolation_metric
00024 subroutine interpolation_fillup_cartesian(fnc,fncca)
00025 real(8), pointer :: fnc(:,:,:)
00026 real(8), pointer :: fncca(:,:,:)
00027 end subroutine interpolation_fillup_cartesian
00028 subroutine interpolation_fillup_cartesian_bh(fnc,fncca)
00029 real(8), pointer :: fnc(:,:,:)
00030 real(8), pointer :: fncca(:,:,:)
00031 end subroutine interpolation_fillup_cartesian_bh
00032 subroutine interpolation_fillup_cartesian_bh_parity(fnc,fncca,par)
00033 real(8), pointer :: fnc(:,:,:)
00034 real(8), pointer :: fncca(:,:,:)
00035 real(8) :: par
00036 end subroutine interpolation_fillup_cartesian_bh_parity
00037 subroutine interpolation_fillup_cartesian_parity(fnc,fncca,par)
00038 real(8), pointer :: fnc(:,:,:)
00039 real(8), pointer :: fncca(:,:,:)
00040 real(8) :: par
00041 end subroutine interpolation_fillup_cartesian_parity
00042 subroutine interpolation_fillup_cartesian_mpt(fnc,fncca,impt,impt_ex)
00043 real(8), pointer :: fnc(:,:,:)
00044 real(8), pointer :: fncca(:,:,:)
00045 integer :: impt, impt_ex
00046 end subroutine interpolation_fillup_cartesian_mpt
00047
00048 end interface
00049 end module interface_modules_cartesian
