搜索
不要把2X作为与A对应的格式符，WRITE语句中的I，A，B分别与FORMAT语句中的I3，F6.2和E11.5格式符对应。X格式符不能用来提供整数、实数、以及其它类型数据的输出格式，它只能插入若干个空格。本文介绍了ANSYSAPDL命令流实现数据文件读写的实例。一FORTRAN数据格式I格式(又叫整数格式)一般形式：Iw或：Iw.m其中：w一个数据占的位数宽度(又称“字段宽度”)，m需要输出的最少数字位数。例1：(1)数字在指定的区域内向右端靠齐，如果数字位数比指定的字段宽度w小，则左边补以空格。负数的符号也包含在字段宽度内。(2)如果数字的位数超过了规定的字段宽度w，则不输出有效数据，而在该字段宽度范围内充满“*”符号。(3)如果数字的位数超过了m,则按实际应输出的位数输出(但条件是不能超过w)。m不包括负号所占的一列。F格式(又叫小数型格式)一般形式：Fw.dw各数值占的总位数d输出数据的小数位数(小数点后的位数)。例1：(1)数字在指定的区域内向右端靠齐，如果数字位数(含小数点和符号位)比指定的字段宽度w小，则左边补以空格;如果数字的位数超过了规定的字段宽度w，则不输出有效数据，而在该字段宽度范围内充满“*”符号。(2)如果数据的小数位数比指定的小数位数d小，则在小数右边补0以凑足d位;如果小数位数大于d位，则输出时多于的小数位数按“四舍五入”规则舍去。(3)假设b为数据整数部分的位数，则应使w≥b+d+1(小数点占一列)，如果输出负数，则应保证w≥b+d+2(小数点和负号各占一列)。(4)用F格式输出时应注意，由于难以事先确切估计出数据的大小，输出大的数时容易产生“宽度不够”的错误(由于w不够大)，输出小的数时会出现丢掉有用数字的情况(由于d不够大而将后面的数字截去)，这就是“大数印错，小数印丢”。E格式(又叫指数型格式)一般形式：w.dw各数值占的总位数，d输出数据的小数位数(小数点后的位数)。例1：(1)采取标准化的指数形式输出一个实数，d为以指数形式出现的数据的数字部分的小数位数。(2)指数部分一般占4列，其中字母“E”和指数的符号各占一列，指数2列。小数部分d列，再加上一个小数点和小数点前的一个“0”，因此要保证w≥d+6，输出负数时，w≥d+7。(3)有的计算机系统允许有较大的实数范围，FORTRAN77提供了一种扩充的编辑符，可以输出三位或四位指数。这种编辑符的形式为：Ew.dEe，用e指定指数的位数。有的计算机系统的FORTRAN编译系统已根据其允许的实数范围，自动将指数的位数改为3位或4位，不必在RORMAT语句中用Ew.dEe编辑符单独为某些数据指定所需的指数位数，只需写Ew.d形式即可，输出时系统会给出三位(或四位)指数。G格式G格式可以根据输出的实数大小决定用小数形式(F格式)输出或指数形式(E格式)输出。当输出大数值或小数值时自动按E格式，当输出的数不大不小时用F格式。其一般形式为：Gw.d(1)凡绝对值小于0.1的数或绝对值大于10d的数用E格式输出;其余的数用F格式输出。(2)用E格式输出时，最后4列为指数部分，而用F格式输出时最后4列留空。(3)用指数形式输出时，格式同Ew.d;用F格式输出时，不是按Fw.d形式输出，d规定的不是小数位数而是打印出来的全部数字的位数，小数位数根据数值大小和d的大小而定，这样做的目的是使数的整数部分能全部保留，而适当截去小数部分，以保证输出数值的正确性。因为小于10d的数，其整数部分最多为d位，因此，可以全部输出这d位整数，小数的位数为：d-(数值整数位数)。D格式一般形式：Dw.a用于双精度数据的输出，使用方法与E格式相仿，只是把字母“E”换成“D”。L格式一般形式：Lw用于逻辑型数据的输出，w输出数据的字段宽度。逻辑值“.TRUE.，在输出时打印一个字母T;逻辑值.FLASE.，在输出时打印一个字母F。T和F打印在字段范围内的最右端。A格式一般形式：Aw或：A用于字符型数据的输出，w为字段宽度，不指定w时(即形式：A)，按字符变量的实际长度(即程序定义该变量时的长度)输出。字符串在指定的区域内向右端靠齐，如果字符串的位数比指定的字段宽度w小，则左边补以空格;如果字符串的位数超过了规定的字段宽度w，则只输出最左面的w个字符。‘(撇号)格式用来插入所需的字符串，如果需要输出的字符包括撇号，则用两个连续的撇号代表一个被输出的撇号字符。H格式一般形式：nH字符串用来输出字符常量，与撇号格式相似。n为字符串中字符的个数。可以单独用撇号格式或H格式输出字符串而不必要求WRITE语句中有相应的输出项。用H格式必须准确地数出字符串中的字符个数，数错了就会造成错误。所以最好不用H编辑符而用撇号编辑符，后者不必数字符，使用方便，字符串界线清楚无误。FORTRAN77之所以保留H编辑符主要是为了与FORTRAN66兼容(FORTRAN66只能用H编辑符输出字符串而没有撇号编辑符)。X格式一般形式：nX用于输出空格，n输出的空格数目。即插入n个空格，或者说，使打印的“当前位置”向右移动n列。如果不用X格式插入空格，数据将连成一片，难以区分开。注意：不要把2X作为与A对应的格式符，WRITE语句中的I，A，B分别与FORMAT语句中的I3，F6.2和E11.5格式符对应。X格式符不能用来提供整数、实数、以及其它类型数据的输出格式，它只能插入若干个空格。FORTRAN77还允许n是负整数，表示从当前位置向左移动n的绝对值列。微机上使用的FORTRAN子集不能使用n为负值的格式符。/(斜杠)格式斜杠(/)编辑符的作用是：结束本记录的输出并开始下一个记录的输出。例如：二关键命令2.1*VREAD按指定格式将数据读入数组中*VREAD,ParR,Fname,Ext,--,Label,n1,n2,n3,NSKIPParR定义好的数组名称，且指出开始写入的位置，即下标(i，j)Fname数据文件名称Ext数据文件的扩展名--没有启用的保留域Label可为IJK,IKJ,JIK,JKI,KIJ,KJI,orblank(IJK)，表示你对ParR写入的顺序，下标变化依次变慢，如IJK表示先写列再写行(列下标J变化最快)，JIK表示先写行再写列。n1,n2,n3表示按上面的顺序要写入的数据个数，如JIK，5，6表示对ParR按行写入，共写5列6行。NSKIP读入数据时需要跳过的行数。特别注意：*VREAD后面要紧跟带括号的指定格式，描述对数据文件每行的读法，如(F3.0，F11.0)每行读两个数，分别占3，11个字符宽度。2.2*VWRITE用来输出数组、数值参数、字符参数或常量到文件里。它一次最多可以写入19个参数，使用该命令时，紧跟着该命令的下一行必须是FORTRAN77的格式规定。数组矢量要指定起始元素位置。可以用表达式来计算数据文件中每一行的位置。*vwrite命令的使用格式如下：*VWRITE,Par1,Par2,Par3,Par4,Par5,Par6,Par7,Par8,Par9,Par10,Par11,Par12,Par13,Par14,Par15,Par16,Par17,Par18,Par19其中par1～par19是依次写出的19个参数或者常数，某个空值表示忽略，所有都忽略则输出一空行。允许写出的数据包括常数，变量与数组，包括数值型和字符型数据。2.3*cfopen在*vwrite之前需利用*cfopen打开的一个数据文件，表示其后的并将*cfopen和*cfclos之间所有的*vwrite写出的数据都输入到该数据文件中。*cfopen,fname,ext,--,locfname是带路径的文件名(两者允许至多250字符长度)，缺省路径为工作目录，文件名缺省为jobnmae。ext是文件的扩展名(至多是8个字符长度)。如果fname为空，那么扩展名缺省为cmd。--表示该域是不需要使用的值域。loc用于确定打开的文件已经存在时，缺省表示采用覆盖方式写数据到文件中，设置成append表示采用追加方式写数据到文件中。与*cfopen成对使用的另外一个命令时*cfclos命令，总是在*cfopen命令与一序列数据*vwrite命令之后，用于关闭用*cfopen命令打开的文件。*cfclos命令的使用格式如下：*cfclos2.4/OUTPUT/OUTPUT/OUTPUT,Fname,Ext,--,Loc输出txt数据到文件或窗口Fname文件名和路径。如果为空，则输出到默认系统输出文件中。Ext文件扩展名--保留的未使用域。Locblank—覆盖式输出APPEND—追加式输出三实例解析3.1首先创建一个数据文件finish/clearitem=’’weight:’’data=234.56unit=’’kg’’*dim,aa,array,4,1,1aa(1)=10.2,324.5,123.7,908*dim,bb,char,3,1,1bb(1)=’’iam’’,’’agood’’,’’man’’*cfopen,mememama,dat*vwrite，(5x,’*vwritedemo’)*vwrite,(’***********************’)*vwrite,item,data,unit(a8,f10.2,a8)*vwrite,(/’******arrayparameteroutputdemo******’)*vwrite,(’’floatformat/sequkeyword:’’)*vwrite,sequ,aa(1)(f3.0,f10.4)*cfclos运行该文件后，生成的数据格式如下：vwritedemo***********************'weight:234.56'kg'******arrayparameteroutputdemo******floatformat/sequkeyword:1.10.20002.324.50003.123.70004.908.00003.2将数据读入数组*DIM,mememama,,4,2*VREAD,mememama(1,1),mememama,dat,,JIK,2,4,,6(f3.0,f10.4)运行该文件后，点击[Parameters]-ArrayParameters，就可以看到得到的数组了finish/clearitem='weight:'data=234.56unit='kg'*dim,aa,array,4,1,1aa(1)=10.2,324.5,123.7,908*dim,bb,char,3,1,1bb(1)='iam','agood','man'*cfopen,byb,txt*vwrite(5x,'*vwritedemo')*vwrite('***********************')*vwrite,item,data,unit(a8,f10.3,a8)*vwrite,(/'******arrayparameteroutputdemo******')*vwrite,('floatformat/sequkeyword:')*vwrite,sequ,aa(1)(f3.0,f10.4)*cfclos