当前位置：文档之家 › fortran语言内部函数及使用规范

fortran语言内部函数及使用规范

  • 格式：wps
  • 大小：148.00 KB
  • 文档页数：8

附录 FORTRAN 90标准函数 符号约定：  I代表整型;R代表实型;C代表复型;CH代表字符型;S代表字符串;L代表逻辑型;A代表数组;P代表指针;T代表派生类型;AT为任意类型。  s:P表示s类型为P类型(任意kind值)。s:P(k)表示s类型为P类型(kind值=k)。  [„]表示可选参数。  *表示常用函数。

表1 数值和类型转换函数 函数名 说明

ABS(x)* 求x的绝对值∣x∣。x:I、R,结果类型同x; x:C,结果:R

AIMAG(x) 求x的虚部。x:C,结果:R

AINT(x[,kind])* 对x取整,并转换为实数(kind)。x:R, kind:I,结果:R(kind)

AMAX0(x1,x2,x3,„)* 求x1,x2,x3,„中最大值。xI:I,结果:R

AMIN0(x1,x2,x3,„)* 求x1,x2,x3,„中最小值。xI:I,结果:R

ANINT(x[,kind])* 对x四舍五入取整,并转换为实数(kind)。x:R, kind:I,结果:R(kind)

CEILING(x)* 求大于等于x的最小整数。x:R,结果:I

CMPLX(x[,y][,kind])) 将参数转换为x、(x,0.0)或(x,y)。x:I、R、C, y:I、R,kind:I,结果:C(kind)

CONJG(x) 求x的共轭复数。x:C,结果:C

DBLE(x)* 将x转换为双精度实数。x:I、R、C,结果:R(8)

DCMPLX(x[,y]) 将参数转换为x、(x,0.0)或(x,y)。x:I、R、C, y:I、R,结果:C(8)

DFLOAT(x) 将x转换为双精度实数。x:I,结果:R(8)

DIM(x,y)* 求x-y和0中最大值,即MAX(x-y,0)。x:I、R, y的类型同x,结果类型同x

DPROD(x,y) 求x和y的乘积,并转换为双精度实数。x:R, y:R,结果:R(8) FLOAT(x)* 将x转换为单精度实数。x:I,结果:R

FLOOR(x)* 求小于等于x的最大整数。x:R,结果:I

IFIX(x)* 将x转换为整数(取整)。x:R,结果:I

IMAG(x) 同AIMAG(x)

INT(x[,kind])* 将x转换为整数(取整)。x:I、R、C, kind:I,结果:I(kind)

LOGICAL(x[,kind])* 按kind值转换新逻辑值。x:L,结果:L(kind)

MAX(x1,x2,x3,„)* 求x1,x2,x3,„中最大值。xI为任意类型,结果类型同xI

MAX1(x1,x2,x3,„)* 求x1,x2,x3,„中最大值(取整)。xI:R,结果:I

MIN(x1,x2,x3,„)* 求x1,x2,x3,„中最小值。xI为任意类型,结果类型同xI

MIN1(x1,x2,x3,„)* 求x1,x2,x3„中最小值(取整)。xI:R,结果:I

MOD(x,y)* 求x/y的余数,值为x-INT(x/y)*y。x:I、R, y的类型同x,结果类型同x

MODULO(x,y) 求x/y余数,值为x-FLOOR(x/y)*y。x:I、R, y的类型同x,结果类型同x

NINT(x[,kind])* 将x转换为整数(四舍五入)。x:R, kind:I,结果:I(kind)

REAL(x[,kind])* 将x转换为实数。x:I、R、C, kind:I,结果:R(kind)

SIGN(x,y)* 求x的绝对值乘以y的符号。x:I、R, y的类型同x,结果类型同x

SNGL(x) 将双精度实数转换为单精度实数。x:R(8),结果:R

ZEXT(x) 用0向左侧扩展x。x:I、L,结果:I

表2 三角函数

函数名 说明

ACOS(x)* 求x的反余弦arccos(x)。x:R,结果类型同x,结果值域:0~π

ACOSD(x)* 求x的反余弦arccos(x)。x:R,结果类型同x,结果值域:0~180°

