fortran常用函数
fortran里的exp用法
fortran里的exp用法Fortran是一种高级编程语言，经常用于科学计算和数值分析。
其中一个常用的内置函数是exp()，用于计算以自然对数底e为底的指数函数。
在Fortran中，exp()函数的语法如下所示：```result = EXP(x)```其中，x是作为指数的实数或复数，result是计算结果。
exp()函数返回e的x次幂，即e^x。
该函数的返回值类型与x的类型相同，可以是实数或复数。
当x为实数时，计算结果也为实数；当x为复数时，计算结果为复数。
下面是一些使用exp()函数的示例：1. 计算e的平方：```fortranprogram exp_exampleimplicit nonereal :: x, resultx = 2.0result = EXP(x)write(*,*) "e的平方 = ", resultend program exp_example```输出结果：e的平方 = 7.3890562. 计算e的负数次幂：```fortranprogram exp_exampleimplicit nonereal :: x, resultx = -1.0result = EXP(x)write(*,*) "e的负一次幂 = ", result end program exp_example```输出结果：e的负一次幂 = 0.3678794 3. 计算复数的指数函数：```fortranprogram exp_exampleimplicit nonecomplex :: z, resultz = (1.0, 1.0)result = EXP(z)write(*,*) "复数的指数函数 = ", resultend program exp_example```输出结果：复数的指数函数 = 1.468693+2.287355i在Fortran中，exp()函数可以非常方便地进行指数计算。
fortran基本函数
FORTRAN 90标准函数（一）(2012-07-03 17:14:57)转载▼分类：学习标签：fortran函数教育符号约定：●I代表整型;R代表实型;C代表复型;CH代表字符型;S代表字符串;L代表逻辑型;A代表数组;P代表指针;T代表派生类型;AT为任意类型。
●s:P表示s类型为P类型(任意kind值)。
s:P(k)表示s类型为P类型(kind值=k)。
●[…]表示可选参数。
●*表示常用函数。
注：三角函数名前有C、D的函数为复数、双精度型函数。
注：指数函数名、平方根函数名、对数函数名前有C、D的函数为复数、双精度型函数。
表4 参数查询函数atan2函数的值域是多少？我从网上找到一个fortran函数的日志，说此值域是-π~π，但正常反正切函数的值域应该是-π/2~π/2。
对atan2函数不够了解，所以不知道你的答案对不对，我个人认为不对。
我是用正常的反正切函数atan(v/u)来算的：FORTRAN：if (u>0..and.v>0.) dir=270-atan(v/u)*180/piif (u<0..and.v>0.) dir=90-atan(v/u)*180/piif (u<0..and.v<0.) dir=90-atan(v/u)*180/piif (u>0..and.v<0.) dir=270-atan(v/u)*180/piif (u==0..and.v>0.) dir=180if (u==0..and.v<0.) dir=0if (u>0..and.v==0.) dir=270if (u<0..and.v==0.) dir=90if (u==0..and.v==0.) dir=999其中uv等于零的五种情况要单独挑出来，不然程序会有瑕疵。
atan函数换成atand函数的话直接是度数，不用*180/pi我四个象限和轴都试了，应该没错。
fortran常用函数表
用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~π
表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
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
Fortran常用函数
1、RANDOM_NUMBERSyntax ['sintæks] n. 语法CALL RANDOM_NUMBER (harvest结果)Intrinsic Subroutine（固有子程序）：Returns a pseudorandom number greater than or equal to zero and less than one from the uniform distribution.返回大于或等于0且小于1，服从均匀分布的随机数2、RNNOA/ DRNNOA （Single/Double precision）Generate pseudorandom numbers from a standard normal distribution using an acceptance/rejection method.产生服从标准正态分布的随机数Usage（用法）CALL RNNOA (NR, R)Arguments（参数）NR— Number of random numbers to generate. (Input) 要产生随机数的个数R— Vector of length NR containing the random standard normal deviates. (Output)输出长度为NR，随机正态分布的向量Comments（注解）The routine RNSET can be used to initialize the seed of the random number generator. The routine RNOPT can be used to select the form of the generator.程序RNSET可以用来初始化随机数发生器的种子ExampleIn this example, RNNOA is used to generate five pseudorandom deviates from a standard normal distribution.INTEGER ISEED, NOUT, NRREAL R(5)EXTERNAL RNNOA, RNSET, UMACHCCALL UMACH (2, NOUT)NR = 5ISEED = 123457CALL RNSET (ISEED)CALL RNNOA (NR, R)WRITE (NOUT,99999) R99999 FORMAT (' Standard normal random deviates: ', 5F8.4)ENDOutputStandard normal random deviates: 2.0516 1.0833 0.0826 1.2777 -1.22603、RESHAPEIntrinsic Function（内部函数）Constructs an array of a specified shape from the elements of another array. 构造规定形式的数组Syntax（语法）result = RESHAPE (source, shape [ , pad][ , order])source(Input) Any type. Array whose elements will be taken in standard Fortran array order (see Remarks), and then placed into a new array.shape(Input) Integer. One-dimensional array that describes the shape of the output array created from elements of source. 描述输出数组的大小的一维数组，The elements of shape are the sizes of the dimensions of the reshaped array in order. If pad is omitted 省略, the total size specified by shape must be less than or equal to source.pad 可选参数(Optional; input) Same type as source. Must be an array. If there are not enough elements in source to fill the result array, elements of pad are added in standardFortran array order. If necessary, extra copies of pad are used to fill the array.order 可选参数(Optional; input) Integer. One-dimensional array. Must be the same length as shape.Permutes the order of dimensions in the result array. The value of order must be a permutation of (1, 2,...n) where n is the size of shape.Return Value（返回值）The result is an array the same data type and kind as source and a shape as defined in shape.ExamplesINTEGER AR1( 2, 5)REAL F(5,3,8)REAL C(8,3,5)AR1 = RESHAPE((/1,2,3,4,5,6/),(/2,5/),(/0,0/),(/2,1/))! returns 1 2 3 4 5! 6 0 0 0 0!! Change Fortran array order to C array orderC = RESHAPE(F, (/8,3,5/), ORDER = (/3, 2, 1/))END4、SUMIntrinsic Function（内部函数）Sums elements of an array or the elements along an optional dimension. The elements summed can be selected by an optional mask.将数组中的元素求和Syntax（语法）result = SUM (array [ , dim] [ , mask])array(Input) Integer, real, or complex. Array whose elements are to be summed.dim 可选参数(Optional; input) Integer. Dimension along which elements are summed.1 ≤dim≤n, where n is the number of dimensions in array.mask 可选参数(Optional; input) Logical. Must be same shape as array. If mask is specified, only elements in array that correspond to .TRUE. elements in mask are summed.Return Value（返回值）Same type and kind as array and equal to the sum of all elements in array or the sum of elements along dimension dim. If mask is specified, only elements that correspondto .TRUE. elements in mask are summed. Returns a scalar if dim is omitted or array is one-dimensional. Otherwise, returns an array one dimension smaller than array.ExamplesINTEGER array (2, 3), i, j(3)array = RESHAPE((/1, 2, 3, 4, 5, 6/), (/2, 3/))! array is 1 3 5! 2 4 6i = SUM((/ 1, 2, 3 /)) ! returns 6j = SUM(array, DIM = 1) ! returns [3 7 11]WRITE(*,*) i, jEND5、SEEDRun-Time Subroutine Changes the starting point of the pseudorandom number generator. 改变随机数发生器的起始点ModuleUSE MSFLIBSyntax（语法）CALL SEED (iseed)iseed(Input) INTEGER(4). Starting point for RANDOM.Remarks（注解）SEED uses iseed to establish the starting point of the pseudorandom number generator.A given seed always produces the same sequence of values from RANDOM.If SEED is not called before the first call to RANDOM, RANDOM always begins with a seed value of one. If a program must have a different pseudorandom sequence each time it runs, pass the constant RND$TIMESEED (defined in MSFLIB.F90) to the SEED routine before the first call to RANDOM.ExampleUSE MSFLIBREAL randCALL SEED(7531)CALL RANDOM(rand)6、RANDOMPurposeRun-Time Subroutine Returns a pseudorandom number greater than or equal to zero and less than one from the uniform distribution. 返回大于或等于0且小于1，服从均匀分布的随机数ModuleUSE MSFLIBSyntaxCALL RANDOM (ranval)ranval(Output) REAL(4). Pseudorandom number, 0 ≤ranval< 1, from the uniformdistribution.RemarksA given seed always produces the same sequence of values from RANDOM.If SEED is not called before the first call to RANDOM, RANDOM begins with a seed value of one. If a program must have a different pseudorandom sequence each time it runs, pass the constant RND$TIMESEED (defined in MSFLIB.F90) to SEED before the first call to RANDOM.All the random procedures (RANDOM, RAN, and RANDOM_NUMBER, and the PortLib functions DRAND, DRANDM, RAND, IRANDM, RAND, and RANDOM) use the same algorithms and thus return the same answers. They are all compatible and can be used interchangeably. (The algorithm used is a “Prime Modulus M Multiplicative Linear Congruential Generator,” a modified version of t he random number generator by Park and Miller in “Random Number Generators: Good Ones Are Hard to Find,” CACM, October 1988, Vol. 31, No. 10.)CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBExampleUSE MSFLIBREAL(4) ranCALL SEED(1995)CALL RANDOM(ran)7、FFT2BCompute the inverse Fourier transform of a complex periodic two-dimensional array.计算二维复数数组的逆傅里叶变换Usage（用法）CALL FFT2B (NRCOEF, NCCOEF, COEF, LDCOEF, A, LDA)Arguments（参数）NRCOEF— The number of rows of COEF. (Input) 数组COEF的行数NCCOEF— The number of columns of COEF. (Input) 数组COEF的列数COEF—NRCOEF by NCCOEF complex array containing the Fourier coefficients to be transformed. (Input) NRCOEF行NCCOEF列数组LDCOEF— Leading dimension of COEF exactly as specified in the dimension statement of the calling program. (Input)A—NRCOEF by NCCOEF complex array containing the Inverse Fourier coefficients of COEF. (Output) NRCOEF行NCCOEF列复数数组，包含数组COEF的逆傅里叶系数LDA— Leading dimension of A exactly as specified in the dimension statement of the calling program. (Input)Comments（注解）1.Automatic workspace usage isFFT2B4 * (NRCOEF + NCCOEF) + 32 + 2 *MAX(NRCOEF, NCCOEF) units, orDFFT2B8 * (NRCOEF + NCCOEF ) + 64 + 4 *MAX(NRCOEF, NCCOEF) units.Workspace may be explicitly provided, if desired, by use of F2T2B/DF2T2B. The reference isCALL F2T2B (NRCOEF, NCCOEF, A, LDA, COEF, LDCOEF,WFF1, WFF2, CWK, CPY)The additional arguments are as follows:WFF1— Real array of length 4 *NRCOEF + 15 initialized by FFTCI. The initialization depends on NRCOEF. (Input)WFF2— Real array of length 4 *NCCOEF + 15 initialized by FFTCI. The initialization depends on NCCOEF. (Input)CWK— Complex array of length 1. (Workspace)CPY— Real array of length 2 *MAX(NRCOEF, NCCOEF). (Workspace)2.The routine FFT2B is most efficient when NRCOEF and NCCOEF are the product of small primes.3.The arrays COEF and A may be the same.4.If FFT2D/FFT2B is used repeatedly, with the same values for NRCOEF and NCCOEF, then use FFTCI to fill WFF1(N = NRCOEF) and WFF2(N = NCCOEF). Follow this with repeated calls to F2T2D/F2T2B. This is more efficient than repeated calls toFFT2D/FFT2B.AlgorithmThe routine FFT2B computes the inverse discrete complex Fourier transform of a complex two-dimensional array of size (NRCOEF = N) ⨯ (NCCOEF = M). The method used is a variant of the Cooley-Tukey algorithm , which is most efficient when N and M are both products of small prime factors. If N and M satisfy this condition, then the computational effort is proportional to N M log N M. This considerable savings has historically led people to refer to this algorithm as the "fast Fourier transform" or FFT.Specifically, given an N⨯M array c = COEF, FFT2B returns in aFurthermore, a vector of Euclidean norm S is mapped into a vector of normFinally, note that an unnormalized inverse is implemented in FFT2D. The routine FFT2B is based on the complex FFT in FFTPACK. The package FFTPACK was developed by Paul Swarztrauber at the National Center for Atmospheric Research.ExampleIn this example, we first compute the Fourier transform of the 5 ⨯ 4 arrayfor 1 ≤n≤ 5 and 1 ≤m≤ 4 using the IMSL routine FFT2D. The resultis then inverted by a call to FFT2B. Note that the result is an array a satisfying a = (5)(4)x = 20x. In general, FFT2B is an unnormalized inverse with expansion factor N M.INTEGER LDA, LDCOEF, M, N, NCA, NRACOMPLEX CMPLX, X(5,4), A(5,4), COEF(5,4)CHARACTER TITLE1*26, TITLE2*26, TITLE3*26INTRINSIC CMPLXEXTERNAL FFT2B, FFT2D, WRCRNCTITLE1 = 'The input matrix is below 'TITLE2 = 'After FFT2D 'TITLE3 = 'After FFT2B 'NRA = 5NCA = 4LDA = 5LDCOEF = 5C Fill X with initial dataDO 20 N=1, NRADO 10 M=1, NCAX(N,M) = CMPLX(FLOAT(N+5*M-5),0.0)10 CONTINUE20 CONTINUECCALL WRCRN (TITLE1, NRA, NCA, X, LDA, 0)CCALL FFT2D (NRA, NCA, X, LDA, COEF, LDCOEF)CCALL WRCRN (TITLE2, NRA, NCA, COEF, LDCOEF, 0)CCALL FFT2B (NRA, NCA, COEF, LDCOEF, A, LDA)CCALL WRCRN (TITLE3, NRA, NCA, A, LDA, 0)CENDOutputThe input matrix is below1 2 3 41 ( 1.00, 0.00) ( 6.00, 0.00) ( 11.00, 0.00) ( 16.00, 0.00)2 ( 2.00, 0.00) ( 7.00, 0.00) ( 12.00, 0.00) ( 17.00, 0.00)3 ( 3.00, 0.00) ( 8.00, 0.00) ( 13.00, 0.00) ( 18.00, 0.00)4 ( 4.00, 0.00) ( 9.00, 0.00) ( 14.00, 0.00) ( 19.00, 0.00)5 ( 5.00, 0.00) ( 10.00, 0.00) ( 15.00, 0.00) ( 20.00, 0.00) After FFT2D1 2 3 41 ( 210.0, 0.0) ( -50.0, 50.0) ( -50.0, 0.0) ( -50.0, -50.0)2 ( -10.0, 13.8) ( 0.0, 0.0) ( 0.0, 0.0) ( 0.0, 0.0)3 ( -10.0, 3.2) ( 0.0, 0.0) ( 0.0, 0.0) ( 0.0, 0.0)4 ( -10.0, -3.2) ( 0.0, 0.0) ( 0.0, 0.0) ( 0.0, 0.0)5 ( -10.0, -13.8) ( 0.0, 0.0) ( 0.0, 0.0) ( 0.0, 0.0) After FFT2B1 2 3 41 ( 20.0, 0.0) ( 120.0, 0.0) ( 220.0, 0.0) ( 320.0, 0.0)2 ( 40.0, 0.0) ( 140.0, 0.0) ( 240.0, 0.0) ( 340.0, 0.0)3 ( 60.0, 0.0) ( 160.0, 0.0) ( 260.0, 0.0) ( 360.0, 0.0)4 ( 80.0, 0.0) ( 180.0, 0.0) ( 280.0, 0.0) ( 380.0, 0.0)5 ( 100.0, 0.0) ( 200.0, 0.0) ( 300.0, 0.0) ( 400.0, 0.0)8、TIMEFPurposePortLib Function Returns the number of seconds since the first time it is called, or zero.ModuleUSE PORTLIBSyntaxresult=TIMEF ( )Return ValueREAL(8). Number of seconds that have elapsed since the first time TIMEF( ) was called. The first time called, TIMEF returns 0.0D0.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBExampleUSE PORTLIBINTEGER i, jREAL(8) elapsed_timeelapsed_time = TIMEF() DO i = 1, 100000j = j + 1END DOelapsed_time = TIMEF() PRINT *, elapsed_time END。
fortran随机函数
fortran随机函数Fortran随机函数Fortran是一种编程语言，它广泛应用于科学计算和数值模拟领域。
在Fortran中，随机函数是一种非常有用的工具，可以生成随机数序列，为算法提供随机性和多样性。
本文将介绍Fortran中的随机函数及其应用。
我们需要了解Fortran中的随机函数是如何工作的。
Fortran提供了几个内置的随机函数，其中最常用的是RANDOM_NUMBER函数。
这个函数可以生成一个0到1之间的随机实数。
使用这个函数，我们可以通过简单的数学计算来生成其他范围内的随机数。
例如，如果我们想生成一个1到100之间的随机整数，可以使用以下代码：```program random_exampleimplicit noneinteger :: i, random_intcall random_seed()call random_number(random_real)random_int = int(random_real * 100) + 1print *, random_intend program random_example```上述代码中，我们首先调用random_seed函数来初始化随机数生成器的种子。
然后，我们调用random_number函数生成一个0到1之间的随机实数。
接下来，我们使用int函数将随机实数转换为整数，并通过适当的计算将其映射到1到100之间的范围。
最后，我们将生成的随机整数打印出来。
除了生成随机整数，Fortran还提供了其他一些随机函数，如RANDOM_SEED函数和RANDOM_INIT函数。
RANDOM_SEED函数可以用于初始化随机数生成器的种子，而RANDOM_INIT函数可以用于初始化随机数生成器的状态。
在实际应用中，Fortran的随机函数经常用于模拟实验、随机抽样和随机算法等方面。
例如，在蒙特卡罗模拟中，随机函数可以用来生成服从特定分布的随机数，以模拟实际问题的随机性。
fortran里sgn函数用法
fortran里sgn函数用法Fortran中的sgn函数用法1. 引言（约200字）Fortran（Formula Translation）是一种古老但仍广泛使用的编程语言，主要用于科学和工程计算。
其中的sgn函数是一种常用的数学函数，用于确定一个数的正负性。
本文将详细介绍sgn函数的用法，解释其背后的原理，并提供一些示例以帮助读者更好地理解。
2. sgn函数概述（约300字）sgn函数（sign函数的缩写）是用来判断一个实数的正负性的函数。
在Fortran中，sgn函数的定义方式如下：fortransgn(x)其中x是待判断的实数。
sgn函数的返回值根据x的正负性而定，规则如下：- 当x大于0时，sgn(x)返回1；- 当x小于0时，sgn(x)返回-1；- 当x等于0时，sgn(x)返回0。
sgn函数对于处理类似于数值范围检查和数据处理中的条件判断非常有用。
3. sgn函数示例（约500字）为了更好地理解sgn函数的用法，下面我们将给出一些示例。
示例一：在Fortran程序中，我们可能需要根据用户输入的数值判断该数是正数还是负数。
我们可以使用sgn函数来实现这个功能。
下面是一个示例代码片段：fortranprogram sgn_exampleimplicit nonereal :: xinteger :: swrite(*,*) '请输入一个实数：'read(*,*) xs = sgn(x)if (s > 0) thenwrite(*,*) '该数为正数'else if (s < 0) thenwrite(*,*) '该数为负数'elsewrite(*,*) '该数为零'end ifend program sgn_example在这个示例中，我们通过调用sgn函数将用户输入的实数x赋值给整数变量s。
然后我们使用if语句根据s的取值判断x的正负性，并输出相应的结果。
fortran 三角函数
fortran 三角函数Fortran是一门古老的编程语言，最初由IBM公司在20世纪50年代开发。
它的全称是Formula Translation，因为最初它是用来进行科学和工程计算，特别是数值计算的语言。
Fortran具有很强的数学运算能力，自然而然地也就包含了各种三角函数的计算。
在Fortran中，三角函数可以使用数学库函数来计算。
Fortran的数学库包含了许多用于科学计算的函数，包括三角函数，对数函数，指数函数等等。
下面是Fortran中常见的三角函数及其用法：1. sin函数Sin函数可用于计算给定角度的正弦值。
Fortran命令为sin(x)，其中x是以弧度为单位的角度。
要计算30度的sin值，可以使用以下Fortran代码：program sin_exampleimplicit nonereal :: sin30sin30 = sin(30*3.14159/180)write(*,*) sin30end program sin_example在这个例子中，我们将30度的值转换为弧度，并将结果存储在sin30变量中。
我们输出sin30的值。
2. cos函数Cos函数可用于计算给定角度的余弦值。
Fortran命令为cos(x)，其中x是以弧度为单位的角度。
要计算60度的cos值，可以使用以下Fortran代码：program cos_exampleimplicit nonereal :: cos60cos60 = cos(60*3.14159/180)write(*,*) cos60end program cos_example在这个例子中，我们将60度的值转换为弧度，并将结果存储在cos60变量中。
我们输出cos60的值。
3. tan函数Tan函数可用于计算给定角度的正切值。
Fortran命令为tan(x)，其中x是以弧度为单位的角度。
要计算45度的tan值，可以使用以下Fortran代码：program tan_exampleimplicit nonereal :: tan45tan45 = tan(45*3.14159/180)write(*,*) tan45end program tan_example在这个例子中，我们将45度的值转换为弧度，并将结果存储在tan45变量中。
Fortran标准函数库
附录 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, 结果:RAIMAG(x) 求x的实部。
x:C, 结果:RAINT(x[,kind])* 对x取整,并转换为实数(kind)。
x:R, kind:I, 结果:R(kind)AMAX0(x1,x2,x3,…)* 求x1,x2,x3,…中最大值。
x I:I, 结果:RAMIN0(x1,x2,x3,…)* 求x1,x2,x3,…中最小值。
x I:I, 结果:RANINT(x[,kind])* 对x四舍五入取整,并转换为实数(kind)。
x:R, kind:I, 结果:R(kind) CEILING(x)* 求大于等于x的最小整数。
x:R, 结果:ICMPLX(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, 结果:CDBLE(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转换为单精度实数。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
二进制位操作函数 说明
HUGE(x)* ILEN(x) KIND(x)* MAXEXPONENT(x)* MINEXPONENT(x)* PRECISION(x)* PRESENT(x) RADIX(x) RANGE(x)* SIZEOF(x)* TINY(x)*
查询 x 类型可表示的最大数。x:I、R,结果类型同 x 查询 x 的反码值。x:I,结果类型同 x 查询 x 的 kind 参数值。x:I、R、C、CH、L,结果:I 查询 x 的最大正指数值。x:R,结果:I(4) 查询 x 的最大负指数值。x:R,结果:I(4) 查询 x 类型有效数字位数。x:R、C,结果:I(4) 查询可选形参 x 是否有对应实参。x:AT,结果:L。有:.TRUE.,没有:.FALSE. 查询 x 类型的基数。x:I、R,结果:L 查询 x 类型的指数范围。x:I、R、C,结果:I(4) 查询 x 的存储分配字节数。x:AT,结果:I(4) 查询 x 的最小正值。x:R,结果类型同 x
将参数转换为 x、(x,0.0)或(x,y)。x:I、R、C, y:I、R,kind:I, 果:C(kind) 求 x 的共轭复数。x:C, 结果:C 结果:R(8)
结
将 x 转换为双精度实数。x:I、R、C,
将参数转换为 x、(x,0.0)或(x,y)。x:I、R、C, y:I、R, 将 x 转换为双精度实数。x:I, 结果:R(8)
表5 函数名 EXPONENT(x)* FRACTION(x)* NEAREST(x,s) RRSPACING(x) SCALE(x,I)* SET_EXPONENT(x,i) SPACING(x)*
实数检测和控制函数 说明
求实数 x 机内编码表示的指数值。x:R,结果:I 求实数 x 机内编码表示的小数值。x:R,结果类型同 x 根据 s 的正负号求最接近 x 的值。x:R,结果:R,且不为 0 求 x 与系统最大数之间的差值。x:R,结果类型同 x 求 x 乘以 2 。x:R,i:I,结果类型同 x 求由 x 的机内编码小数值与指数 i 组成的实数。x:R,i:I,结果类型同 x 求 x 与 x 最近值的差值绝对值。x:R,结果类型同 x
对 x 取整,并转换为实数(kind)。x:R, kind:I, 求 x1,x2,x3,…中最大值。xI:I, 结果:R 求 x1,x2,x3,…中最小值。xI:I, 结果:R
对 x 四舍五入取整,并转换为实数(kind)。x:R, kind:I, 求大于等于 x 的最小整数。x:R, 结果:I
结果:R(kind)
结果:R(kind) 结果类型同 x
求 x 的绝对值乘以 y 的符号。x:I、R, y 的类型同 x,
SNGL(x) ZEXT(x)
将双精度实数转换为单精度实数。x:R(8), 用 0 向左侧扩展 x。x:I、L, 结果:I
结果:R
表2 函数名 ACOS(x)* ACOSD(x)* ASIN(x)* ASIND(x)* ATAN(x)* ATAND(x)* ATAN2(y,x) ATAN2D(y,x) COS(x)* COSD(x)* COSH(x) COTAN(x)* SIN(x)* SIND(x)* SINH(x) TAN(x)* TAND(x)* TANH(x)
符号约定： I 代表整型;R 代表实型;C 代表复型;CH 代表字符型;S 代表字符串;L 代表逻辑型;A 代表数组;P 代表指针;T 代表派生类型;AT 为任意类型。 s:P 表示 s 类型为 P 类型(任意 kind 值)。s:P(k)表示 s 类型为 P 类型(kind 值 =k)。 […]表示可选参数。 *表示常用函数。
注：三角函数名前有 C、D 的函数为复数、双精度型函数。 表3 函数名 ALOG(x) ALOG10(x) EXP(x)* LOG(x)* LOG10(x)* SQRT(x)* 指数、平方根和对数函数 说明 求 x 的自然对数 ln(x)。x:R(4),结果:R(4) 求 x 以 10 为底一般对数 log10(x)。x:R(4),结果:R(4) 求指数,即 e 。x:R、C,结果类型同 x 求自然对数,即 e 。x:R、C,结果类型同 x 求以 10 为底对数,即。x:R,结果类型同 x 求 x 的平方根。x:R、C,结果类型同 x
三角函数 说明
求 x 的反余弦 arccos(x)。x:R,结果类型同 x,结果值域:0~π 求 x 的反余弦 arccos(x)。x:R,结果类型同 x,结果值域:0~180° 求 x 的反正弦 arcsin(x)。x:R,结果类型同 x,结果为弧度,值域:0~π 求 x 的反正弦 arcsin(x)。x:R,结果类型同 x,结果为度,值域:0~180° 求 x 的反正切 arctg(x)。x:R,结果类型同 x,结果为弧度,值域:-π/2~π/2 求 x 的反正切 arctg(x)。x:R,结果类型同 x,结果为度,值域:-90~90° 求 x 的反正切 arctg(y/x)。y:R,x 和结果类型同 x,结果值域:-π~π 求 x 的反正切 arctg(y/x)。y:R,x 和结果类型同 x,结果值域:-180~180° 求 x 的余弦 cos(x)。x:R、C,x 取值弧度,结果类型同 x 求 x 的余弦 cos(x)。x:R,x 取值度,结果类型同 x 求 x 的双曲余弦 ch(x)。x:R,结果类型同 x 求 x 的余切 ctg(x)。x:R,x 取值度,结果类型同 x 求 x 的正弦 sin(x)。x:R、C,x 取值弧度,结果类型同 x 求 x 的正弦 sin(x)。x:R,x 取值度,结果类型同 x 求 x 的双曲正弦 sh(x)。x:R,结果类型同 x 求 x 的正切 tg(x)。x:R,x 取值弧度,结果类型同 x 求 x 的正切 tg(x)。x:R,x 取值度,结果类型同 x 求 x 的双曲正切 th(x)。x:R,结果类型同 x
字符处理函数 说明
将 ASCII 码 n 转换为对应字符。n:I,n 值域:0~127,结果:CH(1) 将字符串 string 左对齐,即去掉左端空格。string:CH(*),结果类型同 string 将字符串 string 右对齐,即去掉右端空格。string:CH(*),结果类型同 string 将 ASCII 码 n 转换为对应字符。n:I,n 值域:0~255,结果:CH(1) 将字符 c 转换为对应的 ASCII 码。c:CH(1),结果:I 将字符 c 转换为对应的 ASCII 码。c:CH(1),结果:I 求子串 ss 在串 s 中起始位置。s:CH(*),ss:CH(*),b:L,结果:I。b 为真从右起 求字符串 s 的长度。s:CH(*),结果:I 求字符串 s 去掉尾部空格后的字符数。s:CH(*),结果:I 按 ASCII 码值判定字符串 s1 大于等于字符串 s2。s1:CH(*),s1:CH(*),结果:L 按 ASCII 码值判定字符串 s1 大于字符串 s2。s1:CH(*),s1:CH(*),结果:L 按 ASCII 码值判定字符串 s1 小于等于字符串 s2。s1:CH(*),s1:CH(*),结果:L 按 ASCII 码值判定字符串 s1 小于字符串 s2。s1:CH(*),s1:CH(*),结果:L 求字符串 s 重复 n 次的新字符串。s:CH(*),n:I,结果:CH(*) 求串 st 中任一字符在串 s 中的位置。s:CH(*),ss:CH(*),b:L,结果:I 求字符串 s 去掉首尾部空格后的字符数。s:CH(*),结果:CH(*)
表1 函数名 ABS(x)* AIMAG(x) AINT(x[,kind])* AMAX0(x1,x2,x3,…)* AMIN0(x1,x2,x3,…)* ANINT(x[,kind])* CEILING(x)* CMPLX(x[,y][,kind])) CONJG(x) DBLE(x)* DCMPLX(x[,y]) DFLOAT(x) DIM(x,y)* DPROD(x,y) FLOAT(x)* FLOOR(x)* IFIX(x)* IMAG(x) INT(x[,kind])* LOGICAL(x[,kind])* MAX(x1,x2,x3,…)* MAX1(x1,x2,x3,…)* MIN(x1,x2,x3,…)* MIN1(x1,x2,x3,…)* MOD(x,y)* MODULO(x,y) NINT(x[,kind])* REAL(x[,kind])* SIGN(x,y)* 数值和类型转换函数 说明 求 x 的绝对值∣x∣。x:I、R, 结果类型同 x; x:C, 求 x 的实部。x:C, 结果:R 结果:R(kind) 结果:R
VERIFY(s,st[,b])
求不在串 st 中字符在 s 中位置。s:CH(*),ss:CH(*),b:L,结果:I。b 为真右起
表7 函数名 BIT_SIZE(n)* BTEST(n,p) IAND(m,n)* IBCHNG(n,p) IBCLR(n,p) IBITS(i,p,l) IBSET(n,p) IEOR(m,n)* IOR(m,n)* ISHA(n,s)* ISHC(n,s)* ISHFT(n,s)* ISHFTC(n,s[,size]) ISHL(n,s) NOT(n)*
结果:C(8)
求 x-y 和 0 中最大值, 即 MAX(x-y,0)。x:I、R, y 的类型同 x,结果类型同 x 求 x 和 y 的乘积,并转换为双精度实数。x:R, y:R, 将 x 转换为单精度实数。x:I, 结果:R 求小于等于 x 的最大整数。x:R, 结果:I 结果:R(8)
将 x 转换为整数(取整)。x:R, 结果:I 同 AIMAG(x) 将 x 转换为整数(取整)。x:I、R、C, kind:I, 按 kind 值转换新逻辑值。x:L, 结果:L(kind) 求 x1,x2,x3,…中最大值。xI 为任意类型, 求 x1,x2,x3,…中最大值(取整)。xI:R, 结果类型同 xI 结果:I(kind)