FORTRAN90第四章 格的式输入输出.pptVIP

§4 格式输入输出; 输入时,如果数据超过w列,则只截取输入数据的w列,因此,输入数据必须不超过w列。在输入数值型数据时,w列内的空格不起作用,但是,在负数的负号后留空格会出错。; 不同类型的数据必须用不同的编辑符;; E编辑符用于实数的指数形式, 可以指定指数的位数。 例: -3.1415926 E15.5E3输出 -.31416E+001;说明: (1)如果不指定指数位数,则指数部分占四列. (2)数字部分按标准格式输出.即小数点前为0,小数点后第一位非 0.小数位数由d指定。;说明:用F,E编辑符输入时,它们的作用相同. 例如: READ(*,100)A,B,C,D 100 FORMAT(F8.3,E8.3,E8.3,F8.3) 如果输入数据为: □□□0.234 □□□□□234 □234E+00 2.34E-01 则A,B,C,D的值均为0.234; FORTRAN没有专门的复型格式编辑符。对复数的输入/输出,用输入/输出两个实数(复数的实部和虚部)来实现。例如： COMPLEX C READ（*，100）C 100 FORMAT（F12.4, F12.4); 字符型格式编辑符用A或Aw,如果不指定w,则以字符变量定义长度L为准。 输出时,若wL,只输出最前面的W个字符,若WL,在字符前添加W-L个空格. 输入时,若wL,读入W个字符后在后面补L-W个空格.若wL,只读入W个字符中最右面的L个字符. ;字符变量长度; X编辑符:一般形式为nx . 输出时,用来产生N空格.输入时,用来跳过N列.例如:I=1234,J=345 WRITE(*,’(1X,I4,3X,I4) ’)I,J 输出结果为: 1234□□□□345,其中第一个空格作纵向走纸控制符,不输出. READ(*,’(2X,I4,3X,I3)’)I,J 若输入数据:123456789012345 则I=3456,J=12;; 定位编辑符:控制输入输出位置,称制表位。Tn移动到第n列;TLn向左移动n列;TRn向右移动n列。很显然,后两种移动是相对于当前位置的。例如:READ(*,’(I4,TL3,I4)’)I, J 当输入数据,执行该语句后I=1234,J=2345;如果格式说明中有连续的相同的编辑符,可以用重复系数“合并同类项”。例:FORMAT(1X,F8.3,F8.3,F8.3,F8.3)等价于FORMAT(1X,4F8.3) 而FORMAT(1X,I2,E10.3,I2,E10.3)等价于FORMAT(1X,2(I2,E10.3));输入/输出数据的类型必须与格式说明中相应的编辑符类型一致,如果不一致,程序就会出错,中断运行。; 组织好格式说明之后,可以结合READ语句进行输入,或者结合WRITE语句和PRINT语句实现输出。方法之一就是用格式语句FORMAT;用法:PRINT 标号S, 输出列表 S FORMAT(格式说明); 例:READ(*,11) I,A,K,B,N FORMAT(I5,F9.3) 格式说明中编辑符不够用,则另开一记录并从头引用格式说明。这就可能引起死循环。 本例数据要分三行。;例: WRITE(*,111) I1,I2,I3,I4,I5,I6,I7, I8,I9,IA FORMAT(1X,2(I3,2X),2(I4, 2X), 2(I5,2X),I6) 格式说明中编辑符不够用,又有多个重复系数。则另开一记录并从最后一个重复系数处引用格式。本例输出两行,第二行按2(I5,2X),I6输出。例如I1=11,I2=22,I3=33,I4=44, I5=55,I6=66,I7=77, I8=88,I9=99,IA=100 则输出为: □11□□□22□□□□33□□□□44□□□□□55□□□□□66□□□□□□77 □□88□□□□□99□□□□□100 共输出两行.; 可以把FORMAT后面括号连同格式说明一起当作一个字符串常量,作为输入输出语句的格式说明。