INTEGER CHARACTER 在ASCII 平台上(包括 Sun 系统): ACHAR 是CHAR 的非标准同义词 IACHAR 是ICHAR 的非标准同义词 在非ASCII 平台上,ACHAR 和IACHAR 专门用于提供一种直接处理 ASCII 的方法。 3.1.3 三角函数 表3–3 Fortran 77 三角函数 内函数 定义 参数数量 通用
character(len=:), allocatable :: myString 在上述代码中,myString被定义为一个可变长度字符串,其长度由冒号:表示。 稍后,可以直接对myString进行赋值,编译器会自动分配合适的内存空间。若后续需要增加字符串长度,如通过连接操作myString// "...",编译器会自动扩展myString的长度以容纳新的内容。这样就不必担心字...
INTEGER*2 ICHAR Converts a character argument to an integer (ASCII value)IDINT Converts a DOUBLE PRECISION or REAL*8 argument to an integer IFIX Converts a REAL*4 argument to an integer INT Converts an integer, real or complex argument to an integer INT1 Converts an integ...
subroutine print_character(str) bind(C, name='for_print_character') use iso_c_binding, only: C_CHAR character (kind=C_CHAR, len=1), dimension (20), intent (in) :: str integer :: strlen integer :: i strlen = size(str) do i = 1,strlen write (*,'(A)',advance='no'),str(...
INTEGER*2 ICHARConverts a character argument to an integer (ASCII value) IDINTConverts a DOUBLE PRECISION or REAL*8 argument to an integer IFIXConverts a REAL*4 argument to an integer INTConverts an integer, real or complex argument to an ...
如果例程调用带有霍尔瑞斯常量的子程序,并且调用的子程序要求参数为 INTEGER(或除 CHARACTER 以外的任意类型),请使用 -xhasc=no 编译例程。 示例: demo% cat hasc.f call z(4habcd, ’abcdefg’) end subroutine z(i, s) integer i character *(*) s print *, "string length = ", len(s) return ...
Require all variables to be explicitly declared !这个一般都是要写上的。下面会进一步说明。implicitnoneinteger:: ierrcharacter:: ynreal:: radius, height, areareal,parameter:: pi =3.1415926536!这是常量的声明方法interactive_loop:do!do循环,Fortran中的循环可以加标签,如d前面的!interactive_loop就是标签!
integer :: i, unit_num character(len=50) :: file_name real :: data(5) ! 文件名 file_name = 'formatted_data.txt' unit_num = 20 ! 写入文件 open(unit=unit_num, file=file_name, status='replace') do i = 1, 5 write(unit_num, '(f8.2)') i * 1.0 ...
program where_construct1 implicit none integer, parameter :: N = 5 character(len=100) :: outFormat integer :: i, j real :: a(N,N) = 0, b(N,N) = 0, threshold = 0.5, & c(N,N) = 0, d(N,N) = 0 ! used in next examples ! write some values in a call random_number(...
side-lengthofthe matricesinteger::i,j!dummy-indicesreal(kind=DOUBLE_REAL),dimension(N,N)::a,b!the matricescharacter(len=100)::outFormat!Create dynamic format,using internal filewrite(outFormat,*)"(",N,"(x, f8.2))"!Initialize matrix a to some random values...