READ(* , *)和WRITE(* , *)括号中第二个*号均表示采用自由格式,此时输出中经常有多个额外的空格,且格式往往不统一。因此,可以采用格式化输出模式(采用格式描述符),来指定具体样式。 1.用法(READ和WRITE一致) 采用FORMAT语句,并且结合语句标号(行号)来使用,如: INTEGER:: a = 123 WRITE(*,100) a 100 FOR...
&rt(b*b-4.0*a*c))/2.0/a write(*,10)x1,x2 10format(1x,2f6.2) stop end program Fortran语言中有五种基本数据类型:整型(INTEGER)、实型(REAL)、复型(COMPLEX)、字符型(CHARACTER)、逻辑型(LOGICAL)。 变量类型的说明 Integer(kind=4)::X1,Y1 该语句说明两个整型变量X1、Y1,其中kind=4表示这两...
字符串 => 数字 write(字符串,) 整型或实型变量。 数字 => 字符串 7 Arrays (数组) integer::x(5,50) 5行50列的整数数组 character(5)::x(25) 25个元素的符号向量,每个元素5个字符长度 real::c(3,4,5) 60个元素(3x4x5)的3-D数组 默认生成的数组元素都为1 8 设置常量 integer, parameter::n...
WRITE(*,*) X1,X2输出语句第一个*号是指输入输出文件设备号或其它设备,如果不指定则是指显示器或打印机,第二个*号是指表控格式语句的行号,如不指定则用默认格式 PRINT *,X1,X2输出语句*号是指表控格式语句的行号,如不指定则用默认格式 READ *,X1,X2输入语句*号是指表控格式语句的行号,如不指定则用...
integer :: a wirte(*,100) a 100 format(I4) 其中代号为100的这一行,作为上一行设置的输出格式 当不设置输出格式时,我们发现数字前面会出现一段额外的空格,当设置的输出格式为(I4)时,也是表示用4列来显示整数a的数值。 方式2,推荐 write(*,"(1X,I5)") write(*,"('(',i2,',',i2,')')") ...
10 format (1x,2I5,I3) write (*,ifmt) i,j,k c、write (*,'(1x,2I5,I3)') i,j,k d、character*11 fmtch fmtch='(1x,2I5,I3)' write (*,fmtch) i,j,k 其中X表示空格之意,1x即是空一格, write为输出的指令,若改为 read 则为输入指令,I为整数的格式码, 2I5 表示输出的总位数为...
I'm trying to write out a formatted list with fortran. Basically it is quite simple, it compiles, but gives out only rubbish. My code: SUBROUTINE f_m () #ifdef _IMPLICITNONE implicit none #else implicit logical (a-z) #endif
Fortran有5种基本数据类型,integer,real,character,logical,complex,其他语言一般没有复数类型,这是fortran与其他语言不同的地方。 DOUBLE PRECISION语句在FORTRAN90标准中完全可以用REAL(8)代替,目前很少使用。 Fortran两种格式之间的一些遗留问题 使用系统默认的隐含约定(I-N规则):FORTRAN中约定,在没有强制规定变量类型的...
Logical: 逻辑变量并赋值。Logical a = .true. 设置逻辑变量的方法:当设置“真”值或者“假”值,请注意要在true和false的前后要加上两个点 输入命令Read Read(*,*) read命令在使用时和write一样,都有两个星号。代表的意义也是差不多的,第一个星号代表输入的来源使用默认的设备(也就是键盘),第二个星号代表...
【READ,WRITE 输入输出】◆文件◆WRITE语句◆READ◆I/O列表◆OPEN◆CLOSE◆定位语句◆内部文件 【FORMAT语句】 【一些说明】 【一些建议】 【注释】 整行注释,第一个字母为 C 或者 * 附加注释,与句后面用 ! !--- ! 说明(F90) !--- 【并行】 !---...