《fotran学习源代码例子详解》由会员分享，可在线阅读，更多相关《fotran学习源代码例子详解（3页珍藏版）》请在金锄头文库上搜索。
1、!-!o6 DATA PROCESSING PROGRAM (o6DPP)!VERSON : 2.0!COPYRIGHT : ONLY FOR DONGJING !CODE BY : xxx!DATE!-!PURPOSE : MAKE THE o6 DATA EASILY USED IN EXCEL TO FIT THE CURVE.!FILES NEED : o6!RESULT FILE : o6_RESULT.TXT!CONTACT US : LINQUE06_163_COM!-Integer Function GetFileN( iFileUnit ) !TO READ THE File
2、N Implicit None Integer , Intent( IN ) : iFileUnit Character*(1) : cDummy GetFileN = 0 Rewind( iFileUnit ) Do Read( iFileUnit , (a10) , End = 999 , Err = 999 ) cDummy GetFileN = GetFileN + 1 End Do999 Rewind( iFileUnit ) ReturnEnd Function GetFileN!-CHARACTER(50) DIMENSION ,SNUMBER(50000) !DEFINED V
3、ARIALEINTEGER,DIMENSION(0:30) : N,GROUPLENinteger i,j,getfilen,DATANOW,k,SUM1,NCOMP!-WRITE(*,*) 欢迎使用o6数据处理程序 !PROMPT MESSAGEWRITE(*,*) 作者：xxx 制作时间2014.9.12WRITE(*,*)文件行数不超过50000行，仪器标号不超过30个，否则出错。WRITE(*,*)WRITE(*,*)请输入数据分组数（含时间组,6或7）:NCOMP。READ(*,*) NCOMP!-open(20,file=o6_RESULT.txt)close(20,status=
4、delete)!-open(11,file=o6,status=old) !TO READ THE File o6 Nsum1=getfilen(11)do j= 1, sum1read(11,(a10) snumber(J)end do close (11)!-OPEN(21,FILE=o6.log,STATUS=REPLACE)WRITE(21,*)01分组量NCOMP= , NCOMPWRITE(21,*)02总行数FILEN= ,SUM1!-I=0DATANOW=0DO WHILE (DATANOWSUM1)I=I+1WRITE(21,*)I= , I,指针位置DATANOW=,DAT
5、ANOW !*READ(SNUMBER(DATANOW+1),*) N(I)WRITE(21,*) 第,I,组值,n(I) !*SELECT CASE(NCOMP)CASE(6)GROUPLEN(I)=6*N(I)+7CASE(7)GROUPLEN(I)=7*N(I)+6END SELECT DATANOW=DATANOW+GROUPLEN(I)WRITE(21,*) 第,I,组长GROUPLEN=,grouplen(i) !*END DO open(31,file=o6_RESULT.txt,status=new)DATANOW=0grouplen(0)=0DO J= 0 , (I-1) D
6、ATANOW=DATANOW+GROUPLEN(J) WRITE(21,*)DATANOW= , DATANOW !* if(j.ne.0) then WRITE(31,(a10) SNUMBER(DATANOW) end if SELECT CASE(NCOMP) CASE(6) do k=1,n(j+1) write(31,100) snumber(datanow+k+1),snumber(datanow+n(j+1)+k+1),snumber(datanow+2*n(j+1)+k+2),& &snumber(datanow+3*n(j+1)+k+3),snumber(datanow+4*
7、n(j+1)+k+4),snumber(datanow+5*n(j+1)+k+5) end do CASE(7) do k=1,n(j+1) write(31,100) snumber(datanow+k+1),snumber(datanow+n(j+1)+k+1),snumber(datanow+2*n(j+1)+k+2),& &snumber(datanow+3*n(j+1)+k+3),snumber(datanow+4*n(j+1)+k+4),snumber(datanow+5*n(j+1)+k+5),& &snumber(datanow+6*n(j+1)+k+6) end do END SELECT 100 format(1X,a15,a10,a10,a10,a10,a10)END DO WRITE(31,(a10) SNUMBER(DATANOW+grouplen(i)CLOSE (21)close (31)end
