ISO_FORTRAN_ENV 本質模組提供與 Fortran 環境相關的常數 及函數。 此模組中的常數類型,以及 NUMERIC_STORAGE_SIZE 常數的值假設預設整數大小為 4。ISO_FORTRAN_ENV 常數 本節呈現 ISO_FORTRAN_ENV 本質模組的常數。 ISO_FORTRAN_ENV 函數 本節呈現 ISO_FORTRAN_ENV 本質模組的函數。 上層主題: 語言參照 ...
ISO_FORTRAN_ENV内部模块提供与 Fortran 环境相关的常量和函数。 此模块中的常量类型以及NUMERIC_STORAGE_SIZE常量的值采用缺省整数大小 4。 父主题:语言参考
在 Go 语言中，我们可以把函数作为一种变量，用 type 去定义它，那么这个函数类型就可以作为值传递，...
此外,Fortran 还可以自定义派生类型: program drived_type use, intrinsic :: iso_fortran_env, only: rk => real64 implicit none type car_type character(:), allocatable :: name integer :: vs real(rk) :: length end type car_type type(car_type) :: tesla_model_3 !! 名字 !! 速度 !!
注意，Fortran的字符集不包括中括号[]，因此与c语言的风格不同，Fortran对数组分量的操作全都是使用小...
use, intrinsic :: iso_fortran_env, only: real32, real64 implicit none real(real32) :: a32 real(real64) :: a64 a32 = 1.0_real32 / 3.0_real32 a64 = 1.0_real64 / 3.0_real64 print *, 'Single precision:', a32 print *, 'Double precision:', a64 ...
use, intrinsic :: iso_fortran_env, only: dp => real64 implicit none integer, parameter :: n = 3 real(dp) :: A(n, n), B(n, n), C(n, n) real(dp) :: alpha, beta integer :: lda, ldb, ldc ! 初始化矩阵A和B A = reshape([1.0_dp, 2.0_dp, 3.0_dp, 4.0_dp, 5.0_dp...
modulearray_museiso_fortran_envimplicit nonetype,abstract::AbstractArraycontainsprocedure(array_size),pass(this),deferred::sizeend typeabstract interfaceintegerfunctionarray_size(this)import::AbstractArrayclass(AbstractArray),intent(in)::thisend functionend interfacetype,abstract,extends(AbstractArray)::Real...
Another Fortran compiler uses the values below for constants defined in the ISO_FORTRAN_ENV module of Fortran 2003. What are the corresponding values for Intel Visual Fortran? Thanks. module ISO_FORTRAN_ENV implicit NONE public integer, parameter :: Character_Storage_Size = 8 integer, parameter ...
#define FILE __FILE__//":"programmainimplicit noneprint'(A)',"Fatal error at "//FILE//toString(__LINE__)containspure functiontoString(number)result(string)use,intrinsic::iso_fortran_envimplicit noneinteger(int32),parameter::MaxDigits=10integer(int32),intent(in)::numbercharacter(MaxDigits)st...