定义派生类型数组

我正在尝试使用参数声明初始化派生类型。当我编译时，出现以下错误

(1) 处的 INTEGER(4) 数组构造函数中的元素是 CHARACTER(1)。

用户定义的种类值ip and dp被发现于fasst_global。他们是：

integer,parameter:: ip = selected_int_kind(8)
integer,parameter:: dp = selected_real_kind(15,307)

我尝试过使用1_ip代替1作为第一个元素，这没有什么区别。我究竟做错了什么？

module fasst_derived_types
  use fasst_global

  implicit none

  type fasst_default_soil
    integer(ip):: sid
    character(len=2):: ssname
    real(dp):: dens,pors,ssemis,ssalb,shc,smin,smax,salpha,svgn
    real(dp):: sspheat,sorgan,spsand,spsilt,spclay,spgravel
  end type fasst_default_soil

  type(fasst_default_soil),parameter:: fasst_soil(1) = fasst_default_soil( &

    (/1, 'GW',1.947_dp,0.293_dp, 0.92_dp,0.40_dp,1.1197e-2_dp,        &
             0.01_dp,0.293_dp,22.6125_dp, 3.45_dp,  820.0_dp,       &
              0.0_dp,  5.0_dp, 2.0_dp, 2.0_dp,91.0_dp/))

end module fasst_derived_types

您尝试在这里使用两个构造函数：

• 数组构造函数；
• 结构构造函数。

每个语法都有正确的语法，但使用方式不正确。

数组构造函数(/.../)就是构造一个数组。但是您需要一个派生类型值的数组（好吧，一个值）而不是一个数组作为单个派生类型值的组件。语法错误来自于尝试创建具有各种不同/不兼容类型的数组。

所以，相反你想要

type(fasst_default_soil),parameter:: fasst_soil(1) = (/fasst_default_soil(1_ip,'GW', ...)/)

或者，由于您只需要一个元素数组，因此您甚至不需要构造派生类型的数组。