fotran学习源代码例子详解

《fotran学习源代码例子详解》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、!----------------------------------------------------------------------!o6DATAPROCESSINGPROGRAM(o6DPP)!VERSON:2.0!COPYRIGHT:ONLYFORDONGJING!CODEBY:xxx!DATE:2014.9.12!----------------------------------------------------------------------!PURPOSE:MAKETHEo6DATAEASILYUSEDINEXCELTOFITTHECURVE.!FILESNEED

2、:o6!RESULTFILE:o6_RESULT.TXT!CONTACTUS:LINQUE06_163_COM!----------------------------------------------------------------------IntegerFunctionGetFileN(iFileUnit)!TOREADTHEFileNImplicitNoneInteger,Intent(IN)::iFileUnitCharacter*(1)::cDummyGetFileN=0Rewind(iFileUnit)DoRead(iFileUnit,'(a10)',End=999,Er

3、r=999)cDummyGetFileN=GetFileN+1EndDo999Rewind(iFileUnit)ReturnEndFunctionGetFileN!----------------------------------------------------------------------CHARACTER(50)DIMENSION,SNUMBER(50000)!DEFINEDVARIALEINTEGER,DIMENSION(0:30)::N,GROUPLENintegeri,j,getfilen,DATANOW,k,SUM1,NCOMP!-------------------

4、---------------------------------------------------WRITE(*,*)"欢迎使用o6数据处理程序"!PROMPTMESSAGEWRITE(*,*)"作者：xxx制作时间2014.9.12"WRITE(*,*)"文件行数不超过50000行，仪器标号不超过30个，否则出错。"WRITE(*,*)WRITE(*,*)"请输入数据分组数（含时间组,6或7）:NCOMP。"READ(*,*)NCOMP!----------------------------------------------------------------------open(

5、20,file="o6_RESULT.txt")close(20,status='delete')!----------------------------------------------------------------------open(11,file="o6",status='old')!TOREADTHEFileo6Nsum1=getfilen(11)doj=1,sum1read(11,'(a10)')snumber(J)enddoclose(11)!---------------------------------------------------------------

6、-------OPEN(21,FILE='o6.log',STATUS='REPLACE')WRITE(21,*)"01分组量NCOMP=",NCOMPWRITE(21,*)"02总行数FILEN=",SUM1!----------------------------------------------------------------------I=0DATANOW=0DOWHILE(DATANOW

7、E(21,*)"第",I,"组值",n(I)!**********SELECTCASE(NCOMP)CASE(6)GROUPLEN(I)=6*N(I)+7CASE(7)GROUPLEN(I)=7*N(I)+6ENDSELECTDATANOW=DATANOW+GROUPLEN(I)WRITE(21,*)"第",I,"组长GROUPLEN=",grouplen(i)!**********ENDDOopen(31,