ASIN(x)* 求x的反正弦arcsin(x)。x:R,结果类型同x,结果为弧度,值域:0~π ASIND(x)* 求x的反正弦arcsin(x)。x:R,结果类型同x,结果为度,值域:0~180°

ATAN(x)* 求x的反正切arctg(x)。x:R,结果类型同x,结果为弧度,值域:-π/2~π/2

ATAND(x)* 求x的反正切arctg(x)。x:R,结果类型同x,结果为度,值域:-90~90°

ATAN2(y,x) 求x的反正切arctg(y/x)。y:R,x和结果类型同x,结果值域:-π~π

ATAN2D(y,x) 求x的反正切arctg(y/x)。y:R,x和结果类型同x,结果值域:-180~180° COS(x)* 求x的余弦cos(x)。x:R、C,x取值弧度,结果类型同x

COSD(x)* 求x的余弦cos(x)。x:R,x取值度,结果类型同x

COSH(x) 求x的双曲余弦ch(x)。x:R,结果类型同x

COTAN(x)* 求x的余切ctg(x)。x:R,x取值度,结果类型同x

SIN(x)* 求x的正弦sin(x)。x:R、C,x取值弧度,结果类型同x

SIND(x)* 求x的正弦sin(x)。x:R,x取值度,结果类型同x

SINH(x) 求x的双曲正弦sh(x)。x:R,结果类型同x

TAN(x)* 求x的正切tg(x)。x:R,x取值弧度,结果类型同x

TAND(x)* 求x的正切tg(x)。x:R,x取值度,结果类型同x

TANH(x) 求x的双曲正切th(x)。x:R,结果类型同x

注：三角函数名前有C、D的函数为复数、双精度型函数。

表3 指数、平方根和对数函数

函数名 说明

ALOG(x) 求x的自然对数ln(x)。x:R(4),结果:R(4)

ALOG10(x) 求x以10为底一般对数log10(x)。x:R(4),结果:R(4)

EXP(x)* 求指数,即ex。x:R、C,结果类型同x

LOG(x)* 求自然对数,即ex。x:R、C,结果类型同x LOG10(x)* 求以10为底对数,即。x:R,结果类型同x

SQRT(x)* 求x的平方根。x:R、C,结果类型同x 注：指数函数名、平方根函数名、对数函数名前有C、D的函数为复数、双精度型函数。

表4 参数查询函数 函数名 说明

ALLOCATED(a)* 判定动态数组a是否分配内存。a:A,结果:L,分配:.TRUE.,未分配:.FALSE.

ASSOCIATED(p[,t])* 判定指针p是否指向目标t。p:P,t:AT,结果:L,指向:.TRUE.,未指向:.FALSE.

DIGITS(x) 查询x的机内编码数值部分二进制位数(除符号位和指数位)。x:I、R,结果:I

EPSILON(x)* 查询x类型可表示的最小正实数。x:R,结果类型同x。最小正实数:1.1920929E-07

HUGE(x)* 查询x类型可表示的最大数。x:I、R,结果类型同x

ILEN(x) 查询x的反码值。x:I,结果类型同x

KIND(x)* 查询x的kind参数值。x:I、R、C、CH、L,结果:I

MAXEXPONENT(x)* 查询x的最大正指数值。x:R,结果:I(4)

MINEXPONENT(x)* 查询x的最大负指数值。x:R,结果:I(4)

PRECISION(x)* 查询x类型有效数字位数。x:R、C,结果:I(4)

PRESENT(x) 查询可选形参x是否有对应实参。x:AT,结果:L。有:.TRUE.,没有:.FALSE.

RADIX(x) 查询x类型的基数。x:I、R,结果:L

RANGE(x)* 查询x类型的指数范围。x:I、R、C,结果:I(4)

SIZEOF(x)* 查询x的存储分配字节数。x:AT,结果:I(4)

TINY(x)* 查询x的最小正值。x:R,结果类型同x

表5 实数检测和控制函数

函数名 说明 EXPONENT(x)* 求实数x机内编码表示的指数值。x:R,结果:I

FRACTION(x)* 求实数x机内编码表示的小数值。x:R,结果类型同x

NEAREST(x,s) 根据s的正负号求最接近x的值。x:R,结果:R,且不为0

RRSPACING(x) 求x与系统最大数之间的差值。x:R,结果类型同x

