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 |
|
