x********g
发帖数: 47 | 1 我有如下程序，但是编译出错，请高手指教：
subroutine intensity(m_int, res, px, py, k, int_i, scatfact_e, istat)
！USE, intrinsic :: iso_c_binding
USE MPI_C_BINDING !mpi
IMPLICIT NONE
type(model), intent(in) :: m_int
real, intent(in) :: res, px, py
real, dimension(nk), intent(in) :: k
real, dimension(nk), intent(out) :: int_i
real, dimension(:,:), pointer, intent(in) :: scatfact_e
integer, intent(out) :: istat
! C-compatible variables for the model data
integer(C_INT), dimen | p*****o
发帖数: 40 | 2 需要那个mod文件吧
【在 x********g 的大作中提到】
: 我有如下程序，但是编译出错，请高手指教：
: subroutine intensity(m_int, res, px, py, k, int_i, scatfact_e, istat)
: ！USE, intrinsic :: iso_c_binding
: USE MPI_C_BINDING !mpi
: IMPLICIT NONE
: type(model), intent(in) :: m_int
: real, intent(in) :: res, px, py
: real, dimension(nk), intent(in) :: k
: real, dimension(nk), intent(out) :: int_i
: real, dimension(:,:), pointer, intent(in) :: scatfact_e
|
|
