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
00012 subroutine interpo_fl2cgr_4th_export(fnc,cfn,xc,yc,zc,rs)
00013 real(8), pointer :: fnc(:,:,:), rs(:,:)
00014 real(8), intent(out) :: cfn
00015 real(8) :: xc, yc, zc
00016 end subroutine interpo_fl2cgr_4th_export
00017
00018 subroutine interpo_gr2cgr_4th(fnc,cfn,xc,yc,zc)
00019 real(8), pointer :: fnc(:,:,:)
00020 real(8), intent(out) :: cfn
00021 real(8) :: xc, yc, zc
00022 end subroutine interpo_gr2cgr_4th
00023 subroutine interpolation_matter(fnc,fncca)
00024 real(8), pointer :: fnc(:,:,:)
00025 real(8), pointer :: fncca(:,:,:)
00026 end subroutine interpolation_matter
00027 subroutine interpolation_metric(fnc,fncca)
00028 real(8), pointer :: fnc(:,:,:)
00029 real(8), pointer :: fncca(:,:,:)
00030 end subroutine interpolation_metric
00031 subroutine interpolation_fillup_cartesian(fnc,fncca)
00032 real(8), pointer :: fnc(:,:,:)
00033 real(8), pointer :: fncca(:,:,:)
00034 end subroutine interpolation_fillup_cartesian
00035 subroutine interpolation_fillup_cartesian_bh(fnc,fncca)
00036 real(8), pointer :: fnc(:,:,:)
00037 real(8), pointer :: fncca(:,:,:)
00038 end subroutine interpolation_fillup_cartesian_bh
00039 subroutine interpolation_fillup_cartesian_bh_parity(fnc,fncca,par)
00040 real(8), pointer :: fnc(:,:,:)
00041 real(8), pointer :: fncca(:,:,:)
00042 real(8) :: par
00043 end subroutine interpolation_fillup_cartesian_bh_parity
00044 subroutine interpolation_fillup_cartesian_parity(fnc,fncca,par)
00045 real(8), pointer :: fnc(:,:,:)
00046 real(8), pointer :: fncca(:,:,:)
00047 real(8) :: par
00048 end subroutine interpolation_fillup_cartesian_parity
00049 subroutine interpolation_fillup_cartesian_mpt(fnc,fncca,impt,impt_ex)
00050 real(8), pointer :: fnc(:,:,:)
00051 real(8), pointer :: fncca(:,:,:)
00052 integer :: impt, impt_ex
00053 end subroutine interpolation_fillup_cartesian_mpt
00054 subroutine interpolation_fillup_cartesian_parity_BNS_mpt(fnc,fncca,impt,impt_ex,par)
00055 real(8), pointer :: fnc(:,:,:)
00056 real(8), pointer :: fncca(:,:,:)
00057 integer :: impt, impt_ex
00058 real(8) :: par
00059 end subroutine interpolation_fillup_cartesian_parity_BNS_mpt
00060
00061 end interface
00062 end module interface_modules_cartesian