SCALE(x,I)* 求x乘以2i。x:R,i:I,结果类型同x

SET_EXPONENT(x,i) 求由x的机内编码小数值与指数i组成的实数。x:R,i:I,结果类型同x

SPACING(x)* 求x与x最近值的差值绝对值。x:R,结果类型同x

表6 字符处理函数 函数名 说明

ACHAR(n) 将ASCII码n转换为对应字符。n:I,n值域:0~127,结果:CH(1)

ADJUSTL(string)* 将字符串string左对齐,即去掉左端空格。string:CH(*),结果类型同string

ADJUSTR(string)* 将字符串string右对齐,即去掉右端空格。string:CH(*),结果类型同string

CHAR(n)* 将ASCII码n转换为对应字符。n:I,n值域:0~255,结果:CH(1)

IACHAR(c)* 将字符c转换为对应的ASCII码。c:CH(1),结果:I

ICHAR(c)* 将字符c转换为对应的ASCII码。c:CH(1),结果:I

INDEX(s,ss[,b])* 求子串ss在串s中起始位置。s:CH(*),ss:CH(*),b:L,结果:I。b为真从右起

LEN(s)* 求字符串s的长度。s:CH(*),结果:I

LEN_TRIM(s)* 求字符串s去掉尾部空格后的字符数。s:CH(*),结果:I

LGE(s1,s2)* 按ASCII码值判定字符串s1大于等于字符串s2。s1:CH(*),s1:CH(*),结果:L

LGT(s1,s2)* 按ASCII码值判定字符串s1大于字符串s2。s1:CH(*),s1:CH(*),结果:L

LLE(s1,s2)* 按ASCII码值判定字符串s1小于等于字符串s2。s1:CH(*),s1:CH(*),结果:L

LLT(s1,s2)* 按ASCII码值判定字符串s1小于字符串s2。s1:CH(*),s1:CH(*),结果:L

合集下载

fortran any的用法

fortran any的用法

fortran any的用法

Fortran Any是Fortran编程语言中的一个函数，用于判断给定的逻辑向量是否至少包含一个True值。在这篇文章中，我们将详细介绍Fortran Any的用法及其示例。

Fortran Any的语法

Fortran Any函数的语法如下：

any(array, dim)

其中，array是一个逻辑型向量，dim是一个整数变量，用于指定在哪个维度上进行求和操作。如果省略dim参数，则默认对整个数组进行求和。函数会返回一个逻辑型值，表明给定的逻辑向量中是否至少包含一个True值。

Fortran Any的示例

下面的示例将展示Fortran Any函数的使用情况：

```fortran

program any_example

implicit none

integer, parameter :: n = 5

logical :: array(n)

logical :: result array = [.true., .false., .false., .true., .false.] ! 初始化逻辑向量

result = any(array) ! 判断整个数组是否至少包含一个True值

write(*,*) '是否至少包含一个True值:', result

result = any(array, dim=1) ! 判断在每个维度上是否至少包含一个True值

write(*,*) '在每个维度上是否至少包含一个True值:', result

end program any_example

```

在上述示例中，我们首先声明了一个大小为5的逻辑向量array，并将其初始化为[.true., .false., .false., .true., .false.]。接下来，我们使用any函数来判断整个数组是否至少包含一个True值，并将结果赋给result变量。最后，我们使用write语句将结果输出到控制台。

fortran余数函数

fortran余数函数

fortran余数函数

Fortran是一种编程语言，用于科学计算和数值分析。它是一种古老而强大的语言，最早于1957年发布。尽管它已经存在了很长一段时间，但它仍然被广泛使用，特别是在科学和工程领域。

Fortran有许多内置函数，其中一个就是计算余数的函数。余数函数可以计算两个数相除后的余数。Fortran中的余数函数称为MOD函数，它可以用来计算整数和实数的余数。

MOD函数有两个参数，一个是除数，另一个是被除数。当两个参数都是整数时，MOD函数返回一个整数余数。例如，如果我们要计算13除以5的余数，可以使用以下Fortran代码：

```fortran

program mod_example

implicit none

integer :: dividend, divisor, remainder

dividend = 13 divisor = 5

remainder = MOD(dividend, divisor)

write(*,*) "余数为:", remainder

end program mod_example

```

