program newline implicit none write(*,'(A)') 'This is record 1.'//NEW_LINE('A')//'This...
Try input the following strings in the commandline: ! cir 20. ! sqr 10. ! rect 1. 2. CALL readcmd(keywd, pars) IF (keywd=='end') THEN EXIT ELSE IF (keywd=='cir' .OR. keywd=='sqr') THEN IF (size(pars) /= 1) THEN WRITE (*, *) 'Incorrect number of parameters.' ...
RESULT = NEW_LINE(C)Argum ...谢谢 您的回答，请问倒数第二行代码： write(*,'(A)') 'This ...
8、t( x ) 四舍五入并转换c = cmplx( a , b ) 把 a 和 b 转换为复数,分别为实部/虚部r = cmplx(a,b,kind=8)如果 a b 都是常数,也可写为 c = (1.0,2.0)数学数值函数内部文件转换:write( 字符串 , * ) 其他数值其他类型转字符串read( 字符串 , * ) 其他数值字符串转其他类型write( str...
具体来说,可以使用WRITE语句中的格式化控制字符串来控制输出格式。例如,可以使用*字符来表示不换行,可以使用/字符来表示换行。 例如,以下代码可以将两个数字写入同一行: 代码语言:txt 复制 WRITE(*, '(2F10.3)') a, b 其中,2F10.3表示输出两个浮点数,每个数占用10个字符宽度,并保留3位小数。这样输出的数字将...
INTEGER::ierror,unit CHARACTER::err_string,filename unit=25 filename='OUTCAR' OPEN(UNIT=unit,FILE=filename,STATUS="NEW",ACTION='WRITE',IOSTAT=ierror,IOMSG=err_string) 3. 打开一个临时文件 (给临时文件指定文件名是错误的) OPEN(UNIT=12,STATUS='SCRATCH',IOSTAT=ierror) 4.5.2 CLOSE语句 CLOS...
7.4 读写命令WRITE与READ语句的运用 WRITE/READ(UNIT=number,FMT=format,NML=namelist,REC=record,IOSTAT=stat,ERR=errlabel,END=ENDLABEL,ADVANCE=advance,SIZE=size) UNIT=number 指定文件代码 FMT=format 指定输入输出格式,若为 *号则表示自由格式(为了读写数据的准确,建议使用*号) ...
Integer::File_ In Open(NewUnit=File_ In,File="2d_text.txt") 10.2.2 Read Read(文件通道号,*)变量列表 如果不特殊指定格式,每个Read语句读取整的N行。 星号*表示表控格式(List-Direct),即让变量列表自动控制格式。 一般Read不特别指定读取格式,使用表控格式即可;而Write需要指定写入格式。 所以一般情况下...
可以在OPEN语句中使用ACCESS='STREAM'说明符来声明流 I/O 文件。字节地址文件定位要求READ或WRITE语句中有POS=scalar_integer_expression说明符。INQUIRE语句接受ACCESS=’STREAM’、说明符STREAM=scalar_character_variable和POS=scalar_integer_variable。 4.6.9 Fortran 2003 格式化 I/O 功能 ...
demo% cat wf.f WRITE( 6 ) 1 END demo% f95 -o wf wf.f demo% wf *** FORTRAN RUN-TIME SYSTEM *** Error 1003: unformatted I/O on formatted unit Location: the WRITE statement at line 1 of "wf.f" Unit: 6 File: standard output Abortf95 メッセージにエラーの生じたソースコー...