上述代码将输出"余数为: 3"，因为13除以5得到的余数是3。这个例子中，dividend被赋值为13，divisor被赋值为5，而remainder则是MOD函数的结果。

除了整数之外，MOD函数还可以用于计算实数的余数。当被除数和除数都是实数时，MOD函数将返回一个实数余数。例如，如果我们要计算5.7除以2.1的余数，可以使用以下Fortran代码：

```fortran

program mod_example

implicit none

real :: dividend, divisor, remainder dividend = 5.7

divisor = 2.1

remainder = MOD(dividend, divisor)

write(*,*) "余数为:", remainder

fortran getarg函数

fortran getarg函数

fortran getarg函数

摘要：

1.函数简介

2.函数声明

3.函数参数

4.函数功能

5.函数使用示例

6.总结

正文：

【1.函数简介】

Fortran 语言是一种高级编程语言，广泛应用于数值计算领域。在

Fortran 中，getarg 函数是一个用于获取命令行参数的函数。它可以帮助我们在程序运行时从命令行接收参数，并将这些参数的值存储在指定的内存位置。这对于需要根据用户输入来执行不同操作的程序非常有用。

【2.函数声明】

getarg 函数的声明如下：

```fortran

function getarg(index, arg) result(value)

implicit none

integer, intent(in) :: index

character(*), intent(out) :: arg character(256), intent(out) :: value

end function getarg

```

【3.函数参数】

getarg 函数有两个参数：

- index：一个整数，表示要获取的参数在命令行中的位置。参数的位置从

1 开始计数。

- arg：一个字符串，表示要获取的参数的类型。例如，如果要获取一个整数参数，可以将 arg 设置为"integer"。

【4.函数功能】

getarg 函数的功能是根据命令行参数的索引和类型，将对应的参数值存储在 value 参数中。如果指定的参数不存在或为空，函数将返回一个错误信息。

【5.函数使用示例】

下面是一个简单的示例，展示如何使用 getarg 函数从命令行获取参数：

```fortran

program example

implicit none

integer :: index, value

fortran sleep函数

fortran sleep函数

fortran sleep函数

Fortran是一种编程语言，最初用于科学计算和数值计算。Fortran语言中有一个非常有用的函数，即"sleep"函数，用于暂停程序的执行一段时间。在本文中，我们将详细介绍Fortran的sleep函数及其用法。

Fortran的sleep函数用于暂停程序的执行一段时间，可以在程序中添加适当的延迟，以控制程序的执行速度。这在需要程序等待一段时间后再执行某些操作时非常有用，比如在进行数据处理时，需要给程序一些时间来读取和处理数据。

使用Fortran的sleep函数很简单，只需在程序中调用该函数，并指定暂停的时间长度。时间长度可以是整数或浮点数，单位为秒。例如，要让程序暂停2秒，可以使用以下代码：

```Fortran

CALL sleep(2)

```

上述代码中，"CALL"是Fortran语言中的调用函数的关键字，后面跟着函数名"sleep"和括号内的参数"2"，表示暂停2秒。

需要注意的是，Fortran的sleep函数并不是所有编译器都支持的，因此在使用之前，最好先检查编译器的文档或帮助文件，确保该函数可用。

在实际应用中，Fortran的sleep函数有很多用途。例如，在编写一个游戏程序时，可以使用sleep函数来控制游戏中的动画效果。通过适当的延迟，可以使动画看起来更加流畅。

Fortran的sleep函数还可以用于调试程序。当程序执行过快或过慢时，可以通过添加适当的延迟来观察程序的执行过程，以便更好地定位和解决问题。

需要注意的是，虽然sleep函数可以使程序暂停一段时间，但并不是精确的。实际的暂停时间可能会受到系统和其他因素的影响，因此在编写程序时，应该考虑到这一点，并在需要精确控制时间的情况下，使用其他更为准确的方法。

总结一下，Fortran的sleep函数是一种非常有用的工具，可以用于暂停程序的执行一段时间。它在控制程序的执行速度、实现动画效果以及调试程序等方面都发挥着重要作用。在使用时需要注意函数的可用性，并考虑到其不精确性的特点。希望本文对您理解Fortran的sleep函数有所帮